lisp经典语句数值
lisp语言
正如欧几里德的几何世界中有五个公理一样，我们在这里给出Lisp世界中的7个公理（基本操作符）：(quote x)返回x，我们简记为’x(atom x)当x是一个原子或者空表时返回原子t，否则返回空表()。
在Lisp中我们习惯用原子t表示真，而用空表()表示假。
> (atom ’a)t> (atom ’(a b c))()> (atom ’())t现在我们有了第一个需要求出自变量值的操作符，让我们来看看quote操作符的作用——通过引用(quote)一个表，我们避免它被求值。
一个未被引用的表达式作为自变量，atom将其视为代码，例如：> (atom (atom ’a))t反之一个被引用的表仅仅被视为表> (atom ’(atom ’a))()引用看上去有些奇怪，因为你很难在其它语言中找到类似的概念，但正是这一特征构成了Lisp最为与众不同的特点——代码和数据使用相同的结构来表示，而我们用quote来区分它们。
(eq x y)当x和y的值相同或者同为空表时返回t，否则返回空表()> (eq ’a ’a)t> (eq ’a ’b)()> (eq ’() ’())t首先是三个表操作(car x)要求x是一个表，它返回x中的第一个元素，例如：> (car ’(a b))a(cdr x)同样要求x是一个表，它返回x中除第一个元素之外的所有元素组成的表，例如：> (cdr ’(a b c))(b c)(cons x y)要求y是一个表，它返回一个表，这个表的第一个元素是x，其后是y中的所有元素，例如：> (cons ’a ’(b c))(a b c)> (cons ’a (cons ’b (cons ’c ())))(a b c)看到这里大家可能会问，为什么没有取表中除开头外其它某个位置上的元素的操作符，别急，等我们讲到地球人都知道的函数和递归你就知道该怎么办了，也许你现在已经想得差不多了？接下来要介绍给大家的是构成程序逻辑的一个基本功能……条件分支，在Lisp 中，它是由cond操作符完成的，cond是七个公理中最后一个也是形式最复杂的一个（欧几里德的最后一个公理也如是）：(cond (p1 e1) (p2 e2)...(pn en))p1到pn为条件，e1到en为结果，cond操作符依次对p1到pn求值，直到找到第一个值为原子t（还记得吗？）的p，此时把对应的e作为整个表达式的值返回，例如：> (cond ((eq ’a ’b) ’first)((atom ’a) ’second))second好了，至此我们已经有了Lisp世界的所有基本公理，我们可以开始构建整个世界的规则了。
LISP循环语句
(if (= b 0)(setq d nil))
(command "Text" pnt1 a "0" e)
(setq pnt1 (list (car pnt1)(- (cadr pnt1) c)))
(setq b (getreal "\nNumber of text lines:"))
(setq c (getdist pnt1 "\nLine Spacing:"))
(setq d "T")
(while d
(setq e (getstring 1 "\nEnter Text:"))
(princ)
)
�
(setq test 1)
(while (<= test 10)
(some-func test)
(setq test (1+ test)
)
例2.下面的程序根据用户提供的文本高度、文本行数以及行间距往图形中写文本。
)
)
3. if
一. 功能
根据对条件的判断，对不同的表达式进行求值。
二. 格式
(if testexpr thenexpr [elesexpr])
三. 说明
如果testexpr的求值结果为非空，则对thenexpr进行求值；否则，对elsexpr进行求值。if函数返回所选择的表达式的值。如果没有elseexpr表达式且testexpr是nil，那么，if函数返回nil。
(defun Tex (/ pnt1 a b c d e f)
(graphscr)
LISP函数大全
AutoLisp函数一、数学运算功能函数1.l(十数值数值…)返回:累计实数或整数数值1.2(一数值数值…)返回:差值1.3(* 数值数值…)返回:所有数值乘积1.4(/ 数值数值…)返回:第一个数值除以第二个以后数值的商1.5(l十数值)返回:数值十ll、 6(1—数值)返回:数值一ll.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.14159261.19(rem 数值 1数值 2)返回:M数值的相除的余数l.20(sin 角度)返回:角度的正旋值,角度值为弧度1.21(sqrt 数值)返回:数值的平方根二、检验与逻辑运算功能函数2.l(= 表达式1 表达式2)比较表达式1就是否等于式2,适用数值及字符串2.2 (／= 表达式1 表达式2)比较表达式1就是否大于等于表达式22.3(＜表达式1 表达式2) 比较表达式1就是否＜小于表达式22.4(＜= 表达式1 表达式2)比较表达式1就是否＜一小于等于表达式22.5(＞表达式1 表达式2) 比较表达式1就是否＞大于表达式22.6(＞= 表达式1 表达式2) 比较表达式1就是否大于等于表达式22.7 (～数值)返回:数值的位 not值,(1的补码)2.8 (and 表达式1 表达式2…)返回:逻辑and的结果2.9(boole 函数整数整数…)返回:位式布尔运算AutoLisp函数2/82.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/84.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字符写到文件或屏幕 15.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”9.9(tblsearch 符号表名称符号)在符号表中搜寻符号十、AutoCAD相关查询、控制功能函数10.l(command ”AutoCAD命令”…)超重量级函数,调用执行 AutoCAD命令AutoLisp函数5/810.2(findfile 文件名)返回:该文件名的路径及文件名10.3(getfiled 标题内定档名扩展名旗号)通过标准 AutoCAD文件对话 DCL对话框获得文件10.4(getenv ”环境变量”)取得该环境变量的设定值,以字符串表示10.5(getvar ”系统变量”)取得该系统变量的设定值,以字符串表示10.6(setvar ”系统变量”值)设定该系统变量的值10.7(regapp 应用类项)将目前的AutoCAD图形登记为一个应用程序名称十一、判断式、循环相关功能函数11.1(If ＜比较式＞＜表达式1＞ [表达式2] 检算比较式结果,如果为真,执行＜表达式1＞,否则执行＜表达式2＞11.2( repeat 次数 [< 表达式＞＜表达式＞…］)重复执行 N次表达式11.3(While ＜比较式＞＜表达式＞…) 当条件成立则执行表达式内容11.4(cond ＜比较式 1＞＜表达式 1＞多条件式的 if整合功能＜比较式2＞＜表达式2＞＜比较式3＞＜表达式3＞)11.5 ( prong 表达式1 表达式2…) 连接其中的表达式为一组,常用于配合if、cond等函数十二、函数处理、定义、追踪与错误处理功能函数12.l(*error* 字符串)程序错误时的警示信息12.2(alert 字符串)以对话框式显示出警告字符串12.3(apply 功能函数列表)将功能函数与列表结合后执行12.4(defun 名称自变量列表表达式＿.)自定函数或子程序12.5(eval 表达式)返回:表达式的执行结果12.6(exit)强制退出目前的应用程序12.7(lambda 自变量表达式)定义未命名的函数12.8(progn 表达式1 表达式2…)连接其内的表达式为一组,常用于配合if、cond等函数12.9(quit)强制退出目前的应用程序12.10(tablet 代码 [列1列2列3方向])取用或建立对数字板的校调12.11(trace 函数…)对函数设定追踪标记,辅助检错12.12(untrace 函数…)对函数设定解除追踪标记AutoLisp函数6/8十三、显示、打印控制功能函数13.l(gfaphscr)作图环境切换到图形画面13.2(grclear)暂时清除模前的屏幕画面13.3(grdraw起点终点颜色[亮显］)暂时性的画出一条线13.4(grread［追踪］)由输入设备读取追踪值13.5(grtext位置字符串［亮显］)将字符串显示在状态列或屏幕菜单上13.6(grvecs向量列表［转置矩阵］)暂时性的画出多条线13.7(menucmd字符串);提供在 AlltOLISP中调用各菜单13.8(Prinl［表达式［文件代码］］将表达式打印于命令区或已打开的文件句柄字符则以“\”为前缀展开13.9(pinc［表达式［文件代码］］除句柄字符则不以”＼”为前缀展外开其余同Prinl13.10(print［表达式［文件代码］］除表达式会往下一新行列出,及空一格外其余同prinl13.11(prompt信息)将信息显示于屏幕的命令区,并随后响应一个nil信息13.12(redraw［对象名称［模式］］)重绘整张图或根据对象名称重绘该图形13.13(terpri) 在屏幕上显示新列13.14(textscr) 作图环境切换到文字画面13.15(textpage)清除文字画面文字类似 DOS的cls命令13.16(vports)返回:窗口组态列表十四、符号、元素、表达式处理功能函数14.l(atom元素)如果元素不就是列表,响应T,否则为nil14.2(atoms－family格式闲号列表］)返回:一组己定义函数的符号列表14.3(boundp表达式)返回:T或 nil,响应表达式就是否有值存在14.4(minusp元素)返回:T或n儿元素就是否为负值14.5(not元素)返回:T或n儿判定元素就是否为ni114.6(null元素)返回:T或nil判定元素就是否被赋予nil值14.7(numberp元素)返回:T或nil,元素就是否为整数或实数14.8(quote表达式)响应表达式未检算前状态,同“‘”功能14.9(set符号表达式)将表达式结果设定给带单引号’符号14.10(setq符号1 表达式1［符号2表达式2］…)设定表达式结果给各符号14.11(type元素)返回:元素的信息型态14.12(zerop元素)返回:T或nil,元素就是否为0值十五、ADS、ARX、AutoLISP加载与卸载函数AutoLisp函数7/815.l(ads)返回:目前加载ADS程序列表15.2(arx)返回:目前加载 ARX程序列表15.3(arxload应用程序［出错处理］))返回:加载 ARX程序15.4(arxunload应用程序［出错处理］))返回:卸载 ARX程序15.5(ver) 返回:目前 AutoLISP版本字符串15.6(load LSP文件名［加载失败］)加载 AutoLISP文件(*.lsp)15.7 (xload应用程序[错处理])加载ADS应用程序15.8 (xunloa应用程序［出错处理］)卸载 ADS应用程序十六、内存空间管理函数16.l(alloc数值)以节点数值设定区段大小16.2(expand数值)以区段数值配置节点空间16.3(gc)强制收回废内存16.4(mem)显示目前的内存使用状态16.5(xdroom对象名称)返回对象扩展信息允许使用的内存空间16.6(xdsize列表)返回对象扩展信息所占用的内存空间十七、其它重要的功能函数17.l(acad_colordlg 颜色码旗号)显示出标准 AutoCAD颜色选择对话框17.2(acad_helpdlg 求助文件名主题)显示出标准 AutoCAD求助对话框17.3(acad_strlsort字符串列表)作字符串列表排序17.4(bherrs) 取得 bhatch与 bpcly失败所产生的错误信息17.5(bhatch点［选择集[向量］］)根据 Pick point选点方式调用 bhatch命令,绘制选集区域的剖面线17.6(bpoly点［选择集[向量]］)根据Pick point选点方式调用bpoly命令并产生一定域Polyline17.7(cal计算式字符串)执行如 CAL计算功能十八、ADS、ARX外部定义的3D函数18、1(align自变量 1 自变量 2....)执行如 ALIGN命令各选项顺序18.2(c:3dsin模式3DS文件名)导入3DS文件18.3(C:3dsout模式3DS文件名)输出3DS文件18.4(c:background模式［选项］)设定渲染背景18.5(C:fog模式［选项］)设定渲染的雾效果18.6(C:light模式［选项］)设定渲染的灯光控制18.7(c:lsedit模式【选项1】设定渲染的景物控制18.8(C:lslib模式［选项］)管理景物图库18.9(c:matilb模式材质材质库名)管理材质数据库18.10(c:mirror3d 自变量1 自变量2……)执行如MIRROR3D命令18.11(C:psdrap模式)根据模式设定值(0或1),传唤psdrap命令18.12(C:psfill对象名称图案名称［自变量1［自变量2］］)以POStSCript图案填满18.13(c:psin文件名位置比例)插入一个Postscript(*.eps)文件18.14(c:render［渲染文件］)执行渲染效果18.15(C:r格式自变量1 自变量2 自变量3…)设定执行渲染选项18.16(c:replay影像文件名影像类别［选项］)展示影像文件TGA、BMP、TIF18.17(C:rmat模式选项)控管材质建立、贴附、编辑、分离18.18(c:rotate3d自变量 1 自变量2…)执行如 ROTATE3D命令各选项顺序18.19(C:rpref模式选项［设定］)渲染环境设定18.20(c:saveimg影像文件名影像类别［选项］)储存图像文件TGA、BMP、TIF18.21 (c:scene模式 [选项]) SCENE场景管理18.22(C:setuv模式选集自变量1 自变量2…)SETUV贴图模式管理18.23(C:showmat自变量1)显示对象的材质贴附信息18.24(C:solprof自变量 1 自变量工..)建立 3D实体的轮廓影像18.25(C:StatS［渲染信息文件］)显示渲染信息统计信息十九、ADS、ARX 外部定义的数据库相关函数19.l(c:aseadmin自变量1 自变量2…)管理外部数据库19.2(c:aseexportt自变量1 自变量2…)输出信息19.3 (c:aselinks自变量1 自变量2…)连接对象与信息19.4(c:aserow自变量1 自变量2…)管理外部信息表格19.5(c:aseselect自变量1 自变量2…)建立外部信息与对象选集19.6 (c:asesqled自变量 1 自变量2…) 执行SQL程序。
LISP语法
(dowhile (greater 5 (set `n (n+1)))
(printstr “time:” n “\n”) )
Cond
描述：多分支选择语句，遇到第一个为真的条件执行相应的动作 语法：cond
Read
描述：lisp 程序暂停并等待用户在键盘上的输入
语法：（read） 参数： 返回：输入的表达式 例子：（set `a(read)）键入 helloword 并回车，则 a 的值为 helloword
运算符，逻辑预算
And
描述：求一个表的各个成员真（T）假（NIL）值，当遇到 NIL 时停止求值即 返回 NIL，否则返回最后一个真值。 语法：and 成员 1 成员 2 …….. 参数： 返回： 例子：（and 1 2 NIL 3 4）判断到 NIL 时返回
(set `a “aaaa”) (set `b “bb”) (implode a b)返回 aaaabb
六．文件处理语句
Loadfile
描述：装载一个 lisp 文件 语法：loadfile filename 参数：filename 文件名 返回：返回文件的内容 例子：（loadfile test6）
Setp
描述：设置局部变量 语法： 参数： 返回： 例子：同 set
Unset
描述：取消全局变量或局部变量的设置 语法：unset `name 参数：name 变量名 返回：变量名 例子：（unset `str）
Define defun
描述：定义一个函数 语法：define fun_name(fun_argv)
LISP概览
AUTOLISP实例常用函数（十数值数值…）返回：累计实数或整数数值（一数值数值…）返回：差值（* 数值数值…）返回：所有数值乘积（/ 数值数值…）返回：第一个数值除以第二个以后数值的商（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串（＞表达式1 表达式2）比较表达式1是否＞大于表达式2（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式2（and 表达式1 表达式2…）返回：逻辑and的结果pi 常数∏，其值约为3．1415926（assoc 关键元素联合列表）根据关键元素找寻联合列表中关系信息（append 列表列表……）结合所有列表成一个列表（angle 点1 点2）取得两点的角度弧度值(car 列表)返回列表中的第一个元素，通常用来求X坐标（cdr 列表）返回：除去第一个元素后的列表（cadr 列表）返回列表中的第二个元素，通常用来求y坐标（caddr 列表）返回列表中的第三个元素，通常用来求Z坐标（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令（distance 点1 点2）取得两点的距离(eq 表达式1 表达式2）比较表达式1与表达式2是否相同，适用列表比较（实际相同）（entget 对象名称［应用程序列表］）取出对象名称的信息列表（entdel 对象名称）删除或取消删除对象(entlast）取出图形信息中的最后一个对象（getdist ［基点］［提示］）请求输入一段距离（getPoint ［基点］［提示］）请求输入一个点的坐标（getreal ［提示］请求输入一个实数（getstring [提示］）请求输入一个字符串（inters 点1 点2 点3 点 4［模式］）取得两条线的交点（length 列表）返回：列表内的元素数量（list 元素元素…）返回：将所有元素合并为一列表（max 数值数值…）返回：数值中的最大值（min 数值数值…）返回：数值中的最小值（nth n 列表）返回：列表的第n个元素（polar 基点弧度距离）按照极坐标法取得另一坐标点（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond等函数（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号（subst 新项旧项列表）返回：替换新旧列表后的列表（一）关于从选择对象中获取信息假设有一条直线：如右图所示：1：选择一个对象 (setq a (entsel))选择对象: (<图元名: 7ef860d8> (1054.61 606.392 0.0)) 2：获取图元名 (car a) 或（setq b (car a)）<图元名: 7ef860d8>3: 获取坐标（cdr a）或（setq c (cdr a)）((1054.61 606.392 0.0)) （此时为一个集合非坐标）（seta d (car c)）(1054.61 606.392 0.0)4: 获取X坐标值 (setq X (car d)) 1054.61获取Y坐标值（setq Y (cadr d)） 606.392获取Z坐标值（setq Z (caddr d)） 0.05：关于图元的信息内容以直线为例（entget b）或 (setq d (entget d)) ((-1 . <图元名: 7ef860d8>) (0 . "LINE") (330 . <图元名: 7ef84cf8>) (5 . "123")(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10832.092 691.499 0.0) (11 1309.43 517.764 0.0) (210 0.0 0.0 1.0))大括号内12项，分别以括号括起。
LISP函数（分类）大全
LISP函数（分类）大全AutoLisp函数一、数学运算功能函数1．l（十数值数值…）返回：累计实数或整数数值1．2（一数值数值…）返回：差值1．3（* 数值数值…）返回：所有数值乘积1．4（/ 数值数值…）返回：第一个数值除以第二个以后数值的商1．5（l十数值）返回：数值十ll. 6（1—数值）返回：数值一ll．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．14159261．19（rem 数值 1数值 2）返回：M数值的相除的余数l．20（sin 角度）返回：角度的正旋值，角度值为弧度1．21（sqrt 数值）返回：数值的平方根二、检验与逻辑运算功能函数2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式22．3（＜表达式1 表达式2) 比较表达式1是否＜小于表达式22．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式22．5（＞表达式1 表达式2）比较表达式1是否＞大于表达式2 2．6（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式22．7 (～数值）返回：数值的位 not值，（1的补码）2．8 （and 表达式1 表达式2…）返回：逻辑and的结果2．9（boole 函数整数整数…）返回：位式布尔运算AutoLisp函数2/82．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字符写到文件或屏幕 15．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”9．9（tblsearch 符号表名称符号）在符号表中搜寻符号十、AutoCAD相关查询、控制功能函数10．l（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令AutoLisp 函数5/810．2（findfile 文件名）返回：该文件名的路径及文件名10．3（getfiled 标题内定档名扩展名旗号）通过标准AutoCAD 文件对话 DCL对话框获得文件10．4（getenv ”环境变量”）取得该环境变量的设定值，以字符串表示10．5（getvar ”系统变量”）取得该系统变量的设定值，以字符串表示10．6（setvar ”系统变量”值）设定该系统变量的值10．7（regapp 应用类项）将目前的AutoCAD图形登记为一个应用程序名称十一、判断式、循环相关功能函数11．1（If ＜比较式＞＜表达式1＞ [表达式2] 检算比较式结果，如果为真，执行＜表达式1＞，否则执行＜表达式2＞11．2（repeat 次数[< 表达式＞＜表达式＞…］）重复执行N 次表达式11．3（While ＜比较式＞＜表达式＞…）当条件成立则执行表达式内容11．4（cond ＜比较式 1＞＜表达式 1＞多条件式的 if整合功能＜比较式2＞＜表达式2＞＜比较式3＞＜表达式3＞）11．5 （ prong 表达式1 表达式2…）连接其中的表达式为一组，常用于配合if、cond 等函数十二、函数处理、定义、追踪与错误处理功能函数12．l（*error* 字符串）程序错误时的警示信息12．2（alert 字符串）以对话框式显示出警告字符串12．3（apply 功能函数列表）将功能函数与列表结合后执行12．4（defun 名称自变量列表表达式＿．）自定函数或子程序12．5（eval 表达式）返回：表达式的执行结果12．6（exit）强制退出目前的应用程序12．7（lambda 自变量表达式）定义未命名的函数12．8（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond等函数12．9（quit）强制退出目前的应用程序12．10（tablet 代码 [列1列2列3方向]）取用或建立对数字板的校调12．11（trace 函数…）对函数设定追踪标记，辅助检错12．12（untrace 函数…）对函数设定解除追踪标记AutoLisp函数6/8十三、显示、打印控制功能函数13．l（gfaphscr）作图环境切换到图形画面13．2（grclear）暂时清除模前的屏幕画面13．3（grdraw起点终点颜色[亮显］）暂时性的画出一条线13．4（grread［追踪］）由输入设备读取追踪值13．5（grtext位置字符串［亮显］）将字符串显示在状态列或屏幕菜单上13．6（grvecs向量列表［转置矩阵］）暂时性的画出多条线13．7（menucmd字符串）；提供在 AlltOLISP中调用各菜单13．8（Prinl［表达式［文件代码］］将表达式打印于命令区或已打开的文件句柄字符则以“\”为前缀展开13．9（pinc［表达式［文件代码］］除句柄字符则不以”＼”为前缀展外开其余同Prinl 13．10（print［表达式［文件代码］］除表达式会往下一新行列出，及空一格外其余同prinl13．11（prompt信息）将信息显示于屏幕的命令区，并随后响应一个nil信息13．12（redraw［对象名称［模式］］）重绘整张图或根据对象名称重绘该图形13．13（terpri）在屏幕上显示新列13．14（textscr）作图环境切换到文字画面13．15（textpage）清除文字画面文字类似 DOS的cls命令13．16（vports）返回：窗口组态列表十四、符号、元素、表达式处理功能函数14．l（atom元素）如果元素不是列表，响应T，否则为nil14．2（atoms－family格式闲号列表］）返回：一组己定义函数的符号列表14．3（boundp表达式）返回：T或nil，响应表达式是否有值存在14．4（minusp元素）返回：T或n儿元素是否为负值14．5（not元素）返回：T或n儿判定元素是否为ni114．6（null元素）返回：T或nil判定元素是否被赋予nil值14．7（numberp元素）返回：T或nil，元素是否为整数或实数14．8（quote表达式）响应表达式未检算前状态，同“‘”功能14．9（set符号表达式）将表达式结果设定给带单引号’符号14．10（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号14．11（type元素）返回：元素的信息型态14．12（zerop元素）返回：T或nil，元素是否为0值十五、ADS、ARX、AutoLISP加载与卸载函数AutoLisp函数7/8 15．l（ads）返回：目前加载ADS程序列表15．2（arx）返回：目前加载 ARX程序列表15．3（arxload应用程序［出错处理］））返回：加载ARX程序15．4（arxunload应用程序［出错处理］））返回：卸载ARX 程序15．5（ver）返回：目前 AutoLISP版本字符串15．6（load LSP文件名［加载失败］）加载AutoLISP文件（*．lsp）15．7 （xload应用程序[错处理]）加载ADS应用程序15．8 （xunloa应用程序［出错处理］）卸载 ADS应用程序十六、内存空间管理函数16．l（alloc数值）以节点数值设定区段大小16．2（expand数值）以区段数值配置节点空间16．3（gc）强制收回废内存16．4（mem）显示目前的内存使用状态16．5（xdroom对象名称）返回对象扩展信息允许使用的内存空间16．6（xdsize列表）返回对象扩展信息所占用的内存空间十七、其它重要的功能函数17．l（acad_colordlg 颜色码旗号）显示出标准AutoCAD颜色选择对话框17．2（acad_helpdlg 求助文件名主题）显示出标准AutoCAD 求助对话框17．3（acad_strlsort字符串列表）作字符串列表排序17．4（bherrs）取得 bhatch与 bpcly失败所产生的错误信息17．5（bhatch点［选择集[向量］］）根据 Pick point选点方式调用 bhatch命令，绘制选集区域的剖面线17．6（bpoly点［选择集[向量]］）根据Pick point选点方式调用bpoly命令并产生一定域Polyline17．7（cal计算式字符串）执行如 CAL计算功能十八、ADS、ARX外部定义的3D函数18.1（align自变量 1 自变量 2．．．．）执行如 ALIGN命令各选项顺序18．2（c：3dsin模式3DS文件名）导入3DS文件18．3（C：3dsout模式3DS文件名）输出3DS文件18．4（c：background模式［选项］）设定渲染背景18．5（C：fog模式［选项］）设定渲染的雾效果18．6（C：light模式［选项］）设定渲染的灯光控制18．7（c：lsedit模式【选项1】设定渲染的景物控制18．8（C：lslib模式［选项］）管理景物图库18．9（c：matilb模式材质材质库名）管理材质数据库18．10（c：mirror3d 自变量 1 自变量2……）执行如MIRROR3D命令18．11（C：psdrap模式）根据模式设定值（0或1），传唤psdrap命令18．12（C：psfill对象名称图案名称［自变量1［自变量2］］）以POStSCript图案填满18．13（c：psin文件名位置比例）插入一个Postscript（*．eps）文件18．14（c：render［渲染文件］）执行渲染效果18．15（C：r格式自变量1 自变量2 自变量3…）设定执行渲染选项18．16（c：replay影像文件名影像类别［选项］）展示影像文件TGA、BMP、TIF18．17（C：rmat模式选项）控管材质建立、贴附、编辑、分离18．18（c：rotate3d自变量1 自变量2…）执行如ROTATE3D 命令各选项顺序18．19（C：rpref模式选项［设定］）渲染环境设定18．20（c：saveimg影像文件名影像类别［选项］）储存图像文件TGA、BMP、TIF 18．21 （c：scene模式 [选项]） SCENE场景管理18．22（C：setuv模式选集自变量1 自变量2…）SETUV贴图模式管理18．23（C：showmat自变量1）显示对象的材质贴附信息18．24（C：solprof自变量 1 自变量工．．）建立 3D实体的轮廓影像18．25（C：StatS［渲染信息文件］）显示渲染信息统计信息十九、ADS、ARX 外部定义的数据库相关函数19．l（c：aseadmin自变量1 自变量2…）管理外部数据库19．2（c：aseexportt自变量1 自变量2…）输出信息19．3 （c：aselinks自变量1 自变量2…）连接对象与信息19．4（c：aserow自变量1 自变量2…）管理外部信息表格19．5（c：aseselect自变量1 自变量2…）建立外部信息与对象选集19．6 （c：asesqled自变量 1 自变量2…）执行SQL程序。
lisp函数
lisp函数函数大全一、数学运算功能函数1．l（十数值数值…）返回：累计实数或整数数值1．2（一数值数值…）返回：差值1．3（* 数值数值…）返回：所有数值乘积1．4（/ 数值数值…）返回：第一个数值除以第二个以后数值的商1．5（l十数值）返回：数值十ll. 6（1—数值）返回：数值一ll．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．14159261．19（rem 数值 1数值 2）返回：M数值的相除的余数l．20（sin 角度）返回：角度的正旋值，角度值为弧度1．21（sqrt 数值）返回：数值的平方根二、检验与逻辑运算功能函数2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串 2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式22．3（＜表达式1 表达式2) 比较表达式1是否＜小于表达式22．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式22．5（＞表达式1 表达式2）比较表达式1是否＞大于表达式2 2．6（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式22．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坐标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个元素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字符写到文件或屏幕15．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”9．9（tblsearch 符号表名称符号）在符号表中搜寻符号十、AutoCAD相关查询、控制功能函数10．l（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令10．2（findfile 文件名）返回：该文件名的路径及文件名10．3（getfiled 标题内定档名扩展名旗号）通过标准AutoCAD文件对话 DCL对话框获得文件10．4（getenv ”环境变量”）取得该环境变量的设定值，以字符串表示10．5（getvar ”系统变量”）取得该系统变量的设定值，以字符串表示 10．6（setvar ”系统变量”值）设定该系统变量的值10．7（regapp 应用类项）将目前的AutoCAD图形登记为一个应用程序名称十一、判断式、循环相关功能函数11．1（If ＜比较式＞＜表达式1＞ [表达式2] 检算比较式结果，如果为真，执行＜表达式1＞，否则执行＜表达式2＞11．2（ repeat 次数 [< 表达式＞＜表达式＞…］）重复执行 N 次表达式11．3（While ＜比较式＞＜表达式＞…）当条件成立则执行表达式内容11．4（cond ＜比较式 1＞＜表达式 1＞多条件式的 if整合功能＜比较式2＞＜表达式2＞＜比较式3＞＜表达式3＞）11．5 （ prong 表达式1 表达式2…）连接其中的表达式为一组，常用于配合if、cond 等函数十二、函数处理、定义、追踪与错误处理功能函数12．l（*error* 字符串）程序错误时的警示信息12．2（alert 字符串）以对话框式显示出警告字符串12．3（apply 功能函数列表）将功能函数与列表结合后执行12．4（defun 名称自变量列表表达式＿．）自定函数或子程序12．5（eval 表达式）返回：表达式的执行结果12．6（exit）强制退出目前的应用程序12．7（lambda 自变量表达式）定义未命名的函数12．8（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond 等函数12．9（quit）强制退出目前的应用程序12．10（tablet 代码 [列1列2列3方向]）取用或建立对数字板的校调12．11（trace 函数…）对函数设定追踪标记，辅助检错12．12（untrace 函数…）对函数设定解除追踪标记十三、显示、打印控制功能函数13．l（gfaphscr）作图环境切换到图形画面13．2（grclear）暂时清除模前的屏幕画面13．3（grdraw起点终点颜色[亮显］）暂时性的画出一条线13．4（grread［追踪］）由输入设备读取追踪值13．5（grtext位置字符串［亮显］）将字符串显示在状态列或屏幕菜单上13．6（grvecs向量列表［转置矩阵］）暂时性的画出多条线13．7（menucmd字符串）；提供在 AlltOLISP中调用各菜单13．8（Prinl［表达式［文件代码］］将表达式打印于命令区或已打开的文件句柄字符则以“\”为前缀展开13．9（pinc［表达式［文件代码］］除句柄字符则不以”＼”为前缀展外开其余同Prinl 13．10（print［表达式［文件代码］］除表达式会往下一新行列出，及空一格外其余同prinl 13．11（prompt 信息）将信息显示于屏幕的命令区，并随后响应一个nil信息13．12（redraw［对象名称［模式］］）重绘整张图或根据对象名称重绘该图形13．13（terpri）在屏幕上显示新列13．14（textscr）作图环境切换到文字画面13．15（textpage）清除文字画面文字类似 DOS的cls命令13．16（vports）返回：窗口组态列表十四、符号、元素、表达式处理功能函数14．l（atom元素）如果元素不是列表，响应T，否则为nil14．2（atoms－family格式闲号列表］）返回：一组己定义函数的符号列表14．3（boundp表达式）返回：T或nil，响应表达式是否有值存在14．4（minusp元素）返回：T或n儿元素是否为负值14．5（not元素）返回：T或n儿判定元素是否为ni114．6（null元素）返回：T或nil判定元素是否被赋予nil值14．7（numberp元素）返回：T或nil，元素是否为整数或实数14．8（quote表达式）响应表达式未检算前状态，同“‘”功能14．9（set符号表达式）将表达式结果设定给带单引号’符号14．10（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号14．11（type元素）返回：元素的信息型态14．12（zerop元素）返回：T或nil，元素是否为0值十五、ADS、ARX、AutoLISP加载与卸载函数15．l（ads）返回：目前加载ADS程序列表15．2（arx）返回：目前加载 ARX程序列表15．3（arxload应用程序［出错处理］））返回：加载ARX程序15．4（arxunload应用程序［出错处理］））返回：卸载ARX 程序15．5（ver）返回：目前 AutoLISP版本字符串15．6（load LSP文件名［加载失败］）加载AutoLISP文件（*．lsp）15．7 （xload应用程序[错处理]）加载ADS应用程序15．8 （xunloa应用程序［出错处理］）卸载 ADS应用程序十六、内存空间管理函数16．l（alloc数值）以节点数值设定区段大小16．2（expand数值）以区段数值配置节点空间16．3（gc）强制收回废内存16．4（mem）显示目前的内存使用状态16．5（xdroom对象名称）返回对象扩展信息允许使用的内存空间16．6（xdsize列表）返回对象扩展信息所占用的内存空间十七、其它重要的功能函数17．l（acad_colordlg 颜色码旗号）显示出标准 AutoCAD颜色选择对话框17．2（acad_helpdlg 求助文件名主题）显示出标准 AutoCAD 求助对话框17．3（acad_strlsort字符串列表）作字符串列表排序17．4（bherrs）取得 bhatch与 bpcly失败所产生的错误信息17．5（bhatch点［选择集[向量］］）根据 Pick point选点方式调用 bhatch命令，绘制选集区域的剖面线17．6（bpoly点［选择集[向量]］）根据Pick point选点方式调用bpoly命令并产生一定域Polyline17．7（cal计算式字符串）执行如 CAL计算功能十八、ADS、ARX外部定义的3D函数18.1（align自变量 1 自变量 2．．．．）执行如 ALIGN命令各选项顺序18．2（c：3dsin模式3DS文件名）导入3DS文件18．3（C：3dsout模式3DS文件名）输出3DS文件18．4（c：background模式［选项］）设定渲染背景18．5（C：fog模式［选项］）设定渲染的雾效果18．6（C：light模式［选项］）设定渲染的灯光控制18．7（c：lsedit模式【选项1】设定渲染的景物控制18．8（C：lslib模式［选项］）管理景物图库18．9（c：matilb模式材质材质库名）管理材质数据库18．10（c：mirror3d 自变量 1 自变量2……）执行如MIRROR3D命令18．11（C：psdrap模式）根据模式设定值（0或1），传唤psdrap命令18．12（C：psfill对象名称图案名称［自变量1［自变量2］］）以POStSCript图案填满18．13（c：psin文件名位置比例）插入一个Postscript （*．eps）文件 18．14（c：render［渲染文件］）执行渲染效果18．15（C：rfileopt格式自变量1 自变量2 自变量3…）设定执行渲染选项 18．16（c：replay影像文件名影像类别［选项］）展示影像文件TGA、BMP、TIF 18．17（C：rmat模式选项）控管材质建立、贴附、编辑、分离18．18（c：rotate3d自变量1 自变量2…）执行如ROTATE3D 命令各选项顺序18．19（C：rpref模式选项［设定］）渲染环境设定18．20（c：saveimg影像文件名影像类别［选项］）储存图像文件TGA、BMP、TIF 18．21 （c：scene模式 [选项]） SCENE场景管理18．22（C：setuv模式选集自变量1 自变量2…）SETUV贴图模式管理 18．23（C：showmat自变量1）显示对象的材质贴附信息18．24（C：solprof自变量 1 自变量工．．）建立 3D实体的轮廓影像18．25（C：StatS［渲染信息文件］）显示渲染信息统计信息十九、ADS、ARX外部定义的数据库相关函数19．l（c：aseadmin自变量1 自变量2…）管理外部数据库19．2（c：aseexportt自变量1 自变量2…）输出信息19．3 （c：aselinks自变量1 自变量2…）连接对象与信息19．4（c：aserow自变量1 自变量2…）管理外部信息表格19．5（c：aseselect自变量1 自变量2…）建立外部信息与对象选集19．6 （c：asesqled自变量 1 自变量2…）执行SQL程序。
LISP函数(分类)大全
AutoLisp函数一、数学运算功能函数1．l（十数值数值…）返回：累计实数或整数数值1．2（一数值数值…）返回：差值1．3（* 数值数值…）返回：所有数值乘积1．4（/ 数值数值…）返回：第一个数值除以第二个以后数值的商1．5（l十数值）返回：数值十ll. 6（1—数值）返回：数值一ll．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．14159261．19（rem 数值 1数值 2）返回：M数值的相除的余数l．20（sin 角度）返回：角度的正旋值，角度值为弧度1．21（sqrt 数值）返回：数值的平方根二、检验与逻辑运算功能函数2．l（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串2．2 （／= 表达式1 表达式2）比较表达式1是否大于等于表达式22．3（＜表达式1 表达式2) 比较表达式1是否＜小于表达式22．4（＜= 表达式1 表达式2）比较表达式1是否＜一小于等于表达式22．5（＞表达式1 表达式2）比较表达式1是否＞大于表达式22．6（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式22．7 (～数值）返回：数值的位 not值，（1的补码）2．8 （and 表达式1 表达式2…）返回：逻辑and的结果2．9（boole 函数整数整数…）返回：位式布尔运算AutoLisp函数2/82．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/84．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字符写到文件或屏幕 15．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”9．9（tblsearch 符号表名称符号）在符号表中搜寻符号十、AutoCAD相关查询、控制功能函数10．l（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令AutoLisp 函数5/810．2（findfile 文件名）返回：该文件名的路径及文件名10．3（getfiled 标题内定档名扩展名旗号）通过标准 AutoCAD文件对话 DCL对话框获得文件10．4（getenv ”环境变量”）取得该环境变量的设定值，以字符串表示10．5（getvar ”系统变量”）取得该系统变量的设定值，以字符串表示10．6（setvar ”系统变量”值）设定该系统变量的值10．7（regapp 应用类项）将目前的AutoCAD图形登记为一个应用程序名称十一、判断式、循环相关功能函数11．1（If ＜比较式＞＜表达式1＞ [表达式2] 检算比较式结果，如果为真，执行＜表达式1＞，否则执行＜表达式2＞11．2（ repeat 次数 [< 表达式＞＜表达式＞…］）重复执行 N次表达式11．3（While ＜比较式＞＜表达式＞…）当条件成立则执行表达式内容11．4（cond ＜比较式 1＞＜表达式 1＞多条件式的 if整合功能＜比较式2＞＜表达式2＞＜比较式3＞＜表达式3＞）11．5 （ prong 表达式1 表达式2…）连接其中的表达式为一组，常用于配合if、cond 等函数十二、函数处理、定义、追踪与错误处理功能函数12．l（*error* 字符串）程序错误时的警示信息12．2（alert 字符串）以对话框式显示出警告字符串12．3（apply 功能函数列表）将功能函数与列表结合后执行12．4（defun 名称自变量列表表达式＿．）自定函数或子程序12．5（eval 表达式）返回：表达式的执行结果12．6（exit）强制退出目前的应用程序12．7（lambda 自变量表达式）定义未命名的函数12．8（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond等函数12．9（quit）强制退出目前的应用程序12．10（tablet 代码 [列1列2列3方向]）取用或建立对数字板的校调12．11（trace 函数…）对函数设定追踪标记，辅助检错12．12（untrace 函数…）对函数设定解除追踪标记AutoLisp函数6/8十三、显示、打印控制功能函数13．l（gfaphscr）作图环境切换到图形画面13．2（grclear）暂时清除模前的屏幕画面13．3（grdraw起点终点颜色[亮显］）暂时性的画出一条线13．4（grread［追踪］）由输入设备读取追踪值13．5（grtext位置字符串［亮显］）将字符串显示在状态列或屏幕菜单上13．6（grvecs向量列表［转置矩阵］）暂时性的画出多条线13．7（menucmd字符串）；提供在 AlltOLISP中调用各菜单13．8（Prinl［表达式［文件代码］］将表达式打印于命令区或已打开的文件句柄字符则以“\”为前缀展开13．9（pinc［表达式［文件代码］］除句柄字符则不以”＼”为前缀展外开其余同Prinl 13．10（print［表达式［文件代码］］除表达式会往下一新行列出，及空一格外其余同prinl13．11（prompt信息）将信息显示于屏幕的命令区，并随后响应一个nil信息13．12（redraw［对象名称［模式］］）重绘整张图或根据对象名称重绘该图形13．13（terpri）在屏幕上显示新列13．14（textscr）作图环境切换到文字画面13．15（textpage）清除文字画面文字类似 DOS的cls命令13．16（vports）返回：窗口组态列表十四、符号、元素、表达式处理功能函数14．l（atom元素）如果元素不是列表，响应T，否则为nil14．2（atoms－family格式闲号列表］）返回：一组己定义函数的符号列表14．3（boundp表达式）返回：T或 nil，响应表达式是否有值存在14．4（minusp元素）返回：T或n儿元素是否为负值14．5（not元素）返回：T或n儿判定元素是否为ni114．6（null元素）返回：T或nil判定元素是否被赋予nil值14．7（numberp元素）返回：T或nil，元素是否为整数或实数14．8（quote表达式）响应表达式未检算前状态，同“‘”功能14．9（set符号表达式）将表达式结果设定给带单引号’符号14．10（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号14．11（type元素）返回：元素的信息型态14．12（zerop元素）返回：T或nil，元素是否为0值十五、ADS、ARX、AutoLISP加载与卸载函数AutoLisp函数7/815．l（ads）返回：目前加载ADS程序列表15．2（arx）返回：目前加载 ARX程序列表15．3（arxload应用程序［出错处理］））返回：加载 ARX程序15．4（arxunload应用程序［出错处理］））返回：卸载 ARX程序15．5（ver）返回：目前 AutoLISP版本字符串15．6（load LSP文件名［加载失败］）加载 AutoLISP文件（*．lsp）15．7 （xload应用程序[错处理]）加载ADS应用程序15．8 （xunloa应用程序［出错处理］）卸载 ADS应用程序十六、内存空间管理函数16．l（alloc数值）以节点数值设定区段大小16．2（expand数值）以区段数值配置节点空间16．3（gc）强制收回废内存16．4（mem）显示目前的内存使用状态16．5（xdroom对象名称）返回对象扩展信息允许使用的内存空间16．6（xdsize列表）返回对象扩展信息所占用的内存空间十七、其它重要的功能函数17．l（acad_colordlg 颜色码旗号）显示出标准 AutoCAD颜色选择对话框17．2（acad_helpdlg 求助文件名主题）显示出标准 AutoCAD求助对话框17．3（acad_strlsort字符串列表）作字符串列表排序17．4（bherrs）取得 bhatch与 bpcly失败所产生的错误信息17．5（bhatch点［选择集[向量］］）根据 Pick point选点方式调用 bhatch命令，绘制选集区域的剖面线17．6（bpoly点［选择集[向量]］）根据Pick point选点方式调用bpoly命令并产生一定域Polyline17．7（cal计算式字符串）执行如 CAL计算功能十八、ADS、ARX外部定义的3D函数18.1（align自变量 1 自变量 2．．．．）执行如 ALIGN命令各选项顺序18．2（c：3dsin模式3DS文件名）导入3DS文件18．3（C：3dsout模式3DS文件名）输出3DS文件18．4（c：background模式［选项］）设定渲染背景18．5（C：fog模式［选项］）设定渲染的雾效果18．6（C：light模式［选项］）设定渲染的灯光控制18．7（c：lsedit模式【选项1】设定渲染的景物控制18．8（C：lslib模式［选项］）管理景物图库18．9（c：matilb模式材质材质库名）管理材质数据库18．10（c：mirror3d 自变量1 自变量2……）执行如MIRROR3D命令18．11（C：psdrap模式）根据模式设定值（0或1），传唤psdrap命令18．12（C：psfill对象名称图案名称［自变量1［自变量2］］）以POStSCript图案填满18．13（c：psin文件名位置比例）插入一个Postscript（*．eps）文件18．14（c：render［渲染文件］）执行渲染效果18．15（C：rfileopt格式自变量1 自变量2 自变量3…）设定执行渲染选项18．16（c：replay影像文件名影像类别［选项］）展示影像文件TGA、BMP、TIF18．17（C：rmat模式选项）控管材质建立、贴附、编辑、分离18．18（c：rotate3d自变量 1 自变量2…）执行如 ROTATE3D命令各选项顺序18．19（C：rpref模式选项［设定］）渲染环境设定18．20（c：saveimg影像文件名影像类别［选项］）储存图像文件TGA、BMP、TIF 18．21 （c：scene模式 [选项]） SCENE场景管理18．22（C：setuv模式选集自变量1 自变量2…）SETUV贴图模式管理18．23（C：showmat自变量1）显示对象的材质贴附信息18．24（C：solprof自变量 1 自变量工．．）建立 3D实体的轮廓影像18．25（C：StatS［渲染信息文件］）显示渲染信息统计信息十九、ADS、ARX 外部定义的数据库相关函数19．l（c：aseadmin自变量1 自变量2…）管理外部数据库19．2（c：aseexportt自变量1 自变量2…）输出信息19．3 （c：aselinks自变量1 自变量2…）连接对象与信息19．4（c：aserow自变量1 自变量2…）管理外部信息表格19．5（c：aseselect自变量1 自变量2…）建立外部信息与对象选集19．6 （c：asesqled自变量 1 自变量2…）执行SQL程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
设置默认数值(if (= (setq th (getreal "输入墙厚度：（默认为0.25）：")) nil)(setq th 0.25))设置当前环境(setvar "cmdecho" 0) ;不显示提示文字(setvar "plinewid" 0.2 ) ;设置绘图线宽为0.2(setvar "osmode" 0) ;设置当前捕捉为关闭状态(command "undo" "be" "")恢复上一个命令(command "text" "c" pt3 hgt ang1 txt1) 添加文字信息在意图面(command "text" "c" pt3 hgt ang1 txt1)(DEFUN C:szzt()(command "style" "细等线体" "方正细等线简体" "0" "1" "0" "n" "n" ) ;标注文字样式(command "style" "中等线体" "方正中等线简体" "0" "1" "0" "n" "n" ) ;文字样式(command "style" "宋体" "方正书宋_GBK" "0" "1" "0" "n" "n" ) ;标注文字样式(command "style" "黑体" "黑体" "0" "1" "0" "n" "n" ) ;标注文字样式(command "style" "HZ" "txt,hztxt" "0" "0.8" "0" "n" "n" "n")(princ "\n文字样式已设定!"))(DEFUN C:tdc()(COMMAND "LAYER" "M" "HX" "C" "1" "" "")(COMMAND "LAYER" "M" "LH" "C" "3" "" "")(COMMAND "LAYER" "M" "ZX" "C" "2" "" "")(COMMAND "LAYER" "M" "绿化占地" "C" "3" "" "")(COMMAND "LAYER" "M" "道路占地" "C" "1" "" "")(COMMAND "LAYER" "M" "建设用地" "C" "7" "" "")(COMMAND "LAYER" "M" "解算" "C" "4" "" "")(COMMAND "LAYER" "M" "用地范围线" "C" "7" "" "")(COMMAND "LAYER" "M" "边界线" "C" "4" "" "")(COMMAND "LAYER" "M" "勘界线" "C" "6" "" "")(COMMAND "LAYER" "M" "利用" "C" "16" "" "")(COMMAND "LAYER" "M" "外业" "C" "5" "" "")(COMMAND "LAYER" "M" "图框" "C" "7" "" "")(COMMAND "LAYER" "M" "现状地形" "C" "5" "" "")(COMMAND "CLAYER" "解算"))(defun c:hzhj)(setq pt11(getpoint "\n请指定点："))(command "text" "m" pt11 10 0 "合计")(command ""))(command "_text" "j" "mc" (getpoint "\n点取总面积标注点:") 3 0 (rtos sumArea 2 3))(command "style" "细等线体" "方正细等线简体" "0" "1" "0" "n" "n" )(defun maketext (txt pt)(entmake (list '(0 . "TEXT") (cons 10 pt) (cons 40 hzg) (cons 1 txt) (cons 11 pt) (cons 72 1) (cons 73 2) '(41 . 0.8))))(defun c:hzhj)(setq pt9(getpoint "\n请指定点："))(command "text" "m" pt9 10 0 "小计")(command ""))(setq s1 (getint "输入距离A:(100)"))(setq s2 (getint "输入距离B:(40)"))(if (= s1 nil) (setq s1 100))(if (= s2 nil) (setq s2 40) )(setq p1 (getpoint"\n点取角点坐标"))(setq p1 (p-zs p1))(setq xx (car p1))(setq yy (cadr p1))(setq p2 (list (+ xx 10) yy))(setq p3 (list (+ xx 10) (+ 10 yy)))(setq p4 (list xx (+ yy 10)))(command "pline" p1 p2 p3 p4 "c" "")(defun c:hd()(setvar "osmode" 33)(setq pX1 (getpoint "\n点选点A<回车退出>:"))(setq pX2 (getpoint "\n方向点B:"))(setq wzjd (angtos (angle pX1 pX2) 1 4))(setq aNGX (angle pX1 pX2))(SETQ AA (rtos angX 2 6))(command "_text" "j" "mc" (getpoint "\n请选取标注点:") 3 wzjd AA) )(defun c:tybj (/ sel int rad dat)(if (and (setq sel (ssget '((0 . "CIRCLE"))))(setq int 0rad (getdist "\n半径:")))(repeat (sslength sel)(setq dat (entget (ssname sel int))int (1+ int))(entmod (subst (cons 40 rad) (assoc 40 dat) dat))))(princ))(defun c:wzg0(/ ent ents ang)(princ "选择要修改的文字，可多选")(setq ss (ssget '((0 . "*TEXT"))))(setq ang (getangle "\n输入角度:<0>"))(if (= ang nil)(setq ang 0))(setq k 0)(repeat (sslength ss)(progn(setq ent (ssname ss k))(setq ents (entget ent))(setq ents (subst (cons 50 ang) (assoc 50 ents) ents))(entmod ents)(entupd ent)(setq k (1+ k))))(princ))。