Vla-get-activelayer

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月9日 (土) 15:57時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-activelayer ''vla-object'') ; 機能 : アクティブ画層のVLAオブジェクトを取得する ; 引数 :* vla-object … CAD ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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")))))