表面粗燥度的标注

将此代码加载到安装目录下的ACAD.lsp文件中（复制代码后用记事本打开ACAD.LSP文件，然后粘贴）标注命令cz
//粗糙度标注程序    //
//cz---粗糙度标注   //
//////////////////////
(defun trap(errmsg)
  (command "undo" "e")
  (command "u")
  (setvar "apbox" pbox)
  (SETvar "osmode"os)
  (setvar "cecolor" la)
  (princ "\n  <**错误**>  ")
  (setq *error* temperr)
  (princ)
)

(defun dtr(ang)
  (setq ang (/ (* ang pi) 180))
)

(defun c:cz(/ la aper os size heig ang string pbox sca)
  (princ "\n粗糙度标注程序")
  (setq temperr *error*)
  (setq *error* trap)
  (command "undo" "be")
  (setq la (getvar "cecolor"))      ;获取对象的颜色。
  (setq aper (getvar "aperture"))  ;获取像素为单位设置对象捕捉的靶框尺寸。
  (setq os (getvar "osmode"))
  (setq size (getvar "dimtxt"))    ;指定标注文字的高度，除非当前文字样式具有固定的高度
  (setq pbox (getvar "apbox"))      ;打开或关闭 AutoSnap 靶框
  (setq sca (getvar "dimscale"))    ;为标注变量（指定尺寸、距离或偏移量）设置全局比例因子
  (setq size (* size sca))
  (setq heig (* size 1.4))
  (setvar "osmode" 256)            ;256    TAN（切点）
  (setvar "aperture" 7)
  (setvar "apbox" 1)
  ;(setvar "cecolor" 7)
  (setq  pt1 (getpoint "\n插入点")
          pt2 (osnap pt1 "near"))
  (setvar "apbox" pbox)
  (setvar "osmode" os)
  (setvar "aperture" aper)
  (if (= pt2 nil)
      (setq ang (dtr 90) pt2 pt1)
      (setq ang (angle pt2 pt1))
    )  
  (if (or (null ra)(= ra ""))
      (setq ra "6.3"))
  (princ "\n请输入粗糙度值 <")
  (princ ra)
  (princ ">")        
  (setq string (getstring))
  (if (or (null string)(= string ""))
         (setq string ra)(setq ra string))
  (setvar "osmode" 0)
  (command "Pline" (polar pt2 (- ang (dtr 30)) (* heig 2))
                    pt2        
           (polar pt2 (+ ang (dtr 30)) heig)
           (Polar pt2 (- ang (dtr 30)) heig) "")
  (setvar "osmode" 0)
  (if (and (< ang (dtr 210)) (> ang (dtr 30)))
    (progn
      (setq pt1 (polar pt2 ang (* size 1.6)))
      (command "text" "j" "f"
          (polar pt1 (+ ang (dtr 90)) (* size 0.9))
          (polar pt1 (- ang (dtr 90)) (* size 0.9))
          size
          string)
        )
      (progn
      (setq pt1 (polar pt2 ang (* size 2.4)))
      (command "text" "j" "f"
          (polar pt1 (- ang (dtr 90)) (* size 0.9))
          (polar pt1 (+ ang (dtr 90)) (* size 0.9))
            size
         string)
    )
    )
  (setvar "osmode" os)
  (setvar "cecolor" la)
  (setq *error* temperr)
  (command "undo" "e")
  (command "undo" "be")
  (princ "\n粗糙度标注成功！")
  (princ "\n记得标注命令是CZ哦")
  (princ)
)