基于AUTOLISP填料压盖零件图的简单编程.docx

基于AUTOLISP填料压盖零件图的简单编程计算机辅助设计与制造课程二次开发作业小结学 号：班 级：姓 名： 目录1.总体设计31.1 实现的方法31.2 绘制二维工程视图31.3 程序流程图42 详细设计52.1 绘图所需点的坐标52.2 具体编程过程63.程序运行与调试103.1 第一组调试值：d=30 L=60103.2 第二组调试值：d=45 L=90113.3 第三组调试值：d=62 L=125123.4 三组调试值结果对比1321.总体设计1.1 实现的方法首先用AutoCAD绘制出填料压盖的二维工程视图，再参照二维工程视图，用AutoCAD的高级语言AutoLISP语言编写程序，实现对填料压盖的参数化设计。编完程序，并修改正确后，用户可在VisualLISP集成开发环境中，也可以在AutoCAD环境中加载、运行AutoLISP程序。其实现介绍如下：1)一旦在VisualLIS的文本编辑器中编写了程序或打开已有的程序就可以加载并运行了。运行时需在控制台窗口中，输入函数名后按Enter键，然后输入用户需要的数据即可。2)在VisualLISP集成开发环境中编写AutoLISP程序并加载、运行证明程序正确后，就可以脱离VisualLISP环境，在AutoCAD环境中运行了。 1.2 绘制二维工程视图图1 填料压盖的二维工程视图1.3 程序流程图定义函数（函数名 zy）剖面线填充，尺寸标准绘制工程图设置合适的图幅参数对工程图参数进行编程图2 程序框图2 详细设计AutoCAD二次开发的应用之一，典型零件的参数化设计在产品设计中发挥了越来越大的优势，而参数化设计的重要环节是程序的编写，其在设计开发中占要想当大的比重，是参数化设计的核心，是整个设计任务的最精华的部分。现将本次填料压盖的参数化设计的程序的详细设计作如下介绍：2.1 绘图所需点的坐标表1 左边参数表计算点相对点相对角度相对长度P1P0pid/2P2P1Pi/2L-d/4P3P20d/2P4P3Pi/2d/4P5P4pi3d/4P6P5-pi/2L-d/2P7P6-pi/2d/2P8P7pid/4P9P8pid/4P10P9pid/4P11P10-pi/2d/2P12P110d/4P13P120d/4P14P130d/4P18P30d/2P19P403d/42.2 具体编程过程(defun c:zy() ;定义外部命令zy (command limits 297,210) ;定义绘制区域 (command zoom all) ;图形全屏显示(setvar ltscale 5) ;设置线型比例 (command OSMODE 0) ;关闭对象捕捉 (setq p0 (getpoint n 输入基点p0:) ;由用户输入一个点并赋值给变量p0 (setq d (getdist n 填料压盖内空直径d:) ;由用户输入一个值并赋值给变量d (setq L (getdist n 填料压盖高度L:) ;由用户输入一个值并赋值给变量L (if( L (* 2 d) ;判断是否L2d (princn OK) ;是,打印OK (setq L (* 2 d) ;否,使L =2d (setq p1 (polar p0 (* 1 pi) (/ d 2) ;计算p1p19点的坐标 (setq p2 (polar p1 (/ pi 2) (- L (/ d 4) (setq p3 (polar p2 0 (/ d 2) (setq p4 (polar p3 (/ pi 2) (/ d 4) (setq p5 (polar p4 (* pi 1) (* d 0.75) (setq p6 (polar p5 (* -0.5 pi) (- L (/ d 2) (setq p7 (polar p6 (* 1 pi) (/ d 2) (setq p8 (polar p7 (* 1 pi) (/ d 4) (setq p9 (polar p8 (* 1 pi) (/ d 4) (setq p10 (polar p9 (* 1 pi) (/ d 4) (setq p11 (polar p10 (* -0.5 pi) (/ d 2) (setq p12 (polar p11 0 (/ d 4) (setq p13 (polar p12 0 (/ d 4) (setq p14 (polar p13 0 (/ d 4) (setq p15 (polar p11 0 (/ d 8) (setq p16 (polar p0 0 (* d 1) (setq p17 (polar p0 0 (* d 1.8) (setq p18 (polar p3 0 (* d 0.5) (setq p19 (polar p4 0 (* d 0.75) (setq a1 (polar p4 (* 0.5 pi) (/ d 2) ;计算尺寸定位点a1a7点的坐标 (setq a2 (polar p4 (* 0.5 pi) (/ d 4) (setq a3 (polar p10 (* 1 pi) (* d 0.25) (setq a4 (polar p10 (* 1 pi) (* d 0.5) (setq a5 (polar p8 (* 0.5 pi) (/ d 4) (setq a6 (polar p4 (* -0.5 pi) (* d 0.75) (setq a7 (polar p4 (* 0.5 pi) (/ d 8) (setvar lwdisplay 1) (command layer m a c 7 lw 0.3 s a ) ;图层设置(粗实线) (command pline p0 p1 p2 p3 ) ;绘制左半部外轮廓 (command pline p2 p5 ) (command pline p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p1 ) (command pline p7 p14 ) (command pline p9 p12 ) (command mirror c p1 p2 p4 p9 p7 p0 p4 n) ;镜像 (command layer m c c 7 l center c ) ;图层设置(中心线) (command line p4 p0 ) (command line p8 p13 ) (command mirror c p8 p13 p0 p4 n) ;镜像中心线 (command layer m b c 7 lw default ) ;图层设置(细实线) (setq pp1 (polar p6 0 (/ d 8) ;定义填充点pp1pp4 (setq pp2 (polar p15 (/ pi 2) (/ d 8) (setq pp3 (polar p16 (/ pi 2) (/ d 8) (setq pp4 (polar p17 (/ pi 2) (/ d 8) (command bhatch p u 45 3 n pp1 pp2 pp3 pp4 ) ;填充剖面线 (command dimlinear p5 p11 t a4) ;标注尺寸 (command dimlinear p2 p18 t a2) (command dimlinear p5 p19 t a1) (command dimlinear p10 p11 t a3) (command dimlinear p7 p9 t a5) (command dimangular a6 p5 p19 t a7) ;