Vla-get-documents

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


機能
開かれているドキュメントのVLAオブジェクトを返す


引数
  • vla-object … CADのVLAオブジェクト


戻り値
現在のセッションで開かれている全ての図面コレクションの VLAオブジェクト


サンプル
(defun c:CloseAllButActive(/ tmpList)
; アクティブな図面以外を全て閉じるコマンド
  (vl-load-com)
  (vlax-for item (vla-get-documents (vlax-get-acad-object))
    (if (= (vla-get-active item) :vlax-false)
      (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-close (list item :vlax-false)))
            (setq tmpList (cons item tmpList))
      )))
  (foreach item tmpList
    (prompt (strcat "\n" (vla-get-name item) " 、閉じることが出来なかったってよ。"))
  )
(princ))

; ダンプ
(vlax-dump-object (vla-get-documents (vlax-get-acad-object)))
; IAcadDocuments: 現在のセッションで開かれているすべての AutoCAD 図面のコレクション
; プロパティの値:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00000001404791d8>
;   Count (RO) = 1


関連事項