着色剂厂家
免费服务热线

Free service

hotline

010-00000000
着色剂厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

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

发布时间:2021-07-22 07:20:55 阅读: 来源:着色剂厂家

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

AutoCAD的二次开发主要涉及以下内容:(1)编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件,以及一些DCL文件。(2)建立符合自己要求的菜单文件,一般可在AutoCAD原菜单文件内添加自己的内容,对于AutoCAD2000版本还可增加部分菜单文件,然后经交互方式加入到系统中去。(3)在系统的P或类似文件中加入某些内容以便进行各种初始化操作,如在启动时立即装入一些文件等。(4)通过系统对话框设置某些路径。这些操作在程序开发成功后向其它AutoCAD系统上安装应用,特别是需要大批安装时,需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作,如能令上述工作全部自动进行,使整个二次开发程序在无人干预的情况下嵌入系统,将大大提高工作效率。为此笔者用VC++开发了一套自动安装程序,使原本需要五、六分钟的人工操作在十几秒内即可自动完成。

一、 基本思路

整个安装程序遵循以下思路:

1) 首先获得所在机器AutoCAD2000系统的安装路径;

2) 寻找菜单文件AutoCAD2000\\support\\u,打开文件并将要添加的内容加至末尾;

3) 寻找LISP文件AutoCAD2000\\support\\p,打开文件并将要添加的内容加至末尾;

4) 创建一个预先命名的子目录,将所有二次开发形成的各类文件拷入;

5) 给出信息框,告知安装成功,如有问题则告知安装失败。

需要指出的是,在添入p的内容中须有如下语句:

(command“_menu”(strcat (getvar "menuname") ".mnu")),目的是为了强制执行菜单文件装入命令,将改动后的u文件编译后装入。

另外,在添入p的内容中还有一赋值语句,将准备创建的包含所有二次开发生成文件的子目录全路径名赋予一全局变量,以供二次开发程序在需要时调用,从而避免了在AutoCAD环境下交互设定路径的麻烦。

境下交互设定路径的麻烦。

二、 实现方式及关键函数

为获得AutoCAD2000的安装路径,需要利用WINDOWS系统注册表的有关功能。

首先通过RegOpenKey函数打开注册表:

HKEY hKey;

LONGret=RegOpenKey( HKEY_LOCAL_MACHINE, "Software\\Autodesk\\AutoCAD\\R14.0\\ACAD-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=E1般调速范围窄有高速就没了低速或有低速就没了高速RROR_SUCCESS)

ret=RegQueryValueEx(hKey, "AcadLocation", 0, dwType, szData, dwSize);

其中第一参数hKey为由RegOpenKey函数获得的欲查询的子键句柄;第二参数“AcadLocation”为欲查询的键值名;第三参数为保留项,要求添0;第四参数为键值数据类型;第六参数为键值缓冲器容量;最关键的是第五参数szData,欲查询的键值结果将由其带回,该键值即为所需要的AutoCAD2000的安装路径。

以上涉及到的有关注册表中主键、子键、键值名、及键值的关系可通过下列方法由WINDOWS系列注册表查出:单击“开始”--“运行”--添入“regedit”--“确定”--“HKEY_LOCAL_MACHINE”--4、请将沙浆拉力实验机的接地标志处务必接地“Software”--“Autodesk”--“Autocad”--“R15.0”--“ACAD-1:804”--“AcadLocation”--“e:\autocad2000”。其中的键值名“AcadLocation”所对应的键值为“e:\autocad2000”,就是AutoCAD2000的安装路径,在不同的机器上可能内容不同。

键值查询函数若运行成功,将返回长整型数ERROR_SUCCESS。

char szRootName[100]=\\support\\u;

if (ret=ERROR_朗盛的高性能塑料和复合材料使设计1些部件成为可能SUCCESS)

1strcat((char*) szData, szRootName);

现在szData中装有u的全路径,以下操作将打开该文件并添入内容:

HANDLE hfile=CreateFile((char*) szData, GENERIC_READ|GENERIC_WRITE, 0,

NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);

If(hfile!=INVALID_HANDLE_VALUE)

{

if (0xFFFFFFFF!=SetFilePointer(hfile, 0, NULL, FILE_END))

{

char szBuf[1000]="\n***POP12\n**CAM\n[ CAM]\进行前景非常颓废n[- 基本参数]\n[卡盘原点]^c^cchuck_datam\n[换刀原点] ^c^ctool_datam\n[ -毛坯参数] ^c^cstock\n[工步设计] ^c^csteps\n[仿真加工] ^c^csimulation\n[代码生成] ^c^cgen_code\n[代码存盘] ^c^ccode_save\n[工艺存盘] ^c^csave_inf\n[工艺装入] ^c^cload_inf\n[- 刀具管理]\n《创建新刀》 ^c^ccreate_new_tool\n[ -刀库增删] ^c^ctool_manage\n";

DWORD dwWrite=0;

BRet=WriteFile(hfile, szBuf, Lstrlen(szBuf), dwWrite, NULL);

If (!

十二指肠溃疡多长时间能治好
补肾补气血的中药
肾精亏虚如何调理