WTYLMF 发表于 2005-1-31 17:48:00

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

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


不胜感激！

雪山飞狐_lzh 发表于 2005-1-31 20:43:00

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

WTYLMF 发表于 2005-2-1 09:31:00

谢谢关注。


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

雪山飞狐_lzh 发表于 2005-2-1 13:18:00

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


Next i<BR>End Sub<BR>

WTYLMF 发表于 2005-2-3 11:12:00

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

WTYLMF 发表于 2005-2-3 11:28:00

我已经找到。谢谢<b>mccad老师</b>帮助。
页: [1]
查看完整版本: 请教mccad老师关于文字定位: