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

genghb111

段下面的方法不行，请高手指教：

        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

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

genghb111

谢谢，这次选择是选择了，但又有新问题了，当遍历选择集的时候，提示类型不匹配。

不知为什么？难道多线类型不是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

sailorcwx

你选到的有LWPOLYLINE，也有POLYLINE
如果你不需要两种一起选，那么可以把"*Polyline"改成对应类型
如果你需要两种一起选，可以把Dim pline As AcadPolyline改成Dim pline As AcadObject

genghb111

终于知道原因了，谢谢！

东北-水地暖-温

(setq ss(ssget '((0 . "lwpolyline")(0 ."polyline"))));ss中就只有多段线喽

东北-水地暖-温

对不起：应为(ssget '((0 .

"LWPOLYLINE,POLYLINE"))))