make object layer current

II am trying to write a keyboard shortcut "cl" (for current layer) that will invoke the command "_ai_molc" so I don't have to type it or use the menus. This is what I wrote:

(defun c:cl () (command "_ai_molc"))

but autocad says that "ai_molc" is an unknown command, probably because it has dropped off the first underscore "_"

what am I doing wrong?

 

(defun c:cl ()(c:ai_molc)(princ))

will invoke the command "_ai_molc" so I don't have to type it or use the

has dropped off the first underscore "_"

 

(defun c:cl () (command "_ai_molc"))

has dropped off the first underscore "_"

No, the command is unknown because it isn't a native Acad command. It's a
lisp function, so it needs to be called as Josh demonstrated.

 

If you don't want to type it (including not wanting to type the "cl"), you
don't need to defun anything if you can have the keyboard shortcut invoke
something like

'-LAYER S (cdr (assoc 8 (entget (car (entsel))))) \;

This also has the definite advantage that it can be done transparently in
mid-command, whereas _ai_molc cancels any command you're in (at least when
you pick the icon for it in the Layer toolbar).