如何给多段线增加节点

wz0406

如

efan2000

使用AppendVertex添加节点。

雪山飞狐_lzh

怎么都不喜欢看帮助？这是帮助里的示例：

2. Sub Example_AppendVertex()
3.        ' This example creates a polyline in model space.
4.        ' It then appends a vertex to the polyline.
5.       
6.        Dim plineObj As AcadPolyline
7.        Dim points(0 To 14) As Double
8.       
9.       
10.        ' Define the 2D polyline points
11.        points(0) = 1: points(1) = 1: points(2) = 0
12.        points(3) = 1: points(4) = 2: points(5) = 0
13.        points(6) = 2: points(7) = 2: points(8) = 0
14.        points(9) = 3: points(10) = 2: points(11) = 0
15.        points(12) = 4: points(13) = 4: points(14) = 0
16.                
17.        ' Create a light weight Polyline object in model space
18.        Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
19.        ZoomAll
20.        MsgBox "Append the vertex 4, 1, 0.", , "AppendVertex Example"
21.       
22.        Dim newVertex(0 To 2) As Double
23.        newVertex(0) = 4: newVertex(1) = 1: newVertex(2) = 0
24.        plineObj.AppendVertex newVertex
25.        ZoomAll
26.        MsgBox "The vertex 4, 1, 0 as been appended.", , "AppendVertex Example"End Sub

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