LISP函数大全
AutoLisp函数
一、数学运算功能函数
1.l(十数值数值…)返回:累计实数或整数数值
1.2(一数值数值…)返回:差值
1.3(* 数值数值…)返回:所有数值乘积
1.4(/ 数值数值…)返回:第一个数值除以第二个以后数值的商
1.5(l十数值)返回:数值十l
l、 6(1—数值)返回:数值一l
l.7(abs 数值)返回:数值的绝对值
1.8(atan 数值)返回:反正切值
1.9(cos 角度)返回:角度的余弦值,角度值为弧度
1.10(exp 数值)返回:数值的指数
1.11(expt 底数指数)返回:底数的指数值
1.12(fix 数值)返回:将数值转换为整数值
1.14(gcd 数值1 数值2)返回:两数值的最大公因数
1.15(log 数值)返回:数值的自然对数值
1.16(max 数值数值…)返回:数值中的最大值
1.17(min 数值数值…)返回:数值中的最小值
1.18 pi 常数∏,其值约为3.1415926
1.19(rem 数值 1数值 2)返回:M数值的相除的余数
l.20(sin 角度)返回:角度的正旋值,角度值为弧度
1.21(sqrt 数值)返回:数值的平方根
二、检验与逻辑运算功能函数
2.l(= 表达式1 表达式2)比较表达式1就是否等于式2,适用数值及字符串
2.2 (／= 表达式1 表达式2)比较表达式1就是否大于等于表达式2
2.3(＜表达式1 表达式2) 比较表达式1就是否＜小于表达式2
2.4(＜= 表达式1 表达式2)比较表达式1就是否＜一小于等于表达式2
2.5(＞表达式1 表达式2) 比较表达式1就是否＞大于表达式2
2.6(＞= 表达式1 表达式2) 比较表达式1就是否大于等于表达式2
2.7 (～数值)返回:数值的位 not值,(1的补码)
2.8 (and 表达式1 表达式2…)返回:逻辑and的结果
2.9(boole 函数整数整数…)返回:位式布尔运算AutoLisp函数2/8
2.10(eq 表达式1 表达式2)比较表达式1与表达式2就是否相同,适用列表比较(实际
相同)
2.11(equal 表达式 1表达式 2［差量］)比较表达式 1与表达式 2就是否相同,差量可省
略(内容相同)
三、转换运算功能函数
3.l(angtof 字符串［模式］)返回:角度值的字符串转成实数
3.2(angtos 角度［模式［精度］］)返回:角度转成的字符串值
3.3(atof 字符串)返回:字符串转成实数值
3.4 (atoi 字符串)返回:字符串转成整数值
3.5 (cvunit 数值原始单位转换单位)返回:数值转换单位后的值转换根据acad.nut
文件
3.6(distof 字符串［模式］)返回:根据模式将字符串转成实数值
3.7(itoa 整数)返回:整数转成字符串
3.8(rtos 数值模式［精度］)返回:实数转成字符串
3.9 (trans 点原位置新位置[位移]) 返回:转换坐标系统值
四、列表处理功能函数
4.1 (append 列表列表……) 结合所有列表成一个列表
4.2(assoc 关键元素联合列表)根据关键元素找寻联合列表中关系信息
4.3 (car 列表)返回列表中的第一个元素,通常用来求X坐标
4.4(cadr 列表)返回列表中的第二个元素,通常用来求y坐标
4.5(caddr 列表)返回列表中的第三个元素,通常用来求Z坐标
4.6(cdr 列表)返回:除去第一个元素后的列表
4.7(cons 新元素列表)返回:将新元素添加到列表
4.8(foreach 名称列表表达式)返回:将列表的每一元素对应至名称再根据表达式执
行响应
4.9(length 列表)返回:列表内的元素数量
4.10(list 元素元素…)返回:将所有元素合并为一列表
4.11(listp 元素)返回:判断元素就是否为一串
4.12(mapcar函数列表1列表2…)返回:将列表1、列表2列表的元素配合函数,求
得新列表
4.13(member 关键元素列表)返回:根据关键元素(含似后的列表
4.14(nth n 列表)返回:列表的第n个元素AutoLisp函数3/8
4.15(reverse 列表)返回:将列表元素根据顺序颠倒过来的列表
4.16(subst 新项旧项列表)返回:替换新旧列表后的列表
五、字符串、字符、文件处理函数
5.l(ascii 字符串)返回:字符串第一个字符的“ASCII”码
5.2 (chr 整数)返回:整数所对应的ASCII单一字符串
5.3(close 文件名称)关闭文件
5.4(open 文件名模式)返回:打开文件代码,准备读取或写入信息
5.5(read 字符串)返回:列表中的字符串的第一组元素
5.6(read－char［文件代码］)返回:通过键盘或文件中读取单一字符
5.7(read－line ［文件代码］)返回:经由键盘或文件中读取一行字符串
5.8(strcase 字符串［字样］)返回:转换字符串大小写
5.9(strcat 字符串1字符串2…)返回:将各字符串合并为一个字符串
5.10(strlen 字符串)返回:字符串构成的字符数(即字符串长度)
5.11(substr 字符串起始长度)返回:取出于字符串‘
5.12(wcmatch 字符串格式)返回:T或 nil,将字符串与通用字符进行比较
5.13(write－char数值［文件代码］)返回:将一ASCII字符写到文件或屏幕 1
5.14(write－line字符串［文件代码］)返回:将字符串写到文件或屏幕上
六、等待输入功能函数
6.l (getangle ［基点］ [提示］)请求输入十进制角度数值,响应一个弧度值提示及参
考点可有可无
6.2(getcorner 基点［提示］)请求输入另一矩形框对角点坐标 6.3(getdist ［基点］［提
示］)请求输入一段距离
6.4(getint ［提示］)请求输入一个整数值
6.5(getkword ［提示］请求输入“关键词”
6.6(getorient ［基点］［提示］)请求输入十进制角度,响应一弧度值不受angbase、angdir
影响
6.7(getPoint ［基点］［提示］)请求输入一个点的坐标
6.8(getreal ［提示］请求输入一个实数
6.9(getstring [提示］)请求输入一个字符串
6.10(initget ［位］字符串)设定下次getxxx函数的有效输入
七、几何运算功能函数
7.l(angle 点1 点2)取得两点的角度弧度值
7.2(distance 点1 点2)取得两点的距离
7.3(inters 点1 点2 点3 点 4［模式］)取得两条线的交点
7.4(osnap 点模式字符串)按照捕捉模式取得另一坐标点
7.5(polar 基点弧度距离)按照极坐标法取得另一坐标点
7、6(textbox 对象列表)取得文字字符串的两个对角点坐标
八、对象处理功能函数
8.l(entdel 对象名称)删除或取消删除对象
8.2(entget 对象名称［应用程序列表］)取出对象名称的信息列表
8.3 (entlast) 取出图形信息中的最后一个对象
8.4(entmake 对象列表)建立一个新的对象列表
8.5(entmod 对象列表)根据更新的信息列表更新屏幕上元体
8.6(entnext [对象名称])找寻图面中的下一个对象
8.7(entsel ［提示］)请求选取一个对象,响应包含对象名称及选点坐标的列表;
8.8(entupd 对象名称)更新屏幕上复元体图形
8.9(handent 图码)返回:图码的元体名称
8.10(nentsel［提示］)返回:BLOCK所含副元体对象信息列表
8.11(nentselp ［提示］［点］)返回:BLOCK所含副元体对象信息似4*4矩形表示)
九、选择集、符号表处理函数
9.l(ssadd [对象名称］［选择集］)将对象加入选择集或建立一新选择集
9.2(ssdel 对象名称选择集)将对象自选择集中移出
9.3(ssget ［模式］［点 1］［点 2］取得一个选择集
9.4(ssget ”X” [过滤列表］)取得根据过滤列表所指定范围的选择集
9.5(sslenth 选择集)计算选择集的对象个数
9.6(ssmemb 对象名称选择集)响应对象名称就是否包含于选择集内
9.7(ssname 选择集索引值)根据索引值取出选择集中的对象名称
9.8(tblnext 符号表名称［T］)检视符号表,有效的符号表:”LAYER”、”LTYPE”、”VIEW”、”
STYLE”、”BLOCK”
LISP函数大全
AutoLisp函数 一、数学运算功能函数 1.l(十数值数值…)返回:累计实数或整数数值 1.2(一数值数值…)返回:差值 1.3(* 数值数值…)返回:所有数值乘积 1.4(/ 数值数值…)返回:第一个数值除以第二个以后数值的商 1.5(l十数值)返回:数值十l l、 6(1—数值)返回:数值一l l.7(abs 数值)返回:数值的绝对值 1.8(atan 数值)返回:反正切值 1.9(cos 角度)返回:角度的余弦值,角度值为弧度 1.10(exp 数值)返回:数值的指数 1.11(expt 底数指数)返回:底数的指数值 1.12(fix 数值)返回:将数值转换为整数值 1.14(gcd 数值1 数值2)返回:两数值的最大公因数 1.15(log 数值)返回:数值的自然对数值 1.16(max 数值数值…)返回:数值中的最大值 1.17(min 数值数值…)返回:数值中的最小值 1.18 pi 常数∏,其值约为3.1415926 1.19(rem 数值 1数值 2)返回:M数值的相除的余数 l.20(sin 角度)返回:角度的正旋值,角度值为弧度 1.21(sqrt 数值)返回:数值的平方根 二、检验与逻辑运算功能函数 2.l(= 表达式1 表达式2)比较表达式1就是否等于式2,适用数值及字符串 2.2 (／= 表达式1 表达式2)比较表达式1就是否大于等于表达式2 2.3(＜表达式1 表达式2) 比较表达式1就是否＜小于表达式2 2.4(＜= 表达式1 表达式2)比较表达式1就是否＜一小于等于表达式2 2.5(＞表达式1 表达式2) 比较表达式1就是否＞大于表达式2 2.6(＞= 表达式1 表达式2) 比较表达式1就是否大于等于表达式2 2.7 (～数值)返回:数值的位 not值,(1的补码) 2.8 (and 表达式1 表达式2…)返回:逻辑and的结果 2.9(boole 函数整数整数…)返回:位式布尔运算AutoLisp函数2/8 2.10(eq 表达式1 表达式2)比较表达式1与表达式2就是否相同,适用列表比较(实际 相同) 2.11(equal 表达式 1表达式 2［差量］)比较表达式 1与表达式 2就是否相同,差量可省 略(内容相同) 三、转换运算功能函数 3.l(angtof 字符串［模式］)返回:角度值的字符串转成实数 3.2(angtos 角度［模式［精度］］)返回:角度转成的字符串值 3.3(atof 字符串)返回:字符串转成实数值 3.4 (atoi 字符串)返回:字符串转成整数值
AutoLISP 基础——认识自定义函数
AutoLISP基础——认识自定义函数 (本文由LL_J?认识自定义函数?和?Autolisp编程心得?两篇巨著合成，并融入了其他人的一些经验，以快速打通你的任督二脉——自贡黄明儒注) 一、初识Lisp 在AutoCad命令输入(+ 1 2 3)，回车返回6，如下 命令: (+ 1 2 3) 6 恭喜你，你已经会写Lisp程序了。这里，我们用到了一个系统定义的函数+，这个函数的作用就是对后面的数字求和。 上式一对英文括号组成的表达式，称之为表，Lisp语言也称为表的语言。表有两种形式，一种是?口袋式?表；一种是?函数式?表。前者如’(0 0)表示一个2维点，前面加’表示此表不求值。如果不加‘，则通常是认为是?函数式?表。?函数式?表如下： ①结构特点：左括号(紧跟函数，函数所需要的参数，右括号)结束。 ②函数是指：系统定义的函数、自定义的函数、匿名函数lambda。如 ((lambda(x y z) (* x y z)) 3 4 5)是合理的。 ③参数可以是：数字（整数、实数）、字符串、T、nil、表（如果此 表是表、函数，就构成了复杂表，这就是lisp程序）、函数。 ④表可以作为函数的参数。如(+ 1 (- 5 2) 3)中，表(- 5 2)就作为+函数 的参数。 ⑤表的返回值也可以传递给其它变量，如(setq x (+ 1 2 3)) ⑥接受输入参数，如(- 5 2)中，-函数接受5和2两个参数。 二、什么是函数 函数一词最早来源于数学，维基百科这样说：函数是将唯一的输出值赋予每一输入的"法则"以及该输出值与对应输入值的集合。 在计算机领域，对函数并没有一个完整的定义，百度百科有这样一句话："许多程序设计语言中，可以将一段经常需要使用的代码封装起来，在需要使用时可以直接调用，所以，函数也可以说是许多代码的集合，这就是程序中的函数。 综合以上描述，我们可以看到"函数"的基本组成： 输入值：一般称为参数； 表达式：函数体，是代码的集合，共同组成上面所说的"法则"；
AUTO LISP函数参考5
AUTO LISP函数参考 4实体数据函数 下列函数可让用户检索和修改定义实体的数据,所有函数都用实体名指定要操作的实体. 4.1(entdel<实体名>) 如果由<实体名>指定的实体在当前图中,它就被删掉,如果在这次编辑中该实体已被删除,那么它将被重新恢复出来(从当前图中).退出图形编辑程序时,被删除的实体便从图中 彻底清除掉了,所以ENTDEL只能在删除实体的那次编辑过程中使实体再恢复.ENTDEL只对 主实体进行操作.对属性和多义线的顶点是不能脱离其双亲实体而予删除的(可使用COMM AND函数执行ATTEDIT或PEDIT命令来达到这一目的). 例如: (setq e1(entnext));置E1为图中第一个实体的名 (entdel e1);删去实体E1 (entdel e1);不删除(恢复)已被删去的实体E1 4.2(entget<实体名>) 从数据库中检索到名为<实体名>的实体,并以表形式返回,此表包含实体的定义数据表的结果以LISP的关联表形式编制,用ASSOC函数可以容易地从中检索每一项.表中的对象是用AutoCAD的DXF组码形式定义的,它们是为实体数据的每个部分准备的.例如,用下列命令序列画线,然后再检索此线: 对下面的例子,我们假定: .当前层是"0", .当前线型是"CONTINUOUS"(缺省值), .当前Z向高度是零(缺省值), .实体标号功能被关闭,而且 .FLATLAND系统变量值为零. 假设用下列命令画一条线: Command:LINE From point:1,2 To point:6,6 To point:RETURN 然后可以用下述命令为线检索实体数据: Command:(setq a(entget(entlast))) 假定系统变量FLATLAND为零(即要求3D点).这样,将把A置为下表(为了可读,作了缩进排列): ((-1.
lisp功能函数
一、数学运算功能函数 1．l（十数值数值…）返回：累计实数或整数数值 1．2（一数值数值…）返回：差值 1．3（* 数值数值…）返回：所有数值乘积 1．4（/ 数值数值…）返回：第一个数值除以第二个以后数值的商 1．5（l十数值）返回：数值十l l. 6（1—数值）返回：数值一l l．7（abs 数值）返回：数值的绝对值 1．8（atan 数值）返回：反正切值 1．9（cos 角度）返回：角度的余弦值，角度值为弧度 1．10（exp 数值）返回：数值的指数 1．11（expt 底数指数）返回：底数的指数值 1．12（fix 数值）返回：将数值转换为整数值 1．14（gcd 数值1 数值2）返回：两数值的最大公因数 1．15（log 数值）返回：数值的自然对数值 1．16（max 数值数值…）返回：数值中的最大值 1．17（min 数值数值…）返回：数值中的最小值 1．18 pi 常数∏，其值约为3．1415926 1．19（rem 数值1数值2）返回：M数值的相除的余数 l．20（sin 角度）返回：角度的正旋值，角度值为弧度 1．21（sqrt 数值）返回：数值的平方根 二、检验与逻辑运算功能函数 2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式2 2．3（＜表达式1 表达式2) 比较表达式1是否＜小于表达式2
2．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式2 2．5（＞表达式1 表达式2）比较表达式1是否＞大于表达式2 2．6（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式2 2．7 (～数值）返回：数值的位not值，（1的补码） 2．8 （and 表达式1 表达式2…）返回：逻辑and的结果 2．9（boole 函数整数整数…）返回：位式布尔运算 2．10(eq 表达式1 表达式2）比较表达式1与表达式2是否相同，适用列表比较（实际相同） 2．11（equal 表达式1表达式2［差量］）比较表达式1与表达式2是否相同，差量可省略（内容相同） 三、转换运算功能函数 3．l（angtof 字符串［模式］）返回：角度值的字符串转成实数 3．2（angtos 角度［模式［精度］］）返回：角度转成的字符串值 3．3（atof 字符串）返回：字符串转成实数值 3．4 （atoi 字符串）返回：字符串转成整数值 3．5 （cvunit 数值原始单位转换单位）返回：数值转换单位后的值转换根据acad．nut文件 3．6（distof 字符串［模式］）返回：根据模式将字符串转成实数值 3．7（itoa 整数）返回：整数转成字符串 3．8（rtos 数值模式［精度］）返回：实数转成字符串 3．9 （trans 点原位置新位置[位移]）返回：转换坐标系统值 四、列表处理功能函数 4．1 （append 列表列表……）结合所有列表成一个列表 4．2（assoc 关键元素联合列表）根据关键元素找寻联合列表中关系信息 4．3 (car 列表)返回列表中的第一个元素，通常用来求X坐标
AutoLISP详细讲解
AutoLISP详细讲解 关于AutoLISP AutoLISP是由Autodesk公司开发的一种LISP程序语言（LISP是List Processor的缩写）。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的《ACM通讯》中发表的。 除了FORTRAN和COBOL，大多数在六十年代早期开发出来的语言都过时了，可是LISP 却生下来，并且已经成为人工智能（AI）的首选程序序言。AutoLISP解释程序位于AutoCAD 软件包中，然而AutoCAD R2.17及更低版本中并不包含AutoLISP解释程序，这样，只有通过AutoCAD Ｒ2.18及更高版本才可以使用AutoLISP语言。 AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取得更高的效率。 现在，已经有数以百计的第三方软件开发人员使用AutoLISP语言编制各种应用程序软件包，例如，本文作者开发了一个名为SMLayout的软件包，用它可以产生各种复杂几何图形的平面布局图，这些几何图形包括管道的交叉部、过渡都、圆柱、弯管接头、圆锥以及罐顶。目前社会上非常需要AutoLISP程序员为应用软件及客户菜单的开发提供顾问。 在本章中，我们假定读者已经熟悉了AutoCAD命令及AutoCAD的系统变量。但是，在开始学习AutoLISP时，却并不需要你是一位AutoCAD或编程专家。同时，本章还假定读者并无编程方面的知识。如果你熟悉任何一种编程语言，那么学习AutoLISP就会很容易。对各种函数的评细探讨以及对例题的逐步讲解会使你学起来很有兴趣。本章讨论常用的AutoLISP函数以及它们Ｓ程序编制中的应用。对于本章中未涉及的函数，请参阅Autodesk 公司的《AutoLISP程序员参考手册》。AutoLISP对硬件没有任何特殊要求。如果系统能够运行AutoCAD，那么同样也可以运行AutoLISP。AutoLISP程序可以使用任何文本编辑器进行编制。 数学运算 任何编程语言都提供数学函数。在AutoLISP中，同样提供了编程以及数学计算所需的大部分数学函数，你可以使用AutoLISP对数字进行加、减、乘、除运算，还可以得到以弧度表示的角度的正弦值、余弦值及反正切值等。使用AutoLISP还可以进行许多其他计算。这一节主要讨论AutoLISP程序语言支持的常用数学函数。 1.加法 格式(+ num1 num2 num3…) 此函数（＋）计算加号（＋）右边所有数字的和(+ num1 num2 num3…)。这些数字可以是整数或实数。如果均为整数，则和为整数；如果均为实数，则和为实数。但是如果既有整数又有实数，则和为实数。如下所示，在前两个例子中，所有数字均为整数，所以结果是
AutoCAD二次开发所用的autolisp函数
AutoCAD二次开发所用的autolisp函数。 一、数学运算功能函数 1.l(十数值数值…)返回：累计实数或整数数值 1.2(一数值数值…)返回：差值 1.3(*数值数值…)返回：所有数值乘积 1.4(/数值数值…)返回：第一个数值除以第二个以后数值的商 1.5(l十数值)返回：数值十l l. 6(1—数值)返回：数值一l l.7(abs 数值)返回：数值的绝对值 1.8(atan数值)返回：反正切值 1.9(cos角度)返回：角度的余弦值，角度值为弧度 1.10(exp数值)返回：数值的指数 1.11(expt底数指数)返回：底数的指数值 1.12(fix 数值)返回：将数值转换为整数值 1.14(gcd数值1 数值2)返回：两数值的最大公因数 1.15(log 数值)返回：数值的自然对数值 1.16(max数值数值…)返回：数值中的最大值 1.17(min数值数值…)返回：数值中的最小值 1.18 pi 常数∏，其值约为3.1415926 1.19(rem 数值1数值2)返回：M数值的相除的余数 l.20(sin 角度)返回：角度的正旋值，角度值为弧度 1.21(sqrt数值)返回：数值的平方根 二、检验与逻辑运算功能函数 2.l(= 表达式1 表达式2)比较表达式1是否等于式2，适用数值及字符串 2.2 (/= 表达式1 表达式2)比较表达式1是否大于等于表达式2 2.3(<表达式1 表达式2) 比较表达式1是否<小于表达式2 2.4(<= 表达式1 表达式2)比较表达式1是否<一小于等于表达式2 2.5(>表达式1 表达式2) 比较表达式1是否>大于表达式2 2.6(>= 表达式1 表达式2) 比较表达式1是否大于等于表达式2 2.7 (～数值)返回：数值的位not值，(1的补码)
autolisp多段线处理函数集
;;164.1 [功能] 曲线是否封闭 ;;164.2 [功能]使多段线封闭 ;;164.3 [功能] 多段线端点列表 ;;164.4 [功能] 矩形中点坐标 ;;164.5 [功能] 参数param处的切线方向的角度;;164.6 [功能] 参数param处的法线方向的角度;;164.7 [功能] 曲线一点的切线方向的角度;;164.8 [功能] 曲线一点的法线方向的角度;;164.9 [功能] 去除多段线重点 ;;164.10 [功能] 判断点是否在曲线上 ;;164.11 [功能] 曲线长度 ;;164.12 [功能] 多段线子段数量 ;;164.13 [功能] 曲线中点 ;;164.14 [功能] 曲线一点的参数param ;;164.15 [功能] 参数param处的坐标 ;;164.16 [功能] 多段线第n子段的起点坐标;;164.17 [功能] 多段线第n子段的终点坐标;;164.18 [功能] 多段线所点击子段的两端点列表;;164.19 [功能] 多段线所点击点最近的一个顶点;;164.20 [功能] 多段线所点击子段param(索引) ;;164.21 [功能] 多段线所点击子段的起点坐标;;164.22 [功能] 多段线所点击子段的终点坐标
;;164.23 [功能] 多段线所击点离起点近 ;;164.24 [功能] 多段线所点击子段否是直线(返回nil是弧) ;;164.25 [功能] 求多段线上的弧段(圆或圆弧也有效)的圆心by caoyin ;;164.26 [功能] 求多段线上的弧段(圆或圆弧也有效)的圆心 ;;164.27 [功能] 判断多段线是否有圆弧(凸度/=0)的子段 ;;164.28 [功能] 判断多段线是否有圆弧(凸度/=0)的子段 ;;164.29 [功能] 连接线、弧成多段线 ;;164.30 [功能] 构造矩形by highflybird ;;164.31 [功能] 点表生成多段线 ;;164.32 [功能] 3D多段线 ;;164.33 [功能] 多段线反向(起点反成终点) byzml84 ;;164.34 [功能] 多段线删除顶点 ;;164.35 [功能] 多段线增加顶点 ;;164.36 [功能] 多段线修改顶点 ;;164.37 [功能] 多段线拷贝子段 ;;164.38 [功能] 修改多段线子段 ;;164.39 [功能] 修改多段线子段为直线 ;;164.40 [功能] 点在封闭多段线内返回T，其余nil By 狂刀 ;;164.41 [功能] 点在封闭多段线内返回T，其余nil By SmcTools ;;164.42 [功能] 判断点在封闭曲线内外，自交曲线不适用By Gu_xl ;;164.43 [功能] 点在封闭多段线内返回T;线上0;外nil ;;164.44 [功能] 多段线弧段全改为直线段
Autolisp编程心得
Autolisp编程心得 1.养成良好的书写习惯 众所周知，Lisp是一种表结构语言，括号必须成对出现，在调试时往往为遗漏了一个括号大 费周折，所以，养成一个好的编程习惯是学好Lisp所必须的。 ⑴选择一个较好的编辑器，这是一个基本条件，建议使用Visual Lisp编辑器或Lisplink 等 专用编辑器，此类编辑器可以对函数突出显示。 ⑵按Lisp（DCL）专有格式书写，并经常对程序进行“格式化”，及时发现语法错误，并有利于调试是查找错误。 ⑶使用自定义函数，并辅助以适当得注释，在较大程序中按功能使用自定义函数可以使得程序条理化。 2.函数中循环与转移的使用 在高级语言中一般有类似“goto”的语句实现转移，在AutoLisp中没有转移的函数。我们可 以使用自定义函数实现转移，用if及cond辅助实现条件转移。 当我们需要实现在满足一定条件时进行循环的功能，一般使用while函数，但有时需要判断的条件较复杂时，使用while函数往往不能实现或使得程序不够简洁。这时我们可以使用“转移”， 将需要实现的功能作为（子）函数，使用恰当，可以在程序中任意“转移”。 一般认为，当一段代码在不同处重复使用时，我们才会使用子函数定义，其实，利用函数的更大的优点是使得程序更加结构化。这就使得我们不必拘泥于程序中的循环语句，而使用函数的循环调用，辅助适当的判断，实现“转移”，如A->B->A。当然也可以进行自身调用，构成一个“标准的”循环。 如例一中，“程序执行完毕返回”与“空选返回”两种情况如果使用循环语句，其条件是完全不同的，而将函数本身作为子函数调用，程序简洁明了。 3.initget函数中关键字“ ”（空格）的使用 空格可以被用作关键字，一般多用来定义鼠标右键退出。 ⑴当用户输入函数不支持控制位（如entsel、nentsel、nentselp）时，可直接使用“(initget " ")”。 ⑵当用户输入函数支持控制位（如getpoint等）时，可使用“(initget 1 " ")”禁止空输入，而将回车等空输入作为关键字使用。 ⑶当同时使用其它关键字时，应该将空格作为一系列关键字的最后一个，用 “(initget "C ")”（两个空格）调用，否则无效。 见例一。 ************************************************ ;;例一 (defun ett_ct()
lisp函数
函数大全 一、数学运算功能函数 1．l（十 数值 数值…）返回：累计实数或整数数值 1．2（一 数值 数值…）返回：差值 1．3（* 数值 数值…）返回：所有数值乘积 1．4（/ 数值 数值…）返回：第一个数值除以第二个以后数值的商 1．5（l十 数值）返回：数值十l l. 6（1— 数值）返回：数值一l l．7（abs 数值）返回：数值的绝对值 1．8（atan 数值）返回：反正切值 1．9（cos 角度）返回：角度的余弦值，角度值为弧度 1．10（exp 数值）返回：数值的指数 1．11（expt 底数指数）返回：底数的指数值 1．12（fix 数值）返回：将数值转换为整数值 1．14（gcd 数值1 数值2）返回：两数值的最大公因数 1．15（log 数值）返回：数值的自然对数值 1．16（max 数值 数值…）返回：数值中的最大值 1．17（min 数值 数值…）返回：数值中的最小值 1．18 pi 常数∏，其值约为3．1415926 1．19（rem 数值 1数值 2）返回：M数值的相除的余数 l．20（sin 角度）返回：角度的正旋值，角度值为弧度 1．21（sqrt 数值）返回：数值的平方根 二、检验与逻辑运算功能函数 2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串 2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式2 2．3（＜ 表达式1 表达式2) 比较表达式1是否＜小于表达式2 2．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式2 2．5（＞ 表达式1 表达式2） 比较表达式1是否＞大于表达式2 2．6（＞= 表达式1 表达式2） 比较表达式1是否大于等于表达式2 2．7 (～ 数值）返回：数值的位 not值，（1的补码） 2．8 （and 表达式1 表达式2…）返回：逻辑and的结果 2．9（boole 函数 整数 整数…）返回：位式布尔运算
autolisp教程
第十四章 AutoLISP 14.1 关于AutoLISP AutoLISP是由Autodesk公司开发的一种LISP程序语言（LISP是List Processor的缩写）。第一篇关于LISP的参考文献是由John McCarthy 在1960年4月的《ACM通讯》中发表的。 除了FORTRAN和COBOL，大多数在六十年代早期开发出来的语言都过时了，可是LISP 却生下来，并且已经成为人工智能（AI）的首选程序序言。AutoLISP解释程序位于AutoCAD 软件包中，然而AutoCAD R2.17及更低版本中并不包含AutoLISP解释程序，这样，只有通过AutoCAD Ｒ2.18及更高版本才可以使用AutoLISP语言。 AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令。通过AutoLISP，你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取得更高的效率。 现在，已经有数以百计的第三方软件开发人员使用AutoLISP语言编制各种应用程序软件包，例如，本文作者开发了一个名为SMLayout的软件包，用它可以产生各种复杂几何图形的平面布局图，这些几何图形包括管道的交叉部、过渡都、圆柱、弯管接头、圆锥以及罐顶。目前社会上非常需要AutoLISP程序员为应用软件及客户菜单的开发提供顾问。 在本章中，我们假定读者已经熟悉了AutoCAD命令及AutoCAD的系统变量。但是，在开始学习AutoLISP时，却并不需要你是一位AutoCAD或编程专家。同时，本章还假定读者并无编程方面的知识。如果你熟悉任何一种编程语言，那么学习AutoLISP就会很容易。对各种函数的评细探讨以及对例题的逐步讲解会使你学起来很有兴趣。本章讨论常用的AutoLISP函数以及它们Ｓ程序编制中的应用。对于本章中未涉及的函数，请参阅Autodesk 公司的《AutoLISP程序员参考手册》。AutoLISP对硬件没有任何特殊要求。如果系统能够运行AutoCAD，那么同样也可以运行AutoLISP。AutoLISP程序可以使用任何文本编辑器进行编制。 14.2 数学运算 任何编程语言都提供数学函数。在AutoLISP中，同样提供了编程以及数学计算所需的大部分数学函数，你可以使用AutoLISP对数字进行加、减、乘、除运算，还可以得到以弧度表示的角度的正弦值、余弦值及反正切值等。使用AutoLISP还可以进行许多其他计算。这一节主要讨论AutoLISP程序语言支持的常用数学函数。 269
Lisp常用函数
Lisp常用函数 Lisp 语法及变量皆不分大小写(case insensitive)。 NIL 空串行，相当于'() 。另外真伪值表示时，T 表真，NIL 表伪。只要是任何不是NIL (空串行) 的值，真伪值都表示真。 QUOTE CODE: (QUOTE 参数) 将参数直接传回，不做任何评估动作。可用' (单引号)取代 SETQ, SETF, LET CODE: (SETQ 参数1 参数2) (SETF 参数1 参数2) (LET ((变量1名称变量1的值) (变量2名称变量2的值) ........ ) 变数1,2...的作用范围，既程序执行叙述 ) SETQ, SETF 将参数1的值连结至参数2。LET 只有在作用范围内有效。 注：SetQ => set quote; SetF => set form 注：全域变数习惯用两个* 把变量名称包起来，例如*globe-variable* CAR, CDR CODE: (CAR 串行参数) (CDR 串行参数) CAR 取得参数串行的第一个元素；CDR 取得扣掉第一个元素之后的新串行。
CONS CODE: (CONS 参数1 参数串行2) 把参数1 加到参数串行2 的第一个元素，产生出新的串行。 对任一串行A 而言，(CONS (CAR A) (CDR A)) 即为 A 。 注：如果第二个参数不是串行，则会产生出点对，故少用。 APPEND CODE: (APPEND 参数串行1 参数串行2 ........ ) 合并若干参数串行，形成新的串行。 注：如果最后一个参数不是串行，也会形成尾巴是带点的串行，故少用。LIST CODE: (LIST 参数1 ........ ) 将若干参数，当作是新串行的元素，形成新串行。 注：APPEND 除了最后一个之外的参数皆需为串行，而LIST 不用。NULL CODE: (NULL 参数) 判断参数是否为空串行(NIL)。 ATOM, LISTP, NUMBERP, ZEROP CODE: (ATOM 参数) (LISTP 参数) (NUMBERP 参数) (ZEROP 参数)
CADLISP函数
CADLISP语言 数据类型 1.表 2.文件描述符 3.实体名 4.选择集 5.内部函数（Auto LISP子程序） 赋值与数值计算函数 1.(1+ 数) 加1函数 2.(1- 数) 减1函数 3.（abs 数）求绝对值 4.（max数数……）求最大数 5.（min数数……）求最小数 6.(sqrt数)求平方根 7.（expt数幂）乘方 8.（exp 幂）e的任意次方 9.（log数）对数 10.（sin 角）正弦函数 11.（cos角）余弦 12.（atan数1[数2]）反正切函数 13.（rem数1 数2）求余数 14.（gcd数数……）最大公约数 15.（~ 整数）求补注：用pi表示圆周率π 16.(logand数数……)按位逻辑”与”函数 17.(logior数数……)按位逻辑”或”函数 18.(~ 数)按位逻辑”非”函数 19.（and 表达式……）逻辑”与”函数 20.（or 表达式……）逻辑”或”函数 21.（not 表达式）逻辑”非”函数 22.（lsh 数位数）位移函数 23.（boole 方式数1 数2……）布尔运算。方式有16种，如1为and,6为xor（异或），7为or,8为not等。 24.（= 原子原子……）等于函数 25.（/= 原子原子）不等于函数 26.（< 原子原子）小于函数 27.（<= 原子原子）小于等于函数 28.（> 原子原子）大于函数 29.（>= 原子原子）大于等于函数 30.（atom 项）原子测试
31.（listp 项）表测试 32.（boundp 原子）原子值测试 33.（null 项）空测试 34.（numberp 项）数值测试 35.（minusp 项）负值测试 36.（zerop 项）零测试 37.（eq 式1 式2）相同表达式测试 38.（equal式1 式2）相等测试 39.（wcmatch 字符串模式）字符匹配测试 分支与循环 1.（if 条件式1[式2]）若条件为真，则执行式1；否则执行式2。 2.（cond(条件1 式1……)（条件2 式2……）……）分支函数。如：（cond((minusp a)(- a))(T a)）求a的 绝对值。注：cond是AutoLISP中最基本的条件函数，由它为核心构成的自定义函数可以实现循环和递归等功能。 3.(repeat 次数式1 式2 ……)重复函数。将多个表达式重复执行多次。 4.（while 条件式1 式2 ……)循环函数。条件为真，执行表达式。否则结束循环。如：(setq s 0 a 1)（while(< a 101)(setq s(+ s a))(setq a(1+ a))）(print s) 计算0～100之间所有整数的和。 5.（progn 式1 式2 ……)求多个表达式值函数。在只能用一个表达式的地方，使用他可完成多个表达式的计算。 如if 语句中 字符串与类型转换函数 1.（ascii 字符串）ASCII码转换 2.（chr 整数）字符转换 3.（strcat 字符串……）字符串连接 4.（strlen 字符串……）字符串长度测试 5.（substr 字符串起点 [长度]）取子字符串。如果不设置长度，则取到最后一个字符。 6.（strcase 字符串 [方式]）字符串大小写转换。若指定了方式且非空（NIL），则把所有的字母转换为小写； 否则转换为大写。 7.（float 数）整型变实型 8.（fix 数）实型变整型 9.（itoa 整型数）整型变字符串 10.（atoi 字符串）字符串变整型 11.（atof 字符串）字符串变实型 12.（angtos 角方式精度）角度单位转换。“角”是以弧度为单位的实数，转换为其它单位，返回一个字符串。 该字符串是以“方式”和“精度”的要求，按AutoCAD的系统变量UNITMODE（单位模式）对“角”进行处理得到的，“精度”为小数点后的位数。“方式”有：0为度，1为度/分/秒，2为梯度，3为弧度等。 13.(rtos 数方式精度)实数计数制转换。方式：1为科学计数法，2为十进制，3为工程制（英寸与小数英寸）， 4为建筑制（英寸与分数英寸） 14.（cvunit 值旧单位新单位）单位制转换。单位名称可以是acad.unt文件中给出的任意单位格式，否则返回 NIL （trans 点旧坐标系新坐标系）坐标转换。坐标：0为WCS（世界坐标系），1为UCS（用户坐标系），2为DCS（显示坐标系） 表处理函数 1.（quote 表达式）引用函数。作用：告诉程序不要对后面的表达式求值。如：（quote（x y z））可简写为’ (x y z) 2.(car 表)取表中的第一个元素 3.（cdr 表）取子表函数。返回除第一个元素以外的所有元素组成的新表 4.由car与cdr组合而成的函数
常用有关对话框-AutoLISP函数
1.装入指定的DCL文件的函数load_dialog 格式：(load_dialogdclfile) 功能：在AutoCAD的搜索路径上寻找指定的DCL 文件并载入文件。与unload_dialog函数相对应。 2.卸载指定的DCL文件的函数unload_dialog 格式：(unload_dialogdcl_id) 功能：根据指定的DCL 文件句柄将相关联的DCL 文件从内存中卸掉。 其中，dcl_id表示的是DCL 文件句柄，用来标识DCL 文件。 3.初始化对话框函数new_dialog 格式：(new_dialogdlgnamedcl_id [action [screen-pt]]) 功能：初始化一个新的对话框并显示它，同时指定一个默认的动作。 其中，dlgname是新对话框名称；dcl_id是用load_dialog所取得的值，用来标识DCL 文件。用户可以为对话框定义一个默认动作，即格式中的action。screen_pt指定的是对话框的左上角在屏幕上的坐标，这也是可选项。用这一项可以使对话框在先前的关闭位置重新打开。 4.启动对话框的函数start_dialog 格式：(load_dialogdclfile) 功能：开始对话框并接受用户输入。 它必须在调用了new_dialog后才能调用，其返回值是一个传递给done_dialog的整数。用户按下了“OK”键，其值为1；按下“CANNEL”键，其值为0；如果所有的对话框都被term_dialog 终止，则返回-1 值。 5.终止显示当前对话框函数done_dialog 格式：(done_dialog [status]) 功能：停止显示对话框，该对话框为前一个new_dialog所指定的对话框。 其中，status 可有可无，有则必为一个正整数，该参数作为函数(start_dialog) 的返回值，以代替按钮的返回值。(done_dialog) 会返回一个表示对话框位置的二维点，可供后续的函数调用。 6.终止当前所有对话框的函数term_dialog 格式：(term_dialog) 功能：用于终止嵌套对话框。 如果应用程序在DCL 文件打开时终止运行，系统会自动调用该函数。 7.动作表达式初始化函数action_tile 格式：(action_tile key action_expression) 功能：使用用户定义的动作代替对话框中的默认动作或代替控件的动作属性。 其中，key 是一个字符串，它用来命名一个控件。action_expression也是一个字符串，用来命名动作表达式。 8.设置指定控件值的函数set_tile
AutoLisp功能函数大全
AutoLisp函数大全 一、数学运算功能函数 1．l（十数值数值…）返回：累计实数或整数数值 1．2（一数值数值…）返回：差值 1．3（* 数值数值…）返回：所有数值乘积 1．4（/ 数值数值…）返回：第一个数值除以第二个以后数值的商 1．5（l十数值）返回：数值十l l. 6（1—数值）返回：数值一l l．7（abs 数值）返回：数值的绝对值 1．8（atan 数值）返回：反正切值 1．9（cos 角度）返回：角度的余弦值，角度值为弧度 1．10（exp 数值）返回：数值的指数 1．11（expt 底数指数）返回：底数的指数值 1．12（fix 数值）返回：将数值转换为整数值 1．14（gcd 数值1 数值2）返回：两数值的最大公因数 1．15（log 数值）返回：数值的自然对数值 1．16（max 数值数值…）返回：数值中的最大值 1．17（min 数值数值…）返回：数值中的最小值 1．18 pi 常数∏，其值约为3．1415926 1．19（rem 数值1数值2）返回：M数值的相除的余数 l．20（sin 角度）返回：角度的正旋值，角度值为弧度 1．21（sqrt 数值）返回：数值的平方根 二、检验与逻辑运算功能函数 2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式2 2．3（＜表达式1 表达式2) 比较表达式1是否＜小于表达式2 2．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式2 2．5（＞表达式1 表达式2）比较表达式1是否＞大于表达式2 2．6（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式2
AutoLISP基础入门案例,很受用
单元一：AutoLISP主角潇洒登场 一. AutoLISP 是何方神圣? 1.AutoLISP是AutoCAD的最佳拍檔! 2.AutoLISP内含于AutoCAD软件内,不用另外花钱买! 3.AutoLISP是强化AutoCAD最好、最直接的『程序语言』! 4.AutoLISP易学、易用,即使不会程序设计的AutoCAD使用者,都能在最短 的时间内,写出令人惊讶、赞叹的功能! 5.若说AutoLISP的出现,是替AutoCAD 创造一片天的『最大功臣』,实不 为过一点也不夸张! 6.AutoLISP希望您去学习它、改善它、发挥它、享受它.真的!它的威力、魅 力无穷! 二. AutoLISP 程序语言的特质分析: 学习AutoLISP是非常容易的,对初学者而言,即使没有学习过任何的程序语言,都能很快的上手,写出精彩漂亮的AutoLISP程序! 三.撰写AutoLISP 的动机? 1.欲强化AutoCAD 原有指令时. 2.欲创造更有用的AutoCAD 新指令. 3.欲简化繁琐的环境设定或绘图步骤时. 4.欲处理参数式绘图时.
5.欲做图面资料读文件、写文件. 6.欲做AutoCAD 简报展示时. 7.欲达到真正灵活掌控AutoCAD 时. 8.欲提升自己跨上AutoCAD 高手列车时. 四.AutoLISP 的效益评估? 1. 对公司负责人或设计主管而言: A. 也许某员工或干部花了20个小时撰写一个AutoLISP程序,表面上,这将近三天的时间,他连一张图都没有画,甚至可能偶有发呆、沈思,若此程序一天可以替公司绘图部门节省1小时绘图时间,那算一算,只要20天就抵销开发成本,而20天以后都是赚的,『用的愈久,省的愈多』！ B.若员工皆有此动力,在不影响正常工作,『鼓励』都来不及,那有『压抑』的道理,甚至还要派遣优秀人员出去受 训,学习更好的设计技巧与创意呢？！ C.千万不要因为您的不懂或压抑,SHOW您的权威与POWER,如此,不但对员工造成打击,甚至您可能成为阻碍 了公司计算机化进步的罪魁祸首 D. 当然,若要撰写的程序很多,内部设计人员的程序功力距离太远,达成需求的时间反而变得遥遥无期,那倒不如求助于市面上已有的相关AutoCAD 支持软件。 2. 对设计人员而言:
lisp对话框
目录 第一篇．基本知识 (2) 第1节基本知识 (2) 第2节定义档 (2) 第3节批注 (3) 第4节对话框定义文件的内容模式 (3) 第5节练习 (4) 第二篇开启对话框 (5) 第1节AutoLISP函数加载DCL定义文件函数 (5) 第2节对话框开启方式 (6) 第3节编辑框组件(edit_box) (6) 第4节练习 (7) 第三篇设定及取得对话框组件内的值 (8) 第1节AutoLISP函数设定组件的值 (8) 第2节练习 (9) 第3节练习 (9) 第4节AutoLISP函数组件指定动作 (10) 第四篇按钮及核取框（切换钮） (11) 第1节按钮组件（button） (11) 第2节核取框（切换钮）组件（toggle） (12) 第3节练习 (12) 第五篇横列、直行、空白及文字组件 (15) 第1节横列（row）及直行（column）组件 (15) 第2节空白（spacer）组件 (15) 第3节字符串组件（text） (17) 第4节文字段落组件（paragraph） (17) 第六篇滑杆（滚动条）组件 (18) 第1节滑杆（滚动条）组件（slider） (18) 第2节练习 (19) 第七篇按钮及影像按钮组件 (21) 第1节自订按钮 (21) 第2节练习 (22) 第八篇清单选框 (25) 第1节清单选框组件(list_box) (25) 第2节AutoLISP函数开始处理清单选框或弹出式选框 (25) 第3节练习 (26) 第九篇下拉（弹出）式清单选框 (29) 第1节下拉式（弹出式）清单选框组件（popup_list） (29) 第2节练习 (30) 第十篇选台钮组件 (32) 第1节选台钮组件（radio_button） (32) 第2节练习 (33)
AutoLISP 函数大全
一、数学运算功能函数 l(+数值数值…) 返回：累计实数或整数数值 2(-数值数值…) 返回：差值 3(*数值数值…) 返回：所有数值乘积 4(/数值数值…) 返回：第一个数值除以第二个以后数值的商 5(l+ 数值) 返回：数值+l 6(1- 数值) 返回：数值-l 7(abs数值) 返回：数值的绝对值 8(atan数值) 返回：反正切值 9(cos角度) 返回：角度的余弦值，角度值为弧度 10(exp数值) 返回：数值的指数 11(expt底数指数) 返回：底数的指数值 12(fix数值) 返回：将数值转换为整数值 13(float数值) 返回：将数值转换为实数值 14(gcd数值1数值2) 返回：两数值的最大公因数 15(log数值) 返回：数值的自然对数值 16(max数值数值…) 返回：数值中的最大值 17(min数值数值…) 返回：数值中的最小值 18pi 常数∏，其值约为3.1415926 19(rem数值1数值2) 返回：M数值的相除的余数 20(sin角度) 返回：角度的正旋值，角度值为弧度 21(sqrt数值) 返回：数值的平方根 二、检验与逻辑运算功能函数 l(=表达式1表达式2) 比较表达式1是否等于式2，适用数值及字符串 2(／=表达式1表达式2) 比较表达式1是否大于等于表达式2 3(＜表达式1表达式2) 比较表达式1是否＜小于表达式2 4(＜=表达式1表达式2) 比较表达式1是否＜一小于等于表达式2 5(＞表达式1表达式2) 比较表达式1是否＞大于表达式2 6(＞=表达式1表达式2) 比较表达式1是否大于等于表达式2 7(～数值) 返回：数值的位not值，(1的补码) 8(and表达式1表达式2…) 返回：逻辑and的结果 9(boole函数整数整数…) 返回：位式布尔运算 10(eq表达式1表达式2) 比较表达式1与表达式2是否相同，适用列表比较(实际相同) 11(equal表达式1表达式2［差量］)比较表达式1与表达式2是否相同，差量可省略(内