ntyks 发表于 2010-12-29 19:16:53

vodoo 发表于 2010-12-29 21:37:30

查看帮助，用选择集

chmenf087 发表于 2010-12-29 21:38:42

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
没有容错语句自己加吧
页: [1]
查看完整版本: 框选文本的问题