AutoCAD二次开发程序的自动安装处理

jucksir

AutoCAD的二次开发主要涉及以下内容：（1）编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。（2）建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内添加自己的内容，对于AutoCAD2000版本还可增加部分菜单文件，然后经交互方式加入到系统中去。（3）在系统的ACAD.LSP或类似文件中加入某些内容以便进行各种初始化操作，如在启动时立即装入一些文件等。（4）通过系统对话框设置某些路径。这些操作在程序开发成功后向其它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大大提高工作效率。为此笔者用VC++开发了一套自动安装程序，使原本需要五、六分钟的人工操作在十几秒内即可自动完成。
! t) t2 `5 b3 y( V( v一、基本思路
2 W% U- M) l$ L. X0 w0 H整个安装程序遵循以下思路：
1） 首先获得所在机器AutoCAD2000系统的安装路径；
* f! b+ s/ l% ^; T2） 寻找菜单文件AutoCAD2000\\support\\acad.mnu，打开文件并将要添加的内容加至末尾；
" c" Z) n$ i7 ]3 ]4 D2 F3） 寻找LISP文件AutoCAD2000\\support\\acad2000doc.lsp，打开文件并将要添加的内容加至末尾；
+ @( W$ ]! p. o; \; _8 T4） 创建一个预先命名的子目录，将所有二次开发形成的各类文件拷入；
4 @4 D1 d  h6 J, h$ M5 m4 a7 {5） 给出信息框，告知安装成功，如有问题则告知安装失败。
需要指出的是，在添入acad2000doc.lsp的内容中须有如下语句：
（command“_menu”(strcat (getvar "menuname") ".mnu")），目的是为了强制执行菜单文件装入命令，将改动后的acad.mnu文件编译后装入。
: t) S0 c" o; _( b" q! c2 D另外，在添入acad2000doc.lsp的内容中还有一赋值语句，将准备创建的包含所有二次开发生成文件的子目录全路径名赋予一全局变量，以供二次开发程序在需要时调用，从而避免了在AutoCAD环境下交互设定路径的麻烦。
1 b% `6 b; Q5 J% T境下交互设定路径的麻烦。
二、实现方式及关键函数
; i+ S2 R0 g# N) `. }9 E* V2 n为获得AutoCAD2000的安装路径，需要利用WINDOWS系统注册表的有关功能。
7 k% u1 g: }* a, V3 R* V首先通过RegOpenKey函数打开注册表：
HKEY hKey;
4 N$ E% H( @( N: @  VLONGret=RegOpenKey( HKEY_LOCAL_MACHINE, "Software\\Autodesk\\AutoCAD\\R14.0\\ACAD-1:804", &hKey);
其中第一参数HKEY＿LOCAL－MACHINE为注册表中预定义的主键句柄，第二参数为注册表中HKEY＿LOCAL＿MACHINE下的子键内容，第三参数hKey将返回一子键句柄，用于接下来的键值查询。若该函数运行成功，将返回一长整型数ERROR＿SUCCESS。
接下来利用RegQueryValueEx函数进行键值查询：
5 {, p6 R! G# C0 H8 S- ^8 f" BDWORD dwType=REG_SZ;
3 `# @5 }( _+ M, BBYTE szData[100];
5 Q5 _# E- x% JDWORD dwSize=sizeof(szData);
. _! k' d8 Q2 n, W' }If (ret=ERROR_SUCCESS)
ret=RegQueryValueEx(hKey, "AcadLocation", 0, &dwType, szData, &dwSize);
5 t+ k5 }( s! S, c其中第一参数hKey为由RegOpenKey函数获得的欲查询的子键句柄；第二参数“AcadLocation”为欲查询的键值名；第三参数为保留项，要求添0；第四参数为键值数据类型；第六参数为键值缓冲器容量；最关键的是第五参数szData，欲查询的键值结果将由其带回，该键值即为所需要的AutoCAD2000的安装路径。
以上涉及到的有关注册表中主键、子键、键值名、及键值的关系可通过下列方法由WINDOWS系列注册表查出：单击“开始”--“运行”--添入“regedit”--“确定”--“HKEY_LOCAL_MACHINE”--“Software”--“Autodesk”--“Autocad”--“R15.0”--“ACAD-1：804”--“AcadLocation”--“e：\autocad2000”。其中的键值名“AcadLocation”所对应的键值为“e：\autocad2000”，就是AutoCAD2000的安装路径，在不同的机器上可能内容不同。
0 n! t% z% d, P, F: Z" y" V0 J键值查询函数若运行成功，将返回长整型数ERROR＿SUCCESS。
) H1 r  W& T7 P0 j6 X：
char szRootName[100]=\\support\\acad.mnu;
1 ~, C6 P  t0 P3 K1 x4 h3 ^if (ret=ERROR_SUCCESS)
/ }. z) m9 ]5 E1strcat((char*) szData, szRootName);
现在szData中装有acad.mnu的全路径，以下操作将打开该文件并添入内容：
, P) a. J  I" L8 GHANDLE hfile=CreateFile((char*) szData, GENERIC_READ|GENERIC_WRITE, 0,
* o/ [+ @: M2 H+ W9 c7 w* ANULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
! T4 A5 R5 i% c5 }+ x, xIf(hfile!=INVALID_HANDLE_VALUE)
: r; V  y) x$ H$ c0 G& j6 W6 ?{
if (0xFFFFFFFF!=SetFilePointer(hfile, 0, NULL, FILE_END))
{
5 n/ A( k1 b; D
char szBuf[1000]="\n***POP12\n**CAM\n[&CAM]\n[->基本参数]\n[卡盘原点]^c^cchuck_datam\n[换刀原点] ^c^ctool_datam\n[刀具管理]\n《创建新刀》 ^c^ccreate_new_tool\n[