如何使用选择集过滤器来得到多段线？(已解决)

genghb111 · 发表于 2008-5-20 16:20:00

段下面的方法不行，请高手指教：
      pType(0) = 0: pData(0) = "Polyline": pType(1) = 8: pData(1) = "*"
      plinex.Select acSelectionSetCrossing, dx1, dx2, pType, pData '多线选择集
或者
   plinex.Select acSelectionSetAll , , , pType, pData '多线选择集
也不行
但如果把"Polyline"，修改为"line"就可以选中line线，不知是为什么？

azjmjsj · 发表于 2008-5-20 19:52:00

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0
FilterData(0) = "*POLYLINE"
sset.SelectOnScreen FilterType, FilterData

genghb111 · 发表于 2008-5-22 09:56:00

谢谢，这次选择是选择了，但又有新问题了，当遍历选择集的时候，提示类型不匹配。
不知为什么？难道多线类型不是AcadPolyline吗？请指点！！！
Dim fType(0 To 1) As Integer
Dim fData(0 To 1) As Variant
fType(0) = 0: fData(0) = "*Polyline": fType(1) = 8: fData(1) = "*"
Dim adSS As AcadSelectionSet '选择集
Dim pline As AcadPolyline
Set adSS = ThisDrawing.SelectionSets.Add("adSS")
adSS.Select acSelectionSetAll, , , fType, fData '按过滤条件选择
MsgBox adSS.count
For Each pline In adSS
pline.Color = acRed
Next
adSS.Delete