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
没有容错语句自己加吧
置顶卡
