Vla-get-database

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

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

機能: オブジェクトが属しているデータベースを取得する。

引数

vla-object … Document の VLAオブジェクト

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_Database()
    ;; モデル空間から取得したデータベースオブジェクトを参照する。
    ;; データベースオブジェクトから情報が表示される
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; データベースオブジェクトをアタッチ
    (setq database (vla-get-Database (vla-get-ModelSpace doc)))
    (alert "プロパティおよびデータベース·オブジェクトのメソッドにアクセス出来るヨ！")
    
    ;; データベースのブロック数を取得
    (alert (strcat "このデータベース内のブロックの数 : " (itoa (vla-get-Count (vla-get-Blocks database)))))

    ;; オブジェクトを開放
    (vlax-release-object database)
    (alert "Databaseオブジェクトがリリースされたヨ！")
)