代码回删去现有的文字，求保留

78946299

修改程序：修改文字内容，带记忆多选
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7330080
(出处: 明经CAD社区)


感谢，重慶崽兒

• (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"))))
  
•     (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

(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)
  )
)

78946299

xxc9595 发表于 2022-5-29 14:16
(defun c:qm( / ent i newtext_1 newtxt newtxt_1 ss)
  (while T
    (if (and newtxt_1 (/= newtext_ ...

大佬可能您误解我的意思了。例如原来是A，现在我想用这个代码变成A（2x）。增加后缀。