AUTOCAD二次开发程序的自动安装处理.pdfVIP

AutoCAD 二次开发程序的自动安装处理 AutoCAD 的二次开发主要涉及以下内容： （1）编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件， 以及一些DCL文件。（2）建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内添加自己的内容，对于AutoCAD2000 版本还可增加部分菜单文件，然后经交互方式加入到系统中去。 （3）在系统的ACAD.LSP或类似文件中加入某些内容以 便进行各种初始化操作，如在启动时立即装入一些文件等。（4）通过系统对话框设置某些路径。这些操作在程序开发成 功后向其它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件 拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大 大提高工作效率。为此笔者用VC++开发了一套自动安装程序，使原本需要五、六分钟的人工操作在十几秒内即可自动完 成。 一、 基本思路 整个安装程序遵循以下思路： 1） 首先获得所在机器AutoCAD2000系统的安装路径； 2） 寻找菜单文件AutoCAD2000supportacad.mnu，打开文件并将要添加的内容加至末尾； 3） 寻找LISP文件AutoCAD2000supportacad2000doc.lsp，打开文件并将要添加的内容加至末尾； 4） 创建一个预先命名的子目录，将所有二次开发形成的各类文件拷入； 5） 给出信息框，告知安装成功，如有问题则告知安装失败。 需要指出的是，在添入acad2000doc.lsp的内容中须有如下语句： （command “_menu”(strcat (getvar menuname) .mnu)），目的是为了强制执行菜单文件装入命令，将改动后 的acad.mnu文件编译后装入。 另外，在添入acad2000doc.lsp的内容中还有一赋值语句，将准备创建的包含所有二次开发生成文件的子目录全路 径名赋予一全局变量，以供二次开发程序在需要时调用，从而避免了在AutoCAD环境下交互设定路径的麻烦。 二、 实现方式及关键函数 为获得AutoCAD2000的安装路径，需要利用WINDOWS系统注册表的有关功能。 首先通过RegOpenKey函数打开注册表： HKEY hKey; LONGret RegOpenKey(HKEY_LOCAL_MACHINE, SoftwareAutodeskAutoCADR14.0ACAD-1:804, hKey); 其中第一参数HKEY＿LOCAL－MACHINE为注册表中预定义的主键句柄，第二参数为注册表中HKEY＿LOCAL＿MACHINE 下的子键内容，第三参数hKey将返回一子键句柄，用于接下来的键值查询。若该函数运行成功，将返回一长整型数ERROR ＿SUCCESS。 接下来利用RegQueryValueEx函数进行键值查询： DWORD dwType REG_SZ; BYTE szData[100]; DWORD dwSize sizeof(szData); If (ret ERROR_SUCCESS) ret RegQueryValueEx(hKey, AcadLocation, 0, dwType, szData, dwSize); 其中第一参数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的安装路径，在不同的机器上可能内容不同。 键值查询函数若运