Vla-removeのソースを表示

{{AutoLISP}}
; 構文
: (vla-remove ''vla-object'' ''name'')


; 機能
: 名前の付いたオブジェクトをディクショナリから除去する。


; 引数
* vla-object … VLAオブジェクト
* name … オブジェクトの名前


; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(defun DeleteLayerStates  ()
 ; 画層状態を削除してみたり
 (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))

 (vl-Catch-All-Apply
  '(lambda ()
    (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*))
                "ACAD_LAYERSTATES")))
 (princ)
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-getextensiondictionary]]
* [[vla-get-layers]]


[[Category:AutoLISP]]