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

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

sailorcwx 发表于 2008-5-22 12:12:00

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

genghb111 发表于 2008-5-23 08:20:00

终于知道原因了，谢谢！

东北-水地暖-温 发表于 2012-5-9 14:10:00

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

东北-水地暖-温 发表于 2012-5-13 06:56:00

对不起：应为(ssget '((0 .
"LWPOLYLINE,POLYLINE"))))

查看完整版本: 如何使用选择集过滤器来得到多段线？(已解决)