[建议]：请问各位有标注粗糙度的工具吗

yjtuia

请问各位大虾,粗糙度该怎么标啊,有没有标注粗糙度的辅助工具啊.有的话请放上来,不胜感激!!*-*3

yjig

有关粗糙度标注的程序有许多，几乎所有的机械CAD软件都已包含，XDCAD论坛也曾给予介绍。但他们都有不足之处，现将本程序与众不同之处介绍如下：
1． 有些程序需要输入粗糙度的字体高度，操作麻烦，而有些程序采用固定的字高，虽然操作简便了一点，但遇到0#图并采用较大的字高时，就显得无能为力了。本人的程序中含有获取CAD字高变量的语句，既不要输入字高，也能自动适应图纸的字高需要。当图纸采用5MM字高，那么粗糙度的字高就是5MM，其符号的全高是5×2.8MM（国标规定）。如图纸采用4MM字高，那么粗糙度的字高就是4MM，其符号的全高是4×2.8MM。
2． 有些程序需要输入粗糙度与标注表面的夹角，而有些虽能自动识别与标注表面的法线方向，但它却不能识别标注表面的内外方向。有时我们需要在一个圆柱的外面标注，而它却标到圆柱的内面，为此，在他的程序中加了一个补钉，提示用户：“需要翻转吗？”而本程序根本就没有以上提示，不仅能识别法线方向，而且能识别标注表面的内外方向。当需在圆柱的外表面标注时，就点圆柱的外表面，需在圆柱的内表面标注时，就点圆柱的内表面，绝对一次成功。
3． 当粗糙度数值为12.5时，其数值位数等于4，比常规的位数多一位，本程序能识别并自动左移一位。
4． 对于采用右上角简化标注时，本程序采用国标规定，自动放大1.4倍。
5． 程序中含有非加工面标注，只要输入“0”即可。
*****-----------------------------
(defun c:rou(/ blip cmd osd h ira irt ip p0 p1 p2 p3 p4 p5 e e1 st)
(setq blip (getvar "blipmode"))
(setq cmd (getvar "cmdecho"))
(setq osd (getvar "osmode"))
(setq oldlw (getvar "celweight"))
(setq oldsn (getvar "snapmode"))
(setq h (getvar "dimtxt"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "osmode" 0)
(setvar "celweight" 25)
(setvar "snapmode" 0)
(initget 1)
(setq ip (getpoint "\n选择标注点: "))
(setq p0 (osnap ip "nea"))
(if p0 (setq ira (angle p0 ip))
(setq ira (* 0.5 pi) p0 ip)
)
(setq p1 (polar p0 (- ira (/ pi 6)) (* 3.2 h)))
(setq p2 (polar p0 (- ira (/ pi 6)) (* 1.6 h)))
(setq p3 (polar p0 (+ ira (/ pi 6)) (* 1.6 h)))
(setq irt (cond ((> 3.142 ira 0) (- ira (* 0.5 pi)))
(t (+ ira (* 0.5 pi)))
)
)
(setq irt (/ (* irt 180) pi))
(setvar "osmode" 0)
(command "pline" p2 "w" 0"" p3 p0 p1"")
(initget 6)
(setq st(getstring "\n粗糙度数值? (非加工 0)<1.6>:"))
(if (= st "")(setq st "1.6"))
(if (or(= st "0")(= st "o")(= st "O")) ;;非加工标注
(progn (entdel (entlast))
(command "pline" p3 p0 p1"")
(setq e (entlast))
(setq p4 (polar p0 ira (* 0.92 h)))
(command "circle" p4 (* 0.46 h))
)
(progn (setq e (entlast)) ;;加工面标注
(setq p5 (polar p0 ira (* 2.1 h)))
(if (> (strlen st) 3) ;;字符多于3，p5左移
(setq p5 (polar p5 (+ ira (* 0.5 pi)) (* 0.3 h)))
)
(command "_text" "m" p5 h irt st)
)
)
(cond ((= p0 ip) ;;右上角简化标注
(setq st (getstring "\n放大标注1.4倍(回车)/否(任意键)"))
(if (= st "")(command "scale" e (entlast)"" p0 1.4))
)
)
(setvar "osmode" osd)
(setvar "cmdecho" cmd)
(setvar "blipmode" blip)
(setvar "celweight" oldlw)
(setvar "snapmode" oldsn)
(princ)
)