why wont this work?

(defun c:il (/ p ang l p1)
 (if (setq p (getpoint "\n base point :"))
   (progn
     (while
       (setq Ang (getangle p "\n Next point for Angle :"))
        (setq l (getdist "\n Specify length :"))
        (entmakex (list (cons 0 "LINE")
                        (cons 10 p)
                        (cons 11 (setq p1 (polar p ang l)))
                  )
        )
        (setq p p1)
     )
   )
   (princ)
 )

when I load this and enter the command "IL" It tells me "unknown command" why cant it find this lisp?

Here is where color coding really helps:

[b][color=BLACK]([/color][/b]defun c:il [b][color=FUCHSIA]([/color][/b]/ p ang l p1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]setq p [b][color=MAROON]([/color][/b]getpoint [color=#2f4f4f]"\n base point :"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]progn
     [b][color=MAROON]([/color][/b]while
       [b][color=GREEN]([/color][/b]setq Ang [b][color=BLUE]([/color][/b]getangle p [color=#2f4f4f]"\n Next point for Angle :"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
        [b][color=GREEN]([/color][/b]setq l [b][color=BLUE]([/color][/b]getdist [color=#2f4f4f]"\n Specify length :"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
        [b][color=GREEN]([/color][/b]entmakex [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=RED])[/color][/b]
                        [b][color=RED]([/color][/b]cons 10 p[b][color=RED])[/color][/b]
                        [b][color=RED]([/color][/b]cons 11 [b][color=PURPLE]([/color][/b]setq p1 [b][color=TEAL]([/color][/b]polar p ang l[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                  [b][color=BLUE])[/color][/b]
        [b][color=GREEN])[/color][/b]
        [b][color=GREEN]([/color][/b]setq p p1[b][color=GREEN])[/color][/b]
     [b][color=MAROON])[/color][/b]
   [b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]princ[b][color=NAVY])[/color][/b]
 [b][color=FUCHSIA])[/color][/b]

You are missing a RH parentheses.

-David

LISP Lots Of Irritating Silly Parenthesis

I'r try to make it a bit more idiot proof as well:

[b][color=BLACK]([/color][/b]defun c:il [b][color=FUCHSIA]([/color][/b]/ p ang l p1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]initget 1[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq p [b][color=NAVY]([/color][/b]getpoint [color=#2f4f4f]"\n Base point :"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while
    [b][color=NAVY]([/color][/b]setq ang [b][color=MAROON]([/color][/b]getangle p [color=#2f4f4f]"\n Next point for Angle :"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]initget 3[b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq l [b][color=MAROON]([/color][/b]getdist [color=#2f4f4f]"\n Specify length :"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq p1 [b][color=MAROON]([/color][/b]polar p ang l[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]entmakex [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]cons 10 p[b][color=GREEN])[/color][/b]
                    [b][color=GREEN]([/color][/b]cons 11 p1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq p p1[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-David

thanks works perfect. here is now i needed it to work though

(defun c:il (/ p ang l p1)
 (initget 1)
 (setq p (getpoint "\n Base point :"))
 (while
    (setq ang (getangle p "\n Next point for Angle :"))
    (initget 3)
    (setq l (getdist "\n Specify length :"))
    (setq p1 (polar p ang (* l 0.816496581)))
    (entmakex (list (cons 0 "LINE")
                    (cons 10 p)
                    (cons 11 p1)))
    (setq p p1))
 (princ))