Autolisp编程心得1Word文档格式.docx

1、 见例一。*;例一（defun ett_ct（） （initget ） ;关键字“C”及空格 （setq s0 （entsel n设置颜色C / 选取文本:） （cond （ （= s0 C） （ett_col） ;转设置颜色子函数） nil） ;空格退出 （ （and （= （type s0） LIST） ;选择实体 （= （cdr （assoc 0 （entget （car s0） TEXT判别文本 ） . ;操作内容 （ett_ct） ;编辑后返回选择 （t （ett_ct） ;空选返回选择） 有时需要进行复杂的判断，使用如“（= s0 ）”语句可能不能准确判别输入的空格关键字与空选择，

2、可以使用“（= （type s0） STR）”语句。4.Lisp的暂停与while的特殊使用 Lisp一般在交互输入时才会暂停，如果只需要实现屏幕显示暂停，可使用grread函数，grread函数对所有合法的输入设备均会作出反应，有时我们只希望对键盘有反应，可使用while函数进行循环。* （princ nPress ENTER to continue: （while （/= （car （grread） 2） while用于满足一定条件的循环，其标准语法为： （while testexpr expr.） 其中expr解释为“在 testexpr 为 nil 之前要求值的一个或多个表达式”，为可

3、选项（在R14之前没有方括号，但仍为可选项）。 正常我们使用while时，总会有expr项，更多的时候，我们是为了expr项才会使用这种循环语句，所有我们往往有expr项是不可缺少的感觉。这里我们使用while函数的语法是while函数的特例，即没有expr项的情况。 如果希望对鼠标右键同时反应，可以使用： （while （and （/= （setq a（car （grread） 2） ;键盘 （/= a 11） ;鼠标右键（SHORTCUTMENU0） （/= a 25） ;鼠标右键（SHORTCUTMENU0）5.输入距离 Lisp语言中输入距离的函数为getdist，但我们有时需要输入负

4、值，有时需要在输入距离的同时得到角度，使用getdist函数就显得无能为力，这时，我们可以灵活使用其它交互输入函数如getpoint、getcorner等，通过计算得到我们所需要的值。 例二是一段输入长度的同时得到默认角度的代码，使用getpoint函数。例二 （setq pt0 （getpoint n直线基点: pt1 （getpoint pt0 n直线长度:长度及角度可用键盘或鼠标定位 dst （distance pt0 pt1） ;计算长度 ang （angle pt0 pt1） ;计算默认角度 ang1 （getangle pt0 （strcat n直线方向: 例三是可以按阵列方式输入

5、行列间距的代码，输入距离为正值，修改部分代码可输入负值，使用getcorner函数，同时使用initget的控制位128。例三 （defun lc_dist （） （initget 128） ;允许任意输入 （setq disr （getpoint n指定单位单元或输入行间距: （if （= （type disr） 鼠标输入 （progn （initget 1） （setq dis （getcorner disr n指定对角点:鼠标输入对角 disc （abs （- （car dis） （car disr） ;正值行距 disr （abs （- （cadr dis） （cadr disr） ;

6、正值列距 ） ;计算行列间距STR） ;键盘输入行距 （if （setq dis （distof disr） ;判断输入的是否距离 （initget 6） （setq disc （getdist n输入列间距:） ;输入列距 （progn ;键盘输入格式不符返回n需要正数值或两个二维角点。 （lc_dist）空输入返回6.数学运算函数的数量界限 在Lisp中对表中数据进行求和、求最大值等数学运算时，往往直观的对表直接赋予运算函数，使用语句如“（eval （cons MAX numlist）”，一般都可以进行计算，但当表中数据数量大于255时，将会出现错误“bad argument value:

7、 does not fit in byte: 256”。 对于这种情况，我们不必对数据表进行分段，可以直接使用函数apply，语法更简单：（apply MAX numlist）。apply可将数据表传送给指定的函数进行求值而不受数据数量的影响。 受表中数据数量影响的数学运算函数有：+、-、*、/、max、min、logand及logior。7.选择集与表 选择集是一种特殊结构的表，只能通过特定的函数进行操作，但这些函数对大量重复的操作只能通过循环实现，显得力不从心，不能体现Lisp语言表结构的优越性。 其实我们只要通过存取实体名或实体句柄，将它们存为一个普通结构的表，完全可以通过常规表操作函数

8、实现对实体的操作。 例四是一段使用apply、mapcar函数联合求文本选择集中文本基点最大y值得代码，只是一个示例，如果结合VL-sort函数，可轻松实现对文本的排序。例四 （setq sl nil i -1） （repeat （sslength （setq ss （ssget （0 . ） ;选择文本 （setq i （1+ i） en （ssname ss i） ;从选择集中取出文本 sl （cons en sl） ;构造包含实体名的表 （setq maxy （apply max ;求文本基点最大y值 （mapcar （lambda （x） （caddr （assoc 10 （entge

9、t x） ;提取y值 sl 当然，选择集也有其优势的一面，比如对选择集中实体的删除操作非常简单、选择集中的实体不会重复及选择集可以与Acad命令交互使用等特征是一般表所不具备的，所以，编程时应根据程序要求，灵活运用。8.cal的使用与加载 Acad随机附带了一些外部定义命令，其中cal（计算器）命令是最常用的命令之一，在加载gromcal.arx后cal可以在Lisp程序中像其它函数一样使用，这就使得我们在程序中对文本的四则运算处理变得简单，如“（cal 1+2/3）”，其中字符串可以从图形的文本中提取，也可以是符合cal要求格式的任一字符串（详见Acad联机帮助）。 需要注意的是，在Acad

10、中gromcal.arx只能加载一次，重复加载将使Acad以外退出（无提示）。需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：（if （or （= （type c:cal） R14使用 （= （type c:SUBR） ;R2000+使用 （arxload geomcal.arx9.Undo处理 一个完善的程序应该有较好的出错处理，这是在所有Lisp教材上都提及的，但程序的Undo处理就说得很少或没有提及。 其实Undo处理对程序来说也是非常重要的，尤其对有较多输出的复杂程序而言，不能解决Undo问题，使用起来会极不方便。 对于Undo问题的解决，一种方法是尽量少用或不用comma

11、nd函数，即不调用原始命令，这是一种较好的方法，但必须注意的是，一段程序必须至少有一次调用command函数，否则Undo命令将取消程序运行前的前一次命令，解决的方法是在程序运行的起始位置加一个无谓的command，如“（command color 有时不使用command函数不能达到我们要求的一些功能，或使得程序过于复杂，我们可能需要使用一些command函数（原始命令），这是就应该在程序中进行Undo处理，即使用Undo命令的编组功能。 例五是一段程序出错函数与Undo处理的示例。例五（defun newerr （s） ;出错函数 （if s （term_dialog） ;使用对话框时使用

12、 （if olderr （setq *error* olderr） ;出错函数恢复 （if oldvar （setvar . oldvar） ;系统变量恢复 （command _.undo_eUndo编组结束 （princ）（defun c:my（/ .） ;主程序（主函数） （setvar cmdecho 0） ;取消命令回显提示_BEUndo编组开始 （setq olderr *error* *error* newerr） ;调用自定义出错函数 （setq oldvar （getvar .） ;保存相关系统变量 （setvar . ;设置系统变量程序段 . （setvar . oldvar

13、） ;恢复系统变量 （setq *error* olderr） ;恢复出错函数_E结束Undo命令编组 （princ） ;取消程序返回值10.程序调试时块注释的使用 我们经常会加上或屏蔽一段代码辅助程序调试，此时最常用的是在需要暂时屏蔽的代码前使用行注释符号“;”，对于较多的代码就需要使用块注释“;|;”，如果一段代码需要频繁屏蔽，将行注释与块注释组合使用，可以带来极大方便。 下图是组合使用的示例。ll_j 附带了这个的图片 :Vlisp编程技巧摘要（1）*1.如何获取多义线上的所有顶点 Code: （defun C:getp （/ ent PLTYPE obj vtx vtxlst n pt

14、lst） （vl-load-com） （setq ent （entsel n选取多线:n （if ent （setq PLTYPE （cdr （assoc 0 （entget （car ent） （if （or （= POLYLINE PLTYPE） （= LWPOLYLINE PLTYPE） （setq obj （vlax-ename-vla-object （car ent） （setq vtx （vla-get-Coordinates obj） （setq vtxlst （vlax-safearray-list （vlax-variant-value vtx） （setq n 0） （se

15、tq ptlst nil） （repeat （/ （length vtxlst） 2） （setq ptlst （append ptlst （list （list （nth n vtxlst） （nth （1+ n） vtxlst） （setq n （+ n 2） （if ptlst ptlst nil） （prompt n选取实体不是多义线! ）;if ） if 2.在对话框的文本栏里输入，怎样让它实时显示为密码“ * ” ？ A.设计对话框时，控件的属性中加：password_char = * srt : dialog label = 密码 ; : edit_box 输入密码（&S）: k

16、ey = password password_char = fixed_width = true; width = 8; ok_only; srt （ ） （setq filename srt.dcl （if （ （setq index_value （load_dialog filename） 0） ;装载对话框 （setq dlgname srt （if （not （new_dialog dlgname index_value） （exit） ;显视对话框 （action_tile （mypass） ok（done_dialog 0） （start_dialog） （alert n不能载装指

17、定的DCL文件定义的对话框!END IF （defun mypass （） （setq a1 $value） B.使用DOSLib输入密码的函数*3.怎样可以实现不用工具中的选项，来调出屏幕菜单？屏幕菜单切换（defun C:pmmenu （） （setq sd （vla-get-display （vla-get-preferences （vlax-get-acad-object） （if （= （vla-get-displayscreenmenu sd） :vlax-true） （vla-put-displayscreenmenu sd :vlax-false） （vlax-release-

18、object sd）4.怎么样用Vlisp来读取AutoCAD中搜索路径? （vla-get-supportpath （vla-get-files （vla-get-preferences （vlax-get-acad-object） 或： （getenv ACAD （acet-pref-supportpath-list）获取支持路径。5.如何捕获列表框（list_box）的双击操作?在edit_box,list_box,image_button,slider中，有一个$reason变量，用来表示你执行了什么操作 。在list_box中，双击的变量值是4。可在你的代码中加入判断：（action

19、_tile listbox（fun1）.（defun fun1（） . （if （= $reason 4）6.如何用VLISP创建目录？ 例如： A. （vl-mkdir c:hqd9639 B. （setq SYS （vlax-create-object Scripting.FileSystemObject （setq FOLDER （vlax-invoke-method SYS CREATEFOLDER 7.如何用（entsel）亮显选择物体? code: （if （setq ent （entsel nPick Object （redraw （car ent） 3）（redraw （car ent） 4）;不亮显8.如何隐藏选择实体? （redraw （car ent） 1）;隐藏实体（redraw （car ent） 2）;显示实体9.状态栏进度条的设计示例hqd1 （） （acet-ui-progress 已经完成 100） （setq x 0） （while （List hqd）11.如何在CAD中插入时间和日期?inttime（