I've searched but didn't see anything overly obvious that helped:
I have a small routine for entering distances as text. The basic idea is:
User picks point A
User picks point B
Routine calculates distance and angle between the two
User picks point C (insertion point for text)
Routine passes the distance to the text command (set at right angle from before) and places the text at point C
User picks point D
Routine calculates distance between A and D
User picks E (insertion point for text)
Routine passes the distance to the text command
and so on, repeating (user picks next point, calculate between first point and latest, use the same angle from first step, then user places the text) until the user escapes out of the routine. There may be 10-30 points, give or take.
Here is what I have (it works for the first part):
(defun c:cld
(/ pt1 pt2 dis1 dis2 ang1 pt3
) (setq pt1
(getpoint "\nPick the start point of the centerline: ")) (setq pt2
(getpoint "\nPick the measurement point on the pool centerline: "))
(defun rtod
(r
) (* 180.0 (/ r pi
))) )
((< 0 ang1 89)
)
((< 270 ang1 360)
)
)
;
;END FIRST ARROW
;
Now I just need to know if there is any easy way of picking a new pt2 and pt3 over and over until the user escapes. Any help / direction is appreciated.
Also, needs to be vanilla lisp only please, if possible. Thanks!