[求助]请大家帮我优化一下

MRHDF · 发表于 2007-12-12 23:16

我写了这样一段，(defun c:cd() (command "dim" "newtext"))
我用来修改标注文字内容（进行文字替代和还原），当完成自己需要操作后出现问题：
命令栏仍在继续 -----------“标注：“　　右键之后又出现newtext对话框。很苦恼，谁能帮我解决一下？　
感谢　鲜花滴伺候

phoenixdjq · 发表于 2007-12-13 08:45

你在cad下用一下这个命令

你的整个命令缺参数

(defun c:cd() (command "dim" "newtext" "119" (ssget) "" "exit" ))

ZZXXQQ · 发表于 2007-12-13 08:52

(defun c:cd() (command "dim1" "newtext"))

carrot1983 · 发表于 2007-12-13 09:09

如果非要用dim或是dim1的话，按ZZXXQQ版主的。。
这个怎么样。。。或者也可以用entmod..

(defun c:cd (/ ss txt)
(while (setq ss (ssget '((0 . "DIMENSION"))))
(setq txt (getstring "\n标注文字<回车为原值>:"))
(command "._dimedit" "n" txt ss "")
)
(princ)
)

MRHDF · 发表于 2007-12-13 17:42

谢谢大家。
方法不重要，都实现了我的操作目的。
三楼的很简单适用，四楼的更符合cad的操作习惯。
我都收藏了。
如果来合肥给我发个消息，我请客哈。 hdf2006@msn.com

账号		自动登录	找回密码
密码			注册