如何修改标注

zhelindaxues

只改标注的数值。实际长度不改。

caoyin

DDEDIT命令就可以

yxp

试试这个程序：

(setq txt_de "100")
(defun c:de (/ ss txt)
 (setvar "cmdecho" 0)   (princ "\n 选择需修改的标注:")
 (setq ss (ssget))
(if ss (progn (princ "\n 请输入字符（空格＝恢复）<\"")(princ txt_de)
 (setq txt (getstring T "\">:"))
(cond ((= txt " ")(setq txt ""))
 ((= txt "")(setq txt txt_de))
 (T (setq txt_de txt))
)
(command "dimedit" "n" txt "p" "")
))(princ)
)
(princ "标注修改程序 命令de")(princ)

ucuc2003

yxp 发表于 2008-10-12 09:37
试试这个程序：(setq txt_de "100")(defun c:de (/ ss txt)&nbsp;(setvar "cmdecho" 0)&nbsp;&nbsp; (princ ...

给力！！正好要用这个

ucuc2003

yxp 发表于 2008-10-12 09:37
试试这个程序：(setq txt_de "100")(defun c:de (/ ss txt)&nbsp;(setvar "cmdecho" 0)&nbsp;&nbsp; (princ ...

你的这个程序很不错， 我再这个基础上优化了一些，给了我一个编程很大的启发，谢谢了！！