AUTO LISP函数参考

AUTO LISP函数参考1(10版本)

以下为十年前纯手工录入的函数参考手册,以分享给爱好LISP这方面的朋友参考!

AutoLISP提供了大量的预定义函数。若将函数名（大小写都可）作为表中的第一个元素函数变元（若有的话）作为表中后面的元素，就可以调用那个函数。本章按字母顺序列出AutoLISP所有基本函数。用户会发现其中许多函数都是标准函数，可在LISP程序设计语言中找到。还有一些函数是由 AutoCAD提供的且专用于交互图形环境。

1 FLATLAND 系统变量－－与老版本的兼容性

AutoLISP版本10支持AutoCAD的最新增强型三维图形功能，则时继续保证与AutoCAD

老版本的兼容性。FLATLAND系统变量就是用来控制该兼容性的。当FLATLAND为零时，实

现新三维功能；否则各函数操作与AutoLISP版本9的一样。FLATLANDR的设置作用于下列

AutoLISP函数：

DISTANCE GRREAD POLAR

ENTGET INITGET TBLNEXT

GETDIST INTERS TBLSEARCH

GETPOINT OSNAP

在各函数说明中，已注明FLATLAND对上述函数起作用的方式。

2 ( + <数> <数> ...)

这个函数返回所有<数>的总和。其中的<数>可以是整型或实型的。如果所有的<数>

都是整数，其结果也是整数；如果其中有一个是实型的，那么其它整型数将转换为实型

数结果将是实型数。例如：

(+ 1 2) returns 3

(+ 1 2 3 4.5) returns 10.5

(+ 1 2 3 4.0) returns 10.0

3 ( - <数> <数> ...)

这个函数把第一个<数>减去第二个<数>，返回它们的差。如果给定的<数>多于两个，

那么将第一个<数>减去其后所有数之和，并返回最后的结果。如果只给了一个<数>,即返

回零减这个<数>的结果。此函数中的<数>可以是实型或整型，按标准规则进行类型转换。

例如：

(- 50 40) returns 10

(- 50 40.0 2) returns 8.0

(- 50 40.0 2.5) returns 7.5

(- 8) returns -8

4 (* <数> <数>...)

这个函数返回所有<数>的乘积.其中<数>可以是实型或整型.按标准规则进行类型转换

例如:

(* 2 3) returns 6

(* 2 3 4.0) returns 24.0

(* 3 -4.5) returns -13.5

5 (/ <数> <数>...)

这个函数将第一个<数>除以第二个<数>,返回其商.如果给出的<数>多于两个,则把第

一个<数>除以其它所有<数>的乘积,并返回最后的商.此函数中的<数>可以是实型或整型,

类型的转换按标准规则进行.例如:

(/ 100 2) returns 50

(/ 100 2.0) returns 50.0

(/ 100 20.0 2) returns 2.5

(/ 135 360) returns 0

(/ 135 360.0) returns 0.375

6 (= <原子> <原子>...)

这是"等于"关系函数.如果所有指定的<原子>在数值上是相等的,则返回T;

否则返回

空(nil).这个函数适用于数和字符串.例如:

(= 4 4.0) returns T

(= 20 388) returns nil

(= 2.4 2.4 2.4) returns T

(= 499 499 500) returns nil

(= "me" "me") returns T

(= "me" "you") returns nil

7 (/= <原子1> <原子2>...)

这是一个"不等于"关系函数.如果<原子1>数值上不等于<原子2>,则返回T;否则返回

nil.如果提供的<变元>多于两个,则函数无定义.例如:

(/= 10 20) returns T

(/= "you" "you") returns nil

(/= 5.43 5.44) returns T

8 (< <原子> <原子>...)

这是一个"小于"关系函数.如果第一个<原子>值小于第二个,则返回T;否则

返回nil.

如果所给的<原子>多于两个,那么当每个<原子>都小于其右边的<原子>时,则返回T.

例如:

(< 10 20) returns T

(< "b" "c") returns T

(< 357 33.2) returns nil

(< 2 3 88) returns T

(< 2 3 4 4) returns nil

9 (<= <原子> <原子>...)

这是一个"小于或等于"关系函数.如果第一个<原子>值大于或等于第二个原子,则返

回T;否则返回nil.如果所给的<原子>多于两个,则当每一个<原子>都小于或等于其右边

的<原子>时,才返回T.例如:

(<= 10 20) returns T

(<= "b" "b") returns T

(<= 357 33.2) returns nil

(<= 2 9 9) returns T

(<= 2 9 4 5) returns nil

10 (> <原子> <原子>...)

这是一个"大于"关系函数.如果第一个<原子>值大于第二个,则返回T;否则返回nil.

若所给定的<原子>多于两个,当每个<原子>都大于其右边的<原子>时,则返回T. 例如:

(> 120 17) returns T

(> "c" "b") returns T

(> 3.5 1792) returns nil

(> 77 4 2) returns T

(> 77 4 4) returns nil

11 (>= <原子> <原子>...)

这是一个"大于或等于"关系函数.如果第一个<原子>值大于或等于第二个,则返回T;

否则返回nil.如果给出的<原子>多于两个,当每一个<原子>都大于或等于其右边的<原子>

时才返回T. 例如:

(>= 120 17) returns T

(>= "c" "c") returns T

(>= 3.5 1792) returns nil

(>= 77 4 4) returns T

(>= 77 4 9) returns nil

12 (~ <数>)

这个函数返回<数>的按位非(NOT),即补码.<数>必须为整数.例如:

(~ 3) returns -4

(~ 100) returns -101

(~ -4) returns 3

13 (1+ <数>)

这个函数返回<数>加1(增量)的结果. <数>可以是实数或整数. 例如:

(1+ 5) returns 6

(1+ -17.5) returns -16.5

14 (1- <数>)

这个函数返回<数>加1(增量)的结果. <数>可以是实型或整型数. 例如:

(1- 5) returns 4

(1- -17.5) returns -18.5

15 (abs <数>)

这个函数返回<数>的绝对值. <数>可以是实型数或整型的. 例如:

(abs 100) returns 100

(abs -100) returns 100

(abs -99.25) returns 99.25

16 (and <表达式>...)

这个函数返回所列出的表达式的逻辑"与"(AND). 如果其中任何一个表达式的结果等

于nil,则停止求值并返回;否则返回T. 例如,对于下面给定的赋值:

(setq a 103)

(setq b nil)

(setq c "string")

那么

(and 1.4 a c) returns T

(and 1.4 a b c) returns nil

17 (angle <点1> <点2>)

这个函数返回从UCS坐标系统点到UCS坐标系统的一直线的角度,该角度从

当前作图平面的X轴开始反时针方向计算(以弧度为单位). 如果提供了三维点,则将其投

影至当前作图平面. 例如:

(angle '(1.0 1.0) '(1.0 4.0)) return 1.5708

(angle '(5.0 1.33) '(2.4 1.33)) return 3.14159

18 (angtos <角> [ <方式> [ <精度> ] ] )

这个函数处理<角>(实型数,单位为弧度),返回一个对应于<角>的字符串.该字符串是

根据所设置的<方式>、<精度>及AutoCAD DIMZIN变量,对<角>编辑后所得. 其中<方式>变

元是一个整型数,它指示完成什么类型的编辑,如下所示:

ANGTOS方式编辑格式

-----------------------------------------

0 度

1 度/分/秒

2 梯度

3 弧度

4 测地单位

其中<精度>变元是一个整型数,它选择所需要的十进制精度的小数位数. <方式>和<精度>

与AutoCAD系统变量AUNITS和AUPREC相对应,如果没有指明<方式>和<精度>,则使用AUNITS

和AUPREC的当前值.

例如,已知DIMZIN=0和下面的赋值:

(setq pt1 '(5.0 1.33))

(setq pt2 '(2.4 1.33))

(setq a (angle pt1 pt2))

那么,

(angtos a 0 0) returns "180"

(angtos a 0 4) returns "180.0000"

(angtos a 1 4) returns "180d0'0" "

(angtos a 3 4) returns "3.1416r"

(angtos a 4 2) returns "W"

ANGTOS可接受一负<角>变元,但总是先将其化为相当的正值(在0 ～ 2π弧度间),

然后再执行指定的变换. 例如:

(angtos 0.785398 0 4) returns "45.0000"

(angtos -0.785398 0 4) returns "315.0000"

19 (append <表达式>...)

这个函数将所有的表( <表达式> )放置在一起,作为一个表. 例如:

(append '(a b) '(c d)) returns (a b c d)

(append '((a)(b)) '((c)(d))) returns ((a)(b)(c)(d))

APPEND需要的变元必须是表.

20 (apply <函数> <表>)

它执行由<函数>给定的函数,<表>指定了函数的变元. 例如:

(apply '+ '(1 2 3)) return 6

(apply 'strcat '("a" "b" "c")) return "abc"

APPLY既可用于内部函数(子程序),也可用于用户定义的函数(即那些用DEFUN或者

LAMBDA产生的函数).

21 (ascii <字符串> )

这个函数返回<字符串>中第一个字符的ASCII字符码(整数).它和BASIC语言中的ASC函

数相似. 例如:

(ascii "A") return 65

(ascii "a") return 97

(ascii "BIG") return 66

22 (assoc <项> <关联表> )

这个函数在<关联表中>以<项>作为关键字进行搜索,返回<关联表>中对应元素的值.如

果在关联表中找不到作为关键字的<项>,ASSOC返回nil. 例如,假设表"al"定义为:

(( name box) (width 3) (size 4.7263) (depth 5) )

那么,

(assoc 'size a1) returns (size 4.7263)

(assoc 'weight a1) returns nil

关联表常用于储存数据,这些数据可通过"关键字"存取.它和程序设计语言的数组或结构

相似.本章后面描述的SUBST函数提供了一种方便的方法可把关联表中与关键字关联的值

进行替换.

23 (atan <数1> [<数2>] )

如果没有给出<数2>,ATAN将返回<数1>的反正切值,其单位为弧度.<数1>可以为负值;

返回的角度的范围为:-pi 到 +pi弧度. 例如:

(atan 0.5) returns 0.463648

(atan 1.0) returns 0.785398

(atan -1.0) returns -0.785398

(angtos (atan -1.0) 0 4) returns "315.0000"

如果给出<数1>和<数2>,则返回<数1>/<数2>的反正切值,其单位为弧度.如果<数2>为零,

即返回的角度值为1.570796弧度(90度或-90度),这取决于<数1>是正数还是负数.例如:

(atan 2.0 3.0) returns 0.588003

(angtos (atan 2.0 3.0) 0 4) returns "33.6901"

(atan 2.0 -3.0) returns 2.55359

(angtos (atan 2.0 -3.0) 0 4) returns "146.3099"

(atan -2.0 3.0) returns -0.588003

(atan -2.0 -3.0) returns -2.55359

(atan 1.0 0.0) returns 1.5708

(angtos (atan 1.0 0.0) 0 4) returns "90.0000"

(atan -0.5 0.0) returns -1.5708

(angtos (atan -0.5 0.0) 0 2) returns "270.00"

24 (atof <字符串> )

这个函数将字符串换为实型数. 并返回此值. 例如:

(atof "97.1") returns 97.1

(atof "3") returns 3.0

25 (atoi <字符串> )

这个函数将字符串转换为整数,并返回此值. 例如:

(atoi "97") returns 97

(atoi "3") returns 3

(atoi "3.9") returns 3

26 (atom <项> )

如果<项>是一个表,此函数返回nil;否则返回T. 任何不是表的东西都被认为是一个原

子(atom). 例如,对于以下的赋值:

(setq a '(x y z))

(setq b 'a)

那么,

(atom 'a) returns T

(atom a) returns nil

(atom 'b) returns T

(atom b) returns T

(atom '(a b c)) returns nil

有些LISP对ATOM的解释有差异,因此在使用互相移植的程序时要加以注意.

27 (Boole <函数> <整型1> <整型2> )

这是一个通用的位方式boolean函数.其中是一个0到15之间的整数,它表示16种

可能的双变量Boolean函数中的一种.后面的整型变元根据这个函数和下列的真值表进行

方式(即逻辑)组合:

<整数1> <整数2> 位

-----------------------------------------------------

0 0 8

0 1 4

1 0 2

1 1 1

<整数1>的每一位和<整数2>的相应位配对,选择真值表中的一水平行.其结果位是0或1,

将取决于对应真值表中这一行中位的设置情况.如果中位的设置适当,结果

位就为1,否则结果位为0.

的一些值等效于标准的Boolean操作:AND, OR , XOR和NOT,如下所示:

func 操作结果位为1时的条件

--------------------------------------------------------

1 AND 两个输入位都为1

6 XOR 只有其中一个输入位为1

7 OR 有一个或两个输入位为1

8 NOT 两个输入位都为0(即补码)

例如:

(Boole 1 12 5)

指定了数12和5的逻辑"与"(AND).其结果为4.同样:

(Boole 6 6 5)

指定了数6和5的逻辑"异或"(XOR),返回结果为3

可以使用的其他值来完成其它的Boolean操作,这些操作可能没有标

准名称.例

如,如果为4,那么当<整数2>中的位是1而<整数1>中的相应位是零时,其结果位才为

1. 因此:

(Boole 4 3 14)

将返回结果12.

28 (boundp <原子> )

如果<原子>有一个值约束它(不管值的范围),那么此函数返回T;若没有值约

束<原子>

(或受nil约束),则返回nil. 例如,对于下列赋值:

(setq a 2)

(setq b nil)

那么:

(boundp 'a) returns T

(boundp 'b) returns nil

29 caar, cadr, cddr, cadar等等

AutoLISP支持CAR和CDR的连接,其深度可达四级. 例如,已知赋值:

(setq x '((a b) c d))

那么:

(caar x) is equivalent to (car (car x)) returning a (cdar x) is equivalent to (cdr (car x)) returning (b) (cadar x) is equivalent to (car (cdr (car x))) returning b (cadr x) is equivalent to (car (cdr x)) returning c (cddr x) is equivalent to (cdr (cdr x)) returning (d) (caddr x) is equivalent to (car (cdr (cdr x))) returning d 在AutoLISP中常使用CADR来取得二维点或三维点的Y坐标(即由两个或三个实数组成

的表中第二个元素). 同样,使用CADDR可取得三维点的Z坐标. 例如,已知赋值:

(setq pt2 '(5.25 1.0)) (a 2D point)

(setq pt3 '(5.25 1.0 3.0)) (a 3D point)

那么:

(car pt2) returns 5.25

(cadr pt2) returns 1.0

(caddr pt2) returns nil

(car pt3) returns 5.25

(cadr pt3) returns 1.0

(caddr pt3) returns 3.0

30 (car <表> )

这个函数返回<表>的第一个元素.如果<表>是空的,则返回nil. 例如:

(car '(a b c)) returns a

(car '((a b) c)) returns (a b)

(car '( )) returns nil

31 (cdr <表> )

这个函数返回除<表>中第一个元素以外的所有元素的表. 如果<表>是空的,则返回nil.

例如:

(cdr '(a b c)) returns (b c)

(cdr '((a b) c)) returns (c)

(cdr '()) returns nil

如果<表>变元是一个点对,即一对中间用点隔开的元素表(见下面的CONS),CDR 则返回没

有表括号的第二个元素. 例如:

(cdr '(a . b)) returns b

(cdr '(1 . "TEXT")) returns "TEXT"

32 (chr <表> )

这个函数把代表ASCII码的整型数转换为只有一个字符的字符串,并返回此结果(类似于

BASIC中的CHR$函数). 例如:

(chr 65) returns "A"

(chr 66) returns "B"

(chr 97) returns "a"

33 (close <文件描述符> )

这个函数关闭指定的文件,返回nil. 其中<文件描述符>是从调用OPEN函数得到的. 在

CLOSE函数执行之后,此文件描述符就不再有效.

例如,假设X是一个有效的打开文件的描述符.

(close x)

将关闭与X相关联的文件,返回nil.

34 (command <变元>...)

这个函数在AutoLISP内部执行AutoCAD命令,它总是返回nil. 其中<变元>代表AutoCAD

的命令及其子命令;对每一个变元都作处理,然后作为对相应提示的响应送给AutoCAD.命

令名和选择项作为字符串传送,二维点作为两个实数的表传送,三维点作为三个实数的表

传送.只有当AutoCAD发出"Command:"提示时,命令名才被AutoCAD识别.例如: (setq pt1 '(1.45 3.23))

(setq pt2 (getpoint "Enter a point: "))

(command "line" pt1 pt2)

(command "")

假设AutoCAD的"Command:"提示已出现,那么以上的表达式将为点"pt1"置值,提示用户输

入点"pt2",执行AutoCAD的LINE命令,用两点作为此命令的输入.COMMAND的变元可以是字

符串,实数,整数或点,这要看AutoCAD命令执行时需要什么.一个空字符串("")等效于在

键盘上打一个空格.调用COMMAND而不加任何变元等效于在键盘上按CTRL-C键,它将取消

AutoCAD的大多数命令.

如果AutoCAD系统变量CMDECHO(可通过SETVAR和GETVAR存取)被置为零,那么从COMMAND

函数中执行的命令将不会在屏幕上显示.COMMAND函数是在AutoLISP中调用AutoCAD命令的

一种基本方法.

在COMMAND函数内不能使用GETxxx用户输入函数

(GETANGLE,GETSTRING,GETINT,GETPOINT

等).如果试图用GETxxx函数,则会显示出错信息:"error: AutoCAD rejected function"

[出错:AutoCAD拒绝执行函数],并中止函数的执行.如果需要提示,则应提前发出GETxxx函

数,如上例所示,或把它们放在几个连续的COMMAND函数调用中间.

AutoCAD的DTEXT和SKETCH命令均能直接从键盘和数字化仪读入,因此不能和AutoLISP的

COMMAND函数一起使用.同样,COMMAND函数不能用于执行PLOT,PRPLOT或SCRIPT 命令.

为用户输入暂停

如果在执行AutoCAD命令过程中,预定义符号PAUSE是作为COMMAND函数的一个变元出现

时,则会暂停COMMAND函数的进程,等待用户直接输入或拖曳输入.这类似于在菜单中具有

暂停功能的反斜杠.

若在暂停COMMAND函数时使用一条透明命令,COMMAND函数继续暂停.这样,当暂停COMMAND

时用户可随心所欲地Z00M(缩放目标)或PAN(平移图纸).当AutoCAD接收到有效输入且不是

透明命令时,则返回COMMAND进程并继续往下执行. 例如

(Command "circle" "5,5" pause "line" "5,5" "7,5" "")

先执行circle命令,置圆心为(5,5),然后暂停以便屏幕上拖曳圆的半径.当拾取了所要

的点(或键入所要的半径值)后,函数继续执行,画一条从5,5到7,5的直线.

AutoLISP的PAUSE不能暂停菜单输入.如果在COMMAND函数暂停时,激活了一个菜单项,

那么菜单项中的输入值会满足PAUSE的要求.如果还要暂停菜单项,则必须在菜单项中用一

个反斜杠.一旦发现了有效输入,AutoCAD将会继续执行COMMAND函数和菜单项.

注意:

1. PAUSE符号当前是由一个反斜杠组成的字串.用户可直接使用一个反斜杠而不用

PAUSE符号;但若用一个菜单项调用COMMAND函数,则反斜杠不会暂停COMMAND函数,而暂停正在读入的菜单项. 同样,暂停机制在AutoLISP的将来版本中可能会有一个不同的触发值. 因此我们建议使用PAUSE符号,而不宜显式使用反斜杠.

2. 当一条命令正在等待输入正文串或属性值时出现了PAUSE,那么只有

在系统变量

TEXTEVAL不为零时,AutoCAD才为输入暂停.否则,认为PAUSE符号(一个反斜杠) 的值等效于正文输入,且不为输入暂停.

3. 当COMMAND函数进程被暂停时,该函数仍处于"激活"态,所以用户此时不可键入

另一个AutoLISP表达式进行求值.

35 (cond ( <测试1> <结果1> ) ...)

这个函数接受任意数目的表作为变元.它计算每一个表的第一项(按提供的表的顺序),

直到有一项的返回值不为nil为止.然后它计算测试成功的那个子表中后面的那些表达式,

返回子表中最后那个表达式的值.如果子表中只有一个表达式(即没有<结果>项);则返回

<测试>表达式的值.COND是AutoLISP中最基本的条件函数.

例如,下列的函数使用COND完成绝对值的计算:

(cond ( (minusp a) (- a) )

( t a )

)

如果"a"的值为-10,它将会返回10.如上所示,COND可以作为"Case"类型的函数.它常常

用T作为缺省的<测试>表达式.下面是另一个简单的例子.在符号S中用户响应的字符串是

已知的,该函数测试用户的响应,若用户响应是Y或y,则返回1;若响应是N或n,则返回0;否

则返回nil.

(cond (( = s "Y") 1)

(( = s "y") 1)

(( = s "N") 0)

(( = s "n") 0)

(t nil)

)

36 (Cons <新的第一个元素> <表> )

这是一个基本的表构造函数.它将一个元素<新的第一个元素>加入<表>的开头,并返回

加入之后的表. 例如:

(cons 'a '(b c d)) returns (a b c d)

(cons '(a) '(b c d)) returns ((a) b c d)

注意,第一个元素可以是原子或是表.

CONS也可在<表>的变元位置上接受一个原子,用以构造前面讲过的点对表,即中间用

点隔开的一对元素的结构.当显示这种结构时,AutoLISP在第一个和第二个元素之间打印

出一个点.这种结构占的存储空间比普通表小,使用CDR函数可返回第二个原子. 如:

(cons 'a 2) returns (a . 2)

(car (cons 'a 2)) returns a

(cdr (cons 'a 2)) returns 2

点对表是一种特殊的表,某些只处理常规表的函数不能把它当作变元接受. AUTO LISP函数参考2(10版本)

37 (cos <角度> )

这个函数返回<角度>的余弦值,这里的<角度>以弧度表示. 例如:

(cos 0.0) returns 1.0

(cos pi) returns -1.0

38 (defun <符号> <变元表> <表达式>...)

DEFUN以<符号>作为函数名定义一个函数(注意,函数名是自动用引号引起来,不需要显

式引起来). 在函数名之后是一个变元表(也可为空表),表中可以任选地跟一个斜杠( / )

和函数的一个或多个局部符号名. 在斜杠和第一个局部符号、最后一个变元(如果有的话

)之间至少用一个空格隔开.如果没有变元或局部符号,那么在函数名后必须有一对空括号.

例如:

(defun myfunc (x y) ...) (函数有两个变元)

(defun myfunc (/ a b) ...) (函数有两个局部符号)

(defun myfunc (x / temp)...) (一个变元和一个局部符号)

(defun myfunc ( )...) (没有变元和局部符号)

在变元表和局部符号后面是一个或多个表达式,它们在函数执行时进行计算.

DEFUN函数本身返回被定义的函数名称.当这个函数被调用时,将计算它的变元,变元由

变元变量约束.局部变量可以用于函数的内部,而不改变它们在外部的同名变量值.函数将

返回最后表达式的计算结果.所有前面的表达式只有辅助效果.DEFUN函数本身

返回所定义

的函数名. 例如:

(defun add10 (x)

(+ 10 x)

) return add10

(add10 5) return 15

(add10 -7.4) return 2.6

和

(defun dots(x y / temp)

(setq temp(strcat x "..."))

(strcat temp y)

) returns dots

(dots "a" "b") returns "a...b"

(dots "from" "to") returns "from...to"

不准将内部函数名或内部符号名当作<符号>使用,因为这样做会使得内部函数不可调用

函数库和自动装入

函数定义可以存储在文件中,再用AutoLISP的LOAD函数装入,这将在本章后面讲述,如果

文件acad.lsp存在,AutoLISP将在每次进入AutoCAD图形编辑时自动把此文件装入;利用这

个特性可以建立一个用户函数库,保证每次使用时它们总是存在.

任何".lsp"库文件也可包括除DEFUN函数以外的表达式.会由于装入一个文件会引起对

这些表达式的求值,因此一旦文件装入,用户在文件中的函数调用自动执行.但是,acad.lsp

的装入是在AutoCAD图形编辑程序完全启动之前完成的,所以在acad.lsp文件中(在DEFUN外

)不准使用COMMAND函数.为了使用户的"acad.lsp"文件在装入时能自动执行一

命令系列,该

文件应包含有特殊函数名"S::STARTUP"的DEFUN定义).详见后.

C: XXX函数---增加AutoCAD增加新的命令,这些命令是用定义的函数完成的.若要能象

AutoCAD命令一样使用,这些函数必须要遵守下列规则:

1. 函数名的形式必须为"C: XXX",这里所有的字母都是大写的. "C: "部分必须总是

出现在名称中;"XXX"部分可以是你选择的命令名,只要它不和AutoCAD

的内部命令

或外部命令的名称重复就可以.

2. 函数的定义必须带空变元表(但允许有局部符号).

例如,下面定义的一个函数是用多义线画一个正方形:

(defun C:PSQUARE (/ pt1 pt2 pt3 pt4 len)

(setq pt1 (getpoint "Lower left corner:"))

(setq len (getdist pt1 "Length of one side:"))

(setq pt2 (polar pt1 0.0 len))

(setq pt3 (polar pt2 (/ pi 2.0) len))

(setq pt4 (polar pt3 pi len))

(command "PLINE" pt1 pt2 pt3 pt4 "c")

)

以这种方法定义的函数只需在出现AutoCAD的"Command: "提示符时通过输入函数名的

"XXX"部分就能调用.如"XXX"不是一个已知的AutoCAD命令,AutoCAD就试图调用AutoLISP函

数,并且不带任何参数.对于例子C:PSQUARE函数,对话将如形式:

Command: PSQUARE

Lower left Corner: (输入一点)

Length of one side: (输入一条边的长度)

然后这函数就调用AutoCAD的PLINE命令,并回答它的输入提示,画出所要的正方形.

用这种方法为AutoCAD增加命令是AutoLISP特有的一个高级功能.一旦定义了新的

命令,它可以使用AutoLISP提供的所有功能.实际调用新命令时不需要用户用括号将命令

名括起来,因此,使用这种由AutoLISP实现的命令和其它AutoCAD的内部命令没有什么两样.

S::XXXX函数---自动执行

在编辑期间,某些情况下可以自动调用用户定义的,且以"S::"开头命名的函数.应把

函数名前缀"S::"看做是"保留的".为了避免与无关函数发生冲突,除了这些特殊函数以外,

禁止使用前缀.

目前,"S::STARTUP"是唯一能自动执行的函数.一旦它被定义,在AutoCAD

绘图编辑进

入产生新图或编辑一旧图时,就自动调用S::STARTUP函数(无变元).因此,在"acad.lsp"文

件中.用户可以加入"S::STARTUP"的DEFUN定义,以便在开始编辑时先执行所希望的设置操

作.

例如,假设用户想用自己的命令形式来替换AutoCAD的标准命令QUIT及END,为此,可以

用包括下列内容的"acad.lsp"文件:

(defun C:QUIT()

... your definition ...

)

(defun C: END()

... your definition ...

)

(defun S: :STARTUP()

(command "undefine" "quit")

(command "undefine" "end")

)

39 (distance <点1> <点2> )

这个函数返回三维点<点1>和<点2>之间的距离.例如:

(distance '(1.0 2.5 3.0) '(7.7 2.5 3.0)) returns 6.7

(distance '(1.0 2.0 0.5) '(3.0 4.0 0.5)) returns 2.82843 如果系统变量TLATLAND不等于零,则DISTANCE要求二维点(忽略所给定的三维点的Z坐标

),同时返回投影在当前作图平面上的两点间的二维距离.如FLATLAND为零,而所给定的点中

有一个或两个点是二维点,则作用与前同.

40 (eq <表达式1> <表达式2> )

这个函数确定<表达式1>和<表达式2>是否完全一样;就是说,它们是否受同样的目标约

束(例如,用SETQ).如果两个表达式完全一样,EQ返回T;否则返回nil.它的典型应用是检测

两个表实际上是否相同. 例如,对于下列的赋值:

( setq f1 '(a b c))

( setq f2 '(a b c))

( setq f3 f2)

那么:

( eq f1 f3) returns nil (f1 and f3 are not the same list!) ( eq f3 f2) returns T (f3 and f2 are exactly the same

list)

参阅下面的EQUAL函数.

41 (equal <表达式1> <表达式2> [ <误差量> ])

这个函数确定<表达式1>和<表达式2>是否相等;就是说它们的计算结果是否相同.例如

对于下列的赋值:

(setq f1 '(a b c))

(setq f2 '(a b c))

(setq f3 f2)

那么:

(equal f1 f3) 返回 T (f1和f3的计算值相等)

(equal f3 f2) 返回 T (f3和f2是完全相同的表)

注意,两个表对EQUAL成立,对EQ不一定成立;两个原子对EQUAL成立,对EQ也一定成立.另

外,两个表或原子对于EQ成立,对于EQUAL也一定成立的.

在比较两实数(或是由实数组成的两个表,如同表示点的表)时,很重要的一点是应明确:

用不同的方法计算两个"相同"的数,其结果可能有些微差别.任选项数字变元<误差量>,用

来使用户指定<表达式1>及<表达式2>间最大差值,在此差值内仍可认为两表达式是相等的.

如已知:

(setq a 1.123456)

(setq b 1.123457)

那么:

(equal a b) would return nil

(equal a b 0.000001) would return T

42 (eval <表达式> )

本函数返回<表达式>的计算结果,其中<表达式>是LISP表达式.例如,对于以下赋值:

(setq a 123)

(setq b 'a)

则有:

(eval 4.0) returns 4.0

(eval (abs -10)) returns 10

(eval a) returns 123

(eval b) returns 123

43 (exp <数> )

这个函数返回e的<数>次方(自然对数的逆).它返回的结果是实数.例如: (exp 1.0) returns 2.71828

(exp 2.2) returns 9.02501

(exp -0.4) returns 0.67032

44 (expt <底数> <幂> )

这个函数返回<底数>的<幂>次方.如果两个变元都是整数,其结果也是整数;否则,结果

为实数. 例如:

(expt 2 4) returns 16

(expt 3.0 2.0) returns 9.0

45 (findfile <文件名> )

这个函数允许用户程序在AutoCAD库路径上查找指定的文件.AutoCAD库路径按先后顺序

由下列目录组成:当前目录、包括当前绘图文件的目录、由ACAD系统环境变量命名的目录

(如果有的话)、以及包含AutoCAD程序文件的目录.

FINDFILE不能事先假定文件的类型和<文件名>的扩展名,因此用户必须加以说明.如果

文件名不带路径(即没有驱动器/目录前缀),AutoCAD就对其进行搜索并且返回全名,如果找

不到该文件,就返回空(nil).如给出驱动器/目录前缀时,AutoCAD仅在此目录中查找(不再

沿库路径搜索).FINDFILE返回的全名适合于OPEN函数的使用(下例中我们用"/"作为目录前

缀分隔符;在PC-DOS/MS-DOS系统上用"/"或者"\\"作分隔符均可).

例如,假设

. 当前目录是"/acad/"并有文件"abc.lsp"

. 正在编辑"/acad/drawings"目录中的一图形文件

. 系统环境变量ACAD设置为"/acad/support"

. "xyz.txt"文件仅存在于"acad/support"目录中

. 库搜索路径上均无"nosuch"文件

那么:

(findfile "abc.lsp") 将返回 "acad/abc.lsp"

(findfile "xyz.txt") 将返回 "acad/support/xyz.txt" (findfile "nosuch") 将返回 nil

46 (fix <数> )

这个函数返回<数>转换为整数的结果.<数>可以是整型或实型.如果是实数,就舍去小数

部分,截尾至最近的整型数. 例如:

(fix 3) returns 3

(fix 3.7) returns 3

47 (float <数> )

这个函数返回<数>转换为实型数的结果. <数>可以是整型或实型的.例如: (float 3) returns 3.0

(float 3.75) returns 3.75

48 (foreach <名称> <表> <表达式>...)

这个函数扫过整个<表>,将表中每个元素依次赋给<名称>,对于表中的每一个元素计算

每一个<表达式>的值.可以指定任意个<表达式>.FOREACH返回最后<表达式>的计算结果.

例如:

(foreach n '(a b c) (princ n))

和

(print a)

(print b)

(print c)

等价,只是FOREACH只返回最后表达式的计算结果.

49 (gcd <数1> <数2> )

这个函数返回<数1>和<数2>的最大公约数.<数1>和<数2>必须都是整数.例如:

(gcd 81 57) returns 3

(gcd 12 20) returns 4

50 (getangle [ <点> ] [ <提示> ] )

这个函数为用户输入一个角度而暂停.<提示>是一个任选的字符串,它作为提示符显示,

<点>是一个任选的二维基点(当前UCS坐标系统).返回的角度(以弧度表示)是相对于当前构

造平面(即当前UCS坐标系统的XY平面,且在当前的Z向层高上).用户可以用AutoCAD的当前

角度单位格式键入一个数来指定一个角度.注意,虽然当前的角度单位格式可能是度、弧度

或其它单位,但这个函数总是返回的弧度值.

用户还可以在图形屏幕上指定两个二维点,向AutoLISP"显示"这角

度.AutoCAD会从第一

点到当前光标位置画一条皮筋线,以辅助用户观察这个角度.若指定了GETANGLE 任选的<点>

变元,它就被用作为这两点的第一点,让用户只要指定另一点就能向AutoLIST"显示"这个角

度(用户可以给定一个三维基点,但这可能引起混乱,因为通常是在当前作图平面上测量角

度).

下面是一些调用GETANGLE的例子:

(setq ang (getangle))

(setq ang (getangle '(1.0 3.5)))

(setq ang (getangle "which way? "))

(setq ang (getangle '(1.0 3.5) "which way? "))

不能输入另一个LISP表达式来响应GETANGLE的请求.如果这样做,则会显示

信息"Can't

reenter AutoLIST"(不能再次输入AutoLISP).参见GETORIENT和INITGET.

51 (getcorner <点> [ <提示> ] )

和GETPOINT函数一样,GETCORNER函数返回一个点(当前UCS坐标系统).但GETCORNER要求

输入一个<基点>变元,并要求用户在屏幕上移动光标,从<基点>位置画一个矩形.详见GETPO

INT和INITGET.

基点以当前UCS坐标系统表示,若用户给出一个三维基点,将忽略其Z坐标;总以当前Z向

高度作为Z坐标.

不能输入另一个LISP表达式来响应GETCORNER的请求.

52 (getdist [ <点> ] [ <提示> ] )

这个函数为用户输入一个距离值而暂停.<提示>是一个任选的字符串,它作为提示符显

示,<点>是任选的二维或三维基点(当前UCS坐标系统).用户可以用AutoCAD当前的距离单位

格式输入一个数来指定距离.注意,虽然当前距离单位格式可以是英尺和英寸(建筑上用),

但是这个函数返回的距离值总是实数.

用户还可以指定两个点,AutoCAD将返回点间距离值.AutoCAD在第一点和当前光标位置之

间画一条皮筋线,以辅助用户观察这个距离.若指定了GETDIST的任选的<点>变元,它就被用

作为两点中的第一点.

当采用两点输入方式时,GETDIST测试系统变量FLATLAND和INITGET函数的"三维点"标志,

以便确定如何计算距离.若FLATLAND为零,返回点间三维距离.若FLATLAND不为零时,仅在IN

ITGET的"三维点"标志被设置时才返回三维距离;否则以二维点对待.

下面GETDIST用法举例:

(setq dist (getdist))

(setq dist (getdist '(1.0 3.5)))

(setq dist (getdist "How far "))

(setq dist (getdist '(1.0 3.5) "How far? "))

不能输入另一个LISP表达式来响应GETDIST的请求.参见INITGET.

53 (getenv <变量名> )

这个函数返回赋给系统环境变量的字串. <变量名>变元是要读出的环境变量名的字符

串.若不存在此变量,则返回空(nil).

例如,若系统环境变量ACAD设置成"/acad/support/",同时不存在NOSUCH变量,那么,

(getenv "ACAD") 将返回 "/acad/support/"

(getenv "NOSUCH") 将返回 nil

注: 在基于UNIX的系统中,对大、小写字母是有区别的,因此"ACAD"及"acad"将作为两

个不同的环境变量.

54 (getint [ <提示> ] )

这个函数为用户输入一个整数而暂停,并返回这个整数.数值范围为

-32768 ～ +32767.

<提示>是一个任选的字符串,作为提示符显示.例如:

(setq num (getint))

(setq num (getint "Enter a number: "))

不能输入另一个LISP表达式来响应GETINT的请求.参见INITGET.

55 (getkword [ <提示> ] )

GETKWORD函数要求用户输入一个关键字.在调用GETKWORD之前须先用INITGET函数(见下

述)设置一个有效的关键字表.GETKWORD把与用户输入相匹配的关键字作为字符串返回.如

果输入的不是关键字表中已存在的关键字,那么AutoCAD会要求重新输入.若是空输入,则函

数返回nil(如果允许空输入的话).如果没有建立关键字表,也返回nil.例如: (initget 1 "Yes No")

(setq x (getkword "are you sure? (Yes or No) "))

将提示用户,并根据用户的响应置符号x为Yes或No.如果用户的响应不能与任一关键字

匹配,或用户给出的是空响应,那么AutoCAD会要求用户重新输入.

不能输入另一个LISP表达式来响应GETKWORD的要求.参见INITGET.

56 (getorient [ <点> ] [ <提示> ] )

在AutoLISP中,角度总是用弧度制表示,零度基准方向一般是向右(东方),角度增加方向

一般是逆时针方向.如果用户使用UNITS命令或ANGBASE、ANGDIR系统变量选择了不同的零

度基准和角度增加的方向,那么有时可能需要一些转换.

GETORIENT类似于GETANGLE函数,但零度基准方向和角度增大方向对这两个函数的作用

方式不同.在需要知道旋转大小(相对角度)的情况下应使用GETANGLE;而在需要取得方位(

绝对角度)的情况下应使用GETORIENT.

假设,现使用AutoCAD的UNITS命令选中了零度基准为90°(朝北),并按顺时针方向增大

角度.下面的表格表示对用户输入的不同的角度,GETANGLE和GETORIENT将返回什么弧度值.