lisp写的粗糙度怎么不能在尺寸线上用呀

uditx

大家帮我看一下，我的粗糙度程序为什么不能在尺寸线上用呀 谢谢了先

(defun c:ccd()
  (vl-load-com)
  (setq chklay (tblsearch "layer" "尺寸线"))
      (if (= chklay nil)
          (command "layer" "n" "尺寸线" "c" "3" "尺寸线" ""))
  (setq chksty (tblsearch "style" "数字 txt 3.5" ))
      (if (= chksty nil)
   (command "style" "数字 txt 3.5" "txt.shx" "3.5" "0.7" "" "" "" ""))
  (command "layer" "M" "尺寸线" "")
  (setvar "osmode" 0)
  (command "osnap" "end,mid,nea")
(setq a (vlax-ename->vla-object (car (entsel))))
(setq b (getpoint "请选择标注位置："))
(setq c (vlax-curve-getparamatpoint a b))
(setq d (vlax-curve-getfirstderiv a c))
(setq e (atan (cadr d) (car d)))
(setq m (polar b (+ e (/ pi 2)) 100))
(setq n (polar b (- e (/ pi 2)) 100))
(setq s (getpoint "标注方向:"))
(setq u (distance s m))
(if (< u 100) (setq ang0 (angle n m)) (setq ang0 (angle m n)))
(setq ang30 (/ pi 6))
(setvar "osmode" 0)
(setq s (getint "\n 请选择标注符号：1.去除材料：2.不去除材料：3.任何方法：<1>:"))
   (if (= s nil)
       (setq s 1))
  (if (= s 1)
    (progn
      (setq v (getreal "\n 粗糙度的值：<3.2>")) ;
      (if (= v nil)
       (setq v 3.2))
      (setq value (rtos v 2 1))
      (command "lweight" 0.15)
      (command "line"
        (polar b (- ang0 ang30) 11.5)
        b
        (polar b (+ ang0 ang30) 5.8)
        (polar b (- ang0 ang30) 5.8)
        ""
      )
      (if (and (> ang0 0) (<= ang0 pi)) ;
(setq angt (+ ang0 pi))
(setq angt ang0)
      )
      (setq angt (+ angt (* 0.5 pi)))
      (command "mtext"
               (polar b ang0 7)
        "j" "mc" "r" (/ (* 180 angt) pi) "h" 2.5 "w" 6 value "")
    )
  )

  (if (= s 2)
    (progn
      (setq v (getreal "\n 粗糙度的值：<3.2>")) ;
      (if (= v nil) (setq v 3.2))
      (setq value (rtos v 2 1))
      (command "circle" (polar b ang0 (* 2 1.674316)) 1.674316)
      (command "lweight" 0.15)
      (command "line"
        (polar b (- ang0 ang30) (* 2 5.8))
        b
        (polar b (+ ang0 ang30) 5.8)
        ""
      )
      (if (and (> ang0 0) (<= ang0 pi)) ;
(setq angt (+ ang0 pi))
(setq angt ang0)
      )
      (setq angt (+ angt (* 0.5 pi)))
      (command "mtext"
               (polar b ang0 7)
        "j" "mc" "r" (/ (* 180 angt) pi) "h" 2.5 "w" 6 value "")
    )
  )

  (if (= s 3)
    (progn
      (setq v (getreal "\n 粗糙度的值：<3.2>")) ;
      (if (= v nil) (setq v 3.2))
      (setq value (rtos v 2 1))
      (command "lweight" 0.15)
      (command "line"
        (polar b (- ang0 ang30) (* 2 5.8))
        b
        (polar b (+ ang0 ang30) 5.8)
        ""
      )
      (if (and (> ang0 0) (<= ang0 pi)) ;
(setq angt (+ ang0 pi))
(setq angt ang0)
      )
      (setq angt (+ angt (* 0.5 pi)))
      (command "mtext"
               (polar b ang0 7)
        "j" "mc" "r" (/ (* 180 angt) pi) "h" 2.5 "w" 6 value "")
    )
  )
  (setvar "osmode" 0)
  (setvar "osmode" 15359)
)