Vla-get-documents

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

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