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

2 基于 AUTOLISP 填料压盖零件图的简单编程 计算机辅助设计与制造课程 二次开发作业小结 学 号：班 级：姓 名：2 目录 1.总体设计.3 1.1 实现的方法.3 1.2 绘制二维工程视图.3 1.3 程序流程图.4 2 详细设计.5 2.1 绘图所需点的坐标.5 2.2 具体编程过程.6 3.程序运行与调试.10 3.1 第一组调试值：d=30 L=60.10 3.2 第二组调试值：d=45 L=90.11 3.3 第三组调试值：d=62 L=125.12 3.4 三组调试值结果对比.13 1.总体设计 1.1 实现的方法 首先用 AutoCAD 绘制出填料压盖的二维工程视图，再参照二维工程视图，用 AutoCAD 的高级语言Auto LISP 语言编写程序，实现对填料压盖的参数化设计。编完程序，并修改正确后，用户可在 Visual LISP集成开发环境中，也可以在 AutoCAD 环境中加载、运行 Auto LISP 程序。其实现介绍如下：1)一旦在 Visual LIS 的文本编辑器中编写了程序或打开已有的程序就可以加载并运行了。运行时需在控制台窗口中，输入函数名后按 Enter 键，然后输入用户需要的数据即可。2)在 Visual LISP 集成开发环境中编写 Auto LISP 程序并加载、运行证明程序正确后，就可以脱离Visual LISP 环境，在 AutoCAD 环境中运行了。1.2 绘制二维工程视图 图 1 填料压盖的二维工程视图 1.3 程序流程图 图 2 程序框图 定义函数（函数名 zy）设置合适的图幅参数 对工程图参数进行编程 绘制工程图 剖面线填充，尺寸标准 2 详细设计 AutoCAD 二次开发的应用之一，典型零件的参数化设计在产品设计中发挥了越来越大的优势，而参数化设计的重要环节是程序的编写，其在设计开发中占要想当大的比重，是参数化设计的核心，是整个设计任务的最精华的部分。现将本次填料压盖的参数化设计的程序的详细设计作如下介绍：2.1 绘图所需点的坐标 表 1 左边参数表 计算点 相对点 相对角度 相对长度 P1 P0 pi d/2 P2 P1 Pi/2 L-d/4 P3 P2 0 d/2 P4 P3 Pi/2 d/4 P5 P4 pi 3d/4 P6 P5-pi/2 L-d/2 P7 P6-pi/2 d/2 P8 P7 pi d/4 P9 P8 pi d/4 2.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 P10 P9 pi d/4 P11 P10-pi/2 d/2 P12 P11 0 d/4 P13 P12 0 d/4 P14 P13 0 d/4 P18 P3 0 d/2 P19 P4 0 3d/4 (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);标注角度 )3.程序运行与调试 3.1 第一组调试值：d=30 L=60 运行结果如图：图 3 第一组调试值运行图 3.2 第二组调试值：d=45 L=90 运行结果如图：图 4 第二组调试值运行图 3.3 第三组调试值：d=62 L=125 运行结果如图：图 5 第三组调试值运行图 3.4 三组调试值结果对比 对比结果如图所示：图 6 三组调试值对比图