[求助]：文字内容刷子。

hmillf

求一程序－－文字内容格式刷，
可实现对单行，多行文字，及标注内容的刷子。
请求支持天正文字及其天正标注。（网上的不支持天正）。   有时间请高手考虑。


我收集到一个LSP，可以刷天正文字，但得瞄准才好！如果没瞄准就得重新再选取源对象！纠正下这个功能也可以
(defun c:ta (/ txt1 ent) ;;;文字刷，将文字内容改成源文字内容
(setq ent (car (entsel "
选择源文字：")))
(setq txt1 (entget ent))
(setq txt1 (cdr (assoc 1 txt1)))
(while t
(setq ent (car (entsel "
选择目标文字：")))
(setq ent (entget ent))
(setq ent
(subst (cons 1 txt1) (assoc 1 ent) ent)
)(entmod ent)))

firstintimate

程序写的非常混乱，条理不清楚，改一下，支持多选，自己程序没调清楚来这放松放松－ －
(defun c:tt()
;;;文字刷，将文字内容改成源文字内容
  (while (and (setq entpt (entsel "
选择源文字："))
              (ssget(cadr entpt)'((0 . "*TEXT"))))         
    (setq ent (car entpt))
    (setq ent_data (entget ent))
    (setq txt (cdr (assoc 1 ent_data)))
    (princ "\n选择目标文字")
    (setq ss_txt (ssget (list(cons 0"*TEXT"))))
    (setq i 0)
    (repeat (sslength ss_txt)
      (setq ent_ss_txt (ssname ss_txt i))
      (setq ent_ss_txt_data (entget ent_ss_txt))
      (setq ent_ss_txt_data
             (subst (assoc 1 ent_data) (assoc 1 ent_ss_txt_data) ent_ss_txt_data)
      )
      (entmod ent_ss_txt_data)
      (entupd ent_ss_txt)
      (setq i (1+ i))
    )
  )
  (prin1)
)

hmillf

感谢楼上高手帮助！ 编的非常理想！ 可以框选多个！（意外的惊喜）

swc00

看看

市政画图佬

文字内容刷子，试试好不好用