Vla-get-activelayer

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月9日 (土) 15:58時点におけるGizmon (トーク | 投稿記録)による版
構文
(vla-get-activelayer vla-object)


機能
アクティブ画層のVLAオブジェクトを取得する


引数
  • vla-object … CAD のアプリケーション オブジェクト


戻り値
アクティブ画層のVLAオブジェクト


サンプル
 ; VLAオブジェクトから現在画層色を取得。
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq col1 (vla-get-color (vla-get-ActiveLayer *ActDoc*)))

; テーブルから現在画層の色を取得。
(setq col1 (cdr (assoc 62 (tblsearch "layer" (getvar "CLAYER")))))