[求助]关于如何交互绘制ployline的问题

Sub kkk()
Dim entry As AcadLineType
    Dim found As Boolean
    found = False
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.Name, "acad_iso05w100", 1) = 0 Then
            found = True
            Exit For
        End If
    Next
    If Not (found) Then ThisDrawing.Linetypes.Load "acad_iso05w100", "acadiso.lin"
    
    
    
 Dim fzpl As AcadPolyline
Dim zbd As Variant
Dim zbd1 As Variant
Dim i As Integer
Dim blist() As Double
Dim lcx As AcadLayer
Set lcx = ThisDrawing.Layers.Add("虚线层")
lcx.Color = acCyan
 On Error Resume Next
Do
If IsEmpty(zbd1) Then
  zbd = ThisDrawing.Utility.GetPoint(, "第一点：")
  Else
  zbd = ThisDrawing.Utility.GetPoint(zbd1, "下一点：")
  End If
  
  
  If Err Then
    Err.Clear
    Exit Do
  End If
  ReDim Preserve blist(3 * i + 2)
  blist(3 * i) = zbd(0): blist(3 * i + 1) = zbd(1): blist(3 * i + 2) = zbd(2)
  i = i + 1
  
  zbd1 = zbd
Loop
Set fzpl = ThisDrawing.ModelSpace.AddPolyline(blist)
fzpl.Linetype = "acad_iso05w100"
fzpl.Layer = "虚线层"
End Sub

Sub Example_AddVertex()
    ' This example creates a light weight polyline in model space.
    ' It then adds a vertex to the polyline.
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    
    
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
        
    ' Create a light weight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    MsgBox "Add a vertex to the end of the polyline.", , "AddVertex Example"
    
    ' Define the new vertex
    Dim newVertex(0 To 1) As Double
    newVertex(0) = 4: newVertex(1) = 1
    
    ' Add the vertex to the polyline
    plineObj.AddVertex 5, newVertex
    plineObj.Update
    MsgBox "Vertex added.", , "AddVertex Example"
    
End Sub

Sub kkk()
Dim entry As AcadLineType
    Dim found As Boolean
    found = False
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.Name, "acad_iso05w100", 1) = 0 Then
            found = True
            Exit For
        End If
    Next
    If Not (found) Then ThisDrawing.Linetypes.Load "acad_iso05w100", "acadiso.lin"
    
    
    
 Dim fzpl As AcadPolyline
Dim zbd As Variant
Dim zbd1 As Variant
Dim i As Integer
Dim blist() As Double
Dim lcx As AcadLayer
Set lcx = ThisDrawing.Layers.Add("虚线层")
lcx.Color = acCyan
 On Error Resume Next
Do
If IsEmpty(zbd1) Then
  zbd = ThisDrawing.Utility.GetPoint(, "第一点：")
  Else
  zbd = ThisDrawing.Utility.GetPoint(zbd1, "下一点：")
  End If
  
  
  If Err Then
    Err.Clear
    Exit Do
  End If
  ReDim Preserve blist(3 * i + 2)
  blist(3 * i) = zbd(0): blist(3 * i + 1) = zbd(1): blist(3 * i + 2) = zbd(2)
  i = i + 1
  
  
  If i = 1 Then
  GoTo ppp
  End If
  
  If i = 2 Then
  Dim start(0 To 5) As Double
  start(0) = zbd1(0)
  start(1) = zbd1(1)
  start(2) = zbd1(2)
  start(3) = zbd(0)
  start(4) = zbd(1)
  start(5) = zbd(2)
  
  Set fzpl = ThisDrawing.ModelSpace.AddPolyline(start)
  fzpl.Linetype = "acad_iso05w100"
fzpl.Layer = "虚线层"
fzpl.Update
  GoTo ppp
    
  End If
  
  
  fzpl.Coordinates = blist
  fzpl.Update
ppp:
zbd1 = zbd
Loop
fzpl.Coordinates = blist
End Sub

Sub kkk1()
Dim entry As AcadLineType
    Dim found As Boolean
    found = False
    For Each entry In ThisDrawing.Linetypes
        If StrComp(entry.Name, "acad_iso05w100", 1) = 0 Then
            found = True
            Exit For
        End If
    Next
    If Not (found) Then ThisDrawing.Linetypes.Load "acad_iso05w100", "acadiso.lin"
    
    
    
Dim fzpl As AcadPolyline
Dim zbd As Variant
Dim zbd1 As Variant
Dim startpoint As Variant
Dim i As Integer
Dim j As Integer
Dim blist() As Double
Dim lcx As AcadLayer
Set lcx = ThisDrawing.Layers.Add("虚线层")
lcx.Color = acCyan
 On Error Resume Next
     Dim keywordList As String
    keywordList = "Close Undo"
    
    
Do
If IsEmpty(zbd1) Then
  zbd = ThisDrawing.Utility.GetPoint(, "第一点:")
  startpoint = zbd
  Else
restart:
  ThisDrawing.Utility.InitializeUserInput 128, keywordList
  zbd = ThisDrawing.Utility.GetPoint(zbd1, "下一点[闭合(C)/后退(U)]:")
        If Err Then
  
                    If Err.Number = -2147467259 Then
                            Dim inputString As String
                             Err.Clear
                             inputString = ThisDrawing.Utility.GetInput
                                    If inputString = "Close" Then
                                       fzpl.Closed = True
                                    End If
                                    If inputString = "Undo" Then
                                    i = i - 2
                                    If i = 0 Then
                                    
                                    fzpl.Delete
                                    zbd1 = startpoint
                                    blist(0) = zbd1(0)
                                    blist(1) = zbd1(1)
                                    blist(2) = zbd1(2)
                                    i = 1
                                    GoTo restart
                                    'End
                                    End If
                                    If i < 0 Then
                                    End
                                    End If
                                    ReDim Preserve blist(3 * i + 2)
                                    GoTo endundo
                                    End If
                                    
                                    
                                     Exit Do
                     End If
        End If
        
  End If
  If Err Then
          
                    Err.Clear
                    Exit Do
   
              
  End If
  ReDim Preserve blist(3 * i + 2)
  blist(3 * i) = zbd(0): blist(3 * i + 1) = zbd(1): blist(3 * i + 2) = zbd(2)
 
  If i = 0 Then
  zbd1 = zbd
  GoTo ppploop
 
  End If
  
  If i = 1 Then
  
  Dim start(0 To 5) As Double
  start(0) = blist(0)
  start(1) = blist(1)
  start(2) = blist(2)
  start(3) = blist(3)
  start(4) = blist(4)
  start(5) = blist(5)
  
  Set fzpl = ThisDrawing.ModelSpace.AddPolyline(start)
  fzpl.Linetype = "acad_iso05w100"
fzpl.Layer = "虚线层"
fzpl.Update
zbd1 = zbd
  GoTo ppploop
    
  End If
  
endundo:
  fzpl.Coordinates = blist
  
  fzpl.Update
j = (UBound(fzpl.Coordinates) + 1) / 3
zbd1 = fzpl.Coordinate(j - 1)
ppploop:
i = i + 1
Loop
fzpl.Coordinates = blist
End Sub