dimradius by AutoLisp in AutoCAD
eryar@163.com
最近在開發(fā)一個自動出圖程序，從PDMS模型中取數(shù)據(jù)后，經(jīng)過處理生成AutoCAD的圖紙。其中涉及到一個問題就是如何盡量使程序與AutoCAD低耦合，盡量不使用第三方庫的情況下，實現(xiàn)數(shù)據(jù)的傳遞。
最開始想到是用ODA(Open Design Alliance)的DWGdirect庫來直接生成DWG文件，并且PDMS中就是使用這個庫來生成DWG文件的。DWGdirect的用法與AutoCAD .Net的接口名稱基本一致，用法也相同，但是這樣就引入了第三方庫。
還有一種方法就是使用AutoLisp腳本來生成圖紙。這樣的話，程序只需要生成一個AutoLisp腳本文件，文件中包含創(chuàng)建圖形的命令。AutoLisp腳本與PDMS的PML類似，都需要一個解析執(zhí)行的環(huán)境，即PML依賴PDMS平臺才能運行，AutoLisp依賴AutoCAD平臺。如果使用AutoLisp，程序不依賴DWG相關(guān)的第三方庫，只需要生成一個文本文件。決定使用AutoLisp后，還有一個問題，就是如何在啟動AutoCAD能自動加載生成的AutoLisp文件去生成圖紙。
從網(wǎ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. 使用一個模板DWG文件Template.dwg；
2. 在模板DWG文件Template.dwg相同的目錄中，放一個acaddoc.lsp腳本文件，其中內(nèi)容可以參考如下方式：
3. 程序生成一個腳本文件myapp.lsp到acaddoc.lsp的文件夾中，然后再打開模板DWG文件Template.dwg。
經(jīng)過上述處理，程序在打開模板DWG文件的時候會啟動AutoCAD，啟動AutoCAD的時候會加載acaddoc.lsp文件，在acaddoc.lsp中又會加載myapp.lsp，這樣就會執(zhí)行myapp.lsp中的命令，自動生成圖紙了。
圖形的生成可以使用AutoCAD中的命令，如生成直線可以使用line，生成圓可以使用circle，等等。對生成的圖形進行標注的時候，發(fā)現(xiàn)線性標注很方便使用命令自動生成，但是想標注半徑或直徑的時候，一直沒有測試成功。后來測試成功后，將這些命令記下來，方便查詢。
;; 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的時候，會自動生成如下內(nèi)容：
使用AutoLisp腳本文件來作為數(shù)據(jù)交換的方式來開發(fā)程序，可以使自己的程序不依賴DWG讀寫相關(guān)的第三方庫，使程序更穩(wěn)定。
使用AutoLisp來自動生成標注的時候，線性標注很容易生成，只需要指定幾個點即可。可是生成半徑或直徑標注數(shù)據(jù)時，因為需要選擇圓弧，AutoLisp不是那么直觀。