Lee and Highflybird,
Is this the right way?
(defun TextWin4 (code / wsh str)
(cond ((= code 0) (graphscr))
((= code 1) (setq str "% M"))
(T (setq str "% N"))
)
(if (> (atoi (substr (getvar "ACADVER") 1 2)) 14)
(progn
(if (/= code 0)
(progn
(vl-load-com)
(if (= code 1)
(textscr)(graphscr)
)
(setq wsh (vlax-create-object "WScript.Shell"))
(vlax-invoke wsh 'SendKeys str)
(vlax-release-object wsh)
)
)
)
(if (= code 1)
(textscr)
(graphscr)
)
)
(princ)
)
(princ "\nTextWin4.lsp loaded.")
(defun C:Info ()
(TextWin4 1)
(mapcar
'(lambda (x) (princ X))
'(
"\nType (TextWin4 0) for displaying the AutoCAD graphics screen."
"\nType (TextWin4 1) for displaying the maximized AutoCAD text screen."
"\nType (TextWin4 2), (TextWin4 nil) or (TextWin4 T) for minimized AutoCAD."
"\n************************Type INFO for this screen************************"
)
)
(princ)
)
(c:INFO)
(princ)
HofCAD