[求助]请问:为什么我用PolyLine画不出三维多段线

azfa

Sub ThdPolyline()
    
   Dim Thplineobj As AcadPolyline
   Dim Thpoints(14) As Double
 
  
   '为三维顶点赋值
   Thpoints(0) = 50
   Thpoints(1) = 50
   Thpoints(2) = 100
  
   Thpoints(3) = 100
   Thpoints(4) = 50
   Thpoints(5) = 0
  
   Thpoints(6) = 150
   Thpoints(7) = 250
   Thpoints(8) = 150
  
   Thpoints(9) = 250
   Thpoints(10) = -50
   Thpoints(11) = 0
  
   Thpoints(12) = 350
   Thpoints(13) = 0
   Thpoints(14) = 150
  
 
   Set Thplineobj = ThisDrawing.ModelSpace.AddPolyline(Thpoints)
  
   ThisDrawing.Application.ZoomAll
  
  
End Sub

2006,2007都试过了,都不对,不知道哪搞错，请高手指点.

azfa

已解决,函数调用错误，应该用Add3DPoly函数。

不过既然AddPolyline画二维多段线何必设置三维数组呢。Z坐标没起到作用嘛。

sailorcwx

AddPolyline的第三个参数不是Z坐标，而是高程

azfa

谢谢!多谢指教!