在AutoCAD中基于LISP程序简易标注粗糙度

CAD中标注表面粗糙度的方法1表面粗糙度的概念表面粗糙度指零件经过加工后，在零件表面上产生的较小间距和微小峰谷所组成的微观几何形状特征。

一般是由所采取的加工方法和（或）其他因素形成的。

零件表面的功用不同，所需的表面粗糙度参数值也不一样。

零件图上要标注表面粗糙度代（符）号，用以说明该零件表面完工后须达到的表面技术要求。

表面粗糙度参数有3种：①轮廓算术平均偏差Ra；②微观不平度十点高度Rz；③轮廓最大高度Ry。

目前，一般机械制造工业中主要选用Ra数值。

2表面粗糙度基本符号的画法见图1。

图1表面粗糙度基本符号的画法及尺寸/基本符号加一短划，表示表面是用去除材料的方法获得。

如车、铣、钻、磨等加工方法获得。

/基本符号加一小圆，表示表面是用不去除材料的方法获得。

如：铸、锻、冲压、热轧、冷轧、粉末冶金等方法获得。

表面粗糙度数值及其有关规定在符号中注写的位置见图2。

图2表面粗糙度各项规定符号的位置其中：al、a2:表面粗糙度高度参数代号及其数值，卩mb:加工要求、镀、涂表面处理或其他说明等；c :取样长度，mmd:加工纹理方向符号；e：加工余量。

mmf :表面粗糙度间距参数值（唧）或轮廓支承长度率。

3图样上的标注方法(1) 表面粗糙度代(符)号一般标注在可见轮廓线、尺寸界线、引出线或其延长线上，符号的尖端须从材料外指向表面，代号中数字的方向必须与尺寸数字方向一致。

(2) 表面粗糙度代(符)号在零件不同表面中数字及符号的方向，见图3。

图3表面粗糙度代(符)号在零件不同表面中数字及符号的方向4制作表面粗糙度的图块在Auto CAD绘图环境下，表面粗糙度不能直接标注，需要事先按照机械制图国家标准对表面粗糙度标注的要求，画出表面粗糙度符号，然后定义成带属性的块，在标注时用插入块的方法进行标注。

下面以用去除材料的方法，在Auto CAD 绘图环境下应用带属性块的方法来制作表面粗糙度符号，并将其标注在技术图样中。

在技术图样中，由于幅面不同，在其上所标注的字号也不同，为了在使用过程中能够比较容易地确定表面粗糙度符号的缩放比例值与所标注的字号相匹配，将表面粗糙度符号绘制在尺寸为1X 1的正方形中。

第7 卷第1 期安徽职业技术学院学报Vol. 7 No. 1 2008 年3 月J OUR NAL OF AN HU I VOC A TIONAL TE C HNIC AL COLL E GE Mar. 2008AutoCAD 中利用AutoL ISP 实现表面粗糙度的标注严佳华1 ,2 , 王卫荣1(1 .合肥工业大学机械与汽车工程学院,安徽合肥230009 ;2 .安徽职业技术学院机械工程系,安徽合肥230051)摘要:文章阐述了零件表面粗糙度代号的标注方法,提出了在AutoCAD 环境下利用AutoL I SP 语言编程与属性块插入相结合实现表面粗糙度代号的快速标注。

关键词:AutoCAD ;AutoL I SP ;表面粗糙度;标注中图分类号: U46 文献标识码:A 文章编号:167229536 (2008) 0120025203Abstract :The paper pres ent s t he method of how to mark t he code name of a part′s surface rough2 ness and int roduces t he met hod of fas t marking t hrough t he combination of A uto L ISP programming and t h e ins ertion of att r ibutive blocks under A uto C A D.Key words :Auto CAD ; A utoL ISP ; degree of surface roughness ; markingAuto CAD 是目前国内外使用最为普遍的绘图软件之一, 由美国Autodes k 公司研制开发。

随着版本的不断更新,其功能越来越强,又因为其支持的平台多、外设广、性能价格比好、易学易用, 使用越来越方便,因而得到了广泛的应用。

AUTOCAD技巧疑问：标注表面粗糙度工程图中表面粗糙度的标注较多，使用AutoCAD绘图时人们最常用的办法是将绘制好的粗糙度符号定义成块或属性块（可改变粗糙度值），供以后调用。

能否象标注尺寸和形位公差一样通过点击菜单来标注表面粗糙度呢？当然应该是没有问题的，下面笔者将就此进行介绍。

一、设想及目标AutoCADR14中已有十个下拉菜单段，意欲在尺寸标注（Dimension）菜单段中的公差（Tolerance）菜单项下增设一个具有三个子菜单的菜单项Roughness（粗糙度），结果如图1：其中：子菜单项LeftTop专用于标注左方、上方及左上方位的需加工表面粗糙度符号；子菜单项BottomRight专用于标注下方、右方及右下方位的需加工表面粗糙度符号；子菜单项NoMachine专用于标注任何方位的不需去除材料的表面粗糙度符号；这三个符号已可满足绝大多数情况下的表面粗糙度符号标注要求，如还需要用到其它表面粗糙度符号，则必须自己补充。

在使用LeftTop和BottomRight子菜单时只需要用户回答三个问题：插入点位置、粗糙度值、旋转角度。

而在使用NoMachine子菜单时只需要回答插入点位置和旋转角度两个问题即可。

二、构思设计以LeftTop子菜单对应符号为例（见图2a），绘制过程是：1、以1点为符号插入点，先用POINT命令绘制一个点，其位置由用户输入。

2、用PLINE命令从2点起按2→3→1→4路径绘制基本符号（复合线绘出的三段线为一个实体，以便后面的实体选择，LINE做不到），、段长度均6个图形单位（简称6，下同），段长度为12。

3、在3点正上方0.5处开始，用TEXT命令以Fit方式书写粗糙度值，字全宽（即的长度）为6，字的高度4.5，文字内容由用户输入（文字会充满图示矩形框）。

4、以1点为基点将文字及基本符号同时旋转至所需位置，旋转角度由用户输入。

BottomRight和NoMachine对应符号的绘制过程与之类似，稍有不同。

2003年6月 陕　西　工　学　院　学　报J une.2003第19卷第2期 Journal of Shaanxi Institute of Technology Vol.19　No.2[文章编号]1002-3410(2003)02-0071-03Auto CAD 二次开发表面粗糙度标注命令李金祥(陕西理工学院计算机科学与技术系,陕西汉中723003)[摘　要]　Auto CAD 是工程界最著名的绘图软件之一,由于其功能强大,而被人们广泛的采用。

但在绘制机械图样时却没有提供关于表面粗糙度的标准方法,表面粗糙度是衡量零件表面加工质量的重要参数,是零件图中必不可少的标注内容之一。

因此实现快速、自动标注表面粗糙度的具有非常重要的意义。

在Auto CAD2000/2002中利用VBA 二次开发环境,实现表面粗糙度的命令标注。

[关　键　词]　Auto CAD ;　表面粗糙度;　标注命令[中图分类号]　TH126 [文献标识码]　A收稿日期:2003-04-21作者简介:李金祥(1963—),男,陕西蒲城人,陕西理工学院副教授,主要研究方向是工程制图/CG /CAD 。

Auto CAD 具有强大的图形绘制与处理功能,在工程技术界被广泛的使用。

但到版本Auto CAD 2002为止,都未提供有关零件表面粗糙度的标注方法或命令,因而给人们绘制机械工程图样带来了一定的不便,虽然可以通过Auto CAD 提供的画线命令L IN E 、画圆命令CIRCL E 和文本标注命令TEXT 能够实现,但操作烦琐、精度难以保证;可以用定义图块BLOC K 的方法实现,但修改麻烦、倾斜方向很难满足标注的要求。

1　表面粗糙度标注的要求根据国家标准G B/T13121993[1],标注表面粗糙度应满足以下要求:1)　应区分加工表面符号和非加工表面符号,如图1(a )所示;2)　应随加工表面的位置旋转粗糙度符号的方向,如图1(b )所示;(a )　加工表面与非加工表面 (b )　不同方向的注写形式 (c )　粗糙度符号的大小参数　图1　标注表面粗糙度的不同要求3)　粗糙度数值的书写方向应与尺寸标注中尺寸数字的书写方向一致,如图1(b )所示。

cad粗糙度标注方法CAD粗糙度标注方法1、简介CAD（计算机辅助设计）是一种技术，它使用计算机系统来完成设计过程中的部分或全部任务，以提高工程设计的效率和精度。

粗糙度标注是CAD系统中一项重要的内容，它可以根据工程需要，为零件表面的不同特征提供标准的标准值，以确保零件的质量。

粗糙度标注有助于零件加工和检验，加快了工程设计过程。

2、原理粗糙度标注的原理是用标准的标准值来表示刻度、尺寸和表面性能等特性。

粗糙度标注的标准包括各种形式，如接近度、公差、机械加工、抽样检验等。

粗糙度标注的标准值一般是表面表示规格的特征值，例如表面粗糙度、表面状态、表面形状、表面平整度、表面精度等等。

这些特征值是根据不同材料性能、加工工艺要求等而确定的。

3、应用CAD粗糙度标注的应用主要是为了获得精确的零件表面性能，以满足客户对产品质量的要求。

它可以让工程师比较快速地完成工程设计，并在减少加工误差的同时确保产品质量。

CAD粗糙度标注也可以节省人工的标注时间，并可提高零件表面的生产效率。

此外，CAD粗糙度标注可以有效地减少表面加工的成本，改善产品质量，提高设计效率，节省工程设计成本。

4、步骤CAD粗糙度标注的步骤主要有以下几点：（1）确定零件表面特征值。

这包括对零件表面尺寸、表面粗糙度、表面形状等参数的确定。

（2）根据工程需要，选择合适的表面表示规格，并为其确定标准值。

（3）在CAD系统中设置表面表示规格的参数。

（4）根据表面表示规格的设置，设置CAD粗糙度标注系统。

（5）根据粗糙度标注系统的设置，对零件表面进行标注。

5、优缺点CAD粗糙度标注的优点是可以减少表面加工的成本，提高设计效率，改善产品质量，节省工程设计成本。

缺点是CAD粗糙度标注需要一定的技术精度，不能完全取代手动标注，需要花费大量的时间和精力来调整系统参数。

如何使用LISP语言自定义AutoCAD命令AutoLISP语言作为AutoCAD的二次开发工具，虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些，但由于它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具。

下面就介绍用AutoLISP 语言自定义的几个AutoCAD绘图命令，可以起到简化操作、提高作图效率的作用。

一、键槽尺寸视图的绘制命令“jct”在绘制轴、齿轮或带轮等零件图时，经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图，比较麻烦；由于键槽的尺寸随轴径的变化而变化，所以我们可以用LISP程序来实现自动绘图。

加载下面的程序，在命令行中键入”jct”并回车，通过人机交互的形式输入有关参数，可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。

代码示例如下所示。

(defun C:jct ()(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))(initget 7)(setq loop T)(while loop(setq d (getreal "\n请输入键槽处的轴径(12<d<130)(mm):"))(if(or (< d 12) (> d 130))(alert "轴径数据输入错误!\n\n请重新输入!")(setq loop nil));if);while(cond;根据轴径检索键槽尺寸((and (> d 12) (<= d 17)) (setq b 5 t1 3.0 t2 2.3));b表示键槽的宽度((and (> d 17) (<= d 22)) (setq b 6 t1 3.5 t2 2.8));t1表示轴上键槽的深度((and (> d 22) (<= d 30)) (setq b 8 t1 4.0 t2 3.3));t2表示轮毂上键槽的高度((and (> d 30) (<= d 38)) (setq b 10 t1 5.0 t2 3.3))((and (> d 38) (<= d 44)) (setq b 12 t1 5.0 t2 3.3))((and (> d 44) (<= d 50)) (setq b 14 t1 5.5 t2 3.8))((and (> d 50) (<= d 58)) (setq b 16 t1 6.0 t2 4.3))((and (> d 58) (<= d 65)) (setq b 18 t1 7.0 t2 4.4))((and (> d 65) (<= d 75)) (setq b 20 t1 7.5 t2 4.9))((and (> d 75) (<= d 85)) (setq b 22 t1 9.0 t2 5.4))((and (> d 85) (<= d 95)) (setq b 25 t1 9.0 t2 5.4))((and (> d 95) (<= d 110)) (setq b 28 t1 10.0 t2 6.4))((and (> d 110) (<= d 130)) (setq b 32 t1 11.0 t2 7.4)))(command "circle" pt0 "d" d)(command "zoom" "a")(setq s1 (ssget "l" ))(setq di (-(* (/ d 2.0) (/ d 2.0)) (* (/ b 2.0) (/ b 2.0)))dx (sqrt di)dy (/ b 2.0)pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy)))(initget "Zc Lc");Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图(setq zrl (getkword "\n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))(if (= zrl "Zc")(progn;计算轴键槽上点的坐标(setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1)))));progn);if(if (= zrl "Lc")(progn;计算轮毂键槽上点的坐标(setq pt2 (list (+ (car pt0) (+(/ d 2.0) t2)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx))));progn);if(command "pline" pt1 pt2 pt3 pt4 "");画键槽(setq s2 (ssget "l"))(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")(command "ltscale" 8)(command "line" (polar pt0 (- pi) (+ (/ d 2.0) 10));画中心线(polar pt0 0 (+ (/ d 2.0) 10)) "")(command "line" (polar pt0(-(/ pi 2.0)) (+ (/ d 2.0) 10))(polar pt0 (/ pi 2.0) (+ (/ d 2.0) 10)) "")(command "layer" "s" 0 "")(if (= zrl "Zc")(progn(setq s3 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s3 "");修剪形成键槽(command "hatch" "U" "45" "2" "n" s1 s2 ""));画轴上键槽处剖视图的剖面线);if(if (= zrl "Lc")(progn(setq s4 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s4 "");修剪形成键槽(command "rotate" s1 s2 "" pt0 90));将轮毂键槽的端面视图旋转90度);if);end defun二、螺纹孔剖视图的绘制命令“lwk”在绘制机械零件图时，经常要画螺纹孔的剖视图，同样由于螺纹孔的有关尺寸都随螺纹的公称直径而变化，我们可以用下面的程序自动完成其剖视图的绘制。

在Auto CAD2002中制作粗糙度在Auto CAD中，不知为何Autodesk公司竟然没有制作粗糙度，形位公差基准符号，工装定位基准等等。

既然没有，那我们只好自己动手做哦！呵呵，跟我来！1、制作功能完全的粗糙度这次制作的粗糙度，我们要求功能如下：一．上、下、左、右粗糙度集一体，当然还可以斜着罗！二．操作简便，能够在命令行中快速输入命令而输出图形，拥有自己独立的命令，不与其它CAD自带的命令冲突。

三．在工具条中拥有自己的图标。

四．还有最重要的一点，就是随时可以使用。

不能因为CAD重新启动而不能使用噢！怎么样！这样的粗糙度你满意吗！好吧，那我们就开始制作吧！铛铛铛…铛！第一步：新建一个空白文件，画一个“”边长为5。

(注意以下命令不包括引号！)第二步：输入“att”，出现对话框，其各项值如下图点拾取点，一般选择粗糙度的横线上方1mm高的地方，然后点确定。

调整A.B的位置（如上图）。

第三步：如法炮制，重复第二步，输入“att”,对话框的各项值如下图：点拾取点，一般选择粗糙度的横线上方1mm高的地方，然后点确定。

调整C.D的位置,最好使A.B和C.D重合（如上图）。

第四步：输入“b”，选择基点：基点一定要选粗糙度下顶点。

(千万不要抄我里的数据)选择对象：这时选择的顺序是”A.B”,”C.D”,””,一定要这样选哦！名称：aa（随便什么都可以！具体如下图）OK！现在已经完成了工作的一半，继续努力！第五步：回到CAD，选择菜单“文件” “输出”，选择保存类型，类型为块（*.dwg）,填上名称，如粗糙度。

选择保存路径，如“D:\CAD外部参考”文件夹下呀，都可以！（你不要说在D盘没有这个文件夹该怎么办？我的天呀，新建一个呗！^_^ !）按确定后，命令行会出现如下:输入”aa”,就是在第四步块定义的那个块的名称。

OK!回车！（这时要注意：在选择保存路径的时候，你可以按照你的习惯把你的块文件保存在一个平常你专门放块文件的地方，如果只有这一个，那么我见意你就放在CAD程序安装的路径中的*:\****\****\Auto CAD2002\support中，如果你一定要放在其它的地方，那么你要在CAD的这里加上这个文件夹的路径。

CAD中标注表面粗糙度的方法1 表面粗糙度的概念表面粗糙度指零件经过加工后，在零件表面上产生的较小间距和微小峰谷所组成的微观几何形状特征。

一般是由所采取的加工方法和(或)其他因素形成的。

零件表面的功用不同，所需的表面粗糙度参数值也不一样。

零件图上要标注表面粗糙度代(符)号，用以说明该零件表面完工后须达到的表面技术要求。

表面粗糙度参数有3种：①轮廓算术平均偏差Ra；②微观不平度十点高度Rz；③轮廓最大高度Ry。

目前，一般机械制造工业中主要选用Ra数值。

2 表面粗糙度基本符号的画法见图1。

图1 表面粗糙度基本符号的画法及尺寸/基本符号加一短划，表示表面是用去除材料的方法获得。

如车、铣、钻、磨等加工方法获得。

/基本符号加一小圆，表示表面是用不去除材料的方法获得。

如：铸、锻、冲压、热轧、冷轧、粉末冶金等方法获得。

表面粗糙度数值及其有关规定在符号中注写的位置见图2。

图2 表面粗糙度各项规定符号的位置其中：a1、a2：表面粗糙度高度参数代号及其数值，μm；b：加工要求、镀、涂表面处理或其他说明等；c：取样长度，mm；d：加工纹理方向符号；e：加工余量。

mm；f：表面粗糙度间距参数值(唧)或轮廓支承长度率。

3 图样上的标注方法(1)表面粗糙度代(符)号一般标注在可见轮廓线、尺寸界线、引出线或其延长线上，符号的尖端须从材料外指向表面，代号中数字的方向必须与尺寸数字方向一致。

(2)表面粗糙度代(符)号在零件不同表面中数字及符号的方向，见图3。

图3 表面粗糙度代(符)号在零件不同表面中数字及符号的方向4 制作表面粗糙度的图块在Auto CAD绘图环境下，表面粗糙度不能直接标注，需要事先按照机械制图国家标准对表面粗糙度标注的要求，画出表面粗糙度符号，然后定义成带属性的块，在标注时用插入块的方法进行标注。

下面以用去除材料的方法，在Auto CAD 绘图环境下应用带属性块的方法来制作表面粗糙度符号，并将其标注在技术图样中。

一、创建符合国家标准规定的标注样式在用AutoCAD2004标注尺寸前，为了使所注尺寸符合国家标准的有关规定，所以应设置与之对应的标注样式,称为“GB”样式。

由于国家标准对角度尺寸、直径和半径尺寸又有一些专门的规定,如角度尺寸的数字须水平书写,所以还须对角度尺寸、直径和半径尺寸在“GB”样式的基础上,再分别设置成子样式。

在尺寸标注时,只要选取了“GB”样式,AutoCAD会根据标注对象的类型自动选择相应的子样式。

“GB”样式的具体设置步骤如下：1、用于线性尺寸标注1) 单击，在“标注样式管理器”对话框中单击。

2) 在“创建新标注样式”对话框中的“新样式名”框内输入GB。

3) 在“基础样式”下拉列表框中选择ISO-25。

4) 在“用于”下拉列表框中选择“所有标注”。

5) 单击继续，屏幕上出现如下图对话框。

6) 选择“直线和箭头”选项卡，按下图数据设置：7) 选择“文字”选项卡，为了使所标注的尺寸文本符合国家标准，在文字外观选项组内单击“文字样式”“文字样式”对话框，在“字体名”下拉列表框中选择gbenor.shx，单击“新建”，在“新建文字样式”对话框中输入新的标注文本样式名“尺寸”，单击“确定”回到“文字样式”对话框。

此时可在“样式名”下拉列表框中看到名为“尺寸”新的标注文本样式，单击关闭回到“新建标注样式”对话框；在“文字样式”下拉列表框中选择尺寸，“文字高度”采用缺省值2.5；其它所有设置继承ISO-25标注样式的属性。

8) 选择“主单位”选项卡，按下图数据设置：需要说明的是这里暂不设置公差，到时可另外设置尺寸公差标注样式标注公差。

设置结束后，单击“确定”回到“标注样式管理器”对话框，现在从“样式”栏内用户可看到增加了GB新样式。

2、用于非圆直径尺寸标注在前缀中加入“%%c”，其它同上。

3、用于角度尺寸标注1) 在“标注样式管理器”对话框中单击。

2) 在“用于”下拉列表框中选择“角度标注”。

AutoCAD中表面粗糙度的快速标注
郑兴泉
【期刊名称】《机械工人：冷加工》
【年(卷),期】2002(000)001
【摘要】在AutoCAD14和AutoCAD2000中可利用对块属性的定义,达到快速标注的目的。

下面以表面粗糙度为例,在AutoCAD2000中介绍: (1)先以合适的比例画出如图1所示图形,打开菜单Draw→Block→Define Attribute下的At-tribute Definition对话框。

(2)
【总页数】1页(P55)
【作者】郑兴泉
【作者单位】河南洛阳一拖集团有限公司油泵厂471004
【正文语种】中文
【中图分类】TH126
【相关文献】
1.应用AutoCAD中块操作快速标注表面粗糙度 [J], 刘红雨
2.也谈应用AutoCAD中块操作快速标注表面粗糙度 [J], 魏家伦
3.利用AutoCAD2002快速标注零件表面粗糙度 [J], 王兴春;田丽敏
4.利用AutoCAD中块的功能快速高效标注表面粗糙度 [J], 郑小倩
5.用Autolisp实现AutoCAD中尺寸公差及表面粗糙度的快速标注 [J], 刘志存;史登旺
因版权原因，仅展示原文概要，查看原文内容请购买。

在AutoCAD中基于AutoLISP程序简易标注粗糙度陕西关中工具制造有限公司（陕西凤翔 721400）张科岐王建卫对经常使用AutoCAD绘制二维机械图的用户来说，标注表面粗糙度是一件烦琐的事情。

常用的方法是先画好粗糙度的符号，再将粗糙度值定义为属性，最后将符号和粗糙度定义为块。

标注时插入这个块，按提示输入粗糙度值完成。

笔者结合自己在工作中的实际经验，利用AutoCAD提供的AutoLISP程序二次开发功能编写了一个粗糙度标注程序。

使用该程序标注粗糙度，操作简单、快捷、准确、美观。

现将程序内容及使用方法介绍如下，供大家参考。

程序全文如下：(defun rad->deg(rad)(/ (* rad 180.0) pi))(defun Deg->Rad(Deg)(* pi (/ Deg 180.0)))(defun rgh()(setvar "CMDECHO" 1)(setq svar_old (getvar "osmode" ))(setq svar_new 0)(setvar "osmode" svar_new)(setq pos_pt (getpoint"\n标注位置:"))(setq sym_dir (getpoint"\n符号方向:"))(setq sym_hgt (getreal"\n符号高度<5>:"))(setq txt (getstring"\n数值大小<3.2>:"))(if (= txt "")(setq txt "3.2"))(setq txt_hgt(getreal"\n字符高度<2.5>:"))(if (= txt_hgt nil)(setq txt_hgt 2.5))(if (= sym_hgt nil)(setq sym_hgt 5.0))(setq sym_lgt (/ sym_hgt (cos (/ pi 6.0))))(setq sym_angle (angle pos_pt sym_dir))(setq sym_pt1 (polar pos_pt (+ (/ pi 3.0) sym_angle) (* 0.5 sym_lgt)))(setq sym_pt2 (polar pos_pt (+ (/ pi 3.0) sym_angle) sym_lgt))(setq sym_pt3 (polar pos_pt (+ (/ (* 2 pi) 3.0) sym_angle) (* 0.5 sym_lgt)))(setq txt_pt1 (polar pos_pt (+ (/ (* 2 pi) 3.0) sym_angle)(/ (+ (* 0.5 (+ sym_hgt txt_hgt)) 1.0)(cos (/ pi 6.0)))))(setq sym_ptx1 (car sym_pt3 ))(setq sym_ptx2 (car pos_pt ))(setq sym_ptx3 (car sym_pt1 ))(setq sym_pty1 (cadr sym_pt3))(setq sym_pty2 (cadr pos_pt))(setq sym_pty3 (cadr sym_pt1))(setq sym_cen (list(/ (+ sym_ptx1 sym_ptx2 sym_ptx3) 3.0)(/ (+ sym_pty1 sym_pty2 sym_pty3) 3.0)))(setq sym_rad (*(/ (sqrt 3.0) 6.0)sym_lgt 0.5))(setq txt_pt2 (polar pos_pt (+ (/ pi 3.0) sym_angle)(/ (+ (* 0.5 (+ sym_hgt txt_hgt)) 1.0) (cos (/ pi 6.0)))))(setq txt_dist1 (distance txt_pt1 txt_pt2))(setq txt_dist2 (* txt_hgt (strlen txt)))(setq txt_scale (/ (- txt_dist1 1.0) txt_dist2))(setq txt_xpt1 (car txt_pt1))(setq txt_ypt1 (cadr txt_pt1))(setq txt_xpt2 (car txt_pt2))(setq txt_ypt2 (cadr txt_pt2))(setq txt_cenx (/ (+ txt_xpt1 txt_xpt2) 2.0))(setq txt_ceny (/ (+ txt_ypt1 txt_ypt2) 2.0))(setq txt_cen (list txt_cenx txt_ceny))(cond((<= sym_angle (* 0.5 pi))(setq txt_angle sym_angle))((and (> sym_angle (* 0.5 pi)) (<= sym_angle pi))(setq txt_angle (+ sym_angle pi)))((and (> sym_angle pi) (<= sym_angle (* 1.5 pi)))(setq txt_angle (+ sym_angle pi)))((and (> sym_angle (* 1.5 pi)) (<= sym_angle (* 2.0 pi))) (setq txt_angle (- sym_angle (* pi 2.0))))(t nil))(setq txt_angle (rad->deg txt_angle))(if (>= txt_angle 360.0)(setq txt_angle (- txt_angle 360.0)))(defun draw1()(command"pline" sym_pt1 "w" 0.0 "" sym_pt3 pos_pt sym_pt2 "") (command"_style" "" "" "" txt_scale "" "" "" "")(command"Text" "J" "_MC" txt_cen txt_hgt txt_angle txt ""))(defun draw2()(command"pline" sym_pt3 "w" 0.0 "" pos_pt sym_pt2 "")(command"_style" "" "" "" txt_scale "" "" "" "")(command"Text" "J" "_MC" txt_cen txt_hgt txt_angle txt "")(command"circle" sym_cen sym_rad ""))(defun draw3()(command"pline" sym_pt3 "w" 0.0 "" pos_pt sym_pt2 "")(command"_style" "" "" "" txt_scale "" "" "" "")(command"Text" "J" "_MC" txt_cen txt_hgt txt_angle txt ""))(initget "Finished Unfinished Coated")(setq string (getkword"加工面/非加工面/涂层面 <F/U/C>:"))(cond((= string "Finished")(draw1))((= string "Unfinished")(draw2))((= string "Coated")(draw3))))(defun C:rgh()(rgh)(princ))(defun C:roughness()(rgh)(princ))程序的使用方法：1.运行Autocad2005等版本,首先点击窗口菜单中的“工具（T）”选项，然后从下拉菜单中选择Visual LISP编辑器，如图1所示，点击出现图2窗口。

基于AutoLISP语言的AutoCAD粗糙度代号快速标注
田子欣;吴海军
【期刊名称】《机械工程与自动化》
【年(卷),期】2008(000)004
【摘要】介绍了一种利用AutoLISP语言编程对AutoCAD进行二次开发为其增加表面粗糙度标注命令的方法.通过运行此命令,能够在所选实体的指定位置实现零件表面粗糙度代号的快速标注.
【总页数】3页(P164-165,168)
【作者】田子欣;吴海军
【作者单位】三门峡职业技术学院,河南,三门峡,472000;三门峡职业技术学院,河南,三门峡,472000
【正文语种】中文
【中图分类】TP391.72
【相关文献】
1.在AutoCAD中标注表面粗糙度代号的方法分析 [J], 关莉莉
2.基于 VB的 AutoCAD粗糙度快速标注 [J], 任昭蓉
3.应用AutoLisp语言和属性块实现AutoCAD中机械零件的表面粗糙度标注 [J], 王文奎;陆雨田;胡企铨
4.AutoCAD 2000中用AutoLISP语言实现表面粗糙度代号的标注 [J], 魏法明
5.AutoCAD系统中标注表面粗糙度代号的技巧 [J], 俞梅;李杰
因版权原因，仅展示原文概要，查看原文内容请购买。

cad粗糙度标注方法
CAD粗糙度标注方法
一、定义
CAD粗糙度标注是指将CAD设计模型的表面粗糙度参数标注为实体以满足设计要求。

二、CAD粗糙度标注的基本原理
1、曲面粗糙度参数的测量：在CAD设计环境中，可以采用软件的功能对曲面的参数进行测量，以及计算出表面的形状、粗糙度等参数，满足设计要求。

2、参数标注：根据计算结果，在表面上标注出参数值，以方便查阅。

三、CAD粗糙度标注的具体步骤
1、读取CAD模型：从CAD数据库中读取需要标注参数的模型。

2、对模型的表面进行测量：使用软件功能进行曲面表面参数的测量，并根据计算结果计算出表面粗糙度参数。

3、对模型的表面粗糙度参数进行标注：将计算出来的粗糙度参数标注在相应的位置上，以方便查阅。

四、CAD粗糙度标注的应用
CAD粗糙度标注可以用于钣金加工、模具制造等行业，为制造过程提供必要的数据，确保最终产品质量符合设计要求。

- 1 -。

cad粗糙度标注方法
CAD粗糙度标注方法
一、定义
CAD（Computer-Aided Design，计算机辅助设计）标注是将CAD 系统中的结构形状以字符符号或者图案的形式进行标注，其目的是为了更便于设计者和制造者查找和使用相应的结构形状。

二、基本原则
1、标注应尽量简洁，尽可能减少标注量，但不影响清晰度；
2、标注时，要注意清晰度好，信息准确，符合国际标准；
3、标注中出现的任何非文字标记，都应按照国际标准格式绘制；
4、标准的CAD粗糙度标注符号满足国际标准ISO14253-1:2008粗糙度参数的英文规定，并采用专业的字体；
5、符号大小可变，最大尺寸应不超过10.0毫米，最小尺寸应不小于3.0毫米；
6、标注距离相邻结构等元素距离可根据图纸尺寸和比例进行划定；
7、球形表面的标注采用椭圆形状，立体几何形状的标注使用三角形状，实线画面的标注应用直线表示。

8、圆柱形和锥形表面的粗糙度标注采用一个圆形或椭圆形的轨迹，沿着曲面的表面，代表表面的正反向测量方向，其中圆柱形表面从侧面观察，其局部粗糙度轨迹的两端不相切，而锥形表面从正面观察，其局部粗糙度轨迹的两端则是相切的。

三、示例
1、粗糙度标注符号：表面粗糙度的标注定义采用类似的符号：
2、立面粗糙度标注：
3、表面粗糙度标注：
四、总结
粗糙度标注就是一种Cloth CAD系统中常用的表彰结构形状的方法。

CAD系统中采用符号等形式进行标注，是为了更好的表示其结构形状，同时也可以使查阅和使用更加方便。

采用符号标注也可以有效节省时间，提高工作效率。

CAD绘图中标注粗糙度一次建块数次不同值标注
1.首先先绘制好粗超度符号。

如：。

2.使用鼠标光标点击“绘图”—“块”—“定义属性”，弹出
工具栏，按照提示填写属性，然后单击确定。

最终得到图形“”。

3.选择命令创建块“”，弹出工具栏
按照工具栏上的提示，填写选择定义块。

最后单击确定键，创建块，会弹出
，其中工具栏中的可填写栏中是标注时的初始粗超度值。

一般直接单击确定即可。

4.标注时，单击插入块“”按钮。

弹出
工具栏，在此工具栏中，我们可以选择插入块的名称、插入的路径。

设定好属性后（一般会将缩放比例和旋转命令方框打钩的），即可单击确定。

继而会出现
，定义好比例因子
和旋转角度后，会在鼠标光标旁边弹出“”，此时粗超度的值为开始定义块时输入的原始值，我们可以通过键盘数字键输入绘图时所需要的粗超度数值。

下面我们演示一下不同值的效果图。

AutoCAD中表面粗糙度快速标注命令的实现
刘建军;崔汉国;欧阳清;陈军
【期刊名称】《机械设计与制造》
【年(卷),期】2004(000)006
【摘要】利用AutoLISP语言二次开发了表面粗糙度标注的命令,弥补了AutoCAD的不足,可方便地进行符合国家标准的表面粗糙度的标注,也说明了运用AutoLISP语言进行二次开发的方法和技巧.
【总页数】2页(P36-37)
【作者】刘建军;崔汉国;欧阳清;陈军
【作者单位】海军工程大学,武汉,430033;海军工程大学,武汉,430033;海军工程大学,武汉,430033;海军工程大学,武汉,430033
【正文语种】中文
【中图分类】TP391
【相关文献】
1.在AutoCAD中实现表面粗糙度的快速标注 [J], 郁志纯
2.用VBA在AutoCAD中添加标注表面粗糙度专用命令的方法 [J], 潘地林;桂艳
3.利用AutoCAD中块的功能快速高效标注表面粗糙度 [J], 郑小倩
4.利用VBA实现AutoCAD中表面粗糙度的自动(快速)标注 [J], 王三武;吴小兰
5.用Autolisp实现AutoCAD中尺寸公差及表面粗糙度的快速标注 [J], 刘志存;史登旺
因版权原因，仅展示原文概要，查看原文内容请购买。