AutoCAD的二次开发.pdf

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

1、AutoCAD的二次开发主要涉及以下内容： （1） 编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件 ，以及一些DCL文件。 （2） 建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内 添加自己的内容，对于AutoCAD2000版本还可增加部分菜单文件，然后经 交互方式加入到系统中去。 （3） 在系统的ACAD.LSP或类似文件中加入某些内容以便进行各种初 始化操作，如在启动时立即装入一些文件等。 （4） 通过系统对话框设置某些路径。 这些操作在程序开发成功后向其 它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件 检索、内容增删、子目录创建

2、、文件拷贝、系统设置等繁琐工作，如能令 上述工作全部自动进行， 使整个二次开发程序在无人干预的情况下嵌入系 统，将大大提高工作效率。为此笔者用VC+开发了一套自动安装程序，使 原本需要五、六分钟的人工操作在十几秒内即可自动完成。 一、 基本思路一、 基本思路 整个安装程序遵循以下思路： 1） 首先获得所在机器AutoCAD2000系统的安装路径； 2） 寻找菜单文件AutoCAD2000supportacad.mnu，打开文件并将要添 加的内容加至末尾； 3） 寻找LISP文件AutoCAD2000supportacad2000doc.lsp，打开文件 并将要添加的内容加至末尾； 4） 创建一

3、个预先命名的子目录，将所有二次开发形成的各类文件拷入； 5） 给出信息框，告知安装成功，如有问题则告知安装失败。 需要指出的是，在添入acad2000doc.lsp的内容中须有如下语句： （command“_menu”(strcat (getvar “menuname“) “.mnu“)） ，目的是为 了强制执行菜单文件装入命令，将改动后的acad.mnu文件编译后装入。 另外，在添入acad2000doc.lsp的内容中还有一赋值语句，将准备创建的 包含所有二次开发生成文件的子目录全路径名赋予一全局变量， 以供二次 开发程序在需要时调用，从而避免了在AutoCAD环境下交互设定路径的麻 烦。

4、 二、 实现方式及关键函数二、 实现方式及关键函数 为获得AutoCAD2000的安装路径， 需要利用WINDOWS系统注册表的有关功能 。 首先通过RegOpenKey函数打开注册表： HKEY hKey; LONGret=RegOpenKey( HKEY_LOCAL_MACHINE, “SoftwareAutodeskAutoCADR14.0ACAD-1:804“, 其中第一参数HKEYLOCALMACHINE为注册表中预定义的主键句柄， 第二 参数为注册表中HKEYLOCALMACHINE下的子键内容， 第三参数hKey将返 回一子键句柄，用于接下来的键值查询。若该函数运行成功，将返回一

5、长 整型数ERRORSUCCESS。 接下来利用RegQueryValueEx函数进行键值查询： DWORD dwType=REG_SZ; BYTE szData100; DWORD dwSize=sizeof(szData); If (ret=ERROR_SUCCESS) ret=RegQueryValueEx(hKey, “AcadLocation“, 0, 其中第一参数hKey为由RegOpenKey函数获得的欲查询的子键句柄； 第二参 数“AcadLocation”为欲查询的键值名；第三参数为保留项，要求添0； 第四参数为键值数据类型；第六参数为键值缓冲器容量；最关键的是第五 参数sz

6、Data，欲查询的键值结果将由其带回，该键值即为所需要的 AutoCAD2000的安装路径。 以上涉及到的有关注册表中主键、子键、键值名、及键值的关系可通过下 列方法由WINDOWS系列注册表查出：单击“开始”“运行”添入 “regedit”“确定 ”“HKEY_LOCAL_MACHINE”“Software”“Autodesk” “Autocad”“R15.0”“ACAD-1： 804”“AcadLocation”“e：autocad2000”。其中的键值名 “AcadLocation”所对应的键值为“e：autocad2000”，就是 AutoCAD2000的安装路径，在不同的机器上可能内

7、容不同。 键值查询函数若运行成功，将返回长整型数ERRORSUCCESS。 下面可利用szData带回的路径名与已知路径名组合成全路径从而打开菜 单文件acad.mnu添加内容： char szRootName100=supportacad.mnu; if (ret=ERROR_SUCCESS) 1strcat(char*) szData, szRootName); 现在szData中装有acad.mnu的全路径， 以下操作将打开该文件并添入内容 ： HANDLE hfile=CreateFile(char*) szData, GENERIC_READ|GENERIC_WRITE, 0, NU

8、LL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); If(hfile!=INVALID_HANDLE_VALUE) if (0xFFFFFFFF!=SetFilePointer(hfile, 0, NULL, FILE_END) char szBuf1000=“n*POP12n*CAMnif );while (cond;根据轴径检索键槽尺寸 (and ( d 12) ( d 17) ( d 22) ( d 30) ( d 38) ( d 44) ( d 50) ( d 58) ( d 65) ( d 75) ( d 85) ( d 95) ( d

9、110) (= d 130) (setq b 32 t1 11.0 t2 7.4) (command “circle“ pt0 “d“ d) (command “zoom“ “a“) (setq s1 (ssget “l“ ) (setq di (-(* (/ d 2.0) (/ d 2.0) (* (/ b 2.0) (/ b 2.0) dx (sqrt di) dy (/ b 2.0) pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy) (initget “Zc Lc“);Zc 表示画轴键槽的剖视图,Lc 表示画轮毂键槽的端面视图 (setq zrl

10、(getkword “n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?“) (if (= zrl “Zc“) (progn;计算轴键槽上点的坐标 (setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1) (+ (cadr pt0) dy) pt3 (polar pt2 (- (/ pi 2.0) b) pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1) );progn );if (if (= zrl “Lc“) (progn;计算轮毂键槽上点的坐标 (setq pt2 (list (+ (car pt0) (+(/ d 2.0)

11、 t2) (+ (cadr pt0) dy) pt3 (polar pt2 (- (/ pi 2.0) b) pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx) );progn );if (command “pline“ pt1 pt2 pt3 pt4 “);画键槽 (setq s2 (ssget “l“) (command “layer“ “m“ 5 “l“ “center“ 5 “c“ 1 5 “) (command “ltscale“ 8) (command “line“ (polar pt0 (- pi) (+ (/ d 2.0) 10);画中心

12、线 (polar pt0 0 (+ (/ d 2.0) 10) “) (command “line“ (polar pt0 (-(/ pi 2.0) (+ (/ d 2.0) 10) (polar pt0 (/ pi 2.0) (+ (/ d 2.0) 10) “) (command “layer“ “s“ 0 “) (if (= zrl “Zc“) (progn (setq s3 (entsel “n 请选择修剪的目标:“) (command “trim“ s2 “ s3 “);修剪形成键槽 (command “hatch“ “U“ “45“ “2“ “n“ s1 s2 “);画轴上键槽处剖

13、视图的剖面线 );if (if (= zrl “Lc“) (progn (setq s4 (entsel “n 请选择修剪的目标:“) (command “trim“ s2 “ s4 “);修剪形成键槽 (command “rotate“ s1 s2 “ pt0 90);将轮毂键槽的端面视图旋转 90 度 );if );end defun 二、螺纹孔剖视图的绘制命令“lwk” 在绘制机械零件图时， 经常要画螺纹孔的剖视图， 同样由于螺纹孔的有关尺寸都随螺纹 的公称直径而变化， 我们可以用下面的程序自动完成其剖视图的绘制。 加载后在命令行中键 入“lwk”并回车，根据提示输入相应的参数即可。代码

14、示例如下所示。 (defun C:lwk() (setq pc (osnap (getpoint “n 输入螺纹孔端面的中心点:“) “near“ ) (setq ang (getangle pc “n 螺纹孔中心线与水平线的夹角:“) (initget 7) (setq d (getdist “n 请输入螺纹孔的公称直径(mm):“) (cond;根据螺纹孔的公称直径检索有关数据(以螺纹零件的材料为钢或青铜为例) (= d 6.0) (setq l1 10 l2 12 d2 4.917);l1 表示螺纹深度 (= d 8.0) (setq l1 12 l2 16 d2 6.647);l2 表

15、示钻孔深度 (= d 10.0) (setq l1 16 l2 20 d2 8.376);d2 表示螺纹小径 (= d 12.0) (setq l1 18 l2 22 d2 10.106) (= d 14.0) (setq l1 22 l2 26 d2 11.835) (= d 16.0) (setq l1 24 l2 28 d2 13.835) (= d 18.0) (setq l1 28 l2 34 d2 15.294) (= d 20.0) (setq l1 30 l2 35 d2 17.294) (= d 22.0) (setq l1 32 l2 38 d2 19.294) (= d

16、24.0) (setq l1 36 l2 42 d2 20.725) (= d 27.0) (setq l1 40 l2 45 d2 23.725) (= d 30.0) (setq l1 44 l2 52 d2 26.211) (= d 36.0) (setq l1 52 l2 60 d2 31.670) (setq r2 (/ d2 2.0);计算光孔各点坐标 pt1 (polar pc (+ (/ pi 2.0) ang) r2) pt2 (polar pt1 ang l2) pt3 (polar pc ang (+ l2 (* 0.57735 r2) pt4 (polar pt2 (-

17、 ang (/ pi 2.0) d2) pt5 (polar pc (+ (* pi 1.5) ang) r2) (command “pline“ pt1 pt2 pt3 pt4 pt5 “c“);画光孔 (setq s1 (ssget “l“) (command “line“ (polar pc (+ pi ang) 3) (polar pt3 ang 3) “);画中心线 (command “pline“ pt2 pt4 “) (setq r1 (/ d 2.0);计算螺纹线的各点坐标 pt11 (polar pc (+ (/ pi 2.0) ang) r1) pt12 (polar pt

18、11 ang l1) pt13 (polar pt12 (- ang (/ pi 2.0) d) pt14 (polar pc (+ (* pi 1.5) ang) r1) (command “pline“ pt11 pt12 pt13 pt14 “);画螺纹线 (command “pline“ pt12 pt13 “) (setq pt21 (polar pc (+ (/ pi 2.0) ang) (+ r1 10.0);计算剖面线边界上的点坐标 pt22 (polar pt21 ang (+ l2 15.0);可根据需要设置剖面线边界的大小 pt23 (polar pt22 (- ang

19、(/ pi 2.0) (+ d 20.0) pt24 (polar pc (+ (* pi 1.5) ang) (+ r1 10.0) (command “pline“ pt21 pt22 pt23 pt24 “c“);生成剖面线的边界 (setq s2 (ssget “l“) (command “zoom“ “a“) (command “hatch“ “U“ “45“ “2“ “n“ s2 s1 “);画剖面线,形成消隐螺纹孔 );end 三、圆的中心线绘制命令“zxx” 在绘图中，若需要绘制已知圆的中心线，可调用下面的程序。加载后在命令行中键入“zxx” 并回车，只要按提示选择圆并输入中心

20、线的延伸长度，即可自动生成该圆的中心线，并可连 续绘制。代码示例如下所示。 (defun C:zxx() (setvar “osmode“ 512) (setq loop T) (while loop (setq pc (getpoint “n 请用鼠标选择圆:“) (setq s(ssget pc) (if s (progn (setq s1(entget(ssname s 0) pt0(cdr(assoc 10 s1);获得圆心坐标 r (cdr(assoc 40 s1);获得圆的半径 ) (setq l (getreal “n 请输入中心线延伸长度(mm):“) (command “la

21、yer“ “m“ 5 “l“ “center“ 5 “c“ 1 5 “) (command “ltscale“ 8);设置线型比例 (command “line“ (polar pt0 (- pi) (+ r l);画中心线 (polar pt0 0 (+ r l) “) (command “line“ (polar pt0 (-(/ pi 2.0) (+ r l) (polar pt0 (/ pi 2.0) (+ r l) “) (command “layer“ “s“ 0 “) );progn (setq loop nil) );if );while );end defun 在绘图过程中，

22、用户可根据需要，用 AutoLISP 方便地定义出实用的绘图命令，从而提高绘 图速度。当然，还可以将自定义的 AutoCAD 命令定制成用户菜单或工具栏,以方便使用。例 如，将上面介绍的几个绘图命令定制到下拉菜单中的方法是：打开 AutoCAD 安装目录下 SUPPORT 子目录中的 ACAD.MNU 文件，在*POP7 项的最后加入下面内容，再加载已修 改的菜单文件即可。 - ID_User 键槽图绘制(jct)CC_(if(not jct)(load “d:/Acad R14/jct.lip“);jct;p ID_User 螺纹孔绘制(lwk)CC_(if(not lwk)(load “d:/Acad R14/lwk.lip“);lwk;p ID_User 中心线(zxx)CC_(if(not zxx)(load “d:/Acad R14/zxx.lip“);zxx;p