Gio_S
Guest
全てにこんにちは、レイヤー(名前を知る)から抽出する最も簡単な方法は、最終的にその色のエンティティティを「バイレイラ」に色付けするために割り当てられた色をリスペクトします。 (lisp、vlaなし)
お問い合わせ
お問い合わせ
(defunのfnlayers(/l x))
(vlax-for x (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))))))))
(setq l (append l (list (vla-get-name x)))))))))))
)
ログイン
)
(defun fnlayers(/ループnomeカラーリスト))
(setq ループ (tblnext "layer" t)))
( while ループ)
(setq nome (cdr (nth 1 ループ))))))
(setq colore (cdr (nth 3 ループ))))))
(setq lista (list (list nome colore))) を追加しました))
(setqループ(tblnext "layer")))
)
リストア
)
e' possibile の con:...オブジェクトの層の名前を抽出した後、レイヤーに直接ポイントします。 . . .
(例: "3dface" (cdr(assoc 0 alist)))))
(progn)
(= 256 (cdr (assoc 62 alist))) の場合)
(setq色(rtos (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 alist))))))))))))))))))))))
(setq色(rtos (cdr)))))
)........................................................................................................................
好奇心だけ。 autocad では、選択を autolisp にすると、色が強制されていない場合は、コード 62 はアクティブではなく、それ以外の場合は、(62 . 256) は、別のケードの「フルーツ」でなければなりません。 実際には gio_s によって使用されるソフトウェアの中には、intellicad、互換性のある autolisp がありますが、vla-vlax の機能には使用していません。 私はナンセンスを述べた場合、専門家は私を正しく排除します。パーフェクト, 私の古いオートリスプで:
Code:(例: "3dface" (cdr(assoc 0 alist))))) (progn) (= 256 (cdr (assoc 62 alist))) の場合) (setq色(rtos (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 alist)))))))))))))))))))))) (setq色(rtos (cdr))))) )........................................................................................................................
ノーマルファセット -0.23379819 0.20359900 -0.95072912
外部ループ
頂点 3.70767496 -2.34397192 -4.4987455
頂点 3.68773415 -1.27682691 -4.26531230
頂点 4.25378586 0.00000000 -4.13107972
エンドループ
エンドファセットカラー 700000000