Vla-remove

提供:GizmoLabs - だいたい CAD LISP なサイト
2014年4月13日 (日) 09:36時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)

関連事項