Vla-loaddvbのソースを表示

{{AutoLISP}}
; 構文
: (vla-loaddvb ''vla-object'' ''name'')


; 機能
:  指定した VBA プロジェクト ファイルをロードする。 


; 引数
:* vla-object … Application の VLAオブジェクト
:* name … ロードする .dvb プロジェクトの絶対パス名。 


; 戻り値
: なし


; サンプル
<pre class="brush:autolisp;">
(vl-load-com)
(defun c:Example_LoadDVB()
    ;; DVB ファイルを読み込んで RunMacro メソッドで実行するサンプル
    ;;
    ;; Module1.Drawline というマクロが書かれている drawline.dvb 
    ;; というファイルを使うので準備しておくこと

    (setq FileName (findfile ".\\Sample\\vlisp\\drawline.dvb"))
    
    ;; DVB ファイルをロード
    (vla-LoadDVB acadObj FileName)
    
    ;; マクロを実行
    (vla-RunMacro acadObj "Module1.Drawline")
    
    ;;  DVB をアンロード
    (vla-UnloadDVB acadObj FileName)
    
    (alert "The DVB file has been run!")
)

</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-loaddvb]]
* [[vla-unloaddvb]]
* [[vla-runmacro]]


[[Category:AutoLISP]]