粗糙度符号标注求助！！！！

wdq

也许这个问题很简单，但是我找不到解决的办法，


我想在粗糙度标注时候RA值不随着着粗糙度符号旋转。

wdq

说明一下，我使用的AUTOCAD2004，我把粗糙度符号设置成块。每个输入完RA值以后都要手动调整每个ra值的方向，很麻烦。


希望各位高手能帮我解决这个不算是问题的问题。谢谢大家！

独角斗士

编个小程序解决比较方便

lzh1600

做两种粗糙度块，一种用来标注向上和向左的，另一种用来标注向下和向右的。

wdq

啊 编程？？好累也不会。


多做几个块。也不现实。

lzh1600

wdq发表于2004-3-13 22:28:00啊 编程？？好累也不会。 多做几个块。也不现实。

那就没办法了！我很想能够做到只需要我点一下它就自动给我标出来，可是做不到。

fjzdl

要做两个，一个是朝上的，一个是朝下的，就可以解决了。

wdq

做好几个块的方法，是真确的方法吗？


我每次输完RA值以后，点击文字 右击         编辑文字 手动改变方向 用反向和倒像调整一下

独角斗士

几年前编的一个很简单的程序，试试吧。 (defun ccd_err(s)
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setvar "osmode" os)
(setvar "CLAYER" clay)
(setvar "TEXTSTYLE" ttp)
(command "_.UNDO" "_E")
) ;==================== Main program ======================== (defun c:ccd (/ os clay ttp pt1 sa sh scl pt2 pt3 pt4 pt5 ww )
(setq *error* ccd_err)
(setq os (getvar "osmode")
clay (getvar "CLAYER")
ttp (getvar "TEXTSTYLE"))
(if (null (tblsearch "LAYER" "NOTE"))
(command "_.layer" "M" "NOTE" ""))
(command "_.layer" "S" "NOTE" "")
(command "_style" "romans" "romans.shx" "" "0.9" "" "" "" "")
(setvar "osmode" 512)
(setq pt1 (getpoint "\n放置位置: ")
sa (getangle pt1 "\n角度(可以选择点决定角度):")
scl (getvar "DIMSCALE")
)
(if (= scl 0.0) (setq scl 1.0))
(setq pt2 (polar pt1 (+ (/ pi 3.0) sa) (* scl 7.5))
pt3 (polar pt1 (+ (/ pi 3.0) sa) (* scl 4.0))
pt4 (polar pt3 (+ pi sa) (* scl 4.0))
pt5 (polar pt1 (+ (/ pi 2.0) sa) (* scl 5.0)))
(setvar "osmode" 0)
(command "pline" pt2 "w" "0.0" "" pt1 pt4 pt3 "")
(princ sa)
(if (and (> sa (* pi 0.5)) (< sa (* pi 1.5))) (setq sa (- sa pi)))
(setq ww (getstring (strcat "\n粗糙度(1.6,3.2,6.3, 12.5,25) < 6.3 > : ")))
(if (= "" ww) (setq ww "6.3"))
(setq sa (* sa (/ 180 pi)))
(command "text" "_middle" pt5 (* scl 2.0) sa ww)
(setvar "osmode" os)
(setvar "CLAYER" clay)
(setvar "TEXTSTYLE" ttp)
(princ)
)
;==============================================================

lzh1600

wdq发表于2004-3-13 23:17:00做好几个块的方法，是真确的方法吗？ 我每次输完RA值以后，点击文字 右击 编辑文字 手动改变方向 用反向和倒像调整一下

看来你还没学会如何正确地制作和使用图块，你先看看这两个图块再说吧。