计算机辅助设计与制造（第二版）课件第5章工程图的绘制

第5章工程图的绘制工程设计的结果一般都是以工程图的形式来表示，因此，可把工程图看作是工程的语言。绘制工程图是CAD的一个重要内容，本章将介绍使用AutoCAD2010图形环境绘制工程图。§5.1AutoCAD2010简介5.1.1AutoCAD2010的工作界面

AutoCAD2010的工作界面主要由标题栏、下拉菜单栏、工具栏、绘图窗口、命令行窗口、状态栏和滚动条等几部分组成。5.1.2命令的输入

AutoCAD要求用户输入命令来实现绘图操作，用户可以用下列任何一种方式输入命令：1．从键盘输入

用户从键盘输入命令时，在命令行窗口中的提示符必须为“Command：”，此时用键盘输入命令名，接着按回车键或空格键，就完成了命令的输入。2．从下拉菜单输入

用户可从下拉菜单中所列的菜单选项中选择要输入的命令。3．从工具栏按钮输入

用户可从工具栏中单击一个图标按钮就可完成一个命令的输入4．从数字化仪菜单输入

如果定义了数字化仪菜单，输入命令时，只需将数字化仪的触笔或者游标指在所需菜单选项上，然后按“拾取”按钮即可。

5.1.3新建、打开与保存图形文件1．新建图形文件(new)2．打开已有图形文件(open)3．保存图形文件(save)5.1.4绘图环境设置

1．设置绘图界限(limits)2．设置图形单位(units)3．设置绘图区背景颜色4．设置捕捉模式5．设置正交模式(F8)5.1.5图层设置

在AutoCAD中，所有图形对象都画在某个图层上，而在每个图层上都对应有颜色、线型和线宽的定义，即所有图形对象都具有图层、颜色、线型和线宽这4个基本属性。图层设置就是定义这4个基本属性，为完成一幅工程图纸的设计和绘制提供必要的线型和线宽。1．图层

一幅工程图样由粗实线、细实线、点划线、虚线等不同线型组成。把具有相同线型、颜色和线宽的实体放在相应的图层上。2．颜色

每一图层应设置一种颜色，图层的颜色是指在该图层上所绘实体的颜色。图层的颜色用颜色号来表示，颜色号为1～255的整数。不同的图层可以设置相同的颜色，也可以设置不同的颜色。为了便于在不同计算机系统之间交换图形，AutoCAD将前7个颜色号赋予标准颜色，它们是：1—Red（红）2—Yellow（黄）3—Green（绿）4—Cyan（青）5—Blue（蓝）6—Magenta（洋红）7—White/Black（白或黑）3．线型

每个实体和每一层都有一个相应的线型，不同的图层可以设置相同的线型，也可以设置不同的线型。AutoCAD2010为用户提供了一个标准线型库，该库文件为ACADISO.LIN，用户可从中选择所需的线型，例如用户可以从中选择到绘制工程图时常用线型：Continuous（实线）Dashed（虚线）、Center（中心线）、Divide（双点划线）等。4．线宽

线宽特性是从AutoCAD2000版本以来新设的一个特性，用来设置线条的宽度。有了线宽特性，不仅在图形输出时有线宽的不同，在屏幕上显示也能反映出线宽的不同，使图形的显示和输出效果达到一致。5．图层命令（Layer）

图层命令（Layer）可以用来建立新的图层、选择当前层、为指定的图层设置颜色和线型以及线宽、打开或关闭图层、解冻或冻结图层等。(1)新建图层(2)设置图层颜色(3)设置图层线型(4)设置当前图层(5)删除图层(6)打开/关闭图层(7)冻结/解冻图层(8)锁定/解锁图层(9)设置图层线宽5.1.6基本绘图命令1．绘制单点和多点2．绘制直线（Line）绘制直线时需输入直线的端点坐标AutoCAD2010可以使用以下4种确定点坐标的方法：(1)用定标设备在屏幕上拾取点指定某个点可以使用定标设备（通常为鼠标器），移动鼠标，直到光标到达所要指定的位置，然后单击左键即可。(2)使用对象捕捉来指定图上一些特殊点使用AutoCAD的对象捕捉功能可捕捉现存图形对象的特殊点，如现存直线或弧的中点、某个圆的圆心、两个图形实体的交点等(3)通过键盘输入点的坐标通过键盘输入点的坐标是最直接的方式，而且可以准确给定点。对于这种指定点的方法，用户可以使用绝对直角坐标、绝对极坐标、相对直角坐标、相对极坐标4种方式输入。AutoCAD2010提供了以下4种坐标形式供用户选用：(1)绝对直角坐标在直角坐标系中，X、Y、Z三轴线在原点（0，0，0）相交，绘图区内的任何一点均可用（x，y，z）表示，用户可以通过输入x、y、z坐标来定义点的位置。(2)绝对极坐标

绝对极坐标均以原点作为极点。用户可以输入一个长度距离和一个角度，距离和角度之间用“<”号隔开。例如：100<30，表示该点离极点（原点）的极长为100个图形单位，而该点的连线与0ο方向之间的夹角为30°(3)相对直角坐标

相对直角坐标用（@x，y，z）的方式输入(4)相对极坐标

相对极坐标用（@l<α）的形式表示，其中@表示相对，l表示极长，α表示角度。

例：以A（100，100）为起点坐标，用相对极坐标绘制一个长为150的五角星。操作过程如下：Command：Line↙SpecifyFirstPoint：100，100↙Specifynextpointor[Undo]：@150<0↙

Specifynextpointor[Undo]：@150<216↙Specifynextpointor[Close/Undo]：@150<72↙Specifynextpointor[Close/Undo]：@150<288↙Specifynextpointor[Close/Undo]：C↙3．绘制多义线（Pline）

多义线是AutoCAD中提供的一种非常有用的实体对象，它是由多段直线段和弧线序列组成，如图5.20所示。多义线是一个实体，可以统一对其进行编辑。多义线中的线条在各连接点处的线宽可在绘图过程中设置。4．绘制圆（Circle）

AutoCAD2010提供了六种画圆的方式，即：Center（圆心）和Radius（半径）、Center（圆心）和Diameter（直径）、2Point（两点）、3Point（三点）、双切和半径、三切六种方式，其中系统默认方式为Center（圆心）和Radius（半径）。

圆心和半径:circle_200,100_60(2)圆心和直径:circle_200,100_D_120(3)三点定圆:circle_20,10_60,50_70,100(4)两点定圆:circle_20,10_170,100(5)半径和双切定圆:(6)三切点定圆:5．绘制圆弧（Arc）

绘制圆弧的命令是Arc，AutoCAD2010提供了10种画圆弧的方式。

(1)三点画弧:Arc_p1_p2_p3(2)起点、圆心、终点画弧:Arc_p1_C_p2_p3(3)起点、圆心、角度画弧:Arc_p1_C_p2_A_angle(4)起点、圆心、弦长画弧:Arc_p1_C_p2_L_length(5)起点、终点、角度画弧:Arc_p1_E_p2_A_angle(6)起点、终点、方向画弧:Arc_p1_E_p2_D_Direction(7)起点、终点、半径画弧:Arc_p1_E_p2_R_Radius(8)圆心、起点、终点画弧:(9)圆心、起点、角度画弧:(10)圆心、起点、弦长画弧:6．绘制椭圆（Ellipse）(1)轴线和偏心距绘制椭圆

Ellipse_p1_p2_p3(2)中心点和两条轴线绘制椭圆

Ellipse_C_p1_p2_p37．绘制矩形（Rectangle）

用Rectangle命令绘制矩形时只需要给定矩形对角线上的两个端点即可。用户在绘制矩形时，还可以设置倒角、标高、圆角、厚度和线宽，其中标高和厚度一般用于三维绘图。(1)绘制矩形:Rectangle_p1_对角点p2(2)绘制带倒角的矩形:Rectangle_C_5_5_p1_对角点p2(3)绘制带圆角的矩形:Rectangle_F_10_p1_对角点p28．图案填充（BHatch和Hatch）

在机械或土木建筑工程图中，图案填充用于表达一个剖切的区域，即用于绘制剖面阴影线。AutoCAD2010提供了二种创建图案填充的方式：对话框和命令行。BHatch命令用于对话框方式，Hatch命令用于命令行方式。

(1)对话框方式（BHatch）:

输入BHatch命令后，AutoCAD会弹出BoundaryHatch（边界图案填充）对话框(2)命令行方式（Hatch）:Hatch_U_45_6_N_W_p1_p2_例：按下图填充图案。

9．单行文本注释

在工程制图中，除了绘制图形外，还需要书写文本，如技术要求、填写明细表等。AutoCAD提供了Text或Dtext命令用于文本注释输入命令后，AutoCAD将显示如下提示：

Specifystartpointoftextor[Justify/Style]：提示中有StartPoint（起点）、Justfy（对正）、Style（样式）三个选项:(1)StartPoint（起点）选项(2)Justify（对齐）选项

Specifystartpointoftextor[Justify/Style]：J↙Enteranoption[Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]：10．多行文本注释

AutoCAD提供了Mtext命令，用于一次标注多行文本，并且各行文本都以指定宽度排列对齐。

输入Mtext命令后，AutoCAD2010会自动弹出如图所示“多行文本编辑器”对话框，用户可在该对话框内进行标注文本的输入、编辑、修改工作。11.特殊字符的输入

在实际绘图中，时常需要标注一些特殊字符，如表示温度的度“°”、表示直径的“φ”等。这些字符不能由键盘直接输入，为此，AutoCAD提供控制码来输入这些特殊字符。控制码一般由2个百分号和一个字母组成：(1)%%O控制码：用户可通过该控制码在标注的文字上添加上划线(2)%%U控制码：用户可通过该控制码在标注的文字上添加下划线(3)%%D控制码：用户可通过该控制码在标注的文字后添加“°”角度符号(4)%%P控制码：用户可以通过该控制码在标注的文字中添加“±”

正负公差符号(5)%%C控制码：用户可以通过该控制码在标注的文字中添加“φ”

直径符号例：绘制如下表格：5.1.7图形编辑1．删除与恢复：(1)删除（Erase）删除（Erase）命令可以删除图形中的对象。命令输入后，AutoCAD提示如下：

Command：Erase↙Selectobjects：选择对象↙输入Erase命令后，屏幕上的十字光标将变为一个小正方形的拾取框，此时用户可使用单个实体目标、多个实体目标、窗口目标、默认窗口和全部图形目标等目标选择方式来选择要删除的图形对象。(2)恢复（Oops）

Oops能恢复最近一次由Erase命令从图形中删除的对象。(3)取消操作（Undo）

Undo命令可以取消上一次或多次操作2．复制和镜像(1)图形复制（Copy）Copy命令能复制对象到指定位置。

Copy_选择对象_指定基点_指定位移的第二点多次复制:Copy_选择对象_M_指定基点_指定位移的第二点(2)图形镜像（Mirror）Mirror命令能将目标对象按指定的镜像轴线作对称复制，原目标对象可保留也可删除。

Mirror_选择对象_镜像轴线的第一端点_镜像轴线的第二端点_NMirror_选择对象_镜像轴线的第一端点_镜像轴线的第二端点_Y3．图形阵列（Array）

Array能按矩形或环形阵列方式多重复制对象。在启动Array命令后，将弹出Array对话框，如图所示(1)RectangularArray（矩形阵列）(2)PolarArray（环形阵列）4．移动和旋转(1)图形移动（Move）

Move_W_p1_p2__p3(基点)_p4(位移的第二点)(2)图形旋转（Rotate）

Rotate_W_p1_p2__p3(基点)_angle(旋转角度)5．修改和构造(1)修改（Change）

用户可使用Change命令来改变对象的特性，如颜色、标高、图层、线型、线型比例、线宽、厚度。(2)截断(Break)Break命令能部分删除对象或把对象分解为两部分(3)修剪(Trim)Trim命令能利用边界对图形实体进行修剪。(4)延伸(Extend)

Extend命令能延伸对象，使它们精确地延伸至由其他对象定义的边界，或将对象延伸到它们将要相交的某个边界上。(5)倒直角(Chamfer)(6)倒圆角（Fillet）(7)偏移(Offset)

Offset命令能对直线、多义线、圆弧、圆、椭圆作等距偏移复制。(8)分解(Explode)

Explode命令能分解组合对象，使其所属的图形实体成为可编辑实体使用Explode命令可分解三维实体、三维网格、图块、剖面线、多义线、矩形、多边形、多行文字、尺寸标注等。(9)比例缩放(Scale)

将被选择对象相对于基点按照比例放大或缩小。5.1.8图块1．图块的概念

在实际绘图过程中，有些东西会重复出现，比如一些符号、机械图中的标准件、建筑图中的门窗、电子元件符号以及标题栏等。如不断重复画这些图形，不仅费时，也毫无意义。为解决这一问题，AutoCAD引入了图块的概念。图块是把图形中的若干图形对象组合成一个整体，给它命名并存储在图中的一个整体图形单元。在需要用到该图块时，可以通过命令把它插入到图中任意位置，在插入时可以给它不同的比例和转角。2．图块的定义及存盘(1)图块的定义（Block）

在定义图形图块之前，必须首先绘制出图块所包含的所有图形对象，然后再用Block或Bmake命令定义图块的名称和插入点，并从现在的图形中选择一部分或整个图形来建立新块。但由上述命令定义的图块不能作为图形文件存盘，只能在图块所在的当前图形文件中使用，所以这种图块成为内部图块。

(2)图块的存盘（Wblock）

由于内部图块只能在在当前图形文件中定义和使用，而不能插入在其它图形文件中，这给绘图过程带来了不便。为了弥补这种不足，AutoCAD系统提供了Wblock命令，它可以定义图块并将其作为一个独立的图形文件存盘。

3．图块的插入

在当前图形文件当中可以插入已定义的图块或被当成图块的外部磁盘文件，在插入时可根据需要改变图形的比例系数和旋转角度。4．图块的属性

属性是从属于图块的非图形信息，它是图块的一个组成部分，是图块的文本或参数说明。属性不能独立存在，也不能独立使用，只有在图块插入时，属性才会出现。5.属性的定义(Attdef)完成了属性定义后，接下来的工作就是创建带属性的块了。下面以建立带属性的表面粗糙度符号图块为例，介绍操作步骤：1）绘制表面粗糙度符号。2）用Attdef命令定义图块的属性，3）用Block命令定义图块

5.1.9尺寸标注1．尺寸标注概述(1)尺寸标注的组成要素尺寸标注的组成要素与工程图绘制的标准类似，是由尺寸界线、尺寸线、箭头和标注文字构成。(2)尺寸标注的系统变量

AutoCAD约有60多个用于尺寸标注的系统变量，这些变量大都以DIM…的形式开头。它们用于确定尺寸界线超出尺寸的距离、设置标注类型、设置箭头大小、设置标注文字高度等(3)尺寸标注菜单及其工具栏(4)尺寸标注类型

AutoCAD提供了多种尺寸标注类型，它们是：线性标注、对齐标注、基线标注、连续标注、角度标注、半径标注、直径标注、坐标标注、引线标注、圆心标记、快速标注和公差标注。2．尺寸标注的样式设置

在尺寸标注前，一般先要对标注样式进行设置，用于控制尺寸界线、尺寸线、箭头和标注文字的格式。标注样式管理器对话框(1)修改标注样式修改标注样式对话框3．长度尺寸标注

长度尺寸标注的方法有：线性标注（包括水平尺寸、垂直尺寸和旋转尺寸）、对齐标注、基线标注和连续标注。

(1)线性标注（Dimlinear）(2)对齐标注（Dimaligned）(3)基线标注（Dimbaseline）(4)连续标注（Dimcontinue）4．角度尺寸标注（Dimangular）

用于标注两条直线之间的夹角、圆弧的弧度或三点之间的角度。5．直径和半径尺寸标注6.形位公差标注

AutoCAD提供Tolerance命令供用户标注形位公差启动Tolerance命令后，AutoCAD将弹出“形位公差”对话框，如图所示。在该对话框中，有符号、公差1、公差2等选项，下面介绍这些选项的含义：(1)符号：设置形位公差类型符号(2)公差1：设置形位公差1的有关参数(3)基准1、基准2、基准3：设置基准的有关参数

§5.2交互式绘制工程图例1：绘制如下零件图：例2：试绘制如图5.70所示的轴承座的三视图。

具体操作步骤如下：

1．绘制图形前的准备工作

2．绘制图形(1)布置各视图的位置

(2)绘制主视图(3)绘制俯视图

(4)绘制侧视图

(5)标注尺寸(6)标注表面粗糙度§5.4参数化绘图程序设计5.4.1利用高级语言实现参数化绘图1．命令组文件

AutoCAD允许用户建立一个后缀为.SCR的命令组文件，命令组文件的内容为一组命令，AutoCAD运行这个命令组文件时，可执行预定的命令序列。(1)命令组文件的格式：

下面以绘制矩形图形为例，介绍命令组文件的格式，取命令组文件名为YUAN.SCR。其中下划线_表示空格。LIMITS_0,0_500,400ZOOM_ABASE_70,120LAYER_S_1_LINE_70,120_270,120_270,240_70,240_CLAYER_S_6_DIMDIMTXT_5HOR_70,120_270,120_170,100_200_VER_270,120_270,240_290,180_120_EXIT(2)命令组文件的调用：

可以使用AutoCAD的SCRIPT命令来调用命令组文件

(3)命令组文件中常用的几个命令：a）delay命令：

delay命令用于延时b）RSCRIPT命令：

在命令组文件中加入一条RSCRIPT命令，可直接请求重新运行用SCRIPT命令调用的命令组文件。仍以绘矩形图形为例：

LIMITS_0,0_500,400ZOOM_ABASE_70,120LAYER_S_1_LINE_70,120_270,120_270,240_70,240_CLAYER_S_6_DIMDIMTXT_5HOR_70,120_270,120_170,100_200_VER_270,120_270,240_290,180_120_EXITDELAY_2000ERASE_W_0,0_500,400_RSCRIPT例：编写绘制如下图所示图形的命令组文件。已知：B=60，D=60，L1=124，L2=200，R=24确定各特征点的坐标如下：P0=200,200P1=170,200P2=170,260P3=100,260P4=100,200P5=112,200P6=164,200P7=230,200P8=230,260编写的命令组文件如下：(yg.scr)LIMITS_0,0_500,400ZOOM_ABASE_200,200LAYER_S_1_LINE_164,200_170,200_170,260_100,260_100,200_112,200_ARC_164,200_E_112,200_A_180MIRROR_W_98,198_172,262__200,198_200,262_NLAYER_S_8_HATCH_U_45_3__W_98,198_303,262_LAYER_S_1_LINE_170,200_230,200_LINE_170,260_230,260_LAYER_S_4_LINE_200,195_200,265_LAYER_S_6_DIMDIMTXT_5HOR_170,260_230,260_200,280_%%C60_HOR_138,200_262,200_200,180_124_HOR_100,200_300,200_200,160_200_VER_300,200_300,260_320,220_60_EXIT所绘零件图如图所示。2.利用高级语言实现参数化绘图

可利用命令组文件实现参数化绘图。将命令组文件中的有关数值用参数表示，用高级语言给命令组文件中的参数赋值。实际上是利用高级语言的写语句，写出SCR文件实现参数化绘图，如图5.88所示。

图5.88利用高级语言实现参数化绘图

仍以绘矩形图形为例：

已知参数：长度L，宽度W，起始点坐标X0，Y0

图5.89

用TurboC语言来编写绘制图5.89所示矩形图形的参数化绘图程序如下(yuan2.c)：#include"stdio.h"#include"string.h"

main(){drawline();return0;}intdrawline(){FILE*fp;floatx0,y0,l,w;printf("Inputx0,y0,l,w:");scanf("%f,%f,%f,%f",&x0,&y0,&l,&w);fp=fopen("yuan2.scr","w");fprintf(fp,"limits0,0500,400\n");fprintf(fp,"zooma\n");fprintf(fp,"layers1\n");fprintf(fp,"line%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2fC\n", x0,y0,x0+l,y0,x0+l,y0+w,x0,y0+w);fprintf(fp,"layers6\n");fprintf(fp,"dim\n");fprintf(fp,"dimtxt5\n");fprintf(fp,"hor%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f\n", x0,y0,x0+l,y0,x0+50,y0-20,l);fprintf(fp,"ver%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f\n", x0+l,y0,x0+l,y0+w,x0+l+20,y0+50,w);fprintf(fp,"EXIT\n");fclose(fp);return0;}例：利用高级语言实现图5.90所示零件图的参数化绘图：TurboC语言编程如下(yuan3.c)：图5.90#include"stdio.h“#include"string.h“main(){drawpart()return0;}intdrawpart(){FILE*fp;floatx0,y0,l1,d1,d2,r1,r2;printf("Inputx0,y0,l1,d1,d2:");scanf("%f,%f,%f,%f,%f",&x0,&y0,&l1,&d1,&d2);r1=d1/2.0;r2=d2/2.0;fp=fopen("yuan3.scr","w");fprintf(fp,"limits0,0500,400\n");fprintf(fp,"zooma\n");fprintf(fp,"layers1\n");fprintf(fp,"line%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2f\n",x0,y0+r1,x0,y0-r2+2,x0+2,y0-r2,x0+l1-2,y0-r2,x0+l1,y0-r2+2,x0+l1,y0+r1);fprintf(fp,"line%.2f,%.2f%.2f,%.2f\n",x0+2,y0-r2,x0+2,y0);fprintf(fp,"line%.2f,%.2f%.2f,%.2f\n",x0+l1-2,y0-r2,x0+l1-2,y0);fprintf(fp,"line%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f,%.2fC\n",x0,y0+r1,x0+l1,y0+r1,x0+l1,y0+r2-2,x0+l1-2,y0+r2,x0+2,y0+r2,x0,y0+r2-2);

fprintf(fp,"layers8\n");fprintf(fp,"HATCHU454w%.2f,%.2f%.2f,%.2f\n",x0-5,y0+5,x0+l1+5,y0+r2+5);fprintf(fp,"layers4\n");fprintf(fp,"line%.2f,%.2f%.2f,%.2f\n",x0-5,y0,x0+l1+5,y0);fprintf(fp,"layers6\n");fprintf(fp,"dim\n");fprintf(fp,"dimtxt5\n");fprintf(fp,"hor%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f\n",x0,y0-r2+2,x0+l1,y0-r2+2,x0+30,y0-r2-20,l1);fprintf(fp,"ver%.2f,%.2f%.2f,%.2f%.2f,%.2f%.2f\n",x0+l1-2,y0-r2,x0+l1-2,y0+r2,x0+l1+20,y0+30,d2);fprintf(fp,"EXIT\n");fclose(fp);return0;}5.4.2利用AutoLISP语言实现参数化绘图：

先介绍5.3节AutoLISP语言简介

AutoLISP是AutoCAD的内部编程语言，利用它实现参数化绘图有如下好处：

（1）不退出AutoCAD，程序可直接在AutoCAD的图形编辑状态下运行。

（2）输入数据方便。当需要输入一个点时，既可直接键入点的坐标，也可用光标给出位置，还可以利用AutoCAD的捕捉功能捕捉已有实体上的特殊点。

（3）便于AutoCAD的菜单管理，参数化绘图程序可在AutoCAD的菜单中调用。

在机械制图中，由于很多零、部件的形状是相似的，因此它们的二维视图也是相似的。例如键、销、螺钉、螺母、滚动轴承、齿轮等。绘制这类零件的视图都可以采用参数化编程方式，即编写带形参的AutoLISP绘图程序，用户在调用程序时，只需向程序提供所要求的参数，程序就能自动绘出相应的零件图。

下面的AutoLISP程序为绘制如图5.91a所示零件样图的参数化绘图程序。这类零件的几何参数有5个（d1、d2、d3、h1、h2），取中心线与零件底线的交点（x0,y0）为绘图基点。程序中“0”图层为粗实线，“2”图层为细实线，“4”图层为中心线。

图5.91a带参数的样图图5.91b零件图(defunpart1(x0y0)(setqd1(getint"\nEnterdiameterd1:")d2(getint"\nEnterdiameterd2:")d3(getint"\nEnterdiameterd3:")h1(getint"\nEnterlengthh1:")h2(getint"\nEnterlengthh2:"))(setqr1(/d12.0)r2(/d22.0)r3(/d32.0))(command"limits"(list00)(list(+x0r350)(+y0h260)))(command"zoom""a")(command"layer""s""0""")(command"line"(list(-x0r1)y0)(list(-x0r1)(+y0h2))(list(-x0r3)(+y0h2))(list(-x0r3)(+y0h1))(list(-x0r2)(+y0h1))(list(-x0r2)y0)"c")(command"mirror""w"(listx0(-y05))(list(-x0r35)(+y0h25))""(listx0y0)(listx0(+y0h2))"n")(command"layer""s""2""")(command"hatch""u""45""4""n""w"(list(-x0r35)(-y05))(list(+x0r35)(+y0h25))"")

(command"layer""s""0""")(command"line"(list(-x0r1)y0)(list(+x0r1)y0)"")(command"line"(list(-x0r1)(+y0h2))(list(+x0r1)(+y0h2))"")(command"layer""s""4""")(command"line"(listx0(-y05))(listx0(+y0h25))"")(command"layer""s""2""")(setqd1(itoad1)d2(itoad2)d3(itoad3))(setqd1(strcat"%%C"d1)d2(strcat"%%C"d2)d3(strcat"%%C"d3))(command"dim")(command"hor"(list(-x0r1)y0)(list(+x0r1)y0)(listx0(-y015))d1)(command"hor"(list(-x0r2)y0)(list(+x0r2)y0)(listx0(-y025))d2)(command"hor"(list(-x0r3)(+y0h2))(list(+x0r3)(+y0h2))(listx0(+y0h210))d3)(command"ver"(list(+x0r2)y0)(list(+x0r3)(+y0h1))(list(+x0r310)(+y05))h1)(command"ver"(list(+x0r2)y0)(list(+x0r3)(+y0h2))(list(+x0r320)(+y05))h2)(command"exit"))

用文本编辑程序将上述AutoLISP程序存放在一个文件上，文件的扩展名为“.lsp”，假定该文件为“part.lsp”。在AutoCAD的图形编辑状态下，用以下格式调入这个lsp文件，其执行绘图过程如下:Command:(load“part.lsp”)Command:(part14040)↙Enterdiameterd1:100↙Enterdiameterd2:160↙Enterdiameterd3:300↙Enterlengthh1:180↙Enterlengthh2:260↙则所绘制的零件图如图5.91b所示。§5.5形状特征拼合法绘制工程图

一张工程图，可看作是由一系列图形单元所组成。在绘制工程图时，可由这些图元用拼积木的方式组合起来，图元形状特征拼合法就是用一些形状特征拼合工程图。图元形状特征可按专业绘图的需要划分，它可以是简单的图形，也可以是零件、构件甚至是部件总成。例如图5.92(a)所示的螺栓联接，其联接件可由图5.92(b)中的图元形状特征组合而成，这些图元形状特征中就包含了光垫圈、弹性垫圈和螺母三个零件。图5.92螺栓联接与组成螺纹联接件的基本形体

图元形状特征拼合法特别适用于形状结构多变的机械零件图和装配图的绘制。如图5.93所示，如果将传动轴分解为一些图元形状特征，并对每个图元形状特征命名，用户在绘制传动轴零件图时，就可以调用这些图元形状特征进行拼合，从而提高绘图效率，而且可使用户将主要精力从繁杂的画线工作转移到零件的结构设计上。

可将传动轴分解为八个图元形状特征，如图5.93所示，他们分别为倒角、开口矩形轴段、退刀槽、矩形轴段、带圆角轴段、带螺纹轴段、带键槽的轴截面和键槽。对这些图元形状特征可用AutoLISP编程，即对每个图元形状特征均可定义为AutoCAD的一个命令.

图5.93传动轴及其形状特征

图5.94传动轴形状特征名称及参数图5.94列出了传动轴对应的八个图元形状特征的名称及参数，其中参数：P0为基点，d为直径，b为轴段宽或退刀槽宽或键槽宽，c为倒角宽，t为键槽处轴径或键槽长。另外用alf表示旋转角。

(1)绘制倒角命令feature1(defunc:feature1()(setqP0(getpoint"\n插入点：")alf(getangle"\n旋转角：")d(getint"\n轴径：")c(getint"\n倒角宽："))(setqpt1(polarP0(+(*0.5pi)alf)(-(*0.5d)c))pt2(polarpt1(+(*0.25pi)alf)(*1.414c))pt3(po