《AUTO LISP函数参考》由会员分享，可在线阅读，更多相关《AUTO LISP函数参考（70页珍藏版）》请在金锄头文库上搜索。
1、AUTO LISP 函数参考 1(10 版本)以下为十年前纯手工录入的函数参考手册,以分享给爱好 LISP 这方面的朋友参考!AutoLISP 提供了大量的预定义函数。若将函数名（大小写都可）作为表中的第一个元素函数变元（若有的话）作为表中后面的元素，就可以调用那个函数。本章按字母顺序列出 AutoLISP 所有基本函数。用户会发现其中许多函数都是标准函数，可在 LISP 程序设计语言中找到。还有一些函数是由 AutoCAD 提供的且专用于交互图形环境。1 FLATLAND 系统变量与老版本的兼容性AutoLISP 版本 10 支持 AutoCAD 的最新增强型三维图形功能，则时继续保证与 A
2、utoCAD老版本的兼容性。FLATLAND 系统变量就是用来控制该兼容性的。当 FLATLAND为零时，实现新三维功能；否则各函数操作与 AutoLISP 版本 9 的一样。FLATLANDR 的设置作用于下列AutoLISP 函数：DISTANCE GRREAD POLARENTGET INITGET TBLNEXTGETDIST INTERS TBLSEARCHGETPOINT OSNAP在各函数说明中，已注明 FLATLAND 对上述函数起作用的方式。2 ( + .)这个函数返回所有的总和。其中的可以是整型或实型的。如果所有的都是整数，其结果也是整数；如果其中有一个是实型的，那么其它整
3、型数将转换为实型数结果将是实型数。例如：(+ 1 2) returns 3(+ 1 2 3 4.5) returns 10.5(+ 1 2 3 4.0) returns 10.03 ( - .)这个函数把第一个减去第二个，返回它们的差。如果给定的多于两个，那么将第一个减去其后所有数之和，并返回最后的结果。如果只给了一个,即返回零减这个的结果。此函数中的可以是实型或整型，按标准规则进行类型转换。例如：(- 50 40) returns 10(- 50 40.0 2) returns 8.0 (- 50 40.0 2.5) returns 7.5(- 8) returns -84 (* .)这个函
4、数返回所有的乘积.其中可以是实型或整型.按标准规则进行类型转换例如:(* 2 3) returns 6(* 2 3 4.0) returns 24.0(* 3 -4.5) returns -13.55 (/ .)这个函数将第一个除以第二个,返回其商.如果给出的多于两个,则把第一个除以其它所有的乘积,并返回最后的商.此函数中的可以是实型或整型,类型的转换按标准规则进行.例如:(/ 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
5、 0.3756 (= .)这是等于关系函数.如果所有指定的在数值上是相等的,则返回 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 nil7 (/= .)这是一个不等于关系函数.如果数值上不等于,则返回 T;否则返回nil.如果提供的多于两个,则函数无定义.例如:(/= 10 20) returns T(/= you you)
6、 returns nil(/= 5.43 5.44) returns T8 ( .)这是一个小于关系函数.如果第一个值小于第二个,则返回 T;否则返回 nil.如果所给的多于两个,那么当每个都小于其右边的时,则返回 T.例如:( .)这是一个小于或等于关系函数.如果第一个值大于或等于第二个原子,则返回 T;否则返回 nil.如果所给的多于两个,则当每一个都小于或等于其右边的时,才返回 T.例如:( .)这是一个大于关系函数.如果第一个值大于第二个,则返回 T;否则返回 nil.若所给定的多于两个,当每个都大于其右边的时,则返回 T. 例如:( 120 17) returns T( c b) r
7、eturns T( 3.5 1792) returns nil( 77 4 2) returns T( 77 4 4) returns nil11 (= .)这是一个大于或等于关系函数.如果第一个值大于或等于第二个,则返回 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 nil12 ( )这个函数返回的按位非(NOT),即补码.必须为整数.例如:( 3)
8、 returns -4( 100) returns -101( -4) returns 313 (1+ )这个函数返回加 1(增量)的结果. 可以是实数或整数. 例如:(1+ 5) returns 6(1+ -17.5) returns -16.514 (1- )这个函数返回加 1(增量)的结果. 可以是实型或整型数. 例如:(1- 5) returns 4(1- -17.5) returns -18.515 (abs )这个函数返回的绝对值. 可以是实型数或整型的. 例如:(abs 100) returns 100(abs -100) returns 100(abs -99.25) retu
9、rns 99.2516 (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 nil17 (angle )这个函数返回从 UCS 坐标系统点到 UCS 坐标系统的一直线的角度,该角度从当前作图平面的 X 轴开始反时针方向计算(以弧度为单位). 如果提供了三维点,则将其投影至当前作图平面. 例如:(angle (1
10、.0 1.0) (1.0 4.0) return 1.5708(angle (5.0 1.33) (2.4 1.33) return 3.1415918 (angtos )这个函数处理(实型数,单位为弧度),返回一个对应于的字符串.该字符串是根据所设置的、及 AutoCAD DIMZIN 变量,对编辑后所得. 其中变元是一个整型数,它指示完成什么类型的编辑,如下所示:ANGTOS 方式 编辑格式-0 度1 度/分/秒2 梯度3 弧度4 测地单位其中变元是一个整型数,它选择所需要的十进制精度的小数位数. 和与 AutoCAD 系统变量 AUNITS 和 AUPREC 相对应,如果没有指明和,则使
11、用 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 180d00 (angtos a 3 4) returns 3.1416r(angtos a 4 2) returns WANGTOS 可接受一负变元,但总是先将其化为相当的正值(在 0 2弧度间),然后再执行指定的变换
12、. 例如:(angtos 0.785398 0 4) returns 45.0000(angtos -0.785398 0 4) returns 315.000019 (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) r
13、eturn abcAPPLY 既可用于内部函数(子程序),也可用于用户定义的函数(即那些用DEFUN 或者LAMBDA 产生的函数).21 (ascii )这个函数返回中第一个字符的 ASCII 字符码(整数).它和 BASIC 语言中的 ASC 函数相似. 例如:(ascii A) return 65(ascii a) return 97(ascii BIG) return 6622 (assoc )这个函数在以作为关键字进行搜索,返回中对应元素的值.如果在关联表中找不到作为关键字的,ASSOC 返回 nil. 例如,假设表al定义为:( name box) (width 3) (size
14、4.7263) (depth 5) )那么,(assoc size a1) returns (size 4.7263)(assoc weight a1) returns nil关联表常用于储存数据,这些数据可通过关键字存取.它和程序设计语言的数组或结构相似.本章后面描述的 SUBST 函数提供了一种方便的方法可把关联表中与关键字关联的值进行替换.23 (atan )如果没有给出,ATAN 将返回的反正切值,其单位为弧度.可以为负值;返回的角度的范围为:-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
