How can i modify this routine to prompt for the user text in the mtext editor in lieu of at the command line? Currently it mimmicks the dtext command entry line by line at the command prompt. (defun c:L80 (/ txtht) (setq txtht (* 0.08 (getvar "dimscale"))) (command "-style" "simplex" ; name of text style "simplex" ; font name txtht ; height of text "1" ; width factor "0" ; obliquing angle "" ; text backwards "" ; text upside-down ) (while (> (getvar "CMDACTIVE") 0)(command "")) ; Vertical (prompt " Current Style set to L80 ") (princ) (command "mtext") ) Brian