【求助】如何通过过滤器选择多段线？

hellomoshi

2. Sub Ch4_FilterOrTest()
   
3.    Dim element As AcadEntity
   
4.    Dim pl As AcadPolyline
   
5.    Dim sstext As AcadSelectionSet
   
6.    Dim FilterType(3) As Integer
   
7.    Dim FilterData(3) As Variant
   
8.    Set sstext = ThisDrawing.SelectionSets.Add("SS6")
   
9.    FilterType(0) = -4
   
10.    FilterData(0) = "<and"
    
11.    FilterType(1) = 0
    
12.    FilterData(1) = "3dpolyline"
    
13.    FilterType(2) = 8
    
14.    FilterData(2) = "0"
    
15.    FilterType(3) = -4
    
16.    FilterData(3) = "and>"
    
17. 
    
18.    sstext.SelectOnScreen FilterType, FilterData
    
19.    Count = sstext.Count
    
20.    MsgBox Count
    
21.    
    
22.    For Each element In sstext
    
23.    element.color = acGreen
    
24.    Next element
    
25.    sstext.Delete
    
26. End Sub
    

Sub Ch4_FilterOrTest()<br />    Dim element As AcadEntity<br />    Dim pl As AcadPolyline<br />    Dim sstext As AcadSelectionSet<br />    Dim FilterType(3) As Integer<br />    Dim FilterData(3) As Variant<br />    Set sstext = ThisDrawing.SelectionSets.Add("SS6")<br />    FilterType(0) = -4<br />    FilterData(0) = "<and"<br />    FilterType(1) = 0<br />    FilterData(1) = "3dpolyline"<br />    FilterType(2) = 8<br />    FilterData(2) = "0"<br />    FilterType(3) = -4<br />    FilterData(3) = "and>"<br /> <br />    sstext.SelectOnScreen FilterType, FilterData<br />    Count = sstext.Count<br />    MsgBox Count<br />    <br />    For Each element In sstext<br />    element.color = acGreen<br />    Next element<br />    sstext.Delete<br /> End Sub<br />

MsgBox 返回的值为0

woaishuijia

没有"3dpolyline"这种东西，只有"polyline"

hellomoshi

woaishuijia 发表于 2019-4-15 15:59
没有"3dpolyline"这种东西，只有"polyline"

有的 vb参考中的对象中就有

woaishuijia

hellomoshi 发表于 2019-4-15 17:19
有的 vb参考中的对象中就有

过滤器使用的是DXF组码，要到DXF参考中去找，而不是VB参考



你要的东西在这里，它叫“POLYLINE”

hellomoshi

感谢楼上老哥 我用了POLYLINE也不行 ，最后用LWPOLYLINE成功了。不知道他们的区别在哪里。

woaishuijia

CAD有两种“多段线”：
一种是“多段线”（优化多段线，LWPOLYLINE），只能在二维平面画，每个节点坐标都是二维坐标（只有X、Y，没有Z）；在图形界面画多段线用“pline”命令；多段线可以包括“圆弧”。
另一种是“三维多段线”（DXF对象类型POLYLINE，ActiveX对象类型3DPolyline），每个节点坐标都是三维坐标；在图形界面画三维多段线用“3dpoly”命令；三维多段线可以在三维空间任意转折，但各段只能由直线组成，没有“圆弧”。
你用LWPOLYLINE成功了，说明你在图形界面选择的是用“pline”命令画的多段线，而不是用“3dpoly”命令画的三维多段线

hellomoshi

woaishuijia 发表于 2019-4-16 11:45
CAD有两种“多段线”：
一种是“多段线”（优化多段线，LWPOLYLINE），只能在二维平面画，每个节点坐标都 ...

感谢老哥 分析的很透彻 确实是用pline画的

renhaitao_nice

楼上讲的真叫透彻，瞬间醍醐灌顶！