VisualLISP开发技术

1、 实型数（实型数（REAL） 符号（符号（SYM） 字符串（字符串（STR） 表表 （及用户定义的函数）（及用户定义的函数）（LIST） 文件描述符（文件描述符（FILE） Visual LISP的内部函数（的内部函数（SUBR） AutoCAD的选择集（的选择集（PICKSET） AutoCAD的实体名（的实体名（ENAME)整型数整型数 整型数是由整型数是由0,1,2,9,+0,1,2,9,+或或- -这这1212个字符组成个字符组成的数字。的数字。 例如：例如：+230+230、450450、-180-180等均为整型数。等均为整型数。 Visual LISP的整型数是的整型数是32位，

2、其取值范围为位，其取值范围为: -2147483648+2147483647。实型数实型数 实型数是实型数是带有小数点带有小数点的数，它以双精度的数，它以双精度浮点数格式保存，提供了至少浮点数格式保存，提供了至少1414位的精度。位的精度。实型数既可以用十进制方法表示，也可以用实型数既可以用十进制方法表示，也可以用科学计数法表示。例如：科学计数法表示。例如：13.213.2、0.0450.045、4.5e-24.5e-2均为有效的实型数。均为有效的实型数。字符串字符串 字符串是由一对双引号（字符串是由一对双引号（”）括起来的字符序列）括起来的字符序列。通常又把构成字符串的双引号对称为字符串界定

3、。通常又把构成字符串的双引号对称为字符串界定符。符。 字符串有如下约定：字符串有如下约定： 字符串中，同一字母的大小写认为是不同的字体，空格也是一个有意义的字符。 字符串的长度指位于双引号之间的字符数（不包括双引号对）。 如果在字符串的定界符之间无任何字符，称其为空串，它的长度为零。字符串字符串 字符串中可以包含ASCII码中任一字符，通用的表示形式为“nnn”，其中nnn为八进制形式的ASCII码。例如“101102103”表示”ABC”，二者的作用完全相同。 由于反斜杠“”已作为字符串中的前导转义符，因而当字符串中要使用反斜线时，必须加转义符，即用双反斜线“”表示字符串中一个反斜线“”。字

4、符串字符串程序代码程序代码功能功能用用ASCII码表示码表示114042eEsc033n换行换行012r回车回车015tTAB（制表位）制表位）011字符代码表字符代码表符号符号 用符号存储数据，因此，符号又称为用符号存储数据，因此，符号又称为变量变量。 符号名与大小写没关系，它可以是除下列符号名与大小写没关系，它可以是除下列6个个字符之外的其他可打印字母和符号的组合：字符之外的其他可打印字母和符号的组合： （左括号）（左括号） ） （右括号）（右括号） （句号）（句号） （撇号）（撇号） （双引号）（双引号） ；（分号）；（分号） 符号名的第一个字符一般采用字母或下划线符号名的第一个字符一般

5、采用字母或下划线表表 表指包含在一对相匹配的左、右圆括号表指包含在一对相匹配的左、右圆括号之间的相关数据的之间的相关数据的集合集合。表中的每一项称为。表中的每一项称为表的元素，这些元素可以是整型数、实型数表的元素，这些元素可以是整型数、实型数、字符串、符号，也可以是另一个表，且各、字符串、符号，也可以是另一个表，且各元素间要用空格隔开。表提供了保存各种数元素间要用空格隔开。表提供了保存各种数据的有效方法。据的有效方法。文件描述符文件描述符 当当Visual LISP打开一个文件时，系统将打开一个文件时，系统将给该文件赋一个数字标号，当给该文件赋一个数字标号，当AutoLISP函数函数访问该文件

6、时（如读文件或写该文件），应访问该文件时（如读文件或写该文件），应通过该文件的描述符对此文件进行操作。通过该文件的描述符对此文件进行操作。AutoCAD选择集选择集 选择集是一个或多个对象的集合。类似于选择集是一个或多个对象的集合。类似于AutoCAD中的对象选择过程。在中的对象选择过程。在Visual LISP程序中，用程序中，用Visual LISP函数可以构造函数可以构造选择集，并把它赋给一个符号，以供其他函选择集，并把它赋给一个符号，以供其他函数使用。数使用。 学好学好Visual LISP的关键是掌握好的关键是掌握好“语法结构语法结构”与与“功能函数功能函数”的搭配。的搭配。简单的简

7、单的Visual程序介绍程序介绍简单的简单的Visual程序介绍程序介绍简单的简单的Visual程序介绍程序介绍表达式(+ (* 2.5 2) (/ 10 3)的值是（ ）。A、8 B、8.0 C、8.3 D、8.3333333 表达式 (/ 10 3)的值是（ ）。表达式 (/ 10.0 3)的值是（ ）。（+ ） 返回所有返回所有 的和。其中，的和。其中， 可以是整型数，也可以是实型数。可以是整型数，也可以是实型数。 （- - ） 返回第一个返回第一个 与后面所有数的差。与后面所有数的差。 （* * ） 返回所有返回所有 的乘积。的乘积。（/ / 2 ）返回返回 1除以除以 2后的商。后的

8、商。 （1+ ） 返回返回加加1后的值。后的值。 （注意：（注意：1与与+号之间不能有空格）号之间不能有空格）（1- ） 返回返回减减1后的值。后的值。 （注意：（注意：1与与-号之间不能有空格）号之间不能有空格） （abs ） 返回返回的绝对值。的绝对值。 (sin ) 返回返回的正弦值，的正弦值，单位单位 为弧度。为弧度。 (cos ) 返回返回的余弦值，的余弦值，单位单位 为弧度。为弧度。 (atan ) 如果没有如果没有，返回，返回的反正切，的反正切， 单位为弧度，范围从单位为弧度，范围从。如果有。如果有 ， 返回返回/后的反正切。如果后的反正切。如果 为零，返回。为零，返回。（max

9、 ）返回返回中的最大值。中的最大值。（min ）返回返回中的最小值。中的最小值。 （exp ） 返回返回e的的次幂的值。次幂的值。 （expt ）返回返回 的的 次方的值。次方的值。 （log ） 是是exp函数的反函数。返回值为函数的反函数。返回值为的自的自 然对数值，其数据类型为实型数。然对数值，其数据类型为实型数。 转换运算函数转换运算函数(itoa ） 将整型数转换为由该整型数构成的字将整型数转换为由该整型数构成的字 符串，返回字符串。符串，返回字符串。 (atoi ) 将字符串转换为整数，返回整型数。将字符串转换为整数，返回整型数。 (atof ） 将字符串转换为实型数，返回实型数。

10、将字符串转换为实型数，返回实型数。 (fix ） 将将转换为整型数，返回该整型数。转换为整型数，返回该整型数。 如果如果为实型数，舍去小数部分。为实型数，舍去小数部分。 (float ） 将将转换为实型数。转换为实型数。 (ascii ） 将字符串中的第一个字符转换成将字符串中的第一个字符转换成ASCII 码，返回该码，返回该ASCII码的整型数值。码的整型数值。 (chr ） 将代表将代表ASCII码的整型数转换成只有一码的整型数转换成只有一 个字符的字符串，返回该字符串。个字符的字符串，返回该字符串。 字符串处理函数字符串处理函数(strcat ） 将将、按顺序连结成一个按顺序连结成一个

11、新字符串，返回该新字符串。新字符串，返回该新字符串。 (substr ) 将将从从位置截取长为位置截取长为值的值的 字符串，返回字符串。字符串，返回字符串。 (strcase ） 根据根据将将全部转换成大写或小写，全部转换成大写或小写， 返回转换后的字符串。返回转换后的字符串。为任意表达式，若为任意表达式，若 省略省略或其值为或其值为nil，字符串各字符全部转换字符串各字符全部转换 成大写，若成大写，若值为非值为非nil，字符串各字符全部字符串各字符全部 转换成小写。转换成小写。 (strlen ) 求字符号串求字符号串中的字符个数（包括空格）中的字符个数（包括空格）, , 返回数值。返回数值

12、。 图形处理函数图形处理函数（distance ） 返回两点之间的距离。返回两点之间的距离。 （polar ） 返回一个点的坐标，该点距返回一个点的坐标，该点距 的距离为的距离为，与，与X 轴正方向的夹角为轴正方向的夹角为， 其中，角度的单位是弧度。其中，角度的单位是弧度。 （angle） 返回由返回由、两点确两点确 定的直线与定的直线与X轴正向的夹角。轴正向的夹角。表处理函数表处理函数(car (car ) ) 返回返回 中的第一个元素。如果中的第一个元素。如果 是是 空的，返回空的，返回nilnil。 ( (cdrcdr ） 返回除返回除 中第一个元素以外的所有元素中第一个元素以外的所有元

13、素 组成的表。组成的表。 (last (last ） 返回返回 中顶层的最后一个元素。中顶层的最后一个元素。(nth (nth ） 返回返回 中的第中的第n n个元素，其中个元素，其中是返回元素的序号（是返回元素的序号（第第 一个元素的序号为一个元素的序号为0 0）。如果）。如果n n大于大于 的最高元素序号，返回的最高元素序号，返回nilnil。(list (list ） 将任意数量的表达式串联在一起，返将任意数量的表达式串联在一起，返 回他们组成的表。回他们组成的表。 (cons (cons ） 将将 加到加到 的开头，的开头， 返回得到的新表。返回得到的新表。 (reverse (rev

14、erse ） 返回将返回将 中元素倒排后得到的表。中元素倒排后得到的表。交互式输入函数交互式输入函数( (getintgetint ） 从命令窗口根据从命令窗口根据 输入一个整输入一个整 型数。以整型数形式返回输入数。型数。以整型数形式返回输入数。 ( (getrealgetreal ) ) 从命令窗口根据从命令窗口根据 输入一个整型输入一个整型 或实型数。以实型数形式返回输入数或实型数。以实型数形式返回输入数 。( (getstringgetstring ) ) 从命令窗口根据从命令窗口根据 输入一个字符输入一个字符 串。返回该字符串串。返回该字符串 。( (getpointgetpoint

15、 ) ) 从命令窗口根据从命令窗口根据 输入一个点的输入一个点的 坐标，或从屏幕上拾取一点。返回该点坐标坐标，或从屏幕上拾取一点。返回该点坐标 。( (getcornergetcorner ）根据根据 及已有角点及已有角点 确定矩确定矩 形窗口的另一角点，可以从命令窗口输入点的坐形窗口的另一角点，可以从命令窗口输入点的坐 标，也可以在屏幕上拾取。返回另一角点的坐标标，也可以在屏幕上拾取。返回另一角点的坐标 。( (getanglegetangle ） 从命令窗口根据从命令窗口根据 输入角度值，或输入角度值，或 基于在屏幕上拾取的点决定角度值。返回该角度值。基于在屏幕上拾取的点决定角度值。返回该

16、角度值。 赋值函数赋值函数 赋值函数是赋值函数是AutoLISP程序中最常用的函数之一。程序中最常用的函数之一。较为常用的赋值函数是较为常用的赋值函数是setq，其使用格式为：其使用格式为：(setq 符号符号2 表达式表达式2) 功能：依次将各表达式的值赋给对应的符号。功能：依次将各表达式的值赋给对应的符号。 例例(setq x 30 y 20 r 50) 执行表达式(setq x 8 y x)之后，变量y的值是（ ）。A、nil B、8 C、0 D、x 条件函数条件函数（if） 根据条件计算表达式。如果根据条件计算表达式。如果不为不为nil， 计算计算，并返回计算结果；否则计算，并返回计算

17、结果；否则计算 ，返回计算结果。，返回计算结果。 （cond （ ） （ ） （T ） 从上往下判断，一旦发现条件满足，计算与从上往下判断，一旦发现条件满足，计算与 该条件对应的表达式并返回计算结果，不再该条件对应的表达式并返回计算结果，不再 继续判断条件。继续判断条件。 思考思考 a、b、c、d、e返回值是多少？返回值是多少？循环函数循环函数（while ） 如果如果成立，执行各成立，执行各， 执行后再判断执行后再判断是否成立。如果成立，是否成立。如果成立， 继续执行各继续执行各，如此循环反复，直，如此循环反复，直 到条件不成立，并返回最后得到的计算结到条件不成立，并返回最后得到的计算结 果

18、。果。 （repeat ） 重复计算重复计算，计算次数由，计算次数由 确定，返回最后的计算结果。确定，返回最后的计算结果。 求求a、b、c的返回值的返回值文件处理函数文件处理函数(open ) 打开一个文件，以供其他打开一个文件，以供其他AutoLISP I/O函数访函数访 问。问。为字符串，由文件名和扩展名组成，为字符串，由文件名和扩展名组成， 可以包含目录，但必须用可以包含目录，但必须用表示字符串中的反斜线表示字符串中的反斜线 或用或用“/”来表示目录路径来表示目录路径。 (close ) 关闭打开的文件，并返回关闭打开的文件，并返回nil。例如，例如，(close a) (a为一个文件描

19、述符为一个文件描述符)。用。用open函数打开文件后，函数打开文件后， 应及时将其关闭，以免数据丢失。应及时将其关闭，以免数据丢失。 禁止求值函数禁止求值函数AutoLISP提供有值函数提供有值函数quote，其使用格式为：其使用格式为：(quote(quote)，或简写为（，或简写为（ ）功能：功能：不求值，返回不求值，返回本身。本身。quote函数的简写形式函数的简写形式只能在程序中使用。只能在程序中使用。例例(setq pt (20 30) r 50)( (setqsetq a (quote(9,19) a (quote(9,19)defun自定义函数自定义函数 （1）有名函数自定义格式

20、）有名函数自定义格式（defun ）是所定义函数的名字，用作函数标识；是所定义函数的名字，用作函数标识；是该函数的变量列表；是该函数的变量列表；用于函数执行时的计算，是函数的主体用于函数执行时的计算，是函数的主体 部分，俗称函数体。部分，俗称函数体。 分为形参和局部变量两部分。分为形参和局部变量两部分。有如下四种情况：有如下四种情况：（/ ） 各参数用空格分开，各参数用空格分开，“/”前后必须有空格。前后必须有空格。形参是在调用该函数时由形参是在调用该函数时由“实参实参”传递的参数，局部变传递的参数，局部变量是本函数中使用的符号。除量是本函数中使用的符号。除“形参形参”和和“局部变量局部变量”

21、外，函外，函数中出现的用作变量的符号都是全局变量。数中出现的用作变量的符号都是全局变量。（） 只有形参。只有形参。（/ ） 只有局部变量。注意只有局部变量。注意“/”后有空格。后有空格。（）或（）或nil 无形参和局部变量，为空表，括号不能少或将括号改无形参和局部变量，为空表，括号不能少或将括号改为为nil。 自定义的函数调用与系统函数调用一样，通过一个标准自定义的函数调用与系统函数调用一样，通过一个标准表调用，第一个元素为用户自定义的函数名，其余为实参。表调用，第一个元素为用户自定义的函数名，其余为实参。其格式如下：其格式如下：（函数名（函数名 ）函数定义与调用时应注意的问题：函数定义与调用

22、时应注意的问题： 实参与形参在数量、类型和顺序上必须完全一致。实参与形参在数量、类型和顺序上必须完全一致。 用用defun定义的函数名不能与先前定义的函数名同名，定义的函数名不能与先前定义的函数名同名，特别不能与系统函数同名，否则将使原定义的函数或系统内特别不能与系统函数同名，否则将使原定义的函数或系统内部函数失效。部函数失效。 在在defun的定义中不允许再出现的定义中不允许再出现defun，即，即defun不能嵌不能嵌套，所有套，所有defun定义的函数在结构上是并行的。定义的函数在结构上是并行的。 允许函数定义中对函数本身调用，即允许递归调用。允许函数定义中对函数本身调用，即允许递归调用

23、。 函数的调用函数的调用 当在当在AutoCAD中调用由中调用由defun函数定义的函数时，应采函数定义的函数时，应采用（用（）格式。如果希望所定义的函数成为）格式。如果希望所定义的函数成为AutoCAD的一个命令，则应采用如下定义的格式：的一个命令，则应采用如下定义的格式：（defun c:（）（） ） 请注意，这里的请注意，这里的c:并不表示硬盘驱动器并不表示硬盘驱动器，而是函数名前，而是函数名前缀，大小写等价；函数定义中不允许带形参。缀，大小写等价；函数定义中不允许带形参。增加与修改增加与修改AutoCAD命令的方法命令的方法首要应掌握的简单基本函数首要应掌握的简单基本函数（+ ）（-

24、- ） （* * ）（/ / 2 ）（1+ ）（1- ）（abs ） (sin ) (cos )（= ）（/=/= ） ( ( ) ) ( ( ) ) （and）（oror ） （notnot ） （itoa ） ( (atoiatoi ) ) （atofatof ） （fix fix ） （floatfloat ）（itoa ） ( (atoiatoi ) ) （atofatof ） （fix fix ） （floatfloat ）（strcat ） (substr ) （strcase ） (strlen ) （polarpolar ）（angleangle 2） ( (osnaposna

25、p (car) （cdr） （last） （nth） （list）（while ） （repeat） (open) (close)（getint） ( (getrealgetreal ) ) ( (getstringgetstring ) ) ( (getpointgetpoint ) ) （getcornergetcorner ） （getanglegetangle ） （if） （cond（） （） command函数函数 Command函数的调用格式如下：函数的调用格式如下： （command ） 为调用为调用AutoCAD命令所需要的全部数据，它们的命令所需要的全部数据，它们的格式取决

26、于格式取决于AutoCAD命令时实际需要的数据。命令时实际需要的数据。Command命令有以下约定：命令有以下约定：（1）作为参数的）作为参数的AutoCAD命令，相应的选项均应以不含空命令，相应的选项均应以不含空格的字符串表示，大小写均可。格的字符串表示，大小写均可。（2）调用）调用line、pline、layer等命令时，最后以等命令时，最后以“”“”结尾结尾（两个双引号间不能加空格两个双引号间不能加空格），等效于在键盘上按一次空格），等效于在键盘上按一次空格键，以终止该命令的执行。键，以终止该命令的执行。 (3)用用command命令可执行多条命令可执行多条AutoCAD命令。命令。逻辑

27、运算函数逻辑运算函数（and ） 返回所有返回所有的与逻辑：的与逻辑： 只要有一个只要有一个的结果的结果 为为nil，返回返回nil，否则返回否则返回T （or ） 返回所有返回所有的或逻辑：的或逻辑： 如果所有如果所有的结果为的结果为 nil，返回返回nil （not ） 返回返回的非逻辑：如果的非逻辑：如果 的结果为的结果为nil，返回返回T， 否则返回否则返回nil 二分支条件函数二分支条件函数IF (if testexpr thenexpr elseexpr) 功能：根据对条件的判断结果，对两个表达式求值。功能：根据对条件的判断结果，对两个表达式求值。 参数说明：参数说明：testex

28、pr 要判断的表达式。要判断的表达式。 thenexpr 如果如果 testexpr 不等于不等于 nil 则执行该表达式。则执行该表达式。 elseexpr 如果如果 testexpr 等于等于 nil 则执行该表达式。则执行该表达式。返返 回回 值：值：if 函数返回选定表达式的值。如果未指定函数返回选定表达式的值。如果未指定 elseexpr 且且 testexpr 为为 nil，则则 if 返回返回 nil。 注意事项：当注意事项：当thenexpr、 elseexpr表达式需分行书写多个表达式需分行书写多个 表达时，务必配合表达时，务必配合progn函数连接成一个整体，函数连接成一个

29、整体， 处理多个表达式。处理多个表达式。多分支条件函数多分支条件函数COND (cond (test result .) .)函数功能：多条件、多处理结果函数。函数功能：多条件、多处理结果函数。返返 回回 值：被执行的结果处理表达式中最后一个表达值。如果子值：被执行的结果处理表达式中最后一个表达值。如果子 表中只有一个表达式（即表中只有一个表达式（即 result 不存在），则返回不存在），则返回 test 的值。如果未指定参数，的值。如果未指定参数，cond 返回返回 nil。（cond （ ） （ ） （T ） ）;cond其它值xexxxxxxxf755220)(32例：计算例：计算(w

30、hile testexpr expr.)函数功能：对测试表达式进行求值，如果它不是函数功能：对测试表达式进行求值，如果它不是 nil，则则 执行循环体中的表达式，重复这个过程，直执行循环体中的表达式，重复这个过程，直 到测试表达式的求值结果为到测试表达式的求值结果为 nil。 while 函数在函数在 testexpr 为为 nil 之前不断运行。之前不断运行。参数说明：参数说明：testexpr 包含测试条件的表达式。包含测试条件的表达式。 expr 在在 testexpr 为为 nil 之前要求值的一个或之前要求值的一个或 多个表达式。多个表达式。返返 回回 值：最后的值：最后的 expr

31、 表达式最新的值。表达式最新的值。功能：对循环体中的每一个表达式进行指定次数的求值计功能：对循环体中的每一个表达式进行指定次数的求值计 算，并返回最后一个表达式的值。算，并返回最后一个表达式的值。参数说明：参数说明：intint 正整数。正整数。 exprexpr 一个或多个原子或表达式。一个或多个原子或表达式。返回值：最后一个计算的原子或表达式的值。如果未提返回值：最后一个计算的原子或表达式的值。如果未提 供供 exprexpr 参数，参数，repeat repeat 返回返回 nilnil。(ssget sel-method pt1 pt2 pt-list filter-list)函数功能

32、：根据选定对象创建选择集函数功能：根据选定对象创建选择集参数说明：参数说明： sel-method 字符串，指定对象选择方法。字符串，指定对象选择方法。 常用的选择方法有：常用的选择方法有： C 窗交。窗交。 CP 圈交圈交 L 添加到数据库的最后一个可见对象。添加到数据库的最后一个可见对象。 P P 最后一个创建的选择集。最后一个创建的选择集。 W W 窗口选择。窗口选择。 WP WP 圈围圈围 X X 整个数据库。整个数据库。pt1 pt1 与选择相关的点。与选择相关的点。 pt2 pt2 与选择相关的点。与选择相关的点。pt-list pt-list 点表。点表。Filte r-list

33、 Filte r-list 关联表，指定对象的特性。关联表，指定对象的特性。与与 filter-list filter-list 相匹配的对象将被添加到选择集。相匹配的对象将被添加到选择集。 如果省略所有参数，则如果省略所有参数，则 ssget ssget 函数给出函数给出“选择对象选择对象”提示提示，允许用户交互式地构造选择集。，允许用户交互式地构造选择集。 如果仅提供了一个点，而没有提供对象选择方法，如果仅提供了一个点，而没有提供对象选择方法，AutoCAD AutoCAD 假定用户拾取单个点来选择对象。假定用户拾取单个点来选择对象。 返返 回回 值：如果成功则返回创建选择集的名称。如果没有值：如果成功则返回创建选择集的名称。如果没有 选定对象则返回选定对象则返回 nilnil。 (sslength ss) 函数功能：求出一个选择集中的对象（图元）函数功能：求出一个选择集中的对象（图元）数目，并将其作为一个整数返回。数目，并将其作为一个整数返回。 参数说明：参数说明：ssss 选择集。选择集。(ssname