DraftSight Professional以上版本即支援Lisp語法,也可以在儲存為xx.lsp文件後,於其他電腦的DraftSight載入使用。
以下列Lisp程式為例,編寫並儲存Lisp程式後,可於DraftSight Professional以上版本載入使用
這Lisp只有5行,功能很簡單:經由滑鼠點兩點生成線條。
(defun c:testline ()
(setq a (getpoint "\n 在畫面上點第一點 : "))
(setq b (getpoint "\n 在畫面上點第二點 : "))
(command "Line" a b "")
)
假設儲存為testline.lsp文件
在DraftSight載入方法:輸入loadapp指令(或於"管理"頁籤找到"Load Application")
通過檔案總管找到並開啟(載入)testline.lsp
再於指令行輸入testline,依提示即可完成線條繪製。
DraftSight的Lisp開發相關網頁
----------------
===========
協勤資訊_Mingway