Vla-get-active

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

構文: (vla-get-active vla-object)

機能: vla-object のドキュメントがアクティブかどうかを返す。

引数

vla-object … ドキュメントのVLAオブジェクト

戻り値: アクティブでなかったら :vlax-false

サンプル

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