[编程申请]：刷多个文字为同一内容

yuanjack2

文字刷
刷多个文字为同一内容
1. 选择一个文字，假设为"AA"
2. 用刷子刷另一个文字“BB”，把内容变为“AA”

自由的鱼

Option Explicit

Sub mptxt()
Dim pnt As Variant
Dim ent As AcadEntity
Dim stxt As String
Dim mtxt As String
Dim sset As AcadSelectionSet
Dim sset1 As AcadSelectionSet

Dim i As Integer
For i = 0 To ThisDrawing.SelectionSets.Count - 1
    ThisDrawing.SelectionSets.Item(i).Clear
    ThisDrawing.SelectionSets.Item(i).Delete
Next

Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "TEXT"

Set sset1 = ThisDrawing.SelectionSets.Add("tt1")
sset1.SelectOnScreen Ftype, Fdata

'ThisDrawing.Utility.GetEntity ent, pnt, "choose"
stxt = sset1.Item(0).TextString

Set sset = ThisDrawing.SelectionSets.Add("tt")

sset.SelectOnScreen Ftype, Fdata
For i = 0 To sset.Count - 1
sset.Item(i).TextString = stxt
Next
End Sub

yuanjack2

哪位高手给修改为lisp程序

JOSDENNIS

是不是這樣的效果?
(defun c:tt (/ DXF I N-DXF NEW OLD SN SS)
  (setq i 0 sn (car (entsel "\n選源文字:" )) ss (ssget  ' ((0 . "TEXT"))))
  (if ss
    (progn
      (setq N-DXF (assoc 1(entget sn)) NEW (cdr N-DXF))
      (repeat (sslength ss)
        (setq DXF (entget (ssname ss i))
              OLD (CDR(ASSOC 1 DXF)))
        (IF (NOT(EQ NEW OLD))
          (ENTMOD(SUBST N-DXF (ASSOC 1 DXF) DXF)))
        (setq i (1+ i)))
      ))
  (princ "\n修改完成.")
  (PRINC))

tel5560018

用快速修改把全部的选中的AA改为BB不是更方便吗?

ccylk

It depend on which version you are using. But LISP is suitable for all version.
And another thing is that you don't need to retype the content, eg. "AA"

ivysoft

我开发的小工具（常青藤工具）可以间接帮助你实现。以下是方法：

启动文字菜单下的文本序号处理，在预设文本中填写"AA",点击高级按钮，选择“选择多个实体批量转换”，然后点击确定，将你需要替换的文本选中即可。

具体请参阅帖子：http://www.xdcad.net/forum/showthread.php?s=&threadid=322975

zh_6531394

这个工具比以期的任何文字匹配都要好