用AutoLISP程序提高绘图效率的几个实例.pdf

科技广场2007.12

用AutoLISP程序提高绘图效率的几个实例
ExamplesoftheDrawingEfficiencyIncreasebytheUseofAutoLISP

张雪娥
ZhangXuee
（江西财经大学电子学院,江西南昌330013）
(SchoolofElectronics,JiangxiUniversityofFinanceandEconomics，JiangxiNanchang330013)

摘要:AutoLISP是AutoCAD内置的编程语言，具有其强大的开发功能，运用AutoLISP编写程序可以方便快捷的绘制一
些简单的平面图形，还可以绘制例如三维螺旋线这样的复杂三维图形。通过几个实例程序应用，提高图形绘制中的工作效
率。
关键字:AotuLISP;AutoCAD;实例;平面图形;三维螺旋线
中图分类号：TP311.56文献标识码：A文章编号：1671-4792-(2007)12-0254-03

Autodesk公司的AutoCAD是目前PC平台上最流行的通用

型计算机辅助设计系统。为了便于用户在其基础上作二次开

发，形成一个专业化的计算机辅助设计系统，Autodesk公司

在AutoCAD中内嵌AutoLISP语言，作为AutoCAD的内部编程

语言，从而增强了AutoCAD强大的开发平台。使用AutoCAD

软件进行辅助设计时，能运用AutoLISP语言编制一些实用的

编程，可以大大提高绘图的效率。下面介绍应用AutoLISP语
图一
言提高绘图效率的几个应用实例。
(setqb(getreal"\n输入尺边的厚度："))
1应用实例
(setqa(getdistpt1"\n输入尺边的长度："))
1.1简单平面图形的绘制
(setqpt2(polarpt10.0a))
对于如图一所示的直角图形（AB＝AF，BC＝FE，CD＝
(setqpt3(polarpt2(/pi2.0)b))
ED），如果用line命令绘图，至少要重复5次，还要每次输
(setqpt4(polarpt3pi(-ab)))
入所画线段的长度，用AutoLISP编程可以一次成型。程序编
(setqpt5(polarpt4(/pi2.0)(-ab)))
制基本思路是:首先获得左下角A点的坐标，通过键盘输入
(setqpt6(polarpt5pib))
得到直角尺厚度b和长度a，然后计算出BCDEF点的坐标，最
(command"pline"pt1pt2pt3pt4pt5pt6"c")
后利用Pline命令一次将各点连接起来。
)
程序清单如下:
运用此程序只要选取一点，输入两个参数值就可以自动
(defunc:angl2(/pt1pt2pt3pt4len)
画出图形。
(setqpt1(getpoint"选取左下角的点(或输入其坐
1.2绘制三维螺旋线
标值)："))

254
工程中经常要绘制各种弹簧和螺纹连接件，在AutoCAD(cond((nulln)(setqn36)))
中没有专门绘制弹簧和螺纹的命令，弹簧和螺纹在AutoCAD(setqdelta(/(*2.0pi)n))用

中都可用平面图形通过相应螺旋线拉伸而成，所以绘制螺旋(setqj(/dispn))AutoLISP

线就是解决问题的关键。如果用常规的3dpoly命令绘制三维(setqbb(caddrb1))

螺旋线，需要输入大量精确数据，才能一点一点地画出螺旋(setqtg(*(/angtg180)pi))
程序提高绘图效率的几个实例
线，做法非常麻烦。现在提供AutoLISP程序，即可解决绘制(setqang0)

螺旋线的问题。然后通过相应平面图形的拉伸，就可以完成(setqk0)

弹簧、螺纹等零件的绘制。(command"ucs""o"b1)

根据圆台螺旋线的形成原理（一动点M绕圆台的母线AB(command"3dpoly"(listr100))

作等速直线运动，而该母线AB又绕圆台的轴线O1O2作等角(repeat(*mn)

速旋转时，点M的运动轨迹即为圆台的螺旋线，如图二所示。(setqk(+k1))

圆柱螺旋线是圆台螺旋线的特例，故可通过圆台螺旋线程序(setqang(+deltaang))

做相应的变动，即可得到），动点M（x，y，z）的参数方程(setqr(-r1(*(+0(*jk))(/(sintg)(cos

如下:tg)))))

(setqpt2(list(*r(cosang))(*r(sinang))(+0

(*jk))))

(commandpt2)

)

(command"")

)

图二园台螺旋线根据圆台螺旋线的形成原理，如果圆锥角为0度时，即

X=[r0+hg*α/(2