1、AutoLisp 基础AutoLisp 基本函数计算+ 格式： (+ x y z .) 作用： x+y+z+.x+y+z+.- 格式： (- x y z .) 作用： xyz.xyz.* 格式： (* x y z .) 作用： xyz.xyz./ 格式： (/ x y z .) 作用：x/y/z/.x/y/z/.1+ 格式： (1+ x) 作用： x+1x+11- 格式： (1- x) 作用： x1x1abs 格式： (abs x) 作用： x绝对值sin 格式： (sin x y) 作用： sin(x)sin(x)cos 格式： (cos x) 作用： cos(x)cos(x)atan 格式
2、： (atan x) 作用： atan(x)atan(x)max 格式： (max x y z .) 作用： x, y, z, 中的最大值min 格式： (min x y z .) 作用： x, y, z, 中的最小值exp 格式： (exp n) 作用： enenexpt 格式： (expt x n) 作用： xnxnlog 格式： (log x) 作用： lnxlnxListlist 格式： (list a b c .) 作用： 创建列表assoc 格式： (assoc key list) 作用：关联表查询，它是一个元素是list的list NOTE: assoc 会在外层列表中遍历查找，
3、子列表元素的第一个元素会作为键，查找过程中如果先遇到不是列表的子元素则报错“ 关联列表错误“，如果找到对应键的元素则返回该列表元素，如果没有找到对应键且没有不是列表的子元素则返回nil。c(a|d)1, 4rcar 是指取列表首元素，cdr取除首元素外的列表部分a与d可以任意组合，只要总量不超过4。即可以是：aaaa aaad aaa aada aadd aad aaa aad aa adaa adad ada adda addd add ada add ad aaa aad aa ada add ad aa ad a daaa daad daa dada dadd dad daa dad d
4、a ddaa ddad dda ddda dddd ddd dda ddd dd daa dad da dda ddd dd da dd d aaa aad aa ada add ad aa ad a daa dad da dda ddd dd da dd d aa ad a da dd d a d 1求值是从右向左，例如：;(caddar, m) - (car(cdr(cdr(car m) (setq m (list (list 2 3 4 5) 9)(princ (caddar m)123输出结果是 4last 格式： (last ) 作用： 获取列表最后一个元素nth 格式： (nth
5、n ) 作用： 获取列表第n个元素cons 格式： (cons ) 作用： 当第二个参数是列表，则在列表头添加新元素；当第二个参数是原子，则构建点对，点对是一个特殊的列表，使用car获取第一个元素，使用cdr可以或者第二个元素reverse 格式： (reverse ) 作用： 反转列表length 格式： (length ) 作用： 获取列表长度subst 格式：(subst new old ) 作用：用新项替代原列表中的旧项，返回新生成的列表CAD交互输入getint 格式： (getint 提示：) 作用： 获取整数输入getreal 格式： (getreal提示：) 作用： 获取实数输
6、入getstring 格式： (getstring提示：) 作用： 获取字符串输入getpoint 格式： (getpoint提示：) 作用： 获取点坐标值getcorner 格式： (getcorner 提示：) 作用： 获取矩形对角点输入getangle 格式： (getangle提示：) 作用： 获取角度输入输出princ 格式：(princ hello) 作用：输出表达式，对控制字符解释prin1 格式：(prin1 hello) 作用：输出表达式，不对控制字符解释print 格式：(print hello) 作用：输出前换行，其余如prin1字符串操作strcat 格式：(strca
7、t str1 str2 str3 .) 作用：拼接字符串strcase 格式：(strcase str mode) 作用：字符串转大小写，mode可以是任意表达式，mode为nil转大写，为nil转小写strlen 格式：(strlen str) 作用：字符串长度substr 格式：(substr str ) 作用：获取子字符串，第一个整数声明起点，第二个整数声明长度转换运算itoa 格式：(itoa ) 作用：整数转字符串atoi 格式：(atoi ) 作用：字符串转整数atof 格式：(atof ) 作用：字符串转实数fix 格式：(fix ) 作用：数转整数float 格式：(float
8、 ) 作用：数转实数ascii 格式：(ascii ) 作用：获取字符串首字符的ASCII码chr 格式：(chr ) 作用：根据ASCII码转字符，返回含此字符的字符串文件处理open 格式：(open filepath mode) 作用：打开文件，返回文件描述符close 格式：(close file) 作用：根据文件描述符关闭文件read-line 格式：(read-line file) 作用：从当前位置读取文件中一行，指针移到下一行首部write-line 格式：(write-line write content file) 作用：将字符串写入文件中，并返回字符串write-char
9、格式：(write-char c file) 作用：将字符写入文件中，并返回字符串关系运算= 格式：(= atom1 atom2 atom3 .) 作用：atom1=atom2=atom3=.atom1=atom2=atom3=. 则返回T，否则返回nil/= 格式：(= atom1 atom2 atom3 .) 作用：atom1atom2atom3.atom1atom2atom3. 则返回T，否则返回nil。 NOTE: 不要求 atom1atom3,atom1atom4,.atom1atom3,atom1atom4,.，只需要保证相邻元素的关系 格式：( atom1 atom2 atom3
10、 .) 作用：atom1atom2atom3.atom1atom2atom3 格式：( atom1 atom2 atom3 .) 作用：atom1atom2atom3.atom1atom2atom3. 则返回T，否则返回nil。= 格式：(= atom1 atom2 atom3 .) 作用：atom1atom2atom3.atom1atom2atom3. 则返回T，否则返回nil。= 格式：(= atom1 atom2 atom3 .) 作用：atom1atom2atom3.atom1atom2atom3. 则返回T，否则返回nil。逻辑运算and 格式：(and .) 作用：所有表达式都非n
11、il则为真，否则为假or 格式：(or .) 作用：有一个表达式为真则为真，否则为假not 格式：(not ) 作用：表达式为真，则返回假；表达式为假，则返回真NOTE：T表示真，nil表示假，所有非nil的表达式都是认为是真图形处理distance 格式：(distance ) 作用：计算两点之间的距离polar 格式：(polar ) 作用：返回所求点的坐标，该点与给定点的距离为distance，该点与给定点连线与X轴的夹角为angle（弧度制）angle 格式：(angle ) 作用：给定的两点确定的直线与X轴的夹角（弧度制）赋值setq 格式：(setq .) 作用：依次将表达式的值赋
12、值给对应的符号quote 格式：(quote ) 简写： 作用：表达式不求值，返回表达式本身Reflecttype 格式：(type ) 作用：获取变量类型Command函数调用AUTOCAD的命令对象属性entsel 格式：(entsel prompt:) 作用：选择对象entlast 格式：(entlast) 作用：获取最后绘出的图形对象entget 格式：(entget ) 作用：获取对象定义数据，一个以组码为键的关联表entmod 格式：(entmod ) 作用：修改对象的定义数据，一般先获取对象的定义数据，再修改该定义数据，则作用到该对象上了选择集ssadd 格式：(ssadd )
13、作用：将对象添加到选择集中，或者创建新的选择集ssdel 格式：(ssdel ) 作用：从选择集中删除指定对象ssget 格式：(ssget sel-method p1 p2 . point-list filter-list) 作用：根据选定对象创建选择集sslength 格式：(sslength ) 作用：获取指定选择集中的对象个数ssname 格式：(ssname index) 作用：根据索引号获取选择集中的对象ssmemb 格式：(ssmemb ) 作用：判断给定对象是否在指定选择集中表处理符号表主要记录非图形信息。可用的符号表有： layer、ltype、view、style、bloc
14、k、ucs、appid、dimstyle、vport 名字不区分大小写。tblnext 格式：(tblnext table-name) 作用：返回符号表中下一条目，如果找到返回DXF组码与值组成的点对tblobjname 格式：(tblobjname table-name symbol) 作用：获取指定符号表的图元名tlbsearch 格式：(tlbsearch table-name symbol) 作用：在指定符号表中搜索符号名visual+lisp开发人员手册这里不全手打出来打累了有其他需要请去寻找开发人员手册(vl-load-com)加载AutoLISP反应器支持函数和其他 AutoLI
15、SP 扩展表操作函数(vl-remove 1 (1 2 3 4)返回值:(2 3 4) ,函数从列表删除指定数(vl-position 1 (2 3 1)返回值:2 ,函数获得数在列表中位置(vl-sort (1 1 2 2 3 3)返回值:(1 2 3) ,自动去重(vl-load-all “a.lsp”)该函数来将 AutoLISP 文件加载到所有 AutoCAD 图形文档中.(随后在该任务期间打开的任何文档中),(在多文档中测试新函数很有用,但在一般情况下您应该用 acaddoc.lsp 来加载每个 AutoCAD 文档都需要的文件)(vl-consp list-variable)判断表
16、是否为nil(vl-every predicate-function list more-lists)检查每个元素合并的预测是否为真(vl-listobject more-objects)* 构造并返回表(vl-list-string char-codes-list)将与整数表相关联的字符合并到字符串中(vl-list-length list-or-cons-object)计算真表的表长度(vl-member-if predicate-function list)判断表成员之一的预测是否为真(vl-member-if-not predicate-function list)判断表成员之一的预测
17、是否为nil(vl-position symbol list)返回指定的表项目的索引(vl-remove-if predicate-function list)返回函数测试失败的表的所有元素(vl-remove-if-not predicate-function list)返回通过函数测试的表的所有元素(vl-some predicate-function list more-lists)检查元素合并的预测是否为nil(vl-sort list less?-function)根据给定的比较函数对表中的元素排序(vl-sort-i list less?-function)根据给定的比较函数对表中
18、的元素排序,返回元素索引号(vl-string-list string)将字符串转换为字符代码表字符串处理函数(vl-string-left-trim character-set string)从字符串的开始位置删除指定的字符串(vl-string-right-trim characterset string)从字符串的末尾删除指定的字符串(vl-string-trim char-set str)从字符串的开始和末尾删除指定的字符(vl-string-mismatch str1 str2 pos1 pos2 ignore-case-p)返回两个字符串的最长公共前缀的长度,指定位置的字符(vl-
19、string-subst new-str pattern string start-pos)用一个字符串替换另一个字符串中的字串(vl-string-translate source-set dest-set str)用指定的字符集替换字符串中的字符符号处理函数(vl-sysbol-name symbol)返回包含符号名的字符串(vl-symbol-value symbol)返回绑定到符号的当前值(vl-symbolp object)标识指定的对象是否使符号文件处理函数(vl-directory-files directory pattern directories)列出给定目录中的所有文件(
20、vl-file-copy “source-filename” “destination-filename” append?)将一个文件的内容复制或添加到另一个文件中(vl-file-delete “filename”)删除文件(vl-file-directory-p “filename”)判断一个文件名中是否包含目录(vl-file-rename “old-filename” “newfilename”)重命名文件(vl-file-size “filename”)判断文件的大小,以字节为单位(vl-file-systime “filename”)返回指定文件的最后修改时间(vl-filenam
21、e-base “filename”)返回文件名,去掉文件夹路径和扩展名(vl-filename-directory “filename”)返回文件的目录路径,去掉文件名和扩展名(vl-filename-extension “filename”)返回文件的扩展名,去掉名称的其余部分处理ActiveX方法返回的错误(vl-catch-all-apply function list)函数的值可捕获错误,并使程序继续执行(将参数列表传递给指定的函数,并捕获异常)(vl-catch-all-error-message error-obj)从错误对象中返回信息(vl-catch-all-error-p a
22、rg)判断vl-catch-all-apply返回的参数是否是错误对象查询和命令函数(vl-cmdf arguments )在计算 arguments 后执行一个AutoCAD命令对象处理函数(vlax-dump-object obj)列出对象的方法和属性(vlax-erased-p obj)判断对象是否被删除符号表和词典处理函数(vlax-ldata-delete dict key)从图形词典中删除LISP数据(vlax-ldata-get dict key defaultdata)从图形词典中获取LISP数据(vlax-ldata-list dict)在图形词典中列出LISP数据(vlax
23、-ldata-put dict key data)在图形词典中存储LISP数据(vlax-ldata-test data)判断是否可以跨任务边界保存数据反应器函数(vl-load-com)加载AutoLISP反应器支持函数和其他 AutoLISP 扩展(vlr-acdb-reactor data callbacks)构造一个数据库(全局)反应器对象(vlr-add obj)启用被禁用的反应器对象(vlr-added-p obj)测试判断反应器对象是否被启用(vlr-beep-reaction args)产生蜂鸣声(vlr-current-reaction-name)如果从反应器回调中调用,则返
24、回当前事件的名称(符号)(vlr-dataobj)返回与反应器相关联的应用特定数据(vlr-data-set obj data)覆盖与反应器相关联的应用特定数据(vlr-deepclone-reactor obj data)构造一个编辑器反应器对象,用于通知深度克隆事件(vlr-docmanager-reactor obj data)构造一个反应器对象,用于通知MDI相关的事件(vlr-dwg-reactor obj data)构造一个编辑器反应器对象,用于通知图形事件(例如,打开或关闭图形文件)Windows 注册表函数(vl-registry-delete reg-key val-name
25、)从Windows 注册表中删除指定的主键/键值(vl-registry-descendents reg-key val-names)为指定的注册表主键返回一个子键或值名称的列表(vl-registry-read reg-key val-name)为指定的主键/键值对返回存储在Windows注册表中的数据(vl-registry-write reg-key val-name val-data)在Windows注册标中创建主键(vlax-product-key)返回AutoCAD注册路径数据转换函数(vlax-ename-vla-object entname)将图元转换为VLA对象(vlax-v
26、la-object-ename obj)将VLA对象转换为AutoLISP图元ActiveX对象处理函数(vlax-dump-object obj)列出对象的方法和属性曲线测量函数(vlax-curve-getArea curve-obj)返回曲线中的面积(vlax-curve-getDistAtParam curve-obj param)返回从曲线的起始端到指定点的曲线段长度(vlax-curve-getDistAtPoint curve-obj point)返回从曲线的起始段到指定点的曲线段长度(vlax-curve-getEndParam curve-obj)返回曲线端点的参数(vlax
27、-curve-getEndPoint curve-obj)返回曲线的端点(在WCS坐标系中)(vlax-curve-getParamAtDist curve-obj param)返回沿曲线的起始端到指定参数位置的距离(vlax-curve-getParamAtPoint curveobj point)返回某一点的曲线参数(vlax-curve-getPointAtDist curve-obj dist)返回沿曲线经过由用户指定距离的点(在WCS坐标系中)(vlax-curve-getPointAtParam curveobj param)判断曲线上对应于param参数的点,并返回该点(vlax
28、-curve-getStartParam curve-obj)返回曲线上的起始参数(vlax-curve-getStartPoint curve-obj)返回曲线的起始点(在WCS坐标系中)(vlax-curve-isClosed curve-obj)判断指定的曲线是否闭合(例如,起始点和结束点相同)(vlax-curve-isPeriodic curve-obj)判断指定的曲线是否在各个方向上无限延伸,并且有一个周期值dT,即对于任意参数,曲线(u+dT)上的点都等于曲线(u)上的点(vlax-curve-isPlanar curve-obj)判断是否有包含某条曲线的平面(vlax-curve-getClosestPointTo curve-obj givenPnt extend)返回曲线上距指定点最近的点(在WCS坐标系中)(vlax-curvegetClosestPointToProjection curveobj given
