Autolisp编程心得

1、精品文档Autolisp编程心得1. 养成良好的书写习惯众所周知，Lisp是一种表结构语言，括号必须成对出现，在调试时往往为遗漏了一个括号 大费周折，所以，养成一个好的编程习惯是学好Lisp所必须的。选择一个较好的编辑器，这是一个基本条件，建议使用Visual Lisp编辑器或Lisplink等 专用编辑器，此类编辑器可以对函数突岀显示。按Lisp ( DCL专有格式书写，并经常对程序进行“格式化”，及时发现语法错误，并有利于调试是查找错误。使用自定义函数，并辅助以适当得注释，在较大程序中按功能使用自定义函数可以使得程序条理化。2. 函数中循环与转移的使用在高级语言中一般有类似“goto ”的

2、语句实现转移，在 AutoLisp中没有转移的函数。我们可 以使用自定义函数实现转移，用if及cond辅助实现条件转移。当我们需要实现在满足一定条件时进行循环的功能，一般使用while函数，但有时需要判断的条件较复杂时，使用while函数往往不能实现或使得程序不够简洁。这时我们可以使用“转移”， 将需要实现的功能作为(子)函数，使用恰当，可以在程序中任意“转移”。一般认为，当一段代码在不同处重复使用时，我们才会使用子函数定义，其实，利用函数的更大的优点是使得程序更加结构化。这就使得我们不必拘泥于程序中的循环语句，而使用函数的循环调用，辅助适当的判断，实现“转移”，如A-B-A。当然也可以进行自

3、身调用，构成一个“标准的”循环。如例一中，“程序执行完毕返回”与“空选返回”两种情况如果使用循环语句，其条件是完全不同的，而将函数本身作为子函数调用，程序简洁明了。3.i nitget函数中关键字 “(空格)的使用空格可以被用作关键字，一般多用来定义鼠标右键退岀。当用户输入函数不支持控制位(如entsel、nentsel、nentselp )时，可直接使用“ (initget )”。当用户输入函数支持控制位(如getpoint等)时，可使用 “ (initget 1 “)”禁止空输入，而将回车等空输入作为关键字使用。当同时使用其它关键字时，应该将空格作为一系列关键字的最后一个，用“ (in i

4、tget C )” (两个空格)调用，否则无效。见例一。*;例一(defu n ett_ct()(initget C );关键字“ C”及空格(setq s0 (entsel n设置颜色 C /选取文本：)(cond(=s0 C) (ett_col)；(=s0 ) nil);(and (= (type s0) LIST);(=(cdr (assoc 0 (e ntget (car s0) TEXT);) )(ett_ct);)(t (ett_ct);)*转设置颜色子函数 空格退岀选择实体判别文本操作内容编辑后返回选择空选返回选择有时需要进行复杂的判断，使用如“ (=SO )”语句可能不能准确判

5、别输入的空格关键字与空选择，可以使用“ (=(type s0) STR) ”语句4. Lisp的暂停与while的特殊使用Lisp一般在交互输入时才会暂停，如果只需要实现屏幕显示暂停，可使用grread函数，grread函数对所有合法的输入设备均会作岀反应，有时我们只希望对键盘有反应，可使用while函数进行循环。*(pri nc nPress ENTER to con ti nue:)(while (/= (car (grread) 2)*while用于满足一定条件的循环，其标准语法为：(while testexpr expr.)其中expr解释为“在testexpr 为nil之前要求值的一

6、个或多个表达式”，为可选项(在R14之前没有方括号，但仍为可选项)。正常我们使用 while时，总会有expr项，更多的时候，我们是为了 expr项才会使用这种循 环 语句，所有我们往往有expr项是不可缺少的感觉。这里我们使用while函数的语法是 while函数的 特例，即没有expr项的情况。如果希望对鼠标右键同时反应，可以使用：*(pri nc nPress ENTER to con ti nue:)(while (and (/= (setq a(car (grread) 2);键盘(/= a 11);鼠标右键(SHORTCUTMENU)(/= a 25);鼠标右键(SHORTCUTM

7、E1NU)*5. 输入距离Lisp语言中输入距离的函数为getdist ，但我们有时需要输入负值，有时需要在输入距离的同时得到角度，使用getdist函数就显得无能为力，这时，我们可以灵活使用其它交互输入函数 如getpoint、getcorner等，通过计算得到我们所需要的值。例二是一段输入长度的同时得到默认角度的代码，使用getpoi nt函数。*例二(setq pt0 (getpoint n直线基点：)pt1 (getpoint pt0 n直线长度：)dst (dista nee pt0 pt1) ang (an gle pt0 pt1)长度及角度可用键盘或鼠标定位计算长度计算默认角度a

8、ngl (geta ngle pt0 (streat n直线方向 :)*例三是可以按阵列方式输入行列间距的代码，输入距离为正值，修改部分代码可输入负值, 使用getcorner函数，同时使用initget 的控制位128。*例三(defu n lc_dist ()(in itget 128);(setq disr (getpoi nt n指定单位单元或输入行间距：)(if (= (type disr) LIST);(prog n(in itget 1)(setq dis (getcorner disr n指定对角点 :);disc (abs (- (car dis) (car disr) ;d

9、isr (abs (- (cadr dis) (cadr disr) ;) ;)(if (= (type disr) STR);(if (setq dis (distof disr);(prog n(in itget 6)(setq disc (getdist n输入列间距：)；)(prog n;(pri nc n需要正数值或两个二维角点。)(lc_dist)(prog n;(princ n需要正数值或两个二维角点。)(lc_dist)允许任意输入鼠标输入鼠标输入对角正值行距正值列距计算行列间距键盘输入行距判断输入的是否距离输入列距键盘输入格式不符返回空输入返回)*6. 数学运算函数的数量界限

10、在Lisp中对表中数据进行求和、求最大值等数学运算时，往往直观的对表直接赋予运算函 数，使用语句如“ (eval (cons MAX numlist)”，一般都可以进行计算，但当表中数据数量大于255 时，将会岀现错误“ bad argument value: does not fit in byte: 256”。对于这种情况，我们不必对数据表进行分段，可以直接使用函数apply，语法更简单：(applyMAX numlist) 。apply可将数据表传送给指定的函数进行求值而不受数据数量的影响。受表中数据数量影响的数学运算函数有：+、-、*、/、max min、logand及logior。7

11、. 选择集与表选择集是一种特殊结构的表，只能通过特定的函数进行操作，但这些函数对大量重复的操作只能通过循环实现，显得力不从心，不能体现Lisp语言表结构的优越性。其实我们只要通过存取实体名或实体句柄，将它们存为一个普通结构的表，完全可以通过常规表操作函数实现对实体的操作。例四是一段使用 apply、mapcar函数联合求文本选择集中文本基点最大y值得代码，只是一个示例，如果结合 VL-sort函数，可轻松实现对文本的排序。*;例四(setq sl nil i -1)(repeat (ssle ngth (setq ss (ssget (0 . TEXT)(setq i (1+ i)en (ss

12、 name ss i);sl (c ons en sl);)(setq maxy (apply max;(mapcar(lambda (x)(caddr (assoc 10 (en tget x);)sl)*选择文本从选择集中取岀文本构造包含实体名的表求文本基点最大y值提取y值当然，选择集也有其优势的一面，比如对选择集中实体的删除操作非常简单、选择集中的实体不会重复及选择集可以与Acad命令交互使用等特征是一般表所不具备的，所以，编程时应根据程序要求，灵活运用8. cal的使用与加载Acad随机附带了一些外部定义命令，其中cal (计算器)命令是最常用的命令之一，在加载gromcal.arx

13、后cal可以在Lisp程序中像其它函数一样使用，这就使得我们在程序中对文本的 四则 运算处理变得简单，如“ (cal 1+2/3) ”，其中字符串1+2/3可以从图形的文本中提取，也可以是符合cal要求格式的任一字符串(详见Acad联机帮助)。需要注意的是，在Acad中gromcal.arx 只能加载一次，重复加载将使 Acad以外退岀(无提示)。需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：*(if (or (= (type c:cal) LIST);R14使用(=(type c:cal) SUBR);R2000+使用)(arxload geomcal.arx)*9. Undo

14、处理一个完善的程序应该有较好的岀错处理，这是在所有Lisp教材上都提及的，但程序的Undo处理就说得很少或没有提及。其实Undo处理对程序来说也是非常重要的，尤其对有较多输岀的复杂程序而言，不能解决Undo问题，使用起来会极不方便。对于Undo问题的解决，一种方法是尽量少用或不用comma nd函数，即不调用原始命令，这是一种较好的方法，但必须注意的是，一段程序必须至少有一次调用comma nd函数，否则 Un do命令将取消程序运行前的前一次命令，解决的方法是在程序运行的起始位置加一个无谓的comma nd 女口 “ (comma nd color”)”。有时不使用comma nd函数不能达

15、到我们要求的一些功能，或使得程序过于复杂， 我们可能需要使用一些comma nd函数(原始命令)，这是就应该在程序中进行 Undo处理，即使用 Undo命令 的编组功能。例五是一段程序岀错函数与Undo处理的示例。* ;例五岀错函数使用对话框时使用 岀错函数恢复 系统变量恢复 岀错函数恢复编组结束(defu n n ewerr (s);(if s(prog n(term_dialog);(if olderr (setq *error* olderr);(if oldvar (setvar . oldvar);(if olderr (setq *error* olderr);(comma nd

16、_.u ndo _e);Undo)(pr inc)(defu n c:my(/ )(setvar cmdecho 0)(comma nd _.u ndo _BE)(setq olderr *error* *error* n ewerr)(setq oldvar (getvar .)(setvar . )(setvar . oldvar)(setq *error* olderr)(comma nd _.u ndo _E)(pr inc);主程序(主函数) 取消命令回显提示;Un do编组开始调用自定义岀错函数 保存相关系统变量 设置系统变量 程序段恢复系统变量 恢复出错函数 结束Undo命令编组

17、 取消程序返回值)*10. 程序调试时块注释的使用我们经常会加上或屏蔽一段代码辅助程序调试，此时最常用的是在需要暂时屏蔽的代码前使用行注释符号 “;”，对于较多的代码就需要使用块注释“ ;| I; ”，如果一段代码需要频繁屏蔽，将行注释与块注释组合使用，可以带来极大方便。下图是组合使用的示例。ll_j 附带了这个的图片(setq a 3) (princ a)；| (if bCprinc (+ a 1)(princ (+ a 2)正常便用；(;l l;H(setq c nild(if bCprinc (+ s 寸 (princ (+ a 2) % -!l推看僮wn(setq d nilOCiF

18、bCprinc (+ a(princ (+ 占 2)昔取消-4呼(princ C* BVlisp编程技巧摘要(1).*)1. 如何获取多义线上的所有顶点Code:(defu n C:getp (/ ent PLTYPE obj vtx vtxlst n ptlst)(vl-load-com)(setq ent (entsel n选取多线:n)(if ent(progn(setq PLTYPE (cdr (assoc 0 (e ntget (car e nt)(if (or (= POLYLINE PLTYPE) (= LWPOLYLINE PLTYPE)(prog n(setq obj (vl

19、ax-e name-vla-object (car en t)(setq vtx (vla-get-Coord in ates obj)(setq vtxlst (vlax-safearray-list (vlax-varia nt-value vtx)(setq n 0)(setq ptlst n il)(repeat (/ (le ngth vtxlst) 2)(setqptlst (append ptlst (list (list (nth n vtxlst) (nth (1 +n) vtxlst)(setq n (+ n 2)(if ptlst ptlst nil)(prompt n选

20、取实体不是多义线!);if);if).*)2. 在对话框的文本栏里输入，怎样让它实时显示为密码“* ”？A.设计对话框时，控件的属性中加：password_char = *;srt : dialog label =密码“；:edit_box label =输入密码(&S):;key = password;password_char = *;fixed_width = true;width = 8;ok_only;(defu n c:srt ()(setq file name srt.dcl)(if ( (setq in dex_value (load_dialog file name) 0);

21、(progn(setq dlg name srt)(if (n ot (new_dialog dlg name in dex_value) (exit);(acti on _tile password (mypass)(action_tile ok (do ne_dialog 0)(start_dialog)(alert n不能载装指定的DCL文件定义的对话框!);end IF(pri nc)(defu n mypass ()(setq a1 $value)B.使用DOSLib输入密码的函数.*)3. 怎样可以实现不用工具中的选项，来调岀屏幕菜单？;屏幕菜单切换(defu n C:pmme n

22、u ()(vl-load-com)(setq sd(vla-get-display(vla-get-prefere nces (vlax-get-acad-object)(if (= (vla-get-displayscree nmenu sd) :vlax-true)(vla-put-displayscree nmenu sd :vlax-false)(vla-put-displayscree nmenu sd :vlax-true)(vlax-release-object sd)(pri nc).*4. 怎么样用 Vlisp来读取AutoCAD中搜索路径？(vla-get-supportp

23、ath(vla-get-files (vla-get-prefere nces或：(gete nv ACAD)n或：-rAi (acet-pref-supportpath-list)获取支持路径。.*装载对话框显视对话框(vlax-get-acad-object)5. 如何捕获列表框(list_box )的双击操作？在 edit_box,list_box,image_button,slider 表示你执行了什么操作。在list_box可在你的代码中加入判断：(action_tile listbox (fun1).)(defun fun 1()中，有一个$reason变量，用来中，双击的变量值是

24、 4。(if (= $reason 4).*6. 如何用 VLISP创建目录？例如：A. (vl-mkdir c:hqd9639)B. (setq SYS (vlax-create-object Scripti ng.FileSystemObject)(setq FOLDER (vlax-i nvoke-method SYS CREATEFOLDER c:hqd9639).*7. 如何用(entsel)亮显选择物体？code:(if (setq en t (e ntsel nPick Object)(prog n(redraw (car ent) 3);(redraw (car ent) 4);不亮显).*8. 如何隐藏选择实体？code:(if (setq en t (e ntsel nPick Object)(prog n(redraw (car e nt) 1);隐藏实体;(redraw (car e nt) 2);显示实体).*9. 状态栏进度条的设计示例(defu n c:hqd1 ()已经完成100)(acet-ui-progress (setq x 0)(while (List hqd).*11. 如何在CAD中插