Vla-remove

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-remove vla-object name)


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


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


戻り値
nil


サンプル
(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)
)

関連事項