求助一个小程序：

zh3

比如一个线性标注是100。
现在我想在它前面加上个直径符号，还要这样：

命令dimedit，输入n，再编辑。
或者ddedit.
我想弄个命令，点哪个标注，哪个标注前面就自动加上个直径符号。

zh3

我在XX\support\里面建立了个 acad.lsp文件，在里面加入了下面一行：

(defun c:zj()(command "._dimedit" "n" "%%c<>"))

结果搞定了。
但是有个问题，就是执行zj，选择标注后，必须空格一下，或者回车一下才能见效。可不可以一点它就见效？

mccad

(defun c:zj(/ obj)
  (setq obj(ssget'((0 . "DIM*"))))
  (command "._dimedit" "n"  "%%c<>" obj "")
)

zh3

我将我原来的那个删除了，用你这个。
结果输入命令zj,选择对象无变化，还要打一下空格才行。

mccad

浮云游子

有一个问题，就是如果尺寸不是按比例标注的时，楼上的命令就会连尺寸一块该掉，有没有办法不改变标注尺寸又可以加直径符号。

hzzhao

(defun reap_c (a_a b_b c_c / sel_b)
(setq sel_b (entget (car a_a)))
(setq sel_b (subst (cons b_b c_c) (assoc b_b sel_b) sel_b))
(entmod sel_b)
) (defun c:da (/ mo_dim)
(setvar "cmdecho" 0)
(setq mo_dim (entsel "选择要修改的尺寸:"))
(reap_c mo_dim 1 "%%C<>")
(setvar "cmdecho" 1)
(princ)
)

龙龙仔

参考 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=22133