[求助]新手求教，如何获取某层内所有3维多线的顶点坐标？

zjzao

新手求教，如何获取某层内所有3维多线的顶点坐标？

fjfhgdwfn

 Dim FilterType11(3) As Integer
   Dim FilterData11(3) As Variant
  
   FilterType11(0) = -4
   FilterData11(0) = "<Not"

   FilterType11(1) = 8
   FilterData11(1) = "页码"  '图层是页码
   
   FilterType11(2) = -4
   FilterData11(2) = "not>"  '图层是0
  
  FilterType11(3) = 0
   FilterData11(3) = "Polyline"  '是多段线

这个可以得到页码图层上的多段线。