VisualLISP创建公差标注函数的基本思路及函数解析.pdfVIP

科技信息 计算机与网络 Visual LISP 创建公差标注函数的基本思路及函数解析 石药集团中润制药 魏洪普 河北电机股份有限公司 周 静 李亚春 ［ 摘 要］本文介绍了用Visual LISP 创建公差标注函数的基本思路，并用流程图表示程序的逻辑关系以及各逻辑关系的函数实现过 程。 为了提高程序的易用性，对程序的出错处理、透明命令、创建工具栏按钮做了简要介绍。 ［ 关键词］Visual LISP 公差标注 流程图 出错处理 透明命令 工具栏按钮 一、简介 );;end not 用AutoCAD 进行公差标注时，需要打开标注样式管理器，调整公 );;end progn 差值、高度比例、前缀、后缀，操作比较繁琐，特别是需要标注大量公差 ) ;;end or 时，效率很低，其实这一切都可以用程序自动完成，并且程序还可以完 (setq dim_sel (car (entsel \n 您选择的并非标注尺寸，请重新选择:))) 成图形界面所无法完成的工作。 Visual LISP 是一种嵌入在AutoCAD 中 );;end while 的程序设计语言，在AutoCAD 内部使用。 它是Autodesk 公司提供的专 (if (= DIMENSION name_sel) 业用户应用开发手段中，历时最悠久、掌握人最多、最常用、最用成效的 (setq name_sel (cdr (assoc 100 (reverse (entget dim_sel))))) 一种。下面，本文将介绍用Visual LISP 进行该程序设计的一般思路及要 );;end if 点。 函数定义： 二、程序设计目标 setq: 将一个或多个符号的值设置为相应表达式的值 设计一程序，调用该程序可对各种标注实现快速编辑，并且能实现 entsel: 提示用户指定点来选择对象（ 图元） ，得到这个对象所指片段 各种公差标注类型，制作工具栏按钮，使之支持快捷工具栏及方便反复 的对象名 调用。 对测试表达式进行求值，如果它不是 ，则执行循环体中的 while: nil 三、程序流程及主要函数解析 表达式，重复这个过程，直到测试表达式的求值结果为nil 程序主流程如下所示： 获得对象（ 图元） 的定义数据 组码 entget: (dxf ) cdr: 返回去掉了第一个元素的表