ALIAS for Custom "CUI" Command

[chavlji]

In Autocad CUI editor I've made some custom command. It is a simple macro.

Now I would like to assign some ALIAS to my command.

 

So that if I write "MC" into console, it executes this macro.

 

*I dont mean ALIASEDIT, because I think my command can not be called through Console... this is what I would like to find out here.

[lpseifert]

Make a lisp instead of a macro, use (defun c:mc ()...

Lets have a look at the macro

[chavlji]

Tenx. Ive done that

(defun c:V1 ()
 (setq cmdecho_old (getvar "cmdecho"))(setvar "cmdecho" 0)
 
 (Command "-VPORTS" "si" "UCSFOLLOW" "1")
 (princ "\n1 VIEWPORT")
 (princ)
 
 (setvar "cmdecho" cmdecho_old)(princ))

 

Is it possible to define some global function, that I could use in all my list procedures? Like following:

(defun SympleMacro ( Macro Msg)
 (setq cmdecho_old (getvar "cmdecho"))(setvar "cmdecho" 0)
 
 (Command Macro)
 (princ (strcat "\n" Macro)
 (princ Msg)
 (princ)
 
 (setvar "cmdecho" cmdecho_old)(princ))

 

And it would then be called from any my lisp program like this

(SympleMacro (list  "-VPORTS" "si" "UCSFOLLOW" "1") "1 VIEWPORT")