第五章第二节AUTOLISP程序设计简介

2.3 AutoLISP的程序控制
基本逻辑函数： a)AND函数 b)OR函数 c) NOT函数 d)NULL函数 关系函数 a)=函数 b)/=函数 c) <及<=函数 d)>及>=函数 e) eq函数 d) equal函数
条件与循环函数 ①if函数 ②progn函数 ③cond函数 ④while函数(例题：求解百元买百鸡问题) ⑤repeat函数
2.4、AutoLisp语言基本系统内部函数介绍
1、赋值函数SETQ 2、禁止求值函数QUOTE或 ’ 3、算术运算函数 ＋ ﹑－ ﹑ ﹡ ﹑ ／ 4、增量、减量和绝对值函数(1+ number)、(1- number)、 abs 5、三角函数 sin cos atan 6、表构造函数 list和表处理函数car cdr 及它们的组合函数， nth last函数。 7、基本输出函数 prompt prin1 princ print
'e 12 'e 15 'e 20 'e 25.5 'e 37 'e 44.5 'e 58
'f 8 'f 10 'f 12.5 'f 17 'f 24 'f 29 'f 38
'h1 5.5 'h1 6 'h1 7.5 'h1 10 'h1 12 'h1 15 'h1 18
'b0 10.2) 'b0 13.4) 'b0 17.4) 'b0 22.6) 'b0 32.9) 'b0 38.9) 'b0 50.6)
练习
1.已知长方体的长、宽、高,编程求其体积. 2.对下面的S-表达式求值: (1) (/ (1- 3) (1+ 3) 2.0) (2) (/ (1- 3.0) (1+ 3) 2.0) (3) (* (max 3 4 5) (min 3 4 5)) (4) (min (max 3 1 4) (max 2 7 1)) (5) (+ (* 45 2) (/ 45 2) 2.0)

函数介绍
AutoLISP提供一些预先定义的若干函数，每一个函数都是将函数名（大写 或小写）作为表中的第一元素，把函数中的变量，作为表中后面的元素，这样就可以调 用该函数。下面是 一些常用的简单函数介绍。 一、数值运算函数介绍 1.加函数（＋） 表达式为：（＋□元素（数）□元素（数）…） 这个函数返回所有数的总和，数可以是整型或实型。例如： （＋□1□2） 返回 3 （＋□1□2□3□4.5） 返回10.500000 2.减函数（-） 表达式为：（－□元素（数）□元素（数）…） 此函数是第一个数减去第二个数返回差，如果数多于两个，其返回值是用第一个数 减去以后各数之和。例如： （－□50□ 40）返回10 （－□50□40.0□2）返回8.000000
第二节 AutoLISP语言常用函数介绍
5.大于等于关系函数（＞＝） 表达式：（＞＝参数□参数…） 此函数为“大于或等于”关系函数。如果靠后的参数数值小于或等于靠前的参 数数值返回T，否则返回Nil例如： （＞＝□100□10） 返回T （＞＝□50□50） 返回T （＞＝□3□17） 返回Nil 6．小于等于关系函数（＜＝） 表达式：（＜＝参数□参数…） 此函数为“小于或等于”关系函数。如果靠后的参数数值大于或等于靠前的参 数数值返回T，否则返回Nil例如： （＜＝□100□10） 返回Nil （＜＝□50□50） 返回T （＜＝□3□17） 返回T
第一节 AutoLISP语言基础知识
5．说明 1)为使AutoLISP不对表求值，要在表的左小括号前加单引号“'”或表内最左边 加LIST。 2)在AutoLISP中，一个二维点用一个两个元素的表来表示，三维点用一个三维 表来表示。 3）AutoLISP语言采用一对“（）”表示一个表格，表中有表，从里到外，处 理每一个表，直到全部的表格处理结束，得出处理结果。 4）AutoLISP语言可以在提示符Command：下直接输入执行，也可以在文本编 辑器或字处理软件中建立好，存为扩展名为.LSP的文件，再在AutoCAD中运行。后 一种方式预先用APPLOAD命令将文件装载进AutoCAD系统中。 5）一对空的引号“”表示一次回车。 6）符号“；”后面的内容为提示内容，程序不执行。

AUTOLISP程序设计技巧AUTOLISP（即AutoCAD Lisp）是一种用于AutoCAD软件的编程语言。

它基于Lisp语言，可以用于创建自定义命令和功能，以自动执行一系列任务。

在编写AUTOLISP程序时，可以采用一些技巧来提高代码的可读性和性能。

下面将介绍一些常用的AUTOLISP程序设计技巧。

1.变量命名：为了增加代码的可读性，应该选择具有描述性的变量名。

避免使用单个字母或简写的名称，而应使用有意义的名称来描述变量的用途或含义。

2.注释：在代码中使用适当的注释是非常有帮助的，可以解释代码的目的、逻辑和特定部分的功能。

注释应该清晰明了，不冗余，并使用大写字母或其他方法来突出显示。

3.函数：使用函数来分割代码段，以便在需要时可以多次调用相同的代码块。

函数的使用可以提高代码的可读性，并使其更容易维护。

4.错误处理：在代码中加入适当的错误处理机制非常重要，可以避免程序崩溃或产生不期望的结果。

使用条件语句和错误处理函数来检测和处理可能发生的错误。

5.循环：使用循环语句来处理重复性任务，并减少代码的冗余。

根据任务的特点选择合适的循环类型（例如FOR循环、REPEAT循环等）。

6.嵌套：在必要时使用嵌套结构，将代码组织成逻辑结构清晰的块。

使用适当的缩进和代码布局来增加代码的可读性。

7.字符串处理：AUTOLISP中的字符串处理功能非常强大，可以使用字符串函数来处理、操作和格式化字符串。

了解并熟练使用字符串函数可以提高代码的灵活性和功能。

8.数组和列表：使用数组和列表可以存储和处理多个值。

熟练使用与数组和列表相关的函数（如CAR、CDR、CONS、LIST等）可以简化代码并提高性能。

9. 命令行交互：通过与用户进行命令行交互，可以提高程序的交互性。

使用getstring、princ等函数来获取用户输入，并使用条件语句来根据输入执行相应的操作。

10.优化：编写高效的代码可以提高程序的性能。

使用较少的迭代步骤、减少不必要的计算、选择合适的数据结构等都可以提高程序的效率。

AutoLisp
20
（2）半径型尺寸标注 以下每个表 式都能 成下图所示的半径 尺寸标注 以下每个表达式都能生成下图所示的半径型尺寸标注。 (command "dimradius" p2 p4) ( (command d "dimradius" "di di " p2 2 "105,105") "105 105") (command "dimradius" p2 "@-7.5,5") • p2是圆弧的选择点， • p4点确定了尺寸线的位置和方向， p4点确定了尺寸线的位置和方向 字符串"105,105"是当前坐标系下的坐 标 字符串 标，字符串"@-7.5,5"是相对于选择点 , 是相对于 择点 p2的X方向的增量和Y方向的增量。由于 默认尺寸的测量值，所以尺寸文本的第 一个字符为半径符号"R"。 个字符为半径符号"R"
；逆时针方向为正
AutoLisp
9
二、设置图层、颜色、线型和线宽
10 11 9
1
12
2 4 8
2d
3 7
0.8d 0 d
2d
0
5 6
0.7d
ld
AutoLisp
10
二、设置图层、颜色、线型和线宽
1 创建一个当前图层 1. 创建 个当前图层
假定图层的名字是“zhongxin”、颜色为红色、线型为center、线宽为 0 2，通过 0.2 通过command函数创建一个当前图层表达式如下： ( (command "layer" y "Make" "zhongxin" g "Color" 1 "zhongxin" g "Ltype" "Center" "zhongxin" "LWeight" 0.2 "zhongxin" "") 因为 Make 、 Color 、 Ltype 、 LWeight 等选项可以简写为 等 简 M 、 C 、 L 、 LW ，所以上式可改为： (command "layer" "M" "zhongxin" "C" 1 "zhongxin" "L" "Center" "zhongxin" "LW" 0.2 "zhongxin" "")

高等计算机辅助设计 Advanced Computer Aided Design
(4)（strcat <string1> <string2> …）
该函数返回由字符串<sting1> <string2>…构成的长字符串。例如： （strcat “Beijing” “China”）返回“Beijing China” (5)（substr <string> <start> [<length>]） 该函数返回从字符串<string>第<start>字符位置开始，连续 长度为<length>个字符组成的一个字符串。若没有指定<length>， 则子字符串是<string>中从<start>后的全部字符组成。例如： (substr “abcdef” 2 4) 返回“bcde” (substr “abcdef ” 2) 返回“bcdef”
高等计算机辅助设计
Advanced Computer Aided Design
3．表处理函数
(1)（car <list>） 该函数返回表<list>的第一个顶层元素。例如： （car „(x y)）返回x。 （car „(10 20 30 40)）返回10。 (2)（cdr <list>） 该函数返回表<list>中顶层第n个元素。其中n为大于或等于0 (3)（last <list>） 该函数返回表<list>顶层的最后一个元素。例如： （last „(10 20 30 40)）返回40。 (4)（nth <n> <list>） 该函数返回表<list>中顶层第n个元素。其中n为大于或等于 0的整数，n为0表示第一个元素，n为1表示第二个元素，以此 类推。例如： （nth 2 „(10 20 30 40)）返回30。

AutoLISP程序语言设计AutoLISP程序语言设计目录⒈简介⑴ AutoLISP概述⑵ AutoLISP的应用领域⒉基本语法⑴变量定义与赋值⑵控制流语句⑶函数定义与调用⑷条件语句⒊常用函数⑴坐标点函数⑵图形绘制函数⑶数据处理函数⑷字符串处理函数⒋高级技巧⑴调试与错误处理⑵程序优化与性能提升⑶与外部程序交互⒌示例程序⑴绘制简单图形⑵自动化处理CAD图纸⑶数据导出与导入⒍附录⑴ AutoLISP开发工具推荐⑵ AutoCAD版本兼容性⑶ AutoLISP常用工具介绍⒈简介⑴ AutoLISP概述AutoLISP是一种方便的自动计算与绘图程序设计语言，它是用于AutoCAD中的一种宿主程序语言，可以用于控制CAD软件的各项功能，实现自动化操作。

⑵ AutoLISP的应用领域AutoLISP可用于各种CAD绘图软件的自动化操作，包括但不限于以下方面：●绘制复杂图形●数据处理与导出●组装CAD图纸●批量操作与修改⒉基本语法⑴变量定义与赋值AutoLISP可以使用变量来存储数据，并在程序中使用。

变量可以通过赋值来初始化或修改其值。

⑵控制流语句AutoLISP支持各种控制流语句，如条件语句、循环语句等，用于根据不同条件执行不同的代码块或重复执行特定的代码块。

⑶函数定义与调用AutoLISP允许用户自定义函数以实现特定的功能。

函数是一组逻辑相关的代码块，可以通过函数名来调用。

⑷条件语句条件语句用于根据不同的条件执行不同的代码块。

AutoLISP提供了if、cond等条件语句供用户使用。

⒊常用函数⑴坐标点函数AutoLISP提供了一系列用于处理坐标点的函数，如polar、polar-point、polar-angle等，用于计算、转换坐标点。

⑵图形绘制函数AutoLISP提供了丰富的图形绘制函数，如line、circle、text 等，用于绘制直线、圆形、文本等图形元素。

⑶数据处理函数AutoLISP提供了一些用于处理数据的函数，如list、append、assoc等，用于创建列表、连接列表、关联列表等操作。

8
（续）
三、关于Visual LISP
Vusual LISP是在AutoLISP的基础上开发的，它加速了AutoCAD内 嵌AutoLISP程序开发，并且变成了一个完整的集成开发环境。具 备了相应的其它高级程序语言的一系列功能。
四、 Vusual LISP集成环境
1、进入：打开AutoCAD软件，在命令行输入：vlide,或在下拉菜单
般不用数据溢出。 注：在-1到+1之间的小数必须书写完整，不能将0.5写成.5
实型数可以用科学计数法来表示：如1234.56可以写成1.23456E3 或12.3456E2等。
13
续
• 字符串（str):是用双引号括起来的字符序列。字符串中的字
母的大小写和空格都有效。
字符串中的字符个数称为字符串的长度。如“1236”的长度为4， “我爱你，中国！”的长度为7， “我爱你 中国！”的长度也为 7。但当字符串中没有任意字符时，其长度为0。如“”长度为0。 又如“ ”的长度为1，因为双引号中有一个空格。
12
第二章：数据类型、表达式和函数
2.1 数据类型
• 1、整型(int)：就是整数。由数字和正负号组成。整数的范围是：
-2147483648到+ 2147483647 （约20亿） 这个范围不需要大家强记，计算机存储整数是有一定范围的， 不是任意整数都能存储。
2、实型(real)：就是带小数点的数。这个类型的数范围非常大，一
7
第一章：概述
一、关于LISP
LISP（list processing language):广泛应用的一种程序设计语言， 主要用于人工智能，专家系统，博弈等领域。它也被称之为符号 式语言，因为它主要处理对象是符号表达式。

第5章 AutoLISP基本函数函数是AutoLISP语言处理数据的基本工具，学习AutoLISP编程最主要的是要掌握AutoLISP语言系统内部函数和符号的基本用法。

如：函数的调用格式，即函数名、参数的个数及类型；函数的功能、求值情况及返回值类型等。

AutoLISP基本函数主要包括：数值函数、赋值与求值函数、表处理函数、字符串处理函数、逻辑运算函数和控制结构函数等。

5.1 数值函数数值函数用于处理整型数和实型数，数值函数包括：基本算术函数、三角函数、数据类型转换函数。

数值函数的返回值类型取决于参数表中参数的数据类型。

AutoLISP中数值计算要遵循整实原则，具体运算规则为：A.整整得整；B.实实得实；C.整实得实。

例：command: (/ 18 4 2) 返回： 2command: (* 4.5 2.0) 返回：9.0command: (+ 6 4.2) 返回：10.25.1.1 基本算数函数这类函数包括：+、-、*、/、1-、1+、abs、sqrt、min、max、expt、exp、log、gcd、rem 1) (+ 〈数〉〈数〉… )功能: 求表中所有整数或实数的和。

例如:Command:(+ 1.2 3.1 3.8)返回：8.12) (- 〈数〉〈数〉… )功能: 求表中第 1 个数减去后面所有数的差, 当表中只有一个数时, 返回这个数的相反数。

例如:Command:(- 8. 1 5)返回：3.1Command:(- 0.25)返回：-0.253) ( *〈数〉〈数〉… )功能: 求表中所有数的积, 例如:Command:( * 0.0174533 30)返回：0.5235994) (/ 〈数〉〈数〉… )功能: 求表中第1 个数除以后面所有数的商。

例如:cmnmand:(/ 10 5 2.0)返回：1.05) (1+ 〈数〉)功能: 求一个整数或实数加 1 的和。

例如:Command:(1+ 2.7)返回：3.76) (1- 〈数〉)功能: 求一个整数或实数减 1 的差。

• • • • • • • • • • •
\\ 表示字符 ”\” \” 表示字符 “” “ \r 表示回车 \n 表示换行 \nnn 表示八进制代码为nnn的ASCII字符 字符串常数的最大长度为100，但赋给一个符号的字符串长度没有这个限制。 下列都是合法的字符串 “\nEnter first point:” 注意换行的写法 “ABC\”D” 注意字符串中含“的写 法 “c:\\Autocad2000\\FONTS\\TEXT.SHX” 注意目录的写法 “” 空串 2.1.4 符号
• • • •
•
• • • • • •
2.1 AutoLISP的数据类型 整型(INT)、实型(REAL)、字符型(STR)、符号(SYM)、表(LIST)、内部函数 (SUBR)、文件描述符(FILE)、实体名(ENAME)、选择集(PICKSET)、函数分 页表(PAGETB)、VLA对象（Visual Lisp Activex）。 2.1.1整型 整数由数字组成，不包含小数点。AutoLISP 的整数是 32 位带符号的数，取 值范围从 +2,147,483,647 到 -2,147,483,648（注意，getint 函数只接受 16 位的数，即 +32767 到 -32678）。当用户在 AutoLISP 表达式中直接使用整 数时，该值被称为常量。数字 2、-56 和 1,200,196 都是有效的 AutoLISP 整 数。 如果输入的数超出了允许的最大整数（导致整数溢出），AutoLISP 会将整数 转换为实数。然而，如果对两个有效整数执行算术运算，其结果超出了允许 的最大整数，得出的数是无效的。下面样例说明 AutoLISP 如何处理整数溢 出。 最大的正整数保留其值： _$ 2147483647 2147483647 如果输入一个大于允许最大值的整数，AutoLISP 将其值返回为实数： _$ 2147483648 2.14748e+009

1.
1.2.2 表和点对

表—放在一对相匹配的左右括号中的一个或多个元素的有
序集合。有两种基本类型的表： 1.标准表-用于函数调用，如：(setq x 15) (* 4 6 3） … 2.引用表-用于数据处理，如：‘(3 4 7) „(“cad” 56 y)…

点对-由圆点将左右元素分隔开的表，常用于构造
1.2 AutoLISP的数据类型
整型数（INT） 实型数（REAL） 符号（SYM） 字符串（STR） 表（LIST） 文件描述符（FILE） AutoLISP的内部函数（SUBR） 选择集（PICKSET） 图元名（ENAME） 函数分页表（PAGETB）
1.2.1 原子
整型数 如：0，1，2，-25，68，3678 … 2. 实型数 如: 4.3, -2.36, 47.542, 2.5E-6, 1.8E12 … 3. 字符串 如：“ABC” “234” “BDe56” “这是字符串” … “ ” “\nPress Any Key!” 4. 符号原子 如：x1,a24,ab,B*,r-2,u_1 … 注意： ( ) . „ “ ; 这些符号不能作为符号原子！
例如：(+ 4 8 3 1)
（defun addx5 (x) (+ x 5) );end
返回：16
command:(addx5 8)
4) 5)
返回：13
6)
如果标准表是多层嵌套的，其求值结果总是从最里层的表开始，并依次向 外层求值，最后返回顶层表的结果。 若求值器读入的既不是数字、字符串、文件指针、系统内部函数、符号原 子，也不是一个有效的函数调用的表，则求值器将给出相应的出错提示。 例如：command: (satq a 15) 返回： 错误：空函数。 在任何时候按下Ctrl-C键，都将中断AutoLISP 的求值。

§5.2 AutoLISP程序设计一、概述LISP语言（List Processing Language的缩写）是一种表处理语言。

因为LISP在描述表方面有独到之处，且本身灵活而精巧，自创立以来，在人工智能的程序设计中得到广泛应用。

在英、美等国应用尤为普遍。

AutoLISP是LISP语言的一个版本，其独特性在于专门为AutoCAD开发的。

所以AutoLISP仅能运行于AutoCAD软件包环境里。

同样，也正是在AutoCAD内置AutoLISP这样一种灵活、精巧的开发语言，使得AutoCAD 得到进一步广泛使用。

1．A utoLISP特点：（1）AutoLISP语言是一种仅能以解释方式运行于AutoCAD内的程序设计语言。

即：脱离AutoCAD环境，它就不能运行。

（2）AutoLISP语言是函数型语言，其函数和数据形式是一致的，即（function argument）·function（函数名）：内建函数或用户自定义函数名；·argument（参数）：参数种类：①变量（V aribles）②常量（Constants）③其他函数（function）所以表达式可以嵌套.④标志数（flag）⑤可选性参数（optional parameters）因此，表达式的形式是：“先说做什麽，再说对谁做”。

（3）可以在AutoLISP程序中引用AutoCAD的几乎所有功能进行图形处理的自动化，尤其是较深层的应用——对象数据库的操作。

在Visual LISP的协助下，对于AutoCAD进行操作功能上的讨论，LISP仅比ARX少一个功能。

在AutoCAD R14已经不再使用ADS程序设计，取而代之的是ARX程序设计模式。

ARX一般是在AutoCAD和开发商中使用。

使用Visual C++作为基本程序设计语言，其效率、数据处理和软硬件的控制能力都是相当好的。

但是，要想真正发挥这种开发模式的作用，对于程序设计者的要求也较高。

程序编写原则 1 先写出对称的括号，再添入其内的函 数和参数。 2 适当缩排，使程序各语句间主从关系 明确化。 3 做必要的空行，以区分程序中的各单 元。 4 尽量加上注释。
例如： ;暂不考虑除数为零的情况 (defun test1 (a b) (setq w (+ a b) x (- a b) y (* a b) z (/ a b) z1 (/ a b 1.0) ;避免出现整数相除 ) )
2其他常用语法 1）(rem <数1> <数2><数3>…. 函数返回数1除以数2 的余数，如果参数 多于两个，则将<数1 >除以<数2>的余数再 除以<数3>的余数….返回。 2）(max <数1> <数2><数3>….) (min <数1> <数2><数3>….)
3） (exp <数1> ) 返回e的<数1> 次幂的值。 4） (expt <底数> <指数>) 返回<底数> 的<指数>次方。 5）(log <数1> ) (exp)的反函数，返回<数1> 的自然对数 值 6） (abs <数1> )
五 常量、变量与数据类型 常量 AutoLISP有四个内建常量，在设定变量 和自定义函数时，要避免和这四个常量同 名 t 真假值中的真值。 nil 空值，同时代表真假值中的假值 pi 圆周率值 pause 双反斜线\\字符，用于函数等待 用户输入
序列 LISP语言是专门以序列（list）形式处理 的，序列就是把一群数据用括号括起来， 类似数学中集合的概念。如: ( “p1” 3.3 12 38.5) 四元素序列 ((2 3) 12) 两个元素序列 () 空序列 后面的课程里我们将发现AutoCAD图形 文件中的对象数据与符号表,全是以序列状 态保存的。

AutoLISP语言第一节概述1．1简介AutoLISP是一种嵌入AutoCAD内部的LISP语言。

它可让用户和AUTOCAD 开发者以非常强大的高级语言编写出宏语言程序和函数，它非常适合于图形的应用，LISP很易于学习和使用，它也非常灵活多变。

1．2AUTOLIAP中的数据类型．表．符号．字符串．实型数．整型数．文件指针．AUTOCAD实体名．AUTOCAD选择集．子程序整型数是16位带符号的数，因此，它的范围是在—32768和+32767之间。

实型数是以双精度的浮点数表示。

字符串可以是任意长度，它们的存贮空间是动态分配的。

1．3AUTOLISP的求值程序、词汇约定每一个LISP解释程序的核心就是求值程序。

求值程序装入用户的输入行，对它进行计算，并返回一些结果。

AUTOLISP的输入可以采用好几种形式。

它们可以在运行AUTOCAD时从键盘输入，也可以从ASCII文件读入，或者可以从字符串变量读入。

在所有这些形式中，必须要遵守上定的约定：1．符号名称可以由除下列字符之外的所有可打印字符序列组成：（）．’”；2．符号和函数名称（子程序）在AUTOLISP中大小写等效。

符号名称不能以数字开头。

3．实型数由一个或多个数字组成，后面跟着小数点，再就是一个或多个数字；如：“．4”并不被认作为实型数，“0．4”才是正确的写法。

4．文字字符串是一个由双引号引起来的字符序列。

在引起来的字符串中，可以使用反斜号，使得其中包括的控制字符可被正确识别，规定：\\ 表示字符“\”\n 表示换行\e 表示ESC\r 表示回车\t 表示光标\nnn 表示其八进制码为nnn的字符第二节AUTOLISP函数AUTOLISP提供了大量的预定义函数，本节介绍一些主要的函数。

需要说明的是，逻辑常数T与NIL这两个值相当于逻辑上的真与假。

是两个特殊原子。

这两个原子的值预先设置为T和NIL；常数PI表示数学上的π，它不是一个函数。

2．1数值运算函数1．（+ 〈数〉〈数〉…）函数返回所有数的总和2．（—〈数〉〈数〉…）函数返回所有数的差3．（* 〈数〉〈数〉…）函数返回所有数的积4．（/ 〈数〉〈数〉…）函数返回所有数的商其中的〈数〉可以是整型的，也可以是实型的。

AutoLISP程序入门教学资料AutoLISP程序入门-教学资料一. AutoLISP简介(优越性及缺点）AutoLISP语言是开发Autocad的主要工具，是LISP语言和Autocad有机结合的产物，在Autocad的发展及壮大过程中起到了重要的作用。

正是以AutoLISP为代表的开放式结构，才使Autocad在众多的CAD软件竞争中长期处于不败之地。

AutoLISP是一种解释型语言，可直接在Autocad中运行，而不象编译型语言必须借助于编译器对原程序进行编译和连接，才能生成可执行的代码模块，用户只需借助于文本编辑器（例如DOS的"EDIT"程序）即可进行编程。

AutoLISP(List Processing Language)是一种表处理语言?quot;表"是AutoLISP语言独有的数据结构，在AutoLISP中广泛使用，表是在一个变量中储存大量相关数据的有效方法。

例如AutoCAD中以三个实数(X Y Z)这种表的形式来表示三维点。

二. 在AutoLISP的赋值方法不象大多数计算机语言采用"中缀法"来表示程序语句（表达式），而采用"前缀法"。

例如：C语言中为实型数X赋值125.0，写成：X = 125.0;运算符"="放在操作数X和125.0之间。

而AutoLISP中则写成：(setq X 125.0)运算符"setq"放在操作数X和125.0之前。

"setq"是AutoLISP最主要的赋值函数，几乎所有的变量赋值都要依?quot;setq"来实现。

三. 如何向AutoCAD增加一个新命令（或如何定义一个函数）一般程序的结构组成及加载在下面的例子中，我们将了解AutoLISP语言一般程序的结构组成、如何定义一个在AutoCAD中可执行的函数、"setq"的用法以及如何在AutoCAD中加载程序。

第一篇基本知识第1节基本知识AutoLISP是一种针对扩充及自订AutoCAD函数机能而产生，以LISP为基础的程序设计语言.LISP本身于50年代末期出现，是一种擅于处理串行文字(List of Processing)，属第四代人工智能(Artificial Intelligence)的计算机语言。

目的是令使用者充份利用AutoCAD进行开发，直接增加及修改AutoCAD指令。

AutoLisp语言建基于普通的LISP语言上，并扩充了许多适用于CAD的特殊功能而形成。

是一种能以直译方式(不须先行编译)亦可于AutoCAD内部执行的直译性程序语言。

程序容易学习及撰写，程序即使出错亦不会对操作系统(如DOS，WINDOWS)有不良影响。

数据及程序均统一以串行 (List)结构表示。

优点：可直接调用几乎全部的AutoCAD命令。

既具备一般高级语言的基本结构和功能，亦有一般高级语言没有的强大图形处理能力。

内建于AutoCAD应用程序，不须另行购买；亦不须使用特定的编辑器或开发环境。

可配合AutoCAD提供的PDB，建立DCL(Dialog Control Language)文件创建对话框。

缺点：执行速度较ObjectArx(旧称ARX，以C或C++程序开发，取代以前的ADS)程序慢；原程序不易保护；对低阶的硬件数据不易存取。

第2节函数(Function)在AutoLISP程序语言中所有的成份都是以函数的形式出现，AutoLISP程序就是顺序执行连串的函数。

函数的运行过程就是对函数的求值(结果)过程；函数的基本语法： (函数名称参数1 参数2……) 例如： (PRINC "AutoLISP Programming") 每一个完整的函数必须包在一对小括号( )内，左边为开括号，右边为关括号；如有若干数量的开括号，则一定有同等数量的关括号对应；左边开括号后紧随函数名称；函数名称与参数之间，或参数与参数之间须最少留一个空格；函数可有一个或多个参数(也可能没有参数)，视该函数而定；函数名称不分大小写，即大小写字母视为相同。

自定义函数(2)
3.定义AutoCAD命令 用defun C：函数可以定义AutoCAD命令，格 式如下：
(defun C:AutoCAD命令名（/局部变量表）表达式…… 如定义通过矩形的对角点画矩形的命令，源代码如 下： ( defun C:rect(/p1 p2 p3 p4) (setq p1(getpoint “\n 输入矩形的一个角点”）） （setq p3 (getcorner p1 “\n 输入矩形的另一个角点”）） （setq p2(list (car p3) (cadr p1)) (setq p4 (list (car p1) (cadr p3))) (command “pline” p1 p2 p3 p4 “c”) )
Visual Lisp简介(2)
AutoLISP程序由注释和表达式组成。与其他 的高级语言不同的是，它的注释用；来表示。 而表达式用的是前缀表示法，即把运算符放在 表的第一个元素位置，后面才是其他参数。表 达式一般是通过调用函数来执行。
变量(1)
1.符号：用来作为变量、函数的名字。符号可 包含数据和字符((、)、. 、‘、 “、；除外)。 符号的长度最好不要超过6个字符。 2.变量的数据类型：不需对变量事先进行类型 说明，变量被赋值时，值的类型就是变量的类 型。在程序运行过程中，同一变量在不同的时 刻可以赋予不同类型的值。 3.赋值： (setq 变量1 值1 ［变量2 值2 ……］)
Lisp语言是人工智能领域中广泛采用的一种 程序设计语言。 AutoLisp 程序和autoCAD的绘图命令可以 透明的结合起来，使设计和绘图完全融为一 体。还可以实现对AutoCAD图形数据 直接访 问、修改，为实现对图形的实时修改、交互 设计、参数化设计以及在绘图领域中应用人 工智能提供了必要的条件。是一种人工智能 绘图语言。

AutoLISP简介AutoLISP规定了函数的形式:一: ( function argument )1.( ) 括号,表示执行某一函数,而括号中的内容即所要执行的部分.2.function 表示函数名. AutoLISP就是根据菡数名来区分各基本函数和用户自定义的函授数的.3.argument表示函数的参4.如果函数中套有函数称为嵌套函授数. AutoLISP允许用户使用诸如下列嵌套函授数:( fun1 (fun2 argu2) (fun3 argu3))(1)括号“(” 和“)”要匹配使用,用户在编写AutoLISP程序时一定要注意左\右手枪号匹配问题.(2)AutoLISP程序中,所有的括号( )和双引号" " 都必须在英文状态下输入,即必须是半角符号,为AutoLISP不识加紧中文全角符号.二: 设置变量函数( setq或SETQ )格式:(setq 变量名１值１[变量名２值２变量名３值３···])功能:创建给定的变量,并赋特定值.说明:(１)setq函数允许用户同时设置多个变时并赋予相应的数值.(２)对于字符串类型的值,应加上“”以于区分.注意:各变量名\数值之间只用空格隔开,而不能用其它标点符号,如要把３赋给变量abc可采用setq abc 3)方式.三: 执行AutoCAD标准命令( command )格式: ( command" 标准命令" "具体参数1" "具体参数2" ······)例如: (1)如果要画从(5,3)到(7,8)再到@10<0 三点的联机,可采用:( command " Line" "5,3" "7,8" "@10<0" "")(2)如果用户从已经定义的P1点到P2点画一条直线,可采用:( command "Line" P1 P2 "")四: 选择定点( getpoint)格式: getpoint("\n操作提示:")功能:用户可通过键盘输入体的坐标参数,可以用十字光标在屏幕区域内选取一点,通过该函数, AutoLISP就得知了用户所选取的点的坐标值.说明:(１)A utoLISP将首先显示用户设置的操作提示,在此提示下,才可确定某一给定一点.(２)G etpoint的操作提示中\n表示换行.通常,我们都是用(setq P1(getpoint"\n请输入第一点的坐标: "))这和方式来选取给定的点,并把该点坐标赋给变量P1.五: 目标捕捉( osnap)格式; osnap 给定顶点名称“目标捕捉方式”功能:以某种特定的目标捕捉方式, 捕捉最近给定顶点的某个特殊点.语名( setq Pt2(osnap pt1 "midp"))表示捕捉靠近Pt1端的中点,并把该中点坐标赋给Pt2六: 提取实体名称( entlast)格式: entlast功能:将用户的操作的上一实体的名称提取出来.( setq m (entlast))表示把用户的操作的上一实体的名称提取出来.并赋于m 这样AutoCAD就可以通过变量m来识别图形实体.例如:(1) Command :(command "circle" "5,5" "2") 以(5,5)这点为圆心,2为半径画一个圆.(2) Command :(command"line" "3,5" "7,5" "") 以这2点画一条直线,然后结束命令(３)Command :(setq el (entlast))(４)Command :(setq pt "5,7") 将点(5,7)赋给变量pt(５)Command :(command "trim" el "" pt "") 剪切多余的线.通过entlast 函数得知用户操作的上一实体为直线,并把该直线的实体名赋给变量el 这样el 就代表该直线.用户自定义函数AutoLISP提拱defun函数用以自定义用户函数,操作格式如下:( defun c :XXX( )表达式)现就该格式作说明:(1):defun 函数后面所跟C :XXX( )是一种特定的格式,XXX是用户定义函数的函数名.(2):表达工可由AutoLISP基本函数变量\字符串和运算符等组成,是用户定义函数的核心部.(3):定义完函数后,用户就可像AutoLISP基本函数一样调用XXX( )函数.注意:(1):defun 函数后所跟的C并不是代表硬盘驱动器符C,而是代表command line fuuction (命令行函数).(2):用这种方式所定义的函数XXX( ) 是无参函数,即不允许携带参数.(3):定义后,该函数XXX( ),还可以像AutoCAD基本命令一样,在command: 提示符下输入XXX并回车激活运行.(4):XXX( )函数, 还可以像AutoCAD透明命令一样,在某一函数运行过程中XXX形式运行.例如:( defun C : LXH( )(setq P1( getpoint"\ n请确定零件标注线第一点: ")(setq P2( getpoint"\ n请确定零件标注线第二点: "))( command "Line" P1P2 "@5<0" "")(setp P3 ( osnap P2 "midp" ))(command "dtext" " J " " bc" P350 )( Princ ))。