AutoCAD的二次开发.docx

《AutoCAD的二次开发.docx》由会员分享，可在线阅读，更多相关《AutoCAD的二次开发.docx（5页珍藏版）》请在第一文库网上搜索。

1、AUtoCAD的二次开发主要涉及以下内容：（1） 编写各种用户自定义函数并形成若干1ISP、ARX.V1X或ADS文件,以及一些DC1文件。（2） 建立符合自己要求的菜单文件，一般可在AUtOCAD原菜单文件内添加自己的内容，对于AUtOCAD2000版本还可增加部分菜单文件，然后经交互方式加入到系统中去。（3） 通过系统对话框设置某些路径。这些操作在程序开发成功后向其它AUtoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大大提高工作效率。为此笔

2、者用VC+开发了一套自动安装程序，使原本需要五、六分钟的人工操作在十几秒内即可自动完成。一、基本思路整个安装程序遵循以下思路：1）首先获得所在机器AUtoCAD2000系统的安装路径；4）创建一个预先命名的子目录，将所有二次开发形成的各类文件拷入；5）给出信息框，告知安装成功，如有问题则告知安装失败。二、实现方式及关键函数为获得AUtoCAD2000的安装路径，需要利用出NDoWS系统注册表的有关功能O首先通过RegOPenKey函数打开注册表：HKEYhKey;其中第一参数HKEY_10CA1-MACH1NE为注册表中预定义的主键句柄，第二参数为注册表中HKEY_1OCA1_MACHINE下

3、的子键内容，第三参数hKey将返回一子键句柄，用于接下来的键值查询。若该函数运行成功，将返回一长整型数ERROR_SUCCESS。接下来利用RegQUeryVa1UeEX函数进行键值查询：DWORDdwType=REG_SZ;BYTEszData100;DWORDdwSize=sizeof(szData);If(ret=ERRORSUCCESS)Fet=RegQueryVa1ueEx(hKey,“Acad1ocation”,0,&dwType,szData,&dwSize);其中第一参数hKey为由RegOPerIKey函数获得的欲查询的子键句柄；第二参数“Acad1ocation”为欲查询的

4、键值名；第三参数为保留项，要求添0；第四参数为键值数据类型；第六参数为键值缓冲器容量；最关键的是第五参数SZData,欲查询的键值结果将由其带回，该键值即为所需要的AUtoCAD2000的安装路径。键值查询函数若运行成功，将返回长整型数ERROR_SUCCESS。if(ret=ERR0RSUCCESS)Istrcat(char*)szData,SzRootName);HAND1Ehfi1e=CreateFiIe(char*)szData,GENERIC.READGENERICJVRITE,0,NU11,OPEN_EXISTING,FI1E_ATTRIBUTE_NORMA1,NU11);If(h

5、fi1e!=INVA1ID_HAND1E_VA1UE)if(OXFFFFFFFFKSetFi1ePointeNhfi1e,O,NU11,FI1E_END)(charSZBUf1000=n*P()P12n*CAMn&CAMn-基本参数n卡盘原点cccchuck_datamn换刀原点-c八CtOo1datamn-毛坯参数CCcCStoCkn工步设计CCCCStCPSn仿真加工CCCCSinIUIatiOnn代码生成CCcCgen_coden代码存盘-CcCCOde_saven工艺存盘CCCCSave_infn工艺装入CCCC1Oad_infn-刀具管理n创建新刀-C-CCreate_new_too

6、1n-刀库增删cctoo1-managenz,；DWORDdwWrite=O;BRet=WriteFi1e(hfi1e,szBuf,1str1en(szBuf),&dwWrite,NU11);If(!bRet)PrinterrorO；C1oseHand1e(hfi1e);上述操作中用CreateFiIe函数打开文件，SetFiIePointer函数将指针移至文件末尾，字符串数组SZBUf中装有欲添加的内容，以WriteFi1e函数写入,PrintEIor为自编的错误处理函数。以下操作将创建一个名为“C:hkcam”的子目录，并将事先准备好的本程序所在目录下的所有文件拷贝进去：Cstringna

7、m1,nam2;BOO1bCreate=CreateDirectory(z,C:hkcam,z,NU11);创建子目录Cfi1eFindfinder;/创建类对象WhiIe(bWorking)循环搜索及文件拷贝nam2=c:hkcam”;nam2=nam2nam1;组成全路径BOO1bCopy-CopyFi1e(nam1,nam2,FA1SE);文件拷贝所有操作成功后，以信息框告知:MessageBox（NU11,“安装成功，请按OK钮继续”，“安装结果”，MB_0K）；三、结束语在VC+环境下利用有关WINDOwS系统注册表操作函数获得AUtOCAI）系统的安装路径，从而找出并改写AUtOCAD有关文件；创建子目录并拷入各种二次开发形成文件，由此实现了AUtOCAD二次开发程序与AUtoCAD系统的自动衔接与嵌入。文中程序已由实践验证，完全可用于AUtoCAD二次开发程序的自动安装。