Auto LISP编程实例Word文档下载推荐.docx

1、该次设计中采用的AutoCAD二次开发的语言为LISP语言。它是AutoCAD中自带的一种高级语言。并对用户来是掌握起来比较容易，所以在当今比较流行。LISP（Lisp Processing Language）是人工智能领域中广泛采用的一种程序设计语言。主要用于人工智能、机器人、专家系统、博弈、定理证明等领域。LISP也称为符号语言，因为它处理的对象是符号表达式。LISP语言的程序和数据都以符号表达式的形式来表示，因此，一个LISP程序可以把另一个LISP程序作为它的数据来处理。参数化设计是CAD中最为重要的研究领域之一。参数化技术使得设计者可以通过修改设计参数来驱动零件产品的几何模型。与传统

2、的建模方式比较，参数化设计将设计者从琐碎的拼凑几何元素的操作中解放出来，大大简化了用户生成和修改零件模型的操作，提高了设计效率。AutoCAD是一个通用CAD平台，它不仅具有强大的绘图、编辑功能，而且具有开放的体系结构，允许用户对其进行二次开发，参数化设计在其中占有很重要的比重。这其中对基础知识和基本技能都有一定的要求才能灵活运用好编程语言。其中包括要求在AutoCAD环境下，可以通过命令行方式、菜单方式（下拉菜单或图标菜单）、工具栏方式实现常规零件的参数化设计过程；所设计的二维工程图，要求实现图层设置、线型线宽设置、颜色设置、尺寸标注、形位公差、粗糙度等常规二维工程图的要求；基本命令如镜像，

3、偏移的灵活使用，等等1、实现的方法和主要技术路线首先用AutoCAD绘制出阀体的二维工程视图，再参照二维工程视图，用AutoCAD的高级语言Auto LISP语言编写程序，实现对阀体的参数化设计。编完程序，并修改正确后，用户可在Visual LISP集成开发环境中，也可以在AutoCAD环境中加载、运行Auto LISP程序。其实现介绍如下：1） 一旦在Visual LIS的文本编辑器中编写了程序或打开已有的程序就可以加载并运行了。运行时需在控制台窗口中，在$提示符后输入用括号括起来的函数名后按Enter键即可。2） 在Visual LISP集成开发环境中编写Auto LISP程序并加载、运行

4、证明程序正确后，就可以脱离Visual LISP环境，在AutoCAD环境中运行了。2、绘制二维工程图图1 二维工程图3、程序流程图图2 程序框图 AutoCAD二次开发的应用之一 典型零件的参数化设计在产品设计中发挥了越来越大的优势，而参数化设计的重要环节是程序的编写，其在设计开发中占要想当大的比重，是参数化设计的核心，是整个设计任务的最精华的部分。现将本次开发阀体的参数化设计的程序的详细设计作如下介绍：1、 定义函数名例如：（defun c:24hg（ ） ）2、 设置图层 根据所选的阀体工程图，需建立中心线、粗实线、细实线、标注线四个图层，分别定义其层名、线型、线宽、颜色，实现方法是在A

5、uto LISP中调用AutoCAD的图层命令，命令格式举例如下：（command layer n中心线c 4 lcenterlw 0.3 ） （command 粗实线 7 continuous 0.6 细实线 1 ）标注线 3 当画不同的线型时需调用其对应的图层，其调用有多种命令，现提供两种可供参考，命令如下：s3、 设定参数 为得到不同的阀体结构，可设定阀体的总长L、总高H、总宽W、进油口内径d1、出油口内径d2等参数。其命令格式可参考下例：（setq d1 （getrealn 输入进油口内径:） 而对不合理的参数可用if语句来判定并给与提示，其实现命令格式如下： （setq d1 （ge

6、treal）（setq d2 （getrealn 输入出油口内径（if （ d1 （distance z3 z4）（princ ok（setq d1 （* （distance z3 z4） （/ 15 40） d2 （distance z11 z12）（setq d2 （* （distance z11 z12） （/ 15 30）4、 由参数选择合适作图图框并填写标题栏 可由参数选择最合适图框，用户输入参数后由计算机再根据参数按比例处理。 图框的绘制可用绘制四边形的命令来实现，且全屏显示如： （setq width （getrealn输入图幅宽度（297）: （setq highty （get

7、realn输入图幅高度（210）:limits （0 0） p0 zooma） ；全屏显示rectang（0 0） p0）offset5 p0 -20,-20 而标题栏的绘制可用直线及偏移命令来实现例如：line p5 p6 p7 20 p9 p4 45 p9 p4 15 p8 p3 30 p8 p3 55 p8 p3 p4 p3 p9 -60,0 （command p8 55,0标题栏填写之前须对文字样式进行定义及转化可由如下命令实现：stylehz仿宋 7 0.7 0 标题栏文字的填写可用如下命令：mtext p1 jmc p6 p5 h15,-8比 例1 : 1from15,0数 量5、

8、绘制俯视图为得到合理的视图布局，可俯视图画起，取其中间圆心的点（f0）来确定，再确定工程各视图上的基点（z0）,可由下述程序实现：（setq p10 （0 0）（setq x1 （/ （* 90 width） 297） y1 （/ （* 48 highty） 210）（setq f0 （polar （list 0 0） （angle （list 0 0） （list x1 y1） （distance （list 0 0） （list x1 y1） 再由该基点定义主、左视图上各个点，为了方便，对对称的图形可定义一半的点，再由镜像来完成另一半，例如程序： f7 f6 f6 f5 f8 f9 f9

9、f10 f10 f12 f12 f1 f1 f2 f11 f10 circle f0 （/ （* 5 l） 118）。对于作图过程中多余的辅助边要及时剪切，例如：剪切771边，有如下程序arc f4 e f1 r （/ w 2） f3 f2 （/ （* 23 w） 56）（setq f61 （polar f7 0 5）（setq f31 （polar f0 （/ pi 4） （/ w 2）trim f31 f61 6、添加倒圆 添加过渡圆角要选择合适的线上点，不取交点和二异点。过程可参下：（setq c101 （polar c10 （* -0.5 pi） 5）（setq c81 （polar

10、c8 （* 0.5 pi） 5）（setq c91 （polar c9 0 5）fillet c81 c91） c91 c101）7、 绘制主视图主视图及左视图的绘制与俯视图相同，主要是选取的主视图基点要和俯视图联系，达到等比例联系变化，例如： （setq z1 （polar f0 （* 0.5 pi） （+ （* 0.5 w） 15） 。并再次设置参数，程序为：（setq d2 （* （distance z11 z12） （/ 15 30）8、绘制左视图左视图的绘制与俯视图近似相同，主要是选取的左视图基点要和主视图联系，达到等比例联系变化，例如：取点命令：（setq c1 （polar z1

11、 0 （+ （/ （* 88 l） 118） （/ w 2）（setq c2 （polar c1 pi （/ w 2）（setq c3 （polar c2 （/ pi 2） h）（setq c4 （polar c3 0 （/ w 2）（setq c5 （polar c4 0 （/ w 2）（setq c6 （polar c5 （* -0.5 pi） h）（setq c7 （polar c1 （/ pi 2） （/ （* 70 h） 105）（setq c8 （polar c7 pi （/ （* 20 w） 56）（setq c9 （polar c8 （/ pi 2） （/ （* 20 h） 1

12、05）（setq c10 （polar c9 0 （/ （* 40 w） 56）画线命令： c1 c2 c3 c5 c6 c1 c8 c9 c10 c11 c14 c15 c16 c13 c14 c13 c8 c11 （/ （* 20 w） 56） c7 （/ d1 2） 并再次使用剪切命令：（setq c151 （polar c15 （* -0.5 pi） 2）（setq c161 （polar c16 （* -0.5 pi） 2）（setq c111 （polar c7 （* -0.25 pi） （/ （* 20 w） 56） c111 c151 c161 9、 剖面填充 程序的编写参考了

13、AutoCAD的命令，先设定若干参考点，再由参考点偏移得到填充面域的内部点进而选中所要填充的剖面，主要是选择图形一定要闭合设置，其实现由下列所示：（setq pp1 （polar z2 （/ pi 4） 5）（setq pp2 （polar z24 （/ pi 4） 2）（setq pp3 （polar z16 （/ pi 4） 5）（setq pp4 （polar z22 （/ pi 4） 2）bhatchpu 45 3 pp1 pp2 pp3 pp4 10、添加螺纹设置螺纹可以用连点法，也可以用画矩形命令。但前者较好，因为螺纹一般要在剖面线后加（为了避免剖面线不能填充），用后者也不能用镜像

14、命令。例如程序： z24 z33）（setq z34 （polar z33 （* -0.5 pi） （+ d1 2） z34 z25 z34 z33 11、 尺寸标注在标注之前需进行文字样式的转换，将仿宋改为默认的txt样式，然后再进行标注，命令参考如下：clayerstandardtxt 2.5 0.9 0 dimlinear p3 a6 0,-7 ） p35 p38 p13 a1 m%cH90,10 p12 a1 -2,00,4引线型的标注采用的是画直线的方法，所以其标注文字也需进行一次文字样式的转变，可由下述命令实现： p19 2,0-6,15-5,0 （command a9 13,20

15、）;写引线标注文字 2.5 0.7 0 -4,15-5,3G1/215,32-M10深2515,-3孔深28在本程序中中心线的标注采用了单独找点连线的方法，程序如下：；俯视图的中心线（setq f15 （polar f0 （* -0.5 pi） （/ （* 28 w） 56）（setq f8000 （polar f8 pi 10）（setq f5000 （polar f5 0 5）（setq f1001 （polar f1 （/ pi 2） 5）（setq f1500 （polar f15 （* -0.5 pi） 5） f8000 f5000 f1001 f1500 主视图的中心线（setq

16、z2911 （polar z29 0 5）（setq z2912 （polar z29 （* 0.5 pi） 10）（setq z2811 （polar z28 pi 10）（setq z1111 （polar z1 （* -0.5 pi） 5）（setq z3111 （polar z31 pi 8）（setq z3011 （polar z30 0 8） z2911 z2811 z2912 z1111 z3111 z3011 左视图的中心线（setq c8111 （polar c8 pi 10）（setq c1111 （polar c11 0 15）（setq c1000 （polar c1

17、（* -0.5 pi） 10）（setq c7000 （polar c7 （* 0.5 pi） 45） c8111 c1111 c1000 c7000 12、粗糙度的标注对此程序以块的形式生成，若粗糙度标注较多时可用插入块的命令形式方便的得到各个标注，提高程序可利用性，但对于少量的粗糙度图纸，也可以用连点法画。前者程序参考如下：blockk3 a10 a11 a12 a13 a012 ）；创建块 （setq a14 （polar p011 （* 0.5 pi） 10）insert a14 0.6666 0.6666 90）；插入块 a10 1 1 0）； a11 -5,512.5 a12 其余 a14 -3.464,-2 90 -7.464,20.8 后者程序参考： （setq z700 （polar z7 0 10）（setq bp1 （polar z700 0 8）（setq ang pi） bp1 （polar bp1 （+ ang （/ pi 3） 10） （setq pt1 （polar bp1 （+ ang （/ pi 1.5） 5） bp1 pt1 pt1 （polar pt1 ang 5）text pt1 -5,-3 0 13、标注形位公差对形位公差的标注可以利用相关命令也可以使用定点连线的方法。本程序设计使用的是后者。其中包含着引线的使用。可以