getkword returns command command at prompt?

[Sage Cowsert]

(defun C:test
(INITGET "Numeric Text Options Reset Exit")
(GETKWORD "[Numeric/Text/Options/Reset] <Exit>: ")
(princ)
)

Returns:
[Numeric/Text/Options/Reset] <Exit>:
command:
command:

At the command line. Why? How do I get it not display both command:'s?

Thanks Sage

 

[Rudy Tovar]

(initget 1 "Numeric Text Option Reset Exit")

 

[Sage Cowsert]

I'm ok with nil being an answer. Btw... Even with the 1 there I still get two commands returned at the command line.

Thanks Sage

(initget 1 "Numeric Text Option Reset Exit")

(defun C:test
(INITGET "Numeric Text Options Reset Exit")
(GETKWORD "[Numeric/Text/Options/Reset] <Exit>: ")
(princ)
)

Returns:
[Numeric/Text/Options/Reset] <Exit>:
command:
command:

At the command line. Why? How do I get it not display both command:'s?

Thanks Sage

 

[John Uhden]

You have to use a dummy (command ...) inside your otherwise commandless function, e.g.

(defun C:TEST
(setvar "cmdecho" 0)
(command "_.expert" (getvar "expert"))
(princ "\nTesting.")
(princ)
)