lisp: check if txtscr is enabled or disabled

[GSC_HAYA]

Hello

with the command _txtscr I can enable or disable the text screen. But I don't know the current state when running a lisp routine. I want to enable the textscreen for more information for the user.

Guido

WIN7, ACAD2014

[Anonymous · Accepted solution]

when you type "textscr" command,it will show the textscreen. for what purpose you want to check the status ?

[hmsilva]

---

gschimmi wrote:

with the command _txtscr I can enable or disable the text screen. But I don't know the current state when running a lisp routine. I want to enable the textscreen for more information for the user.

---

Hi Guido,

not quite the answer to your question, but see the graphscr and textscr functions, to display the graphics screen and the text screen from a lisp.

Henrique

[GSC_HAYA]

Hello,

textscr-command is a flip-flop, so I don't know is the screen on or off

regards

Guido

[Anonymous]

I checked it in 2013 version. textscr - is not a flip-flop command.

[hmsilva · Accepted solution]

Hi Guido,
as already indicated in message #3 with the graphscr and textscr functions, you can control the displays of AutoCAD graphics / text screens, regardless the current screen status if you enter (textscr) you will get the text screen active...
i.e.

(defun c:demo (/ ans)
  (prompt "\n\n\n   Enter a leter: \n\n   a for run test_a \n\n   b for run test_b \n\n   c for run test_c \n\n   d for run test_d\n\n")
  (textscr)
  (initget "A B C D")
  (setq ans (getkword "\nEnter an option (A/B/C/D) <exit> : "))
  (graphscr)
  (if ans
    (alert (strcat "You have chosen to run Test_" ans " program..."))
    (alert (strcat "You have chosen to exit application..."))
  )
  (princ)
)

hope that helps
Henrique

[GSC_HAYA]

Hello

and thanks for your help...

ACAD made my day!

(type in ACAD textscr and (textscr) and you'll get different behavior)

In my first post I wrote about the usage of '_textscr' (in english versions 'textscr') in lisp (command '_textscr') and that is the flip-flop

And your correct answers where the lisp-function (textscr)...but I needed the week end to understand this

Guido

[hmsilva]

You're welcome, Guido
Glad I could help

Henrique