如何实现复合选择（如选择图层为"zd"，红色的多段线）

tiger0101

如何实现复合选择（如选择图层为"zd"，红色的多段线）

cad的帮助写的太简略了

ssObj.select语句，它的过滤条件不知道怎么写

请高手相助，我想应该能够一次选中吧？

alin

Sub Example_Select()

    Dim ssetObj As AcadSelectionSet
    On Error Resume Next
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    If Err <> 0 Then
      Set ssetObj = ThisDrawing.SelectionSets.Item("SSET")
      ssetObj.Clear
    End If
    
    Dim mode As Integer
    Dim obj As AcadEntity
   
    mode = acSelectionSetAll

    Dim gpCode(2) As Integer
    Dim dataValue(2) As Variant
    gpCode(0) = 0
    dataValue(0) = "LWPOLYLINE"
    gpCode(1) = 8
    dataValue(1) = "zd"
    gpCode(2) = 62
    dataValue(2) = 1
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.Select mode, , , groupCode, dataCode
    MsgBox "图中有" & ssetObj.Count & "个图元已加入到选择集SSET中。"
    For Each obj In ssetObj
     obj.Highlight True
    Next
   
End Sub

tiger0101

3ku vermuch