ADN Club > AutoLisp / VisualLISP и DCL
Установление прозрачности примитивам
Александр Ривилис:
Похоже группа 440 убирается при любом недопустимом значении этой группы.
Алексей Кулик:
Написав тупую программку вида
--- Код - Auto/Visual Lisp [Выбрать] ---(defun tt (/ ent res count) (setq ent (vlax-ename->vla-object (car (entsel))) count 0 ) ;_ end of setq (while (< count 91) (vla-put-entitytransparency ent count) (setq res (cons (cons count (cdr (assoc 440 (entget (vlax-vla-object->ename ent))))) res) count (1+ count) ) ;_ end of setq ) ;_ end of while (append '(("bylayer" . 0) ("byblock" . 16777216)) (mapcar (function (lambda (x) (cons (itoa (car x)) (cdr x)))) (vl-sort res '(lambda (a b) (< (car a) (car b)))) ) ;_ end of mapcar ) ;_ end of append ) ;_ end of defunя в результате получил список допустимых значений 440-й группы (вдруг кому-то понадобится):
--- Код - Auto/Visual Lisp [Выбрать] ---'(("bylayer" . 0) ("byblock" . 16777216) ("0" . 33554687) ("1" . 33554684) ("2" . 33554681) ("3" . 33554679) ("4" . 33554676) ("5" . 33554674) ("6" . 33554671) ("7" . 33554669) ("8" . 33554666) ("9" . 33554664) ("10" . 33554661) ("11" . 33554658) ("12" . 33554656) ("13" . 33554653) ("14" . 33554651) ("15" . 33554648) ("16" . 33554646) ("17" . 33554643) ("18" . 33554641) ("19" . 33554638) ("20" . 33554636) ("21" . 33554633) ("22" . 33554630) ("23" . 33554628) ("24" . 33554625) ("25" . 33554623) ("26" . 33554620) ("27" . 33554618) ("28" . 33554615) ("29" . 33554613) ("30" . 33554610) ("31" . 33554607) ("32" . 33554605) ("33" . 33554602) ("34" . 33554600) ("35" . 33554597) ("36" . 33554595) ("37" . 33554592) ("38" . 33554590) ("39" . 33554587) ("40" . 33554585) ("41" . 33554582) ("42" . 33554579) ("43" . 33554577) ("44" . 33554574) ("45" . 33554572) ("46" . 33554569) ("47" . 33554567) ("48" . 33554564) ("49" . 33554562) ("50" . 33554559) ("51" . 33554556) ("52" . 33554554) ("53" . 33554551) ("54" . 33554549) ("55" . 33554546) ("56" . 33554544) ("57" . 33554541) ("58" . 33554539) ("59" . 33554536) ("60" . 33554534) ("61" . 33554531) ("62" . 33554528) ("63" . 33554526) ("64" . 33554523) ("65" . 33554521) ("66" . 33554518) ("67" . 33554516) ("68" . 33554513) ("69" . 33554511) ("70" . 33554508) ("71" . 33554505) ("72" . 33554503) ("73" . 33554500) ("74" . 33554498) ("75" . 33554495) ("76" . 33554493) ("77" . 33554490) ("78" . 33554488) ("79" . 33554485) ("80" . 33554483) ("81" . 33554480) ("82" . 33554477) ("83" . 33554475) ("84" . 33554472) ("85" . 33554470) ("86" . 33554467) ("87" . 33554465) ("88" . 33554462) ("89" . 33554460) ("90" . 33554457) )
Навигация
Перейти к полной версии