[推荐]：尺寸前加 %%C（直径符号）

ygrzz

By-Spring，我在Spring里看到的，觉得不错，推荐给大家



;;;功能 : 尺寸前加 %%C
;;;By-Spring
;;;2004/09/16
(defun c:ad (/ ss n en ed dima)
  (setq ss (ssget '((0 . "DIMENSION")))) ;选择标注
  (if ss
    (progn
      (setq n 0)
      (while (> (sslength ss) n)        ;循环选中的标注
        (setq en (ssname ss n))
        (setq ed (entget en))                ;标注数据
        (setq dima (cdr (assoc 1 ed)))
        (if (= dima "")
          (setq ed (subst (cons 1 "%%C<>") (assoc 1 ed) ed))
          (setq ed (subst (cons 1 (strcat "%%C" dima)) (assoc 1 ed) ed))
        )
        (entmod ed)                        ;改变标注
        (setq n (1+ n))
      )
      ;;End while
    )
    ;;End progn
  )
  ;;End if
)