《Auto_CAD自动绘图》ppt课件

1、Auto CAD自动绘图一、绘制五角星建立新命令wjx作图步骤 计算顶点的角度 计算顶点的坐标 以lisp的表来表示顶点坐标 按p1p3p5p2p4p1顺序绘制直线 显示全部图形defun c:wjx setq r 1 da / * 2 pi 5a1 / pi 2a2 + a1 daa3 + a2 daa4 + a3 daa5 + a4 dax1 * r cos a1 y1 * r sin a1x2 * r cos a2 y2 * r sin a2x3 * r cos a3 y3 * r sin a3x4 * r cos a4 y4 * r sin a4x5 * r cos a5 y5 * r

2、 sin a5p1 list x1 y1p2 list x2 y2p3 list x3 y3p4 list x4 y4p5 list x5 y5 command LINE p1 p3 p5 p2 p4 p1 ZOOM E 程序程序相关函数介绍defunsetq+ */sincoslistcommand自定义函数DEFUN 格式：DEFUN name A1 A2 AL / V1 V2 VM e1 e2 en 上表中第0个元素DEFUN是自定义函数的函数名，第1个元素name是符号变量，为自定义函数所定义的用户函数的名称。用户函数名称后是用户函数的变量表，变量表后面是函数定义体，决定了函数name

3、的功能和返回值。函数name的返回值是en的计算结果。新建AutoCAD命令用DEFUN函数可以建立新的AutoCAD命令对DEFUN函数有二点限制:用户函数名前添加C: 用户函数不带函数变量例defun c:add10 + getint “X= 10调用:Command: add10X=515SETQ函数 格式： SETQ v1 e1 v2 e2 vn en 其功能是将ei的计算值赋予变量vi，函数返回值为en的计算值。注：方括号部分是可选项，以下同。 例：SETQ x 1 y + 1 2 将常数1的计算值1赋予变量x，LISP表达式+ 1 2的计算值3赋予变量y，函数返回值为3。 SIN函

4、数 格式:SIN n 功能是求函数变量n的正弦值 函数返回n的正弦值。变量n的单位为弧度。 例 SIN / PI 2的返回值为1.0，式中PI为LISP符号变量，表示圆周率值。COS函数 格式:COS n 功能是求函数变量n的余弦值，函数返回n的余弦值。变量n的单位为弧度。 用法与SIN函数一样。LIST函数格式：LIST e1 e2 en功能是把e1、e2、en的计算值组成一个表。函数返回表如LIST 1 + 1 2 “A返回表1 3 “A。COMMAND函数格式：COMMAND e1 e2 en功能：在AutoLISP程序中执行AutoCAD命令。由于存在COMMAND函数，LISP程序可

5、以调用几乎所有的AutoCAD命令。Auto CAD自动绘图2 、绘制粗糙度符号建立新命令czd各点的坐标：P00,0P10,-2P2P3作图步骤 计算顶点的角度 计算顶点的坐标 以lisp的表来表示顶点坐标 按p1p3p5p2p4p1顺序绘制直线 显示全部图形作图步骤 计算各点的坐标 绘制圆 绘制短直线 绘制长直线 显示全部图形defun c:czd setq p0 list 0 0p1 polar p0 / pi -2 2p2 polar p1 * 2 / pi 3 * 2 sqrt 3p3 polar p1 / pi 3 * 4 sqrt 3 command CIRCLE p0 1 LINE p1 p2 LINE p1 p3 ZOOM E 程序程序相关函数介绍defunsetq+ */listcommandsqrtpolarSQRT函数 格式 SQRT n 功能求 平方根 函数返回n的平方根 Examples sqrt 4 2.0 sqrt 2.0 1.41421POLAR函数 格式 PO