CAD的粗糙程度怎么弄

请个位给个意见啊！大家多交流　啊




谢谢个位的意见啊!我已经解决了!最后还是PCCAD的作用啊[s:16]

lz指的是表面粗糙度符号吧

装上PCCAD就有粗糙度了。快捷键“CC”。

正常的画被
符号有尺寸要求的　　　可以到制图标准上去查下

有专门的命令，把一系列类似的标注搞上去。

这个随便下一个LISP文件很容易就实现了,

将下面*后的代码加在CAD2004安装目录下面X:Program FilesAutoCAD 2004Support的acad2004doc.lsp中的(defun C:ai_custom_safe ()这一行前面.然后重新启动CAD，输入命令ra就可以标粗糙度了.当然也可以加在其他的行上，但是注意不要破坏其他程序的完整性既可
*********************************************************
(defun c:ra( / lt txt bas p1 p2 p3 p4 ang tang len os )
(setq lt (getvar "ltscale"))
(setq txt 3.5
p1 "" )
(graphscr)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(if (not ra)  (setq ra "3.2"))
(while p1
(initget "A B C D E F")
(setq p1 (getpoint (strcat "n 粗糙度 A=12.5/B=6.3/C=3.2/D=1.6/E=0.8/F=0.4 <Ra=" ra " 插入点 >: ")))
(cond
((not p1))
((= p1 "A")     (setq ra "12.5"))
((= p1 "B")     (setq ra "6.3"))
((= p1 "C")     (setq ra "3.2"))
((= p1 "D")     (setq ra "1.6"))
((= p1 "E")     (setq ra "0.8"))
((= p1 "F")     (setq ra "0.4"))
(T
  (setq bas (osnap p1 "nea"))
  (if (not bas)
    (princ "n 未选到目标 !")
    (progn
  (setq ang (- (angle bas p1) (* pi 0.5)))
  (if (< ang 0.0) (setq ang (+ ang (* pi 2.0))))
  (setq len (* 1.6166 txt lt))
  (setq p1 (polar bas (+ ang (/ pi 3)) len))
  (setq p2 (polar bas (+ ang (* (/ pi 3) 2)) len))
  (setq p3 bas)
  (setq p4 (polar bas (+ ang (/ pi 3)) (* len 2)))
  (command "line" p1 p2 p3 p4 "")
  (setq p1 (polar bas (+ ang (/ pi 2)) (+ len (* (/ txt 2) lt))))
  (if (and (> ang (* pi 0.5)) (<= ang (* pi 1.5)))
   (setq tang (+ ang pi))
   (setq tang ang)
  )
  (setq tang (/ (* tang 180) pi))
  (command "text" "m" p1 (* txt lt) tang ra)
    ))
))
    )
    (setvar "osmode" os)
    (setq lt t)
)

块里边有啊

可以自己制作一组，分别定义成块，下次直接调用就可以了．

9楼兄台高手，我试试先。