Command to open in dialog box via lisp

Hi,

I want a long command to be short. I do this in lisp with the following lines of code:

(Defun C:mtp ()
(command "MAPTOPOLOGYTOPOLYGONS")
(princ)
)

This particular command normally opens a dialog box under Civil 3D. But when i use it in above lisp, is shows command line questions. Like if i would use the underscore.

Any help on getting this to work?

I could just edit the command in the CUI, but then i have to do it on every computer. The lisp file is loaded at everyones computers so always up to date for everyone.

Try:

(defun c:mtp ( )
   (initdia)
   (command "_.MAPTOPOLOGYTOPOLYGONS")
   (princ)
)