1、第6章AutoCAD二次开发 1AutoCAD二次开发基础讲义AutoCAD荣登全球绘图软件的龙头宝座,主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程语言对其进行扩充和修改,即二次开发,能最大限度地满足用户的特殊要求。AutoCAD第一版于1982年11月由AutoDESK公司推出,目前大家广泛使用的是AutoCAD 2000或2002,最新版本是AutoCAD 2004,其二次开发语言及工具也在不断地涌现。1 AutoLISPAutoLISP的全名是LIST Processing Language,她出现于1985年推出的AutoCAD R2.18中,是一种嵌入在AutoCA
2、D内部的编程语言,是LISP原版的一个子集,她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言,是被解释执行的,任何一个语句键入后就能马上执行,它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。3 ADSADS的全名是AutoCAD Development System,它是AutoCAD的C语言开发系统,ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库,它直接利用用户熟悉的各种流行的C语言编译器,将应用程序编译成可执行的文件在AutoCAD环境下运行,这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。
3、ADS由于其速度快,又采用结构化的编程体系,因而很适合于高强度的数据处理,如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。4 ObjectARXObjectARX是一种崭新的开发AutoCAD应用程序的工具,她以C+为编程语言,采用先进的面向对象的编程原理,提供可与AutoCAD直接交互的开发环境,能使用户方便快捷地开发出高效简洁的Auto CAD应用程序。ObjectARX并没有包含在AutoCAD中,可在AutoDESK公司网站中去下载,其最新版本是ObjectARX for AutoCAD 2000,它能够对AutoCAD的所
4、有事务进行完整的、先进的、面向对象的设计与开发,并且开发的应用程序速度更快、集成度更高、稳定性更强。ObjectARX从本质上讲,是一种特定的C+编程环境,她包括一组动态链接库(DLL),这些库与AutoCAD在同一地址空间运行并能直接利用AutoCAD核心数据结构和代码,库中包含一组通用工具,使得二次开发者可以充分利用AutoCAD的开放结构,直接访问AutoCAD数据库结构、图形系统以及CAD几何造型核心,以便能在运行期间实时扩展AutoCAD的功能,创建能全面享受AutoCAD固有命令的新命令。ObjectARX的核心是两组关键的API,即AcDb(Auto CAD数据库)和AcEd(A
5、uto CAD编译器),另外还有其它的一些重要库组件,如AcRX(Auto CAD实时扩展)、AcGi(Auto CAD图形接口)、AcGe(Auto CAD几何库)、ADSRX(Auto CAD开发系统实时扩展)。ObjectARX 还可以按需要加载应用程序;使用ObjectARX进行应用开发还可以在同一水平上与Windows系统集成,并与其它Windows应用程序实现交互操作。5 VisualLISP VisualLISP已经被完整地集成到AutoCAD 2000中,她为开发者提供了崭新的、增强的集成开发环境,一改过去在AutoCAD中内嵌AtuoLISP运行引擎的机制,这样开发者可以直接
6、使用AutoCAD中的对象和反应器,进行更底层的开发。其特点为自身是AutoCAD 2000中默认的代码编辑工具;用它开发AutoLISP程序的时间被大大地缩短,原始代码能被保密,以防盗版和被更改;能帮助大家使用ActiveX对象及其事件;使用了流行的有色代码编辑器和完善的调试工具,使大家很容易创建和分析LISP程序的运行情况。在VisualLISP中新增了一些函数:如基于AutoLISP的ActiveX/COM自动化操作接口;用于执行基于Auto CAD内部事件的LISP程序的对象反应器;新增了能够对操作系统文件进行操作的函数。6 VBAVBA 即Mcrosoft office中的Visua
7、l Basic for Applications,它被集成到AutoCAD 2000中。VBA为开发者提供了一种新的选择,也为用户访问AutoCAD 2000中丰富的技术框架打开一新的通道。VBA和AutoCAD 2000中强大的ActiveX自动化对象模型的结合,代表了一种新型的定制AutoCAD的模式构架。通过VBA,我们可以操作AutoCAD,控制ActiveX和其它一些应用程序,使之相互之间发生互易活动第一部分AutoLISP语法基础一.AutoLISP的程序结构1.程序结构(函数 参数 )如:(setq x 25.0) (setq y 12.2) ( + (* x y) x )Aut
8、oLISP程序由一个或一系列按顺序排列的标准表组成。2. AutoLISP书写格式的特点:(1)左右括号匹配;(2)从左到右读程序;(3)函数放在第一个元素的位置;(4)一表可占多行,一行可写多表;(5)用分号“;”作注释;二.AutoLISP的变量与类型1.整形常量Int整数由数字组成,不包含小数点。AutoLISP 的整数是 32 位带符号的数,取值范围从 +2,147,483,647 到 -2,147,483,6482.实数常量Real实数是带有小数点的数。以双精度浮点格式存储的,可以提供至少 14 位精度。可以用科学记数法表示。如数字 3.1、0.23、-56.123 和 21,000
9、,000.0 都是有效的 AutoLISP 实数3.字符串常量 Str字符串是在双引号中的一组字符。如“string 1”和“nEnter first point:”都是有效的字符串。 4. 表 ListAutoLISP 的表是在括号中以空格分隔的一组相关值。表提供了一种存储大量相关值的有效方法。AutoCAD 将三维点表示为三个实数组成的表。(1.0 1.0 0.0)、(this that the other) 和 (1 ONE) 都是有效的表5. 其它Sym(符号和变量),Select(选择集),Entity(实体名),filepointer(文件描述符),VLA对像(Visual LIS
10、P ActiveX)。三.数值函数1.计算函数 (1)+、-、*、/AutoLISP 中,所有运算符号均采用前缀方式。一般格式为:(运算符 数字 数字)。(+ a b);(- a b);(* a b);(/ a b);如:(* a b c)即为a*b*c (+ a (- b (* c d))即为a+(b-c*d) command:(+ 4.7 2) 6.7command:(/ 8 5) 1command:(* 2 5 6) 60(2)最大数,最小数(max num1 num2 )(min num1 num2 )如:command:(max 4.7 2) 4.7 command:(min 3.2
11、 -1) -1(3)平方根,绝对值平方根:(sqrt num)绝对值:(abs num)如:command:(sqrt 4) 2 command:(abs -1) 1(4)三角函数反正切(atan a)或(atan a1 a2)正弦 (sin angle);余弦 (cos angle); 注:angle用弧度制如:command:(atan 1.5) 0.982794 command:(atan 3.0 2.0) 0.982794 command:(sin 1) 0.841471 command:(cos pi) 1.02.逻辑运算(and a b );(or a b ); (not a );
12、-其中a,b为逻辑表达式。 如:command:(and nil 10) nilcommand: (or nil 1) Tcommand: (not 10) nil3.关系运算 ( = a b ) -条件为真返回T,否则返回nil如:command:( 3 5) T command: ( 3 5 4 2) nil command: ( 2 3 4 5) T四几何实用函数1.angle函数(angle pt1 pt2) 说明:pt1、pt2为两点的坐标,计算这两点连线与x轴的夹角(按逆时针计算),返回弧度值。 如:command:( angle (0 0) (100 100) 0.7853982
13、.distance函数(distance pt1 pt2)如:command:(distance (0 0) (100 0) 1003.polar函数(polar pt angle distance)如:command:(polar (0 0) 0.78 100) (71.0914 70.3279)五.表处理函数1.表长函数(length list)如:command:(length (a b c) 3 command: (length (a (b c) 22.表颠倒函数 (reverse list)如:command:(reverse ( 3 5) (5 3) command: (rever
14、se (3 5 4 2) (2 4 5 3)3.返回表中元素(cad list) (cdr list) (cadr list)如:command:(cad (a b c) a command: (cdr (a b c) b command: (cadr (a b c) c command: (cdr (a (b c) (b c)六.赋值函数(setq sym1 expr1 sym2 expr2 sym3 expr3 )如:command:(setq d (a b c) (A B C) command: (setq a 10 b 12.5 c 23) 23 command: !a 10 comm
15、and: !c 23七.用户输入函数1.getint、getreal、getstring函数(get )如:command:(setq d (getint “Enter a number:n”) Enter a number:12 12 command:(setq s (getstring “Enter a string:”) Enter a string:autolisp autolisp2.getpoint函数(getpoint )如:command:(setq d (getpoint “Enter a point:”) Enter a number:鼠标点取 (100,100)八.com
16、mand函数(comment )如:(command circle (200 200) 20) (command circle 2p (100 100) (80 150)说明: 1.本函数用于执行一条AutoCAD命令,即向AutoCAD的“command:”提示直接发送AutoCAD命令; 2.变元表示要求AutoCAD执行的命令及该命令所需的参数,这些参数必须与命令对应的参数需求相适应,且顺序一致;3.空字符串(“ ”)等效于回车;4.调用AutoCAD内部的参数要加“ ”,自定义的参数不加“ ”;mand 函数中需要的参数必需执行在command函数前定义,command函数中不能使用g
17、et等函数。实例: command:(setq p1 (getpoint) (300.572 245.05 0.0) command:(setq r1 (getint) 50 command:(command circle p1 r1) command:(setq a (entlast) command:(command hatch u 45 10 a )九. 函数的定义(defun sym(全局变量/局部变量)如:(defun plus (/ ans) (setq ans (+ 2 3);令ans=2+3 )运行:加载输入“(plus)”或在AutoCAD命令中输入“(plus)”?问题:p
18、lus不是AutoCAD的内部函数,如何使得plus函数数能像AutoCAD内部函数那样被调用?(defun c: sym (全局变量/局部变量) 如:(defun c:plus (/ ans) (setq ans (+ 2 3) ;令ans=2+3 )运行:加载输入“(c:plus)”或在AutoCAD命令中输入“(c:plus)或“plus”十实例1(defun c:ring() (setq r1 2.5 r2 4.0 r3 5.5 r 1.0) (setq pc (getpointn输入圆心) (command circle pc r1 circle pc r2 circle pc r3
19、) (command circle (polar pc 0 r2) r) (command array L p pc 8 360 N) )实例2(defun c:akey (/ d h w bp ag p1 p2) (setq d (/ (getint n d=? ) 2.0) h (getint n h=?) w ( / (getint n w=? ) 2.0) bp (getpointn center=?) ag (atan ( / w (sqrt(- (* d d) (* w w) ) (commandpline (setq p1 (polar bp (- ag) d) (setq p2
20、 (list(+(car bp)(- d h) (cadr p1) (polar p2 ( / pi 2.0)(* w 2) (polar bp ag d) a ce bp p1 )(setq ss (entlast)(command hatch u 45 10 ss )第二部分 AutoCAD菜单开发一.菜单文件MNU 原始菜单文件,文本格式。MNS 加载.MNU后产生,文本格式。MNC 将.MNS编译为二进制格式。MNR 二进制文件,包含由菜单使用的位图。MNL 与菜单配套的 AutoLISP 程序。这些文件包含由菜单文 式件使用的 AutoLISP 表达式。当加载同名的菜单文件 时,这些
21、文件也载入内存。二.菜单文件结构1.段标题常用段标题 菜单区域*POPN 下拉/快捷菜单区域 *TOOLBARS 工具栏定义*IMAGE 图像控件菜单区域*SCREEN 屏幕菜单区域*MENUGROUP 菜单文件组名2.菜单项菜单项由下列元素组成:(名称标记)、标签和菜单宏。3.菜单宏CC 可确保不存在尚未完成的命令。这与在键盘上连续按两次 ESC 一样。并 从 DIM 命令返回命令提示。说明:(1)注释用 /;(2)程序最后要回车。三.下拉菜单1.段标题 *popN (N:1499)2.子菜单标题 *+子菜单名(可省略)3.菜单项 菜单项名下拉菜单总标题 菜单项1 菜单项24.菜单宏菜单项n
22、cc(load “源程序文件名”)(函数名)例:*pop1关键零件法兰cc(load ring.lsp)(c:ring)键槽 cc(load key.lsp)(c:akey)四图像菜单1.菜单组名 menugroup=菜单组名2.下拉菜单段 *popN 菜单项名下拉菜单总标题 图像菜单项n$I=菜单组名.图像菜单子菜单名 $I=*(其中,第一个$I为查找图像菜单。第二个$I为了显示当前加载的图像菜单。)3.图像菜单项 *image *+图像菜单子菜单名(不可省略) 图像菜单标题 幻灯片1,菜单项1 cc(load “源程序文件名”)(函数名) 幻灯片2,菜单项2 cc(load “源程序文件名
23、”)(函数名)例:*menugroup=part*pop1关键零件主要零配件$I=part.image_part $I=*image*image_part主要零配件ring,法兰cc(load ring.lsp)(c:ring)key,键槽cc(load key.lsp)(c:akey)第三部分 AutoCAD对话框设计一.DCL基本语言在VisualLISP中,对话框的格式以对话框控制语言(DCL)定义在.dcl文件中。1.语法格式对话框名称:dialog label=标题名; :组件1 key=value1; label=value2; attribute=value; :组件2 key=
24、value1; label=value2; attribute2=value2; ok_cancel 2.说明(1)属性定义语句后用“;”结尾;(2)注释符用“/”;(3)对话框显示预览:VisualLISP编辑器工具界面工具预览编辑器中的DCL。3.实例dcl:dialoglabel=我的对话框;ok_cancel;二.对话框常用组件的定义1.编辑框(edit_box)radia:dialoglabel=半径值;:edit_boxlabel=请输入圆的半径r1;key=a1;:edit_boxlabel=请输入圆的半径r2;key=a2;ok_cancel;2.图像框(image)ring:
25、dialoglabel=法兰幻灯片;:imagekey=ringslide; height=20; width=50; color=-3; ok_cancel;3.下拉列表框(popup_list)season:dialoglabel=季节;:popup_listkey=season;label=一年四季;list=春n夏n秋n冬;ok_cancel;4.列表框(list_box)season:dialoglabel=季节;:list_boxkey=season;label=一年四季;list=春n夏n秋n冬;ok_cancel;5.对话框区域定义 boxed_column(列);boxed_
26、row(行):boxed_rowlabel=第一组半径值;:edit_boxlabel=r1;key=a1;:edit_boxlabel=r2;key=a2;:boxed_columnlabel=第二组半径值;:edit_boxlabel=r3;key=a3;:edit_boxlabel=r ;key=a;ok_cancel;三.对话框管理1.调用 load_dialog 来加载 DCL 文件 格式: (load_dialog dclfile) 为便于后面的管理,给对话框文件一个文件识别码,则格式改为: (setq dcl_id (load_dialog dclfile) 注:dcl_id文件
27、识别码2.调用 new_dialog 来显示特定的对话框。 格式:(new_dialog dlgname dcl_id) 如须检查 new_dialog 的返回值,则格式改为: (if (not (new_dialog dlgname dcl_id)(exit)3.通过设置控件值、列表和图像来初始化对话框。(1)action_tile函数 格式:(action_tile key action-expression) 例:(action_tile “edit1” “(setq a1 $value) $value引用控件的当前值(2)图像框处理函数 a.获取图像框尺寸 (dimx_tile key
28、) 如:(setq width (dimx_tile key) (dimy_tile key) 如:(setq heigth (dimy_tile key) b.激活图像框 (start_image key) c.显示幻灯片图像 (slide_image x y width heigth sldname) x,y图像与图像框左上角偏移量(3)done_dialog函数,用于结束对话框 格式:(done_dialog status) status 默认值:1,表示用户按下“ok”按钮; 0,表示用户按下“cancel”按钮;4. 调用 start_dialog 将控制权转交给对话框,以便用户进行
29、输入 格式:(start_dialog)5.调用 unload_dialog 来卸载该 DCL 文件。 格式:(unload_dialog dcl_id)第四部分 AutoCAD二次开发综合实例(defun c:ring() (setq dcl_id(load_dialog ring.dcl) (if (not (new_dialog ringdcl_id) (exit) (setq x (dimx_tile ring_image) (setq y (dimy_tile ring_image) (start_image ring_image) (slide_image 0 0 x y ring) (end_image) (action_tile a1 (setq r1 $value) (action_ti
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1