Running setq as a command

I have a hopfully easy question. I have a simple lisp that catch the current drawing name then strips out all but the last two characters. Which is the way are database is setup the last to character reprensent a discipline (example Xx01a1 is architectural first floor plan, Xx01e1 would be Lighing plan etc...) and we have a custom commands (A1, A2, E1, E2....) so when we re-file building floor back into are main database they all setup the same. My lisp works until I try call up the setq as a command it says "unknown command" "A1". Which if I type A1 into the command prompt it will run A1. Hopfully this makes sence.

(defun c:test ()
(setq names (vl-filename-base (getvar "dwgname"))) ;returns just name 
(setq name (substr names 5)) ;returns just the last 2 characters of drawing name
(command name))

Thanks

Those commands are AutoLISP routines? If affirmative, then you should call them as:

(c:a1)

Therefore your code become:

(eval (read (strcat "(c:" name ")")))

Hey MSasu, Thank you very much. That did it.

Thanks again

You're welcome!

Another comment, you can extract the type in a much flexible way:

(setq names (vl-filename-base (getvar "DWGNAME")))
(setq name (substr names (1- (strlen names))))

If I may ask. How is this more flexible?

That will retrive the last two characters from file's name, no matter how long is that name.

Another crazy way of doing that, for the fun of it.

(setq names
          (vl-filename-base
                (substr (setq names (getvar "DWGNAME"))
                        (1- (vl-string-position 46 names nil t)))))

Edited for filenames with "."