求助：修改尺寸标注问题
 

求助：修改尺寸标注问题
www.dimcax.com
求助：修改尺寸标注问题
请论坛各位高手帮帮忙，这个程序只能修改尺寸标注的值却不能还原尺寸的实值
下面是程序的源码：
(setq txt1 "")
(defun editdim ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "n" dim2 "p" "")
(setvar "cmdecho" 1)
)
(defun editdimh ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "h" "p" "")
(setvar "cmdecho" 1)
)
(defun c:de (/ dim1 p dim2)
(setvar "cmdecho" 0)
(princ "\n请输入标注字符,允许汉字和空格。(空格->还原)(空回车->缺省值)<")
(princ txt1)
(setq dim1 (getstring t ">:"))
(cond
((= dim1 " ")(editdim))
((= dim1 "")(setq dim2 txt1)(editdim))
((= dim1 "h")(editdimh))
((setq txt1 dim1)(setq dim2 dim1)(editdim))
)
)
d
(setq txt1 "")
改为
(setq txt1 "<>")
d
谢谢指教，
我试了，可还是不行啊。你帮我调试下吧
d
(setq txt1 "")
(defun editdim ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "n" dim2 "p" "")
(setvar "cmdecho" 1)
)
(defun editdimh ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "h" "p" "")
(setvar "cmdecho" 1)
)
(defun c:de (/ dim1 p dim2)
(setvar "cmdecho" 0)
(princ "\n请输入标注字符,允许汉字和空格。(空格->还原)(空回车->缺省值)<")
(princ txt1)
(setq dim1 (getstring t ">:"))
(cond
((= dim1 " ")(editdim))
((= dim1 "")(setq txt1 "<>" dim2 txt1)(editdim))
((= dim1 "h")(editdimh))
((setq txt1 dim1)(setq dim2 dim1)(editdim))
)
)
d
非常谢谢 问题已解决
d