[求助]：怎么在2004中标注粗糙度

xdpclx

我记得可以很方便的标注的呀

cdhua001

搞机械的我建议你不要用CAD2004了，换成《AutoCAD Mechanical 2004》，里面有很多机械专用的符号：

lusg

cdhua001 版主说得对，ACADM才是适用于机械的版本。

lsjjm

要是没有AutoCAD Mechanical怎么办?
请参考:
(defun crudity ()
  (setq high (* (getvar "dimscale") 0.18))
  (setq p1 (osnap p0 "near"))
  (if p1 (setq ang (angle p1 p0))(setq ang (/ pi 2) p1 p0))
  (if (or (null cvalue)(= cvalue ""))(setq cvalue "32"))
  (princ "\nInput Crudity Value <")
  (princ cvalue)
  (princ ">")
  (setq string (getstring))
  (if (or (null string)(= string ""))(setq string cvalue)(setq cvalue string))
  (mlayer "dim" "blue" "continuous")
  (vl-cmdf "pline" (polar p1 (- ang (/ pi 6))(/ high 0.3)) p1
                   (polar p1 (+ ang (/ pi 6))(/ high 0.6))
                   (Polar p1 (- ang (/ pi 6)) (/ high 0.6)) "")
  (if (and (< ang (/ (* pi 6) 7))(> ang (/ pi 6)))
    (setq d 1 p0 (polar p1 ang (/ high 0.55)))
    (setq d -1 p0 (polar p1 ang (/ high 0.35)))
  )
  (vl-cmdf "text" "j" "f" (polar p0 (+ ang (* d (/ pi 2))) high)
                          (polar p0 (- ang (* d (/ pi 2))) high) high string)
)

amplly

用属性块也可以！

xdpclx

请问4楼的那个程序怎样用

ZXK68

附件为最好的粗糙度标注程序的演示：由于我是最后一个用户，不能再发帖，不能上传附件。回帖后再传。
　

笑傲糨糊

我来给你顶一下，不过不好意思，我喜欢挑毛病，你的演示中不该输入6.4，应该是6.3（尽管不是搞机械的，这个还马马虎虎记得）。所以程序不妨这样设：
  (setq xxx (getstring (strcat "\n粗糙度(0.8,1.6,3.2,6.3, 12.5,25) < 6.3 > : ")))
     (if (= "" xxx) (setq xxx"6.3"))
以提醒用户。
--xxx程序员喜欢什么定什么

ZXK68

最初由 笑傲糨糊 发布
[B]我来给你顶一下，不过不好意思，我喜欢挑毛病，你的演示中不该输入6.4，应该是6.3（尽管不是搞机械的，这个还马马虎虎记得）。所以程序不妨这样设：
  (setq ccd (getstring (strcat "\n粗糙度(0.8,1.6,3.2,6.3, 12... [/B]

   你说得很对，我只是随意敲的：程序见附件，关于建立自己定义按钮的方法和程序的加载方法见相关资料：