Topic: Small lisp help please

[Pad]

Hi

Sorry I am probably being a bit thick, but could you please have a look at this lisp and tell me whats wrong.

it is supposed to ask for user input and then depending on choice launch another lisp routine.

Code: [Select]

(defun c:asfinal2 (a)
(setq a (getstring "\nTo burst blocks type 'B' OR to set attributes to invisible type 'I'? B/I : "))
(if
    (or
      (= a "B")
(= a "b")
    );or
((LOAD"ASFINAL) (C:asfinal))
((LOAD"ASFINAL1) (C:asfinal1))
);if
    (princ)
);defun
(princ)
ir runs with error 'Command: ASFINAL2
too few arguments'

Thanks
Pad

[gile]

Hi,

(defun c:asfinal2 (a)

This way, a is declared as an arugument requiered by the  function.

Write: (defun c:asfinal2 (/ a) ...) so that a is declared as a local variable.

Have a look at the initget and getkword functions too (more powerfull than getstring for this unsing).

[Pad]

ah of course

thanks

i will look into the initget and getkword functions after I get this method working, thanks for the tip!

[Keith™]

you are missing quotes and have an argument specified when you really are trying to localize the variable "a" ...

try this though:

Code: [Select]

(defun c:asfinal2 ( / a)
    (initget "Burst Invisible" 8)
    (setq a (getkword "\nTo burst blocks type 'B' OR to set attributes to invisible type 'I'  [Burst/<Invisible>]: "))
    (cond
        ((= a nil)((LOAD"ASFINAL1") (C:asfinal1)))
        ((= a "Burst")((LOAD"ASFINAL") (C:asfinal)))
        ((= a "Invisible")((LOAD"ASFINAL1") (C:asfinal1)))
    );cond
    (princ)
);defun
(princ)


[Pad]

oh wow
that getkword function is great.
Thanks for your help.