Dim acadApp As AcadApplication = CType(Application.AcadApplication, AcadApplication)
Dim SSText As AcadSelectionSet
Dim FilterType(0) As Short
Dim FilterData(0) As Object
Dim i As Integer
FilterType(0) = 0
FilterData(0) = "*TEXT"
SSText = acadApp.ActiveDocument.SelectionSets.Add("text")
SSText.SelectOnScreen(FilterType, FilterData)
置顶卡
