表面粗糙度是指加工表面具有的较小间距和微小峰谷不平度。它是零件制造时的重要技术要求之一，须按规定标注于工程图样中。在AutoCAD环境下标注表面粗糙度时，由于没有可以直接调用的命令，通常的做法是先将表面粗糙度符号与要标注的参数一起制作成属性块，然后根据需要进行插入。但是，由于表面粗糙度有七个参数，每次要标注的参数个数与标注数值、标注文本的不同，会形成大量不同的标注组合。因此应用AutoCAD提供的插入块的方法来标注表面粗糙度，需要定义大量不同的标注块，以致标注速度慢、效率低，同时插入时也不能快速、准确地找到需要的块文件。为此，笔者针对AutoCAD在标注表面粗糙度时存在的不足，应用内嵌语言VBA/ActiveX为二次开发工具，开发了一个通用的表面粗糙度标注程序。运行该程序，通过菜单项选择并输入相关参数，选择需要标注的实体即可实现表面粗糙度的快速标注，并满足国家标准规定，避免了插入标注块方式的繁琐过程。

　　2 表面粗糙度标注的基本规定

　　国家标准对表面粗糙度标注做了明确的规定，表面粗糙度智能化标注中要充分考虑以下问题。

　　1)国家标准GB T131-1993规定了表面粗糙度符号、代号及其注法，其中表面粗糙度符号的比例如图1所示。

　　图1 表面粗糙度符号的比例

　　图1 中符号的意义如表1所示

　　表1 表面粗糙度符号比例的尺寸

　　设计过程中将表1中的数据存放在Access数据库中，运行时用户根据AutoCAD图样中的线宽选择轮廓线的线宽参数b，程序将自动读取其他相应四个符号尺寸的值。

　　2)按照国家标准GB T131-1993，一个完整的表面粗糙度标注式样如图2所示。其中粗糙度的标注数值、标注文本在用户窗体中一次性设置完成，各参数有数值时自动计算文本位置并在相应位置注写，无数值时该参数不标注;a1、a2都有数值时上下注写，有一个数值时，在a2处注写。图2中，a1、a2为粗糙度高度参数代号及其数值;b为加工要求或其他说明;c为取样长度或波纹度;f为粗糙度间距参数值或轮廓支承长度率;d为加工纹理方向符号;e为加工余量。

　　图2 完整的表面粗糙度标注式样

　　3)标注时拾取实体对象和选取表示标注方向的点后，在指定点处进行表面粗糙度符号的插入和绘制，而且无论拾取对象是直线、多义线、尺寸线、尺寸界线、圆和圆弧等，都能按照GB T131-1993正确标注，表面粗糙度标注形式如图3所示。

　　4)在用户界面上，用图片的方法显示表面粗糙度符号的类型，如图4所示。用户通过双击图片选择需要的表面粗糙度符号类型并进行绘制。

　　5)能够根据b、c/f的值判断右上角尾线的状态。若b、c/f均为空，则不绘制尾线;若b、c/f有值，可以自动计算出尾线长度。

　　6)d值表示加工纹理方向，采用列表框选择的方式进行输入。

　　7)可进行粗糙度符号的连续插入。

　　图3 表面粗糙度标注形式

　　图4 运行界面

　　3 智能化标注的实现

　　3.1 插入点和插入方位的确定

　　插入点的确定如图5所示，粗糙度符号的尖端(插入点)应落在零件轮廓线、尺寸界线、尺寸线或其延长线上。插入点为拾取标注对象时的鼠标拾取位置。插入过程分以下两种情况：若拾取对象为直线、多义线、尺寸线、尺寸界线、圆或圆弧，则需拾取另一点用来确定插入方位完成表面粗糙度符号的绘制;若拾取对象为空，则在鼠标拾取位置直接插入表面粗糙度符号。

　　图5 插入点的确定

　　3.2 粗糙度符号的绘制

　　表面粗糙度的各个元素之间是通过角度和距离相互联系的，根据国家标准GB T131-1993的规定∠P3P2P5=60°为固定值，其他边长或半径是通过用户选择线宽后，直接在数据库中读取相应值。

　　编写极坐标求点函数GetpointPolar()，求出插入点P2后，以P2为基准点求其他未知点进行粗糙度符号的绘制。

　　极坐标求点函数：

　　GetpointPolar(ByVal ptbase As Variant，ByVal angle As Double，ByVal length As Double)

　　GetpointPolar函数的三个输入值分别为：基准点、相对X轴的旋转角度(以弧度为单位)、偏移距离。基准点即要参考的点;偏移距离是指未知点与参考点的距离;而旋转角度值的确定分为两种情况：

　　1)当标注对象为直线、多义线、尺寸线或尺寸界线时(如图5a所示)，其中P2为插入点，点P1为点P2的引出线且P1P2垂直于拾取的标注对象P2P0。绘制过程为：先使用实体对象的StartPoint属性和EndPoint属性获得所选实体的起点坐标和终点坐标计算实体线段的斜率;然后通过计算求得P1P2的斜率，再用Atn()函数求得线段P1P2和石轴的夹角α(rad)，如图5a所示，转换为角度值即α×180/π;则P3P2相对X轴的角度为α×180/π+30°。

　　2)当标注对象为圆或圆弧时，如图5b所示，其中P2为插入点，点P1为圆心与插入点连线的延长线上的点。在绘制表面粗糙度符号时，始终保持P1O垂直于P3P4。绘制过程为：先求得P1P2的斜率;再利用Atn()函数将其转换为弧度值设为β;则P3P2相对X轴的角度为β×180/π+30°，而P5P2相对X轴的角度为β×180/π-30°。

　　以直线对象中的点P3为例，设偏移长度为10，则点P3的求点公式为：

　　GetpointPolar(P2，(α*180/pi+120)*pi/180，10)

　　3.3 粗糙度符号中文本位置的确定

　　粗糙度数值书写位置分两种情况(如图5所示)：