「Vla-remove」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
21行目: 21行目:
(defun DeleteLayerStates  ()
(defun DeleteLayerStates  ()
  ; 画層状態を削除してみたり
  ; 画層状態を削除してみたり
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (vl-Catch-All-Apply
  (vl-Catch-All-Apply
   '(lambda ()
   '(lambda ()
     (vla-Remove (vla-GetExtensionDictionary
     (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*))
                (vla-Get-Layers  
                  (vla-Get-ActiveDocument
                  (vlax-Get-Acad-Object))))
                 "ACAD_LAYERSTATES")))
                 "ACAD_LAYERSTATES")))
  (princ)
  (princ)

2014年4月13日 (日) 09:36時点における最新版

構文
(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)
)

関連事項