dimradius by AutoLisp in AutoCAD
eryar@163.com
最近在開發(fā)一個(gè)自動(dòng)出圖程序，從PDMS模型中取數(shù)據(jù)后，經(jīng)過處理生成AutoCAD的圖紙。其中涉及到一個(gè)問題就是如何盡量使程序與AutoCAD低耦合，盡量不使用第三方庫的情況下，實(shí)現(xiàn)數(shù)據(jù)的傳遞。
最開始想到是用ODA(Open Design Alliance)的DWGdirect庫來直接生成DWG文件，并且PDMS中就是使用這個(gè)庫來生成DWG文件的。DWGdirect的用法與AutoCAD .Net的接口名稱基本一致，用法也相同，但是這樣就引入了第三方庫。
還有一種方法就是使用AutoLisp腳本來生成圖紙。這樣的話，程序只需要生成一個(gè)AutoLisp腳本文件，文件中包含創(chuàng)建圖形的命令。AutoLisp腳本與PDMS的PML類似，都需要一個(gè)解析執(zhí)行的環(huán)境，即PML依賴PDMS平臺(tái)才能運(yùn)行，AutoLisp依賴AutoCAD平臺(tái)。如果使用AutoLisp，程序不依賴DWG相關(guān)的第三方庫，只需要生成一個(gè)文本文件。決定使用AutoLisp后，還有一個(gè)問題，就是如何在啟動(dòng)AutoCAD能自動(dòng)加載生成的AutoLisp文件去生成圖紙。
從網(wǎng)上查到自動(dòng)加載程序的方法：About Auto-Loading and Running AutoLISP Routines：
http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-FDB4038D-1620-4A56-8824-D37729D42520 ，發(fā)現(xiàn)使用acaddoc.lsp的方法最方便。方法如下：
1. 使用一個(gè)模板DWG文件Template.dwg；
2. 在模板DWG文件Template.dwg相同的目錄中，放一個(gè)acaddoc.lsp腳本文件，其中內(nèi)容可以參考如下方式：
3. 程序生成一個(gè)腳本文件myapp.lsp到acaddoc.lsp的文件夾中，然后再打開模板DWG文件Template.dwg。
經(jīng)過上述處理，程序在打開模板DWG文件的時(shí)候會(huì)啟動(dòng)AutoCAD，啟動(dòng)AutoCAD的時(shí)候會(huì)加載acaddoc.lsp文件，在acaddoc.lsp中又會(huì)加載myapp.lsp，這樣就會(huì)執(zhí)行myapp.lsp中的命令，自動(dòng)生成圖紙了。
圖形的生成可以使用AutoCAD中的命令，如生成直線可以使用line，生成圓可以使用circle，等等。對(duì)生成的圖形進(jìn)行標(biāo)注的時(shí)候，發(fā)現(xiàn)線性標(biāo)注很方便使用命令自動(dòng)生成，但是想標(biāo)注半徑或直徑的時(shí)候，一直沒有測(cè)試成功。后來測(cè)試成功后，將這些命令記下來，方便查詢。
;; create a circle at (0,0,0) and radius is 8
(setq aCenter (list 0 0 0))
(setq aRadius 8)
(command "circle" aCenter aRadius "")
;; remember the circle and dimradius
(setq aCircle (entlast))
(setq aPoint (polar aCenter 45 aRadius))
(setq aDim (cons aCircle (list aPoint)))
(command "dimradius" aDim aPoint)
;; zoom all
(command "zoom" "e")
打開Template.dwg的時(shí)候，會(huì)自動(dòng)生成如下內(nèi)容：
使用AutoLisp腳本文件來作為數(shù)據(jù)交換的方式來開發(fā)程序，可以使自己的程序不依賴DWG讀寫相關(guān)的第三方庫，使程序更穩(wěn)定。
使用AutoLisp來自動(dòng)生成標(biāo)注的時(shí)候，線性標(biāo)注很容易生成，只需要指定幾個(gè)點(diǎn)即可?？墒巧砂霃交蛑睆綐?biāo)注數(shù)據(jù)時(shí)，因?yàn)樾枰x擇圓弧，AutoLisp不是那么直觀。