求助：修改尺寸标注问题

tanle2020

请论坛各位高手帮帮忙，这个程序只能修改尺寸标注的值却不能还原尺寸的实值

下面是程序的源码：

(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))
  )    

)

caoyin

(setq txt1 "")

改为

(setq txt1 "<>")

tanle2020

谢谢指教，

 我试了，可还是不行啊。你帮我调试下吧

caoyin

(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))
  )    

)

tanle2020

非常谢谢 问题已解决