请教mccad老师关于文字定位:

WTYLMF

请教mccad老师关于文字定位
mccad老师:您好!请问，如何在文件中搜索指定的字符串，并返回指定字符串的坐标？ 不胜感激！

雪山飞狐_lzh

指定的字符串可能有多个，说说你的最终目的

WTYLMF

谢谢关注。


                                         指定的字符串允许多个。我想对指定的字符串作一些处理，比如：修饰等。

雪山飞狐_lzh

Sub tta()
On Error Resume Next
Dim i As AcadEntity
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(1) As Integer, fd(1)
ft(0) = 0: fd(0) = "*Text"
ft(1) = 1: fd(1) = ThisDrawing.Utility.GetString(True, vbCr & "请输入指定字符串:")
ss.Select acSelectionSetAll, , , ft, fd
For Each i In ss
'在这里处理 Next i
End Sub

WTYLMF

谢谢帮助。我需要指定字符串的位置(x, y, z)，能介绍一下吗?

WTYLMF

我已经找到。谢谢mccad老师帮助。