|
AutoCAD的二次開發(fā)
（作者未知） 2009/7/19
（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)行各種初始化操作，如在啟動時立即裝入一些文件等。
（4） 通過系統(tǒng)對話框設(shè)置某些路徑。這些操作在程序開發(fā)成功后向其它AutoCAD系統(tǒng)上安裝應(yīng)用，特別是需要大批安裝時，需要進(jìn)行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設(shè)置等繁瑣工作，如能令上述工作全部自動進(jìn)行，使整個二次開發(fā)程序在無人干預(yù)的情況下嵌入系統(tǒng)，將大大提高工作效率。為此筆者用VC++開發(fā)了一套自動安裝程序，使原本需要五、六分鐘的人工操作在十幾秒內(nèi)即可自動完成。
一、 基本思路
整個安裝程序遵循以下思路：
1） 首先獲得所在機(jī)器AutoCAD2000系統(tǒng)的安裝路徑；
2） 尋找菜單文件AutoCAD2000\\support\\acad.mnu，打開文件并將要添加的內(nèi)容加至末尾；
3） 尋找LISP文件AutoCAD2000\\support\\acad2000doc.lsp，打開文件并將要添加的內(nèi)容加至末尾；
4） 創(chuàng)建一個預(yù)先命名的子目錄，將所有二次開發(fā)形成的各類文件拷入；
5） 給出信息框，告知安裝成功，如有問題則告知安裝失敗。
需要指出的是，在添入acad2000doc.lsp的內(nèi)容中須有如下語句：
（command“_menu”(strcat (getvar "menuname") ".mnu")），目的是為了強(qiáng)制執(zhí)行菜單文件裝入命令，將改動后的acad.mnu文件編譯后裝入。
另外，在添入acad2000doc.lsp的內(nèi)容中還有一賦值語句，將準(zhǔn)備創(chuàng)建的包含所有二次開發(fā)生成文件的子目錄全路徑名賦予一全局變量，以供二次開發(fā)程序在需要時調(diào)用，從而避免了在AutoCAD環(huán)境下交互設(shè)定路徑的麻煩。
二、 實(shí)現(xiàn)方式及關(guān)鍵函數(shù)
為獲得AutoCAD2000的安裝路徑，需要利用WINDOWS系統(tǒng)注冊表的有關(guān)功能。
首先通過RegOpenKey函數(shù)打開注冊表：
HKEY hKey;
LONGret=RegOpenKey( HKEY_LOCAL_MACHINE, "Software\\Autodesk\\AutoCAD\\R14.0\\ACAD-1:804", &hKey);
其中第一參數(shù)HKEY＿LOCAL－MACHINE為注冊表中預(yù)定義的主鍵句柄，第二參數(shù)為注冊表中HKEY＿LOCAL＿M(jìn)ACHINE下的子鍵內(nèi)容，第三參數(shù)hKey將返回一子鍵句柄，用于接下來的鍵值查詢。若該函數(shù)運(yùn)行成功，將返回一長整型數(shù)ERROR＿SUCCESS。
接下來利用RegQueryValueEx函數(shù)進(jìn)行鍵值查詢：
DWORD dwType=REG_SZ;
BYTE szData[100];
DWORD dwSize=sizeof(szData);
If (ret=ERROR_SUCCESS)
ret=RegQueryValueEx(hKey, "AcadLocation", 0, &dwType, szData, &dwSize);
其中第一參數(shù)hKey為由RegOpenKey函數(shù)獲得的欲查詢的子鍵句柄；第二參數(shù)“AcadLocation”為欲查詢的鍵值名；第三參數(shù)為保留項(xiàng)，要求添0；第四參數(shù)為鍵值數(shù)據(jù)類型；第六參數(shù)為鍵值緩沖器容量；最關(guān)鍵的是第五參數(shù)szData，欲查詢的鍵值結(jié)果將由其帶回，該鍵值即為所需要的AutoCAD2000的安裝路徑。
以上涉及到的有關(guān)注冊表中主鍵、子鍵、鍵值名、及鍵值的關(guān)系可通過下列方法由WINDOWS系列注冊表查出：單擊“開始”――“運(yùn)行”――添入“regedit”――“確定”――“HKEY_LOCAL_MACHINE”――“Software”――“Autodesk”――“Autocad”――“R15.0”――“ACAD-1：804”――“AcadLocation”――“e：\autocad2000”。其中的鍵值名“AcadLocation”所對應(yīng)的鍵值為“e：\autocad2000”，就是AutoCA（未完，下一頁）
|