Expert: Bill DeShawn - 7/21/2007

Question
I need to draw a multiple segment line using the @ command and the < command, for example:
line @3<25
line @25.75<180.5
line @17<90.625
and so on...
Ideally I would click on one button or toolbar and be prompted to enter a length and then an angle and then repeat the routine as many times as necessary until I choose to exit. How do I write a program to do that?

Answer
Bob:
I wrote the following code for you.
Save it in a text file and name if AL.lsp
Load from the command line thus:  (load "al")
After that, type AL to execute.
Keep in touch
Bill DeShawn
http://my.sterling.net/~bdeshawn

(defun c:al (/ sp ds angl lp )
  (setq sp (getpoint "Starting point:  "))
  (setq ds (rtos (getdist "\nLength:  ")))
  (setq angl (getstring "\nAngle:  "))
  (command "line" sp (strcat "@" ds "<" angl) "")
  (setq lp (getvar "lastpoint"))
  (while ds
     (command "line" "" (strcat "@" ds "<" angl) "")
     (setq ds (getdist "\nLength:  "))
     (if (null ds) (exit))
     (setq ds (rtos ds))
     (if null ds (exit))
     (setq angl (getstring "\nAngle:  "))
  )            
  (princ)
)