社区 › VBA/VB/ActiveX/API 编程技术 › 如何给多段线增加节点

wz0406 发表于 2004-4-15 15:04:00

如何给多段线增加节点

如

efan2000 发表于 2004-4-15 19:20:00

使用AppendVertex添加节点。

雪山飞狐_lzh 发表于 2004-4-15 19:51:00

怎么都不喜欢看帮助？这是帮助里的示例：Sub Example_AppendVertex()
       ' This example creates a polyline in model space.
       ' It then appends a vertex to the polyline.
      
       Dim plineObj As AcadPolyline
       Dim points(0 To 14) As Double
      
      
       ' Define the 2D polyline points
       points(0) = 1: points(1) = 1: points(2) = 0
       points(3) = 1: points(4) = 2: points(5) = 0
       points(6) = 2: points(7) = 2: points(8) = 0
       points(9) = 3: points(10) = 2: points(11) = 0
       points(12) = 4: points(13) = 4: points(14) = 0
               
       ' Create a light weight Polyline object in model space
       Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
       ZoomAll
       MsgBox "Append the vertex 4, 1, 0.", , "AppendVertex Example"
      
       Dim newVertex(0 To 2) As Double
       newVertex(0) = 4: newVertex(1) = 1: newVertex(2) = 0
       plineObj.AppendVertex newVertex
       ZoomAll
       MsgBox "The vertex 4, 1, 0 as been appended.", , "AppendVertex Example"End Sub

查看完整版本: 如何给多段线增加节点