框选文本的问题

vodoo

查看帮助，用选择集

chmenf087

Dim SSet As AcadSelectionSet
Dim fType(0) As Integer
Dim fData(0) As Variant
fType(0) = 0: fData(0) = "TEXT"

If Not IsNull(ThisDrawing.SelectionSets.Item("text")) Then
   Set SSet = ThisDrawing.SelectionSets.Item("text")
   SSet.Delete
End If
   Set SSet = ThisDrawing.SelectionSets.Add("text")
   SSet.SelectOnScreen fType, fData
没有容错语句自己加吧