[求助] 请教高手，关于把全部多段线加入选择集
把文件中的所有多段线都加入到选择集中。前面的语句是建立一个选择集，然后根下面的语句fType(0) = 0: fDate(0) = "Polyline": fType(1) = 8: fDate(1) = "*"
sset.Select acSelectionSetAll, , , fType, fDate
运行以后选择集里面没有加入任何对象。请问这是怎么回事？
我用sset.selectonscreen 就能把对象加入到选择集中
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即轻量多段线。
页:
[1]