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

《用autolisp程序提高绘图效率的几个实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、科技广场2007.12用AutoLISP程序提高绘图效率的几个实例ExamplesoftheDrawingEfficiencyIncreasebytheUseofAutoLISP张雪娥ZhangXuee（江西财经大学电子学院,江西南昌330013）(SchoolofElectronics,JiangxiUniversityofFinanceandEconomics，JiangxiNanchang330013)摘要:AutoLISP是AutoCAD内置的编程语言，具有其强大的开发功能，运用AutoLISP编写程序可以方便快捷的绘制一些简单的

2、平面图形，还可以绘制例如三维螺旋线这样的复杂三维图形。通过几个实例程序应用，提高图形绘制中的工作效率。关键字:AotuLISP;AutoCAD;实例;平面图形;三维螺旋线中图分类号：TP311.56文献标识码：A文章编号：1671-4792-(2007)12-0254-03Autodesk公司的AutoCAD是目前PC平台上最流行的通用型计算机辅助设计系统。为了便于用户在其基础上作二次开发，形成一个专业化的计算机辅助设计系统，Autodesk公司在AutoCAD中内嵌AutoLISP语言，作为AutoCAD的内部编程语言，从而增强了Aut

3、oCAD强大的开发平台。使用AutoCAD软件进行辅助设计时，能运用AutoLISP语言编制一些实用的编程，可以大大提高绘图的效率。下面介绍应用AutoLISP语图一言提高绘图效率的几个应用实例。(setqb(getreal"输入尺边的厚度："))1应用实例(setqa(getdistpt1"输入尺边的长度："))1.1简单平面图形的绘制(setqpt2(polarpt10.0a))对于如图一所示的直角图形（AB＝AF，BC＝FE，CD＝(setqpt3(polarpt2(/pi2.0)b))ED），如果用line命令绘图，至少要

4、重复5次，还要每次输(setqpt4(polarpt3pi(-ab)))入所画线段的长度，用AutoLISP编程可以一次成型。程序编(setqpt5(polarpt4(/pi2.0)(-ab)))制基本思路是:首先获得左下角A点的坐标，通过键盘输入(setqpt6(polarpt5pib))得到直角尺厚度b和长度a，然后计算出BCDEF点的坐标，最(command"pline"pt1pt2pt3pt4pt5pt6"c")后利用Pline命令一次将各点连接起来。)程序清单如下:运用此程序只要选取一点，输入两个参数值就可以自动(defunc:

5、angl2(/pt1pt2pt3pt4len)画出图形。(setqpt1(getpoint"选取左下角的点(或输入其坐1.2绘制三维螺旋线标值)："))254工程中经常要绘制各种弹簧和螺纹连接件，在AutoCAD(cond((nulln)(setqn36)))中没有专门绘制弹簧和螺纹的命令，弹簧和螺纹在AutoCAD(setqdelta(/(*2.0pi)n))用AutoLISP中都可用平面图形通过相应螺旋线拉伸而成，所以绘制螺旋(setqj(/dispn))线就是解决问题的关键。如果用常规的3dpoly命令绘制三维(setqbb(cad

6、drb1))螺旋线，需要输入大量精确数据，才能一点一点地画出螺旋(setqtg(*(/angtg180)pi))程序提高绘图效率的几个实例线，做法非常麻烦。现在提供AutoLISP程序，即可解决绘制(setqang0)螺旋线的问题。然后通过相应平面图形的拉伸，就可以完成(setqk0)弹簧、螺纹等零件的绘制。(command"ucs""o"b1)根据圆台螺旋线的形成原理（一动点M绕圆台的母线AB(command"3dpoly"(listr100))作等速直线运动，而该母线AB又绕圆台的轴线O1O2作等角(repeat(*mn)速旋转时，点

7、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π)]*

8、cosα可形成圆柱螺旋线。圆柱螺旋线程序清单如下:Y=[r0+hg*α/(2π)]*sinα(defunc:luoxc(/)Z=±vg*α/(2π)(setqb1(getpoint"指定基点：