AutoLisp编程入门.docx

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的值赋给xSetq能完成多项“设置相等”例如：(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) (sin minbr)数学函数 功能 +加 -减 *乘/除1+自增11-自减1FLX截取实数的整数部分FLOAT整数变为实数REM返回除法的余数EXPT指数SIN求弧度角的正弦COS求弧度角的余弦ATAN求两个数字的反正切注意：AutoLISP的角是弧度值而不是角度值。例如：45度的角的正弦值(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)TEXTBOX（查找一行文字的矩形外框） POLAR（指定距离和角度返回一个3D点）几何函数 功能 AngleX轴和由2个点定义的直线间的（弧度）夹角 Distance2点之间的3D距离 Polar在某一个(弧度)角度上的3D点 Osnap对某一个点应用对象捕捉模式后的3D点 Inters4个点定义的3D交叉点2.条件函数例：在一个绘制楼梯间的AutoLISP例程中，一部分程序检查层高是否大于8英寸：如果大于，就绘制出14级台阶，如果小于就绘制13级台阶。(if (height 96) (setq steps 14) (setq steps 13)条件函数注释=等于/=不等于小于大于=大于或等于If如果那么否则Cond查找真的表达式Repeat重复n次表达式While重复验证表达式直到假命题出现ForEach计算表达式中所有数值的表达式值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) 返回34STRCAT函数通过混合变量和文字将字符串连接在一起并创建返回信息。(strcat autocad “used all over” using) 返回“A software package used all over the planet Earth ”字符串函数功能StrCase把所有的文字转换成大写或小写StrCat连接所有的字符串StrLen返回字符串中的字符数SubStr返回字符串的一部分WcMatch在字符串中匹配通配符如何把45度37分11秒即AutoCAD表示的45d3711呢？这就要用到一个名称为ANGTOF的转换函数。它把包含格式化的角度的字符串转换为弧度（实数），如下例：(angtof “45d3711”1)返回0.796214 d表示度 表示分 表示秒 之所以这样用是为了不至于与后引号（”）混淆，后引号表示字符串的结束。ANGTOF函数能完成几种AutoCAD支持的单位之间的转换，而用状态值来表示转换的类型，本例中的1是状态值。几个用到模式值的AutoLISP函数如表：模式说明示例0十进制度45.37111度-分-秒45d37112分度100.12343弧度0.39644测绘单位N45d3711E模式数值与AUNITS系统变量的数值一致。当您不知道单位的设置时，可以用该系统变量求得模式的数值。(angtof “45d3711” (getvar “aunits”) 返回0.796214GETVAR函数可获取系统变量的数值。转换函数功能字符串转换AtoF字符串转换为实数AtoI字符串转换为整数RtoS数字转换为字符串ItoA整数转换为字符串Ascii把首字符转换为ASCIIChr把ASCII码转换为字符数值转换CvUnit基于acad.nut数值的单位转换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.0GETREAL函数会自动把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 AutoCADAutoLISP所有GET函数如下表：GET函数功能字符串、数值、角度GetAngle用户选取的（弧度）角GetOrient独立于ANGBASE和ANGDIR的角（弧度）GetString用户输入的文字GetInt用户输入的整型值GetReal用户输入的实型值InitGet限制用户输入数据GetK Word基于INITGET限制获取输入数据选取的点GetPoint用户输入或单击点的x,y,z坐标GetCorner矩形的第二个角点GetDist两点之间的距离5选择集函数AutoCAD的SELECT命令一次只可对一个选择集进行操作，但是AutoLISP的SSxxx命令却可对最多128个选择集操作。AutoLISP创建和检验选择集函数如下表：SS函数功能SsGet选择图形中的对象SsAdd将对象添加到选择集SsDel从选择集中删除对象SsLength报告选择集中对象的数目SsMemb检查一个对象是否在选择集中SsName报告选择集中第n个对象的名称对象操作函数大部分对象操作函数以ent开头，是entity的简写，是AutoCAD对象的原名。要创建并操作对象，ENT函数要作用于DXF格式的变体。该变体被称为“点对”。比如，作用于一个名为RightOfWay的层，就要用以下的格式、“2 .RightOfWay” 引号表明数据的开始与结束。中间的点（.）用于分隔两个值：2是层名的DXF代码：而RightOfWay是层名。要应用对象操作函数就需要对DXF格式有较好的理解。AutoLISP的对象操作函数如表：Ent函数功能EntMake新建对象EntGet获取描述对象数据TblObjName从符号表中获取对象名HandEnt返回对象的识别码（id）EntNext获取数据库中的下一个对象EntLast获取新建对象EntSel提示用户选择一个对象NEntSel提示用户选择一个对象并返回选取点的坐标EntMod修改对象EntUpd对象修改后刷新屏幕EntDel删除对象高级AutoLISP函数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.22154CDR函数是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，该变量定义了5种单位类型，如下表：类型 单位 1科学2小数3工程4建筑5分数Uprec是保存精度的变量名。不懂下面接着看哦。精度类型的含义依赖于单位的类型。比如：类型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追加数据。类型符的小写相当重要，这也是AUTOLISP中唯一区分大小写的地方，OPEN函数的类型符在下表中说明“类型说明“a”将数据追加到文件末尾“q”删除原有数据，并将数据写到文件中“r”从文件中读取数据第二步：将数据写进文件用WRITE-LINE函数将数据写进文件。该函数只能将一行数据写进文件中（与之相关的，WRITE函数写一行字符到文件中）。代码如下：(write-line xyz1 fil)一些软件如电子表格，数据库程序，甚至一些文字处理软件用逗号分隔数字来读取数据，这称为“逗号分隔值”或称CSV8.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.00007.0856，4.4820，0.000062.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键就可以了：在命令行直接输入：x3. 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 labe