AutoCAD的
二次開發(fā)主要涉及以下內(nèi)容:(1)編寫各種用戶自定義函數(shù)并形成若干LISP、ARX、VLX或ADS文件,以及一些DCL文件。(2)建立符合自己要求的菜單文件,一般可在AutoCAD原菜單文件內(nèi)添加自己的內(nèi)容,對于AutoCAD2000版本還可增加部分菜單文件,然后經(jīng)交互方式加入到
系統(tǒng)中去。(3)在系統(tǒng)的ACAD.LSP或類似文件中加入某些內(nèi)容以便進(jìn)行各種初始化操作,如在啟動時(shí)立即裝入一些文件等。(4)通過系統(tǒng)對話框設(shè)置某些路徑。這些操作在
程序開發(fā)成功后向其它AutoCAD系統(tǒng)上
安裝應(yīng)用,特別是需要大批安裝時(shí),需要進(jìn)行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設(shè)置等繁瑣工作,如能令上述工作全部自動進(jìn)行,使整個(gè)二次開發(fā)程序在無人干預(yù)的情況下嵌入系統(tǒng),將大大提高工作效率。為此筆者用VC++開發(fā)了一套自動安裝程序,使原本需要五、六分鐘的人工操作在十幾秒內(nèi)即可自動完成。
p{[Ol %70sS].@ 一、 基本思路
U8PSJ0ny 4&2aJ_ 2y 整個(gè)安裝程序遵循以下思路:
2r^| E?m(&O
j 1) 首先獲得所在機(jī)器AutoCAD2000系統(tǒng)的安裝路徑;
;|5m;x/a HE,# pj(D 2) 尋找菜單文件AutoCAD2000\\support\\acad.mnu,打開文件并將要添加的內(nèi)容加至末尾;
,nD:W c~K^ooS- 3) 尋找LISP文件AutoCAD2000\\support\\acad2000doc.lsp,打開文件并將要添加的內(nèi)容加至末尾;
_ko16wfg dd@qk`Zl&A 4) 創(chuàng)建一個(gè)預(yù)先命名的子目錄,將所有二次開發(fā)形成的各類文件拷入;
TXWi5f[ M1^,g~e 5) 給出信息框,告知安裝成功,如有問題則告知安裝失敗。
al.~[T-O+ FY|.eY_7 { 需要指出的是,在添入acad2000doc.lsp的內(nèi)容中須有如下語句:
lED-Jo2 xv4_q-r[ (command“_menu”(strcat (getvar "menuname") ".mnu")),目的是為了強(qiáng)制執(zhí)行菜單文件裝入命令,將改動后的acad.mnu文件編譯后裝入。
y2bL!Y<s9 ^F"Q~?D) 另外,在添入acad2000doc.lsp的內(nèi)容中還有一賦值語句,將準(zhǔn)備創(chuàng)建的包含所有二次開發(fā)生成文件的子目錄全路徑名賦予一全局變量,以供二次開發(fā)程序在需要時(shí)調(diào)用,從而避免了在AutoCAD環(huán)境下交互設(shè)定路徑的麻煩。
yZE"t[q#O llXyM */ 境下交互設(shè)定路徑的麻煩。
Y9F!HM-` }SR}ET&z 二、 實(shí)現(xiàn)方式及關(guān)鍵函數(shù)
C:
@T5m . T6fPEb 為獲得AutoCAD2000的安裝路徑,需要利用WINDOWS系統(tǒng)注冊表的有關(guān)功能。
@kw#\%Uz ],YIEOx6
首先通過RegOpenKey函數(shù)打開注冊表:
/f@VRME "T|%F D&[ HKEY hKey;
na,j ]([:"j LONGret=RegOpenKey( HKEY_LOCAL_MACHINE, "Software\\Autodesk\\AutoCAD\\R14.0\\ACAD-1:804", &hKey);
E5(\/;[*` y w)q3zC 其中第一參數(shù)HKEY_LOCAL-MACHINE為注冊表中預(yù)定義的主鍵句柄,第二
參數(shù)為注冊表中HKEY_LOCAL_MACHINE下的子鍵內(nèi)容,第三參數(shù)hKey將返回一子鍵句柄,用于接下來的鍵值查詢。若該函數(shù)運(yùn)行成功,將返回一長整型數(shù)ERROR_SUCCESS。
6r4o47_t8# i/N4uq}'A< 接下來利用RegQueryValueEx函數(shù)進(jìn)行鍵值查詢:
03Pa; n rnz9TmN:*1 DWORD dwType=REG_SZ;
{ K'QE0'x [XK Ke BYTE szData[100];
:biM}L