Im having a huge brain fart today. We had a fatality at work today, and I cant seem to make my brain think about code. If Im using Utility.GetPoint, how do I use a While or DoWhile to continue picking points til nil?
Private Sub cmdLayoutLines_Click()
Me.Hide
Dim intBusSpacing As Integer, strLayer As AcadLayer, objLine As AcadLine
Set strLayer = ThisDrawing.Layers.Add("3d-Layout-Lines")
strLayer.color = 173
ThisDrawing.ActiveLayer = strLayer
With ThisDrawing.Utility
Dim pt1 As Variant, pt2 As Variant
pt1 = .GetPoint(, "Pick Starting Point: ")
pt2 = .GetPoint(pt1, "Pick Next Point: ")
ThisDrawing.ModelSpace.AddLine pt1, pt2
While pt2 <> Empty
pt1 = pt2
pt2 = .GetPoint(pt1, "Pick Next Point: ")
ThisDrawing.ModelSpace.AddLine pt1, pt2
Wend
End With
Me.Show
End Sub
this is not working