如何知道一条polyline有多少点呀？

shirazbj

Sub getpolyline()

    Dim i, n As Integer
   
    'Dim newObjs As AcadPolyline
    Dim newObjs As AcadLWPolyline   'Object drawed by pline command under version 2006

    Dim retCoord As Variant
    Dim points(500) As Double

 
  n = ThisDrawing.ModelSpace.Count

  For i = 0 To n - 1
     
      If ThisDrawing.ModelSpace.Item(i).ObjectName = "AcDbPolyline" Then
     
         Set newObjs = ThisDrawing.ModelSpace.Item(i)
         'newObjs怎么老是空的？下面的结果老不对

         ' Return all the coordinates of the polyline
         retCoord = newObjs.Coordinates
        
         mynpoint = (UBound(retCoord) + 1) / 3
         
        '.......

         
      End If
     
  Next i
  
  MsgBox "Good on ya!"
 
End Sub

shirazbj

把mynpoint = (UBound(retCoord) + 1) / 3中的除3改成除2，结果好像对了。我还以为定点存的是x,y,z三个坐标呢。3dpoly应该是x,y,z了吧。