(defun c:test (/ p r)
(if (setq p (getpoint "\nSpecify first corner: "))
(progn
(setq r (cond ((getangle p "\nSpecify rotation angle <0d0'0\">: "))
(0.)
)
)
(initdia)
(command "_.mtext" "_non" p "_rotation" (* (/ r pi) 180.) "_columns" "_no" "_width" 0.)
)
)
(princ)
)