[编程申请]：求LSP程序:还是字符替换问题

lengliqun

求LSP程序:还是字符替换问题。点选字符串AAA，回车;点选字符串BBBB，回车，则图中所有字符串AAA都变成字符串BBBB。
要求字符串AAA为完全匹配，以免AAA123变成BBBB123。谢谢。

自由的鱼

Option Explicit

Sub tt()
Dim sset As AcadSelectionSet
Dim ttt As AcadText
Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.SelectOnScreen
For Each ttt In ThisDrawing.ModelSpace
If ttt.TextString = sset.Item(0).TextString Then
ttt.TextString = sset.Item(1).TextString
End If
Next

sset.Delete
MsgBox "替换完成"
End Sub

lsjjm

最初由 lengliqun 发布
[B]求LSP程序:还是字符替换问题。点选字符串AAA，回车;点选字符串BBBB，回车，则图中所有字符串AAA都变成字符串BBBB。
要求字符串AAA为完全匹配，以免AAA123变成BBBB123。谢谢。 [/B]

我说老兄: 几天前你贴了一个要把"AAAA"替换成"BBBB" 网友们给了你诸多方法和答案. 今天又"AAA"换"BBBB" ?  你就不会"照猫画虎"? 要知道, 学会举一反三, 你才真正有收获!

sxlxf

请问如何加载?

自由的鱼

最初由 sxlxf 发布
[B]请问如何加载? [/B]

保存为DVB程序加载！