AutoCAD的二次开发主要涉及以下内容:(1)编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件,以及一些DCL文件。(2)建立符合自己要求的菜单文件,一般可在AutoCAD原菜单文件内添加自己的内容,对于AutoCAD2000版本还可增加部分菜单文件,然后经交互方式加入到系统中去。(3)在系统的ACAD.LSP或类似文件中加入某些内容以便进行各种初始化操作,如在启动时立即装入一些文件等。(4)通过系统对话框设置某些路径。这些操作在程序开发成功后向其它AutoCAD系统上安装应用,特别是需要大批安装时,需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作,如能令上述工作全部自动进行,使整个二次开发程序在无人干预的情况下嵌入系统,将大大提高工作效率。为此笔者用VC++开发了一套自动安装程序,使原本需要五、六分钟的人工操作在十几秒内即可自动完成。
`.WKU"To
*3Z#r
一、 基本思路 %y+j~]^:
8}T3Fig,q
整个安装程序遵循以下思路: /2cOZ1G;
W78-'c
1) 首先获得所在机器AutoCAD2000系统的安装路径; `Db}q^mQ
JdEb_c3S
2) 寻找菜单文件AutoCAD2000\\support\\acad.mnu,打开文件并将要添加的内容加至末尾; TY?io@
h(sKGCG
3) 寻找LISP文件AutoCAD2000\\support\\acad2000doc.lsp,打开文件并将要添加的内容加至末尾; O0YGjS|d
$dw;Kj'\
4) 创建一个预先命名的子目录,将所有二次开发形成的各类文件拷入; N3RwcM9+;
{v(|_j&:o
5) 给出信息框,告知安装成功,如有问题则告知安装失败。 S3cQC`^
I =pd jD
需要指出的是,在添入acad2000doc.lsp的内容中须有如下语句: M
-TK
TA7w:<
(command“_menu”(strcat (getvar "menuname") ".mnu")),目的是为了强制执行菜单文件装入命令,将改动后的acad.mnu文件编译后装入。 2eYkWHi
?GZs5CnS
另外,在添入acad2000doc.lsp的内容中还有一赋值语句,将准备创建的包含所有二次开发生成文件的子目录全路径名赋予一全局变量,以供二次开发程序在需要时调用,从而避免了在AutoCAD环境下交互设定路径的麻烦。 -+/|
+P.Ir
境下交互设定路径的麻烦。 "&F/'';0}E
YN[D^;}
二、 实现方式及关键函数 B4=gMVp1
k2;yl_7
为获得AutoCAD2000的安装路径,需要利用WINDOWS系统注册表的有关功能。 gO36tc:ce
VF.S)='>Eu
首先通过RegOpenKey函数打开注册表: eO#)QoHj^
>TgO|mq
HKEY hKey; UqbE
uc8>B&B%
LONGret=RegOpenKey( HKEY_LOCAL_MACHINE, "Software\\Autodesk\\AutoCAD\\R14.0\\ACAD-1:804", &hKey); `h#JDcT;a
><HXd+- sd
其中第一参数HKEY_LOCAL-MACHINE为注册表中预定义的主键句柄,第二参数为注册表中HKEY_LOCAL_MACHINE下的子键内容,第三参数hKey将返回一子键句柄,用于接下来的键值查询。若该函数运行成功,将返回一长整型数ERROR_SUCCESS。 up6LO7drW/
9UX-)!
接下来利用RegQueryValueEx函数进行键值查询: ww*F}}(
a*`J]{3G
DWORD dwType=REG_SZ; EIAT*l :NW
w:Vs$,
BYTE szData[100]; ruVm8BO
O.!?O(
DWORD dwSize=sizeof(szData); );vU=p"@
i7_BnJJX{B
If (ret=ERROR_SUCCESS) zi'?FM[f)
~mU#u\r(*
ret=RegQueryValueEx(hKey, "AcadLocation", 0, &dwType, szData, &dwSize); #'T@mA
APya&