Code Problem

kgerb

Usenet Archive
Joined
Jan 5, 2004
Messages
3
Reaction score
0
This is a little code that makes it easier to draw a line at a specific angle. The problem is that when I enter a value for the angle it tells me "invalid option keyword". Any thoughts?

(defun c:bossline (/ pt1 len ang)
(cond
((null (setq pt1 (getpoint "\nFirst point: ")))
nil)
((null (setq len (getdist "\nLength: ")))
nil)
((null (setq ang (getangle "\nAngle: ")))
nil)
(t
(command ".line" pt1 (strcat "@" (rtos len) "<" (angtos ang)) "")))
(princ))

Thanks a bunch!
 

Latest threads

Back
Top