lisp把多段线顶点连成表_读取多段线顶点并将顶点坐标标到数组中

读取多段线顶点并将顶点坐标标到数组中,这样就可以实现在路中线设计时在屏幕上直接选取坐标的操作:

Private Sub CommandButton9_CLICK()

UserForm2.Hide

On Error Resume Next

Dim index As Integer

index = 2

'提示第一点

Dim pt1 As Variant

pt1 = ThisDrawing.Utility.GetPoint(, "取点：")

If Err Then

Err.Clear

UserForm2.Show

Exit Sub

End If

'存处点到当前变量

Dim ptPrevious As Variant, ptCurrent As Variant

ptPrevious = pt1

NEXTPOINT:

ptCurrent =

ThisDrawing.Utility.GetPoint(ptPrevious, "下一点：")

If Err Then

Err.Clear

UserForm2.Show

Exit Sub

End If

If index = 2 Then

Dim points(0 To 3) As Double, pointy(0 To 200) As Double

points(0) = ptPrevious(0)

points(1) = ptPrevious(1)

points(2) = ptCurrent(0)