[求助] 请教高手，关于把全部多段线加入选择集

chen_0801

把文件中的所有多段线都加入到选择集中。前面的语句是建立一个选择集，然后根下面的语句

fType(0) = 0: fDate(0) = "Polyline": fType(1) = 8: fDate(1) = "*"
    sset.Select acSelectionSetAll, , , fType, fDate

运行以后选择集里面没有加入任何对象。请问这是怎么回事？

我用sset.selectonscreen 就能把对象加入到选择集中

dianbotang

Private Sub SelectLWPOLYLINE()
    Dim SSet As AcadSelectionSet
    Set SSet = CreateSelectionSet
    Dim fType(1) As Integer   ' 过滤器规则
    Dim fData(1) As Variant   ' 过滤器参数
    fType(0) = 0: fData(0) = "LWPOLYLINE": fType(1) = 8: fData(1) = "*"
    SSet.Select acSelectionSetAll, , , fType, fData
    MsgBox SSet.Count
End Sub
Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet
   '返回一个空白选择集
  
     Dim ss As AcadSelectionSet
    
     On Error Resume Next
     Set ss = ThisDrawing.SelectionSets(ssName)
     If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
     ss.Clear
     Set CreateSelectionSet = ss
End Function
建议将fDate改为fData。

Polyline是二维多段线，通常用pline画出来的是LWPOLYLINE即轻量多段线。