[VBA程序]：有关选择集的问题...？

xiaokai

请问

在选择集的过虑条件里

多义线和线形标注的名称叫什么？

谢谢！

xunix

多义线：LWPOLYLINE
线形标注：DIMENSION

qiaqiadeng

试一下这段代码，解决所有对象的名字问题：
Dim Sel1 As AcadSelectionSet, Sela As AcadSelectionSet
Dim i As Integer '*******
Dim Num As Integer '********
Dim Handl As String '句柄*****
Dim Obj As AcadObject
Me.Hide
Num = ThisDrawing.SelectionSets.count
For i = 0 To Num - 1
    Set Sel1 = ThisDrawing.SelectionSets.Item(i)
    If Sel1.Name = "sel1" Then
        Sel1.Delete
    End If
Next i
Set Sel1 = ThisDrawing.SelectionSets.Add("sel1")
1:
Sel1.SelectOnScreen
If Sel1.count = 0 Then
    ThisDrawing.Utility.Prompt vbCr & "未选中任何对象，请重新选择：" & vbCr
    GoTo 1
End If
Handl = Sel1.Item(0).Handle
Set Obj = ThisDrawing.HandleToObject(Handl)
msgbox Obj.ObjectName