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

AutoLISP是AutoCAD内置的编程语言,具有其强大的开发功能,运用AutoLISP编写程序可以方便快捷的绘制一些简单的平面图形,还可以绘制例如三维螺旋线这样的复杂三维图形。通过几个实例程序应用,提高图形绘制中的工作效率。

维普资讯 http://www.77cn.com.cn

E a p e f h r wi 9 E f c e c I c e s y h s f A t L S x m l s o t e D a n f i i n y n r a e b t e U e o u o I P张雪娥Zh ng ue a X e

(西财经大学电子学院，江西南昌 3 0 1 )江 3 0 3(c o lo lc r n c,J a g i U i es t f F n n e a d E o o i s S h o f E e t o i s in x n v r i y o ia c n c n m c,

摘率。

要： u o IP A tC D内置的编程语言，具有其强大的开发功能，运用 A t LS编写程序可以方便快捷的绘制一 A t LS是 u o A uo I P

些简单的平面图形，还可以绘制例如三维螺旋线这样的复杂三维图形。通过几个实例程序应用，提高图形绘制中的工作效关键字： o u IP: uo A A t LS A tC D:实例：面图形：三维螺旋线平中图分类号：T 3 .6 P 1 5 1文献标识码：A 文章编号：1 7— 7 2 (0 7 1— 2 4 3 6 1 4 9一 2 0 ) 2 0 5—0

A t d s公司的A t C D uo e k uo A是目前P平台上最流行的通用 c型计算机辅助设计系统。了便于用户在其基础上作二次开为发，形成一个专业化的计算机辅助设计系统，A t d s公司 uo e k在 A t CD中内嵌 A t LS语言，作为 A tC D uoA u o IP uo A的内部编程语言，从而增强了 A t C D uo A强大的开发平台。使用 A t C D uoA

软件进行辅助设计时，能运用A t LS语言编制一些实用的 uo IP编程，可以大大提高绘图的效率。下面介绍应用 A t LS语 uo IP言提高绘图效率的几个应用实例。1应用实例图一

(e q b gt e l n输入尺边的厚度：”) s t (e r a” ) 1 1简单平面图形的绘制 . (e q a g t it p l” n s t (e d s t 输入尺边的长度：”) )(e q p 2 p lr p l0 0 a ) s t t (o a t . )

对于如图一所示的直角图形 ( B=A,B A F C=F,C E D=

E) D,如果用 1n命令绘图，至少要重复 5 e i次，还要每次输入所画线段的长度，用 A tL S编程可以一次成型。程序编 u o IP

(e q p 3 p l r p 2/ p

.)) s t t (oa t ( i 2 0 b )(e q p 4 p lr p 3 p ( ) ) s t t (o a t i _ b ) .a

制基本思路是：首先获得左下角 A点的坐标，通过键盘输入得到直角尺厚度 b和长度 a,然后计算出B DF C E点的坐标，最后利用 P i e l n命令一次将各点连接起来。

(e q p 5 p l r p 4/ p .)一 a b ) s t t (oa t ( i 2 0 ( ) )(e q p 6 p lr p 5 p ) s t t (o a t i b ) (o m n”l n”p lp 2 p 3 p 4 p 5 p 6”” c m a dp ie t t t t t t C ) )/

程序清单如下：(e u:n l ( p lp 2 p 3 p 4 l n d f n C a g 2/ t t t t e )

运用此程序只要选取一点，输入两个参数值就可以自动画出图形。

(e q p (e p i t” s t t g t o n选取左下角的点 ( l或输入其坐标值 )”): )

1 2绘制三维螺旋线 .

http://www.77cn.com.cn