查看单个帖子
旧 2009-04-26, 07:01 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 如何修改标注

如何修改标注
www.dimcax.com
如何修改标注
只改标注的数值。实际长度不改。
d
ddedit命令就可以
d
试试这个程序:
(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)
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)