计算机绘图第12讲.ppt

第12章 Auto Lisp语言及程序设计 Auto LISP是一种嵌入在Auto CAD内部的LISP编程语言。它是配备有ADE-3的Auto CAD2.1x版本中“变量与表达式”功能的扩展。Auto LISP可以让用户和Auto CAD开发者以非常强大的高级语言编写出宏语言程序和函数，它非常适合于图形的应用。LISP很易于学习和使用，它也非常灵活多变。 请注意：并不一定必须要学会使用Auto LISP才能有效地应用Auto CAD；如果你没有计算机编程方面的经验，你只要调用Auto LISP和Auto CAD菜单和应用程序。来完成你的计算。如果你已能非常熟练地编程，你应该阅读完本章内容，学会使用Auto LISP，将这个通用的Auto CAD绘图软件包转变为能适合于特殊应用的功能，使之成为更强大的绘图工具。 12.1 Auto Lisp语言 12.1.1 计算类表 Auto LISP是一种表结构语言,它的每一个”语句”都是一个表” (……)”,下面介绍常用的一些表。关于Auto LISP完整的资料见附录B。 (1)（＋ 数 数…） 这个函数返回所有数的总和。其中的数可以是整型的，也可以是实型的。例如： （＋ 1 2） 返回 3 （＋ 1 2 3 4.5）返回 10.500000 (2)（－ 数 数…） 这个函数把第一个数减去第二个数，返回它们的差。例如： （－50 40 ） 返回 10 （－50 40.02 ） 返回 8.000000 (3)（* 数 数…） 这个函数返回所有数的乘积。例如： （* 2 3 ） 返回 6 （* 2 3 4.0 ） 返回 24.000000 (4)（/ 数 数…） 这个函数将第一个数除以第二个数，返回其商。如果给出的数多于两个，则把第一个数除以其它所有数的乘积，并返回最后的商。例如： （\ 100 2） 返回 50 （\ 100 2.0） 返回 50.000000 (5)（max 数 数…） 这个函数返回所给数的最大值。每一个数必须是实数或整数。例如： （max 4.07-144） 返回4.070000 （max －88 19 5 2）返回19 (6)（min数 数…） 这个函数返回所给数中的最小值。每一个数可以是实型或整型。例如： （min 683-10.0） 返回-10.000000 （min 73 2 48 5）返回2 (7)（1＋ 数 ） 这个函数返回数加一的结果。数可以是实型数或整型数。例如： （1＋ 5 ） 返回6 （1＋ －17.5 ） 返回－16.500000 (8)（1－ 数 ） 这个函数返回数减一的结果。其中的数可以是实型数或整型数。例如： （1－ 5 ） 返回4 （1－ －17.5 ） 返回－18.500000 (9)（abs 数 ） 这个函数返回数的绝对值。其中的数可以是实型的或整型的。例如： （abs 100 ） 返回100 （abs －100 ） 返回100 （abs －99.25 ） 返回99.250000 (10)（COS 角度） 这个函数返回角度的余弦值，这里的角度以弧度表示。例如： （COS 0.0） 返回 1.000000 （COS pi） 返回－1.000000 (11) (sin 角) 这个函数返回角的正弦值；其中角以弧度表示。例如： (sin 1.0) 返回0.841471 (sin 0.0) 返回0.000000 (12)(sqrt 数) 这个函数返回数的平方根的实数结果。例如： (sqrt 4) 返回2.000000 (sqrt 2.0) 返回1.414214 (13)（exp 数） 这个函数返回e的数次方（自然对数）。它返回的结果是实数。例如： （exp 1.0） 返回 2.718282 （exp 2.2） 返回 9.025013 (14)（expt 底数 幂） 这个函数返回底数的幂次方。如果两个变元都是整数，其结果也是整数；否则，结果为实数。例如： （expt 2 4） 返回 16 （expt 3.0 2.0）返回 9.000000 (15)（log 数） 这个函数返回数的自然对数。其结果是实数。例如： (log 4.5 ) 返回 1.504077 (log 1.22 ) 返回 0.108850 12.1.2 判断类表 (1)（＝ 数 数…） 这是一个“等于”关系函数。如果其