代码回删去现有的文字，求保留
修改程序：修改文字内容，带记忆多选http://bbs.mjtd.com/forum.php?mod=viewthread&tid=169394&fromuid=7330080
(出处: 明经CAD社区)
感谢，重慶崽兒
[*](defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(while T
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (if (and newtxt_1 (/= newtext_1 ""))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (progn
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (if (= newtxt "")
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq newtxt newtxt_1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq newtxt (getstring "\n输入新的文字内容:"))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq ss (ssget '((0 . "*TEXT"))))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq i 0)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (repeat (sslength ss)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq ent (entget (ssname ss i)))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (entmod (subst (cons 1 (strcat "(" newtxt ")")) (assoc 1 ent) ent))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq i (1+ i))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq newtxt_1 newtxt)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
本帖最后由 xxc9595 于 2022-5-29 14:27 编辑
(defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)
(while T
(if (and newtxt_1 (/= newtext_1 ""))
(progn
(setq newtxt (getstring (strcat "\n输入新的文字内容" "<" newtxt_1 ">" ":")))
(if (= newtxt "")
(setq newtxt newtxt_1)
)
)
(setq newtxt (getstring "\n输入新的文字内容:"))
)
(setq ss (ssget '((0 . "*TEXT"))))
(command "copy" ss ""'(0 0 0) '(0 0 0))
(setq i 0)
(repeat (sslength ss)
(setq ent (entget (ssname ss i)))
(entmod (subst (cons 1 (strcat "(" newtxt ")")) (assoc 1 ent) ent))
(setq i (1+ i))
)
(setq newtxt_1 newtxt)
)
)
xxc9595 发表于 2022-5-29 14:16
(defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)
(while T
(if (and newtxt_1 (/= newtext_ ...
:L大佬可能您误解我的意思了。例如原来是A，现在我想用这个代码变成A（2x）。增加后缀。
页:
[1]