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