Sub LineContinue()
    On Error Resume Next
    Dim P1 As Variant
    Dim StartPnt(0 To 2) As Double
    Dim P2 As Variant
    P1 = ThisDrawing.Utility.GetPoint(, "Nhap P1")
    StartPnt(0) = P1(0)
    StartPnt(1) = P1(1)
    Do While Err.Number = 0
        P2 = ThisDrawing.Utility.GetPoint(StartPnt, "Pick P2")
        Call AddLine(StartPnt, P2)
        StartPnt(0) = P2(0)
        StartPnt(1) = P2(1)
    Loop
End Sub
Sub AddLine(P1, P2)
    Dim LineObj As AcadLine
    Set LineObj = ThisDrawing.ModelSpace.AddLine(P1, P2)

End Sub