AutoLisp编程入门

AUTOLISP编程

基本指南：两数求和

在命令行输入：(+ 2 3) (- 2 3) (* 2 3) (/ 2 3)

如果直接输入(/ 2 3)则会显示0 因为2和3是整型所以AutoLisp把这些数字译为整型（AutoLisp进行了四舍五入）所以输入(setq x (/2.0 3))就可得到0.666667六位小数

在命令行输入：!p则会显示p这个变量的值

SETQ和变量

Setq是来保存计算的结果的，相当于给一个变量赋值例：

(setq x (/2.0 3)) 这边x是变量就是把2.0/3的值赋给x

Setq能完成多项“设置相等”例如：

(setq x 1.0 y 2.0 z 3.0) 就是分别赋给x y z 赋值

AutoLISP函数

1.数学函数

(min 7 3 5 11) 就是取7 3 5 11这四个数的最小值

(setq minbr (min 7 3 5 11))

(setq rad (*(/ 45 180.0)pi))

2.几何函数

(setq p1 '(1.3 5.7)) ‘表示指定2个（3个）的坐标值，这样AutoLISP就不会计算这些值了

(setq p2 '(7.5 3.1))

(setq p3 '(9 4))

(setq p4 '(0.1 2.5))

(distance p1 p2)

(angle p1 p2)

(inters p1 p2 p3 p4)

(osnap p1 "mid")

2.

例：在一个绘制楼梯间的AutoLISP例程中，一部分程序检查层高是否大于8英寸：如果大于，就绘制出14级台阶，如果小于就绘制13级台阶。

3.

(strlen “Using AutoCAD”)

STRLEN函数将报告Using AutoCAD为13个字符，计算空格。可以看到Using AutoCAD被引号括起来表明它是字符串。如果输入(strlen Using AutoCAD),AutoLISP会试图查询变量Using 和AutoCAD所包含字符串的长度。

(strlen autocad “A software package”)

(strlen using “the planet Earth”)

(strlen using autocad)返回34

STRCAT函数通过混合变量和文字将字符串连接在一起并创建返回信息。

如何把45度37分11秒即AutoCAD表示的45d37’11’’呢？这就要用到一个名称为ANGTOF 的转换函数。它把包含格式化的角度的字符串转换为弧度（实数），如下例：

(angtof “45d37’11\’’”1)返回0.796214 d表示度‘表示分\’’表示秒之所以这样用是为了不至于与后引号（”）混淆，后引号表示字符串的结束。

ANGTOF函数能完成几种AutoCAD支持的单位之间的转换，而用状态值来表示转换的类型，本例中的1是状态值。几个用到模式值的AutoLISP函数如表：

得模式的数值。

(angtof “45d37’11\’’” (getvar “aunits”)) 返回0.796214

4

任何在命令提示行中完成的操作都可以很轻松地用COMMAND函数来完成。例如：(command “circle”“2,2”“D”“1.5” ) 该命令行的意思是创建以一个圆心坐标为（2，2）直径为1.5的圆其实这表示的意思都是我们平常画圆操作的顺序。

我们可以看到所有的文字都用引号括起来，所有的内容都被认为是字符串，即使是数字也是如此。

(command“text”“5,10”“1.5”“”“Using AutoCAD”) 其中那个红色引号的意思是旋转文字属性按enter键结束就是不旋转文字的意思。另一方面通常代表ENTER来退出TEXT命令会以闭括号结束。然而，对于那些自动回复的命令如LINE命令，“”是需要的。

(command “line “1,2”“3,4”“”) 当您最后忘记””时候，AutoCAD会留下下一点的信息不会结束命令。

要高效地应用CAMMAND函数，你必须知道AutoCAD的300条命提示顺序。可以看下“参考书”

注意的是“任何在COMMAND函数提示下输入信息可用于CAOMMAND。”注意“输入”这个词。该函数不能对对话框和工具栏宏起作用。用对话框的命令不能用在COMMAND中。

获取系统变量

AutoLSIP提供了2个更直接的函数：GETVAR(获取一个系统变量的值)和SETVAR （设置或者修改这个值）

系统变量SPLFRAME用于确定样条多段线控制框是否显示。默认值是0意思是不显示。(getvar “splframe”) 返回值为0

(setvar “splframe” 1) 就是设置splframe显示控制框

Get函数

GETSTRING函数提示用户输入文字，并把它保存在txtstr

在命令行输入：(setq txstr (getstring T “What do you want to write?”) )

在命令行出现：What do you want to write？然后输入Using AutoCAD

返回Using AutoCAD

注意这里附加的AutoLISP标识符T，它是一个AutoLISP操作，可允许GETSTRING 中的字符串的包含空格。如果省去T，GETSTRING只会接纳首空格之前的文字，在COMMAND：提示下也是同样的情况（结尾只有Using 而没有AutoCAD）GETREAL函数提示用户输入一个高度值。例如：

（setq txtHt(getreal “How big do you want the letter?”）

在命令行出现：How big do you want the letter?输入2

在命令行返回2.0

GETREAL函数会自动把2（整数）转化为实数2.0，你也可以不用输入数值，直接在工作窗口单击2点让AutoLISP自动读取2个点的距离。如果你误输入了文字，AutoCAD会重新叫你输入。

(setq TxtAng(getangle “Tilt the text by how much?”)

GETANGLE函数提示用户输入一个角度，并把它转换成弧度值。与上面函数一样可以在工作窗口单机2点。

(setq TxtIns (getpoint “Where do you want the text to start?”))

在命令行出现：Where do you want the text to start?

这时你就选取一个点假如我选取的是（27，30，20）

GETPOINT函数提示用户输入文字的起点坐标：可以输入一个值，一个二维坐标或者三维的，或者在制作窗口单击一点。若只输入一个值则认为是0，0点到当前点的极轴距离。若输入文字则会返回错误信息。

通过以上的变量参数可以执行TEXT命令:

(command“text” TxtIns TxtHt TxtStr)

会出现Using AutoCAD

5

AutoCAD的SELECT命令一次只可对一个选择集进行操作，但是AutoLISP的SSxxx命令却可对最多128个选择集操作。

大部分对象操作函数以ent开头，是entity的简写，是AutoCAD对象的原名。

要创建并操作对象，ENT函数要作用于DXF格式的变体。该变体被称为“点对”。

比如，作用于一个名为RightOfWay的层，就要用以下的格式、

“2 .RightOfWay”引号表明数据的开始与结束。中间的点（.）用于分隔两个值：2是层名的DXF代码：而RightOfWay是层名。要应用对象操作函数就需要对DXF 格式有较好的理解。

AutoDesk公司提供了差不多4打函数来控制AutoCAD图形中的对象与外部数据库中的记录之间的ASE（AutoCAD结构化查询语言扩展名）连接。这些函数不难定位：他们都以Ase_开头，如ASE_LSUNITE和ASE_DOCMP

还有2打AutoLISP函数用来载入和控制对话框。如LOAD_DIALOGUE和NEW_DIALOGUE.有一组5个函数用来进行内存管理。但它们用途很小，所以Autodesk公司建议不必使用。

6．编写AutoLISP函数

指南：步骤1——选取点

在COMMAND函数中用ID命令，如（command “id”）;

在GETVAR函数中用LASTPOINT系统变量，如（getvar “lastpoint”）;

在GETPOINT函数，如（getpoint”Pick a point”）

1.在command:提示下输入：(command "id")选取一个点假如x=

2.3 y=

3.0 z=5.0

然后输入(setq xyz (getvar “lastpoint”)) 则会出现（2.3 3.0 5.0）“LASTPOINT”

是被引号括起来的系统变量名，因为他是字符串。

2.(setq xyz (getpoint “Point:”)) getpoint将显示提示文字point：，并等待用户

选取一个点。假设x=2.3 y=3.0 z=5.0

指南：步骤2——放置文字

要把文字放在图形中有一个简单的办法：用COMMAND函数与text命令结合（高级手段是用ENTMAKE）

一个够格的AutoLISP程序：(setq xyz (getpoint "Pick point"))

(command “text” xyz 200 0 xyz)

程序命名

为了对程序命名，用DEFUN函数括起全部代码，如下所示：

(defun c: label (/xyz)

(setq xyz (getpoint “Pick point:”))

(command “text” xyz 200 0 xyz)

)

DEFUN用来定义程序名（在AutoLISP中，函数，程序和例程这些词汇交替使用）

Label 是给出的程序名。可以给出任意名称，只要与AutoLISP内置数名和用户定义的全局函数名不冲突就行。

C:是使是使AutoLISP例程与AutoCAD命令一致的前缀。这使用户在COMMAND：提示下简单的输入label就可以了。

如：在命令行中输入：label 然后选取一个点

如果前缀c：省略，那么程序必须作为一个AutoLISP函数来运行——用括号括起来。

如：在命令行输入：（label）然后选取一个点

注意：可以不用c: 而用其他前缀，以此来区分您编写的子程序。如下例：(defun zhg:label)

（/xyz）给出了输入和局部变量的名称，斜线用于分隔两种类型的变量：

输入变量为AutoLISP例程提供数据，输入变量名出现在斜线前面，如：（name/）; 局部变量只在程序中应用，局部变量出现在斜线之后。如(name/xyz)

闭括号”）”是程序开始时开括号的平衡符。

指南:保存和载入程序

(defun c:label (/ xyz)

(setq xyz (getpoint "Pick point"))

(command "text" xyz 200 0 xyz)

)

把该程序以文件名label.lsp存入AutoCAD的\support文件夹中。

所有的AutoLISP程序用.lsp后缀来识别。

要在AutoCAD中载入AutoLISP程序，使用LOAD函数（该函数区别于AutoCAD 中用来载入图形文件的LOADA命令。）

(1 )在命令提示行中输入load函数，该函数包含载入AutoCAD的程序名称。如：

（load “label”）

(2) 如果没有找到AutoLISP程序，会提示：未能找到label文件。在这种情况

需要指定路径。假设label.lsp保存在\my documents文件夹中，您应当输入如下信息：(load “\\my documents \\label”)

注意双反斜线（\\）的使用。也可以用一个正斜线：（load “/my documents/label”）

(3) 可以运行载入程序：

Label 然后选取一个点

AutoCAD提供了一个自动载入AutoLISP程序的方法。AutoCAD开始启动

时会自动查找一个名为acaddoc.lsp的文件，并自动载入该文件列出的

AutoLISP程序名。

要添加label.lsp并不难

(1)用文字编辑软件打开acaddoc.lsp文件。

（如果acaddoc.lsp不存在，则新建一个文件并把他保存在AutoCAD

的\support文件夹中。）

(2)添加AutoLISP程序的名称

(load “label.lsp”)

(3) 存acddoc.lsp文件

(4)启动AutoCAD，label程序会自动载入。

使用CAR和CDR:

假设我们在cad中点击一下则出现点的坐标，假设某一个点的坐标是(6.104809 8.145555 10.332554)显然小数位比较多，有时候我们只需要保留一位或者两位的小数位。下面我们就来编写一段减小小数位的程序：

首先给大家介绍一个系统变量LUPREC,他其实就是UNITS命令的一个设置精度的功能如图我们输入LUPREC也可以实现我们所需要的小数位如图

首先编写代码并保存为文件名label.lsp

(defun c:label ()

(Setq xyz (getpoint “Pick point:”))

(command “text” xyz 200 0 xyz)

)

题外话：每次我在word文档编辑的时候复制代码到cad的命令行都会出

现错误，因为双引号的问题，在word文档打入英文的双引号你一复制到记事本中就变成中文的双引号了。

可以运行试一试可以在命令行输入！xyz 就可以输出其xyz的坐标值AUTOLISP有专门的函数用来查分列表。假设一个点xyz的坐标是(3.22154 5.02685 50.54552)我想取x坐标的值或者y，z。

CAR函数就是提取列表中的首项目。在命令行输入(car xyz) 则会显示xyz的x的坐标值3.22154

CDR函数是CAR函数的互补函数：它从列表中剔除首选项目并选择余下的内容。在命令行输入(cdr xyz)则会输出(5.02685 50.54552)

AUTOLISP允许以多种方式组合a和d，以提取列表中其他位置的项目。为了提取y的坐标，使用CADDR:

在命令行输入(cadr xyz)则会显示(5.02685)

用CADDR提取z坐标：

在命令行输入(caddr xyz)则会显示50.54552

用刚学的代码将每个坐标保存在独立的变量中：

在命令行输入(setq ptx (car xyz)

Pty (cadr xyz)

Ptz (caddr xyz)

)

3个坐标已经分离，现在用来减少小数位的位数。ROTS函数一次完成2个任务：改变小数位数并把实数转换成字符串。

在命令行输入(rtos ptx 2 uprec)就会显示你想保留小数位数的值。不懂接着往下看。RTOS函数用到3个参数

Ptx是包含实数值的变量名

2是转换类型，本例中是小数类型。数字2基于系统变量LUNITS，该变量定义了

类型。比如：类型3对小数单位而言是“3个小数位”，而对建筑单位而是“8英寸”。如果Uprec指定精度为1，那么RTOS函数会将6.10049显示为6.1

哎呀，就是保留几位小数啦。

对x , y , z 坐标值截尾并保存，代码如下：

(setq ptx (rtos ptx 2 uprec)

Pty (rtos pty 2 uprec)

Ptz (rtos ptz 2 uprec)

)

可以设置与一个它本身等价的变量名，用RTOS获取后面的ptx值后，前面的ptx 保存x坐标的新值。变量名的再利用可以节省内存。

坐标截尾后用STRCAT函数把他们串接起来：

(strcat ptx pty ptz)

但是最终会显示“6.18.110.0”你分辨不出来是哪几个数字吧。但是AUTOlisp又没有空格，所以代码要写成(setq xyz (strcat ptx “,” pty “,” ptz ))最终会显示“6.1，8.1，10.0”这样就比较像样了。

在这边我建议大家用记事本编写下面代码：

(defun c:label (/ xyz xyz1 uprec ptx pty ptz)

(setq uprec (getint “Label precision:”))

(setq xyz (getpoint “Pick point:”))

(setq ptx (car xyz)

Pty (cadr xyz)

Ptz (caddr xyz)

)

(setq ptx (rtos ptx 2 uprec)

Pty (rtos pty 2 uprec)

Ptz (rtos ptz 2 uprec)

)

(setq xyz1 (strcat ptx “,” pty “,” ptz))

(command “text” xyz 200 0 xyz1)

)

注意：如果你把上面的代码复制粘贴到你的记事本并保存为label.lsp 格式的文件，cad载入该文件时有可能会说有错误。那是因为你复制的代码中的””英文输入法状态的双引号会变成中文状态的双引号。把它改成英文状态的双引号就可以了。我的电脑就是有这种问题，我是在word文档里写代码的，复制到记事本的。

(16)最后，在代码中添加注释，以便以后查看。分号（；）表示内容的开始：

;Label.Lsp labels a picked point with its x ,y ,z coordinates.

;by Chen Pingfeng,10,September,2012.

(defun c:label (/xyz xyz1 uprec ptx pty ptz)

;Ask user for the number of decimal places;

(setq uprec (getint “Label precision”))

;Ask the user to pick a point in the drawing;

(setq xyz (getpoint “Pick point:”))

;Separate 3D point into individual x,y,z-values:

(setq ptx (car xyz)

pty (cadr xyz)

ptz (caddr xyz)

)

;Truncate values:

(setq ptx (rtos ptx 2 uprec)

pty (rtos pty 2 uprec)

ptz (rtos ptz 2 uprec)

)

;Recombine individual values into a 3D point:

(setq xyz1 (strcat ptx “,” pty “,” ptz “,”))

;Place text:

(command “text” xyz 200 0 xyz1))

(17)把文件保存为label.lsp，然后载入AutoCAD中测试AutoLISP程序

在命令行输入：(load “label”)

“C:LABEL”

(18) 运行程序如图：

将数据保存到文件中

用OPEN WRITE-LINE和CLOSE函数可以很方便地将x,y,z坐标作为数据保存在文件中。但是它比较简单，所以AUTOLISP函数从文件中获取的数据功能相对较弱。

他只能按顺序读写ASCII文件。AUTOLISP不能处理二进制文件，也不能随机获取数据(AUTOCAD用户要求增加这些功能，但Autodesk公司不予支持。)

将数据写进一个文件分为3步：

1.打开数据文件；

2.将数据写进文件

3.关闭文件

其他大多数程序设计语言会要求用户首先创建文件，如果文件不存在AutoLisp 会创建的。

第一步：打开数据文件

用OPEN函数打开一个文件有3个目的：（1）从文件中读取数据；（2）把数据写进该文件；（3）在文件中追加数据。AUTOLISP一次只能完成其中的一项，所以用户必须用类型符来指定操作（必须是小写）：

“r”-----read 从文件读取数据

“w”----write 原有数据全部删除，然后添加新数据

“a”----append 将新数据添加到原有数据的末尾。

要使程序一直向文件中添加数据，选择追加模式。AUTOLISP代码如下：

在命令行输入：(setq fil (open “xyzdata.txt”“a”))则显示：#

几乎所有的程序设计语言都采用文件描述符而不是文件名。描述符是操作系统把文件实名按一定的字母和数字顺序排列产生的名称。可以看到AUTOCAD用#。

该代码把文件描述符存放在变量fil中，从此程序指向fil而不是文件名xyzdata.txt。“a”提示AUTOLISP打开xyzdata.txt追加数据。类型符的小写相当重要，这也是

用WRITE-LINE函数将数据写进文件。该函数只能将一行数据写进文件中（与之相关的，WRITE函数写一行字符到文件中）。代码如下：

(write-line xyz1 fil)

一些软件如电子表格，数据库程序，甚至一些文字处理软件用逗号分隔数字来读取数据，这称为“逗号分隔值”或称CSV

8.1518,3.2752,0.0000

这些程序把逗号当作一个分隔符而不当作字面上的逗号。这就允许电子表格软件在每个单元格中放一个数值，以便用户的后期处理。

回顾用STRCAT函数和CDR,CADR和CADDR函数分隔x,y,z插入坐标的方法，在两两之间逗号。

第三步：关闭文件

关闭文件是为了更好地保管（用户忘记时AUTOCAD会自动关闭文件，但优秀的程序员会随手关闭）。关闭文件很简单：

(close fil)

用记事本添加数据，并使之以粗体字出现在label.lsp副本的下一页中。

;Label.Lsp labels a picked point with its x ,y ,z coordinates.

;by Chen Pingfeng,10,September,2012.

(defun c:label (/ xyz xyz1 uprec ptx pty ptz)

;Ask user for the number of decimal places;

(setq uprec (getint “Label precision”))

;Ask the user to pick a point in the drawing;

(setq xyz (getpoint “Pick point:”))

;Separate 3D point into individual x,y,z-values:

(setq ptx (car xyz)

pty (cadr xyz)

ptz (caddr xyz)

)

;Truncate values:

(setq ptx (rtos ptx 2 uprec)

pty (rtos pty 2 uprec)

ptz (rtos ptz 2 uprec)

)

;Recombine individual values into a 3D point:

(setq xyz1 (strcat ptx “,” pty “,” ptz “,”))

;Place text:

(command “text” xyz 200 0 xyz1)

;Open the data file for appending:

(setq fil (open “xyzdata.txt”“a”))

;Write the line of data to the file:

(write-line xyz1 fil)

;Close the file

(close fil)

)

将代码载入AUTOCAD再次测试并运行。在您在图形中选取点的同时，例程标记了所选点并把该3D数据写进文件。稍后，该数据文件出现下列信息：

8.1548，3.2752，0.0000

7.0856，4.4820，0.0000

62.5562，5.5635，0.0000

可以根据需要把xyzdata.txt文件输入一个电子表格程序中。

注意：xyzdata.txt这个文件会自动生成，并保存在“我的文档”中。

附加程序增强功能

回顾期望列表中的一个项目是控制文字放置的图层，有2种方法达到此目的：

1.无代码法：在启动AutoLISP函数前设置图层；

2.有代码法：提示用户输入层名，然后用系统变量CLAYER进行设置：

(setq lname (getstring “Label layer:”))

(setvar “CLAYER” lname)

在Pick point 提示行前添加上面2行代码。

另一个增强功能是指定文字样式。同样有2种方法：无代码法在启动例程前设置文字风格；另一种方法是添加下列AUTOLISP代码：

(setq tsname (getstring “Label text style:”))

(setvar “TEXTSTYLE” tsname)

在一次在Pick point提示前添加上面2行代码。

AutoLISP使用小贴士:

将LSP代码载入AutoCAD中

1.用LOAD命令把AutoLISP代码载入AutoCAD:

在命令行输入：(load “points”)

2.如果你觉得上面比较烦的话，可以编写(defun c:x () (load “points”))

现在每次需要载入points.lsp程序时，只要键入x再按下ENTER键就可以了：在命令行直接输入：x

3.windows有一个快捷的方法：把.lsp文件从外面拖拽到CAD中如图：

切换系统变量：

系统的变量有0和1两个值，分别表示关于开。比如：系统变量GRIDMODE默认值为0；关闭时，网格不显示。（在低版本的CAD中）

当AutoLISP改变系统变量的值时，该办法可把它们设置回初始状态。

下面是一个代码段(setq splvar (getvar “splframe”))

…

(setvar”splframe” splvar)

取消NIL

每次运行一个AutoLISP例程时，在结尾都会显示令人讨厌的nil。Nil的出现是有原因的，但是有原因并不表明就该保留nil。用(PRINC)作为例程的结尾就可以禁止nil出现了。

;Label.Lsp labels a picked point with its x ,y ,z coordinates.

;by Chen Pingfeng,10,September,2012.

(defun c:label (/ xyz xyz1 uprec ptx pty ptz)

;Ask user for the number of decimal places;

(setq uprec (getint “Label precision”))

;Ask the user to pick a point in the drawing;

(setq xyz (getpoint “Pick point:”))

;Separate 3D point into individual x,y,z-values:

(setq ptx (car xyz)

pty (cadr xyz)

ptz (caddr xyz)

)

;Truncate values:

(setq ptx (rtos ptx 2 uprec)

pty (rtos pty 2 uprec)

ptz (rtos ptz 2 uprec)

)

;Recombine individual values into a 3D point:

(setq xyz1 (strcat ptx “,” pty “,” ptz “,”))

;Place text:

(command “text” xyz 200 0 xyz1)

;Open the data file for appending:

(setq fil (open “xyzdata.txt”“a”))

;Write the line of data to the file:

(write-line xyz1 fil)

;Close the file

(close fil)

)

(princ)

标点符号的问题：

文本字符串中的转义符必需用小写。比如\e是转义符（相当于ASCII 27），\t是制表符。注意他们用的是反斜线，因此不能应反斜线来分隔文件夹名。AutoLISP 会误认为您键入一个转义符。

AUTOLISP用引号（””）来识别字符串。这样您不能用一个引号来表示引号或者英寸了。如25英寸写作25”。代替方法是用转义符，专门用ASCII字符对应的八进制代码来表示引号。只要把042弄清楚，举一反三，其他就容易了。把字符串指定到变量中，如下表示:

(setq distxt “The length is ”)

(setq distval 25)

(setq qumark “\42”)

可以看到八进制码042指定给了变量qumark。反斜线提示了AUTOLISP后面的数字是八进制的（八进制是十六进制的一半：0 1 2 3 4 5 6 7 10 11 12 ……16 17 20 21 ….）。然后用STRCAT函数将以上3个字符串接起来：

(strcat distxt distval qumark)

文字已经正确：

“The length is 25”

对提示语句同样适用：

(prompt “The diameter is 2.54 \042”)

相类似的，可以把\009用于带制表符的空格文本。(prompt “The diameter is \009 2.54\42”)