用visuallisp 开发 autocad 表面粗糙度标注工具

《用visuallisp 开发 autocad 表面粗糙度标注工具》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用VisualLISP开发AutoCAD表面粗糙度标注工具汪国荣（中国南车集团眉山车辆厂铸锻公司，四川，眉山，620032）[摘要]首先对嵌入在AutoCAD系统内的LISP语言特点作了简要介绍，然后详细地介绍了如何利用LISP语言编写和调用表面粗糙度标注程序，来增强AutoCAD系统功能。[关键字]表面粗糙度；AutoCAD；LISP语言；函数；绘图0、前言60度，定义表面粗糙度符号各端点的坐标，相关AutoCAD是美国Autodesk公司1982年推出线段的角度和长度。的微机交互式图形系统，通过20多年的发展，其⑵、

2、绘出粗糙度基本图形。已知各点的坐功能得到了很大的扩展和增强，已是目前最流行标，利用绘图函数(pline)绘出粗糙度符号的初始图的计算机辅助设计软件之一，它以其强大而又完形。善的功能以及方便、快捷的操作在机械、建筑和302工程设计领域中得到了广泛应用，但遗憾的是在p(x,y)该系统中未提供表面粗糙度的标注功能，这给经p常绘制金属零件加工图的工程人员带来不便。不p3..411θ过，利用捆绑在AutoCAD（R14以后的版本）中的VisualLISP集成开发环境进行LISP语言二次开txt_pθp1.4发，可以帮AutoCAD

3、系统实现粗糙度标注功能。1、LISP语言简介1986年，Autodesk公司为了便于用户在AutoCAD基础上作二次开发，形成专业化的计算txt_p30机辅助设计系统，自R2.18版本开始，Autodesk公司在AutoCAD内部嵌入了AutoLISP语言，并图1标注粗糙度编程原理图采用了与标准的LISP语言最为相近的语法和约⑶、求出旋转角度。如图1所示，以PB1B为基定，同时还扩充了许多适用于CAD应用和专用功点，用户鼠标指针在屏幕上的坐标点为P，利用求能。形成了能在AutoCAD系统内以解释方式运行角度函数(geta

4、ngle)可以求线段PB1BP与水平线的倾角的函数求值型语言。随着计算机软硬件技术的飞θ，即求得粗糙度基本图形旋转的角度。速发展，AutoLISP由于缺乏集成开发环境，源程⑷、求得文本放置对角线坐标。根据旋转序只能在一般文本编辑软件上编辑，不具备其他角，利用求极坐标函数(polar)求出放置粗糙度数值语言常用的跟踪、断点、单步等程序调式手段，文本的对角线坐标点txt_pB30B和txt_pB4B。已不能适应AutoCAD环境下的较大型用户化⑸、旋转图形。利用绘图函数（rotate）将起CAD应用系统开发，因此Autode

5、sk公司不断地推初绘好的粗糙度基本图形旋转角度θ出新的开发系统，从R11开始推出ADS，从R13⑹、填写粗糙度数值。已知txt_pB4B和txt_pB30B对开始推出ARX，但都是基于C语言的开发环境，角坐标，以及旋转角度，利用文本函数(Mtext)，用户不易在短期内掌握。终于在1998年3月，绘出表示粗糙度数值的文本。Autodesk公司从R14开始推出新一代可视化LISP以上是编程绘图的基本思路，当然具体编程编程软件—VisualLISP。不会这么简单，因为粗糙度的标注有三种情况，2、编写标注表面粗糙度的LISP程序

6、每种情况的粗糙数值又不同。表示粗糙度数值的1）编程绘图的基本思路文字方向又有两种情况，因此要利用条件函数将⑴、定义点坐标。如图1所示，首先按照国不同情形区分开来，分别处理，才能保证程序更标GB/T131-96对表面粗糙度符号的规定，以用户加完善。输入的第一点（PB1B）为基点，线段PB1BPB2B与水平线成2）运行VisualLISP软件和保存LISP文档编写LISP程序，首先运行AutoCAD，然后依(set'ang_pt4(/pi3))次打开“工具（UTU）”→“AutoLISP(USU)”→(set'ang_pt3

7、(*pi0.66667))“VisualLISP编辑器”，在VisualLISP菜单栏打开(set'ang_circle(/pi2))“文件(UFU)”→“新建文件（UNU）”，系统将打开(set'distance_p1_p212.7017)一个未命名的空白LISP文档，进入编辑状态，可(set'distance_p1_p345.7735)在编辑器内输入LISP源程序，如图2所示。程序(set'distance_p1_circle_center3.33333)(set'radius_center1.66667)(set'

8、distance_p1_p304011.3725)(set'ang_pt401.31415)(set'ang_pt301.82744)(set'pt2(polarpt1ang_pt4distance_p1_p2))(set'pt3(polarpt1ang_pt3distance_p1_p34))(set'pt4(po