Vla-put-activelayer

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-put-activelayer vla-object Layer)

機能: アクティブな画層を指定する。

引数

vla-object … Document の VLAオブジェクト
Layer … 画層名

戻り値: nil

MEMO ：

新しいオブジェクトは、作成時にアクティブな画層に配置される。既存のオブジェクトの画層を変更するには、オブジェクトの Layer プロパティを使用する。新しい画層を作成するには、vla-add メソッドを使用する。(ActiveX で追加の場合) 画層の表示やその他のプロパティを変更するには、Layer オブジェクトを参照。

サンプル

(vl-load-com)
(defun c:Example_ActiveLayer()
    ;; 現在画層を返してから、TestLayerを新規追加後に 0画層にセットするサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 現在の画層を返す
    (setq currLayer (vla-get-ActiveLayer doc))
    (alert (strcat "現在画層は " (vla-get-Name currLayer)))
    
    ;; 新規画層作成
    (setq layers (vla-get-Layers doc))
    (setq newLayer (vla-Add layers "TestLayer"))
    (alert (strcat "新しい画層は " (vla-get-Name newLayer)))

    ;; 現在画層を 0画層にセット
    (vla-put-activeLayer doc (vla-item (vla-get-layers doc) "0")))
)