2013-04-25

AutoCAD中打入指令執行VAB

若您熟悉AutoCAD中指令繪圖,想必讓您繪圖作業輕鬆愉快,比如打"l"就會叫出Line指令來劃線...等。但是你自己寫得VBA程式,要如何才能才能輕鬆呼叫呢?

這部份可能沒法利用VBA來完成,除非,你利用VBA將程式的程序掛在下拉式選單或是工具列(註:AutoCAD的VBA似乎無法如Excel VBA利用錄製巨集的方式來指定快捷鍵),這樣的作法若操作次數不多還可行,但若需要頻繁操作的話就....,而且這樣還是無法達到指令繪圖的動作。

不過我們可以利用Lisp的功能來達到,作法就是利用Lisp來呼叫VBA的某個指定程序,讓他自動執行。

假設我們希望執行一個已載入的dvb中Module1裏的main程序。而我們希望的執行指令為abc,如下是Lisp程式碼:
 (defun c:abc()
    (vl-load-com)
    (setvar "cmdecho" 0)
    (vl-vbarun "Module1.main")
    (setvar "cmdecho" 1)
)
雖然一開始需要同時載入dvb與lsp兩個檔案,不過載入後就一路方便嚕...

沒有留言:

張貼留言