Dim peo1 As New PromptPointOptions(vbLf & "Specify first extension line origin:") Dim per1 As PromptPointResult = ZcEd.GetPoint(peo1) If per1.Status <> PromptStatus.OK Then Return End If Dim pt1 As Point3d = per1.Value

Dim peo2 As New PromptPointOptions(vbLf & "Specify second extension line origin:") Dim per2 As PromptPointResult = ZcEd.GetPoint(peo2) If per2.Status <> PromptStatus.OK Then Return End If Dim pt2 As Point3d = per2.Value