Model Tab To Layout Tab

[wakibd]

IS THERE ANY COMMAND TO SWITCH MODEL TAB TO LAYOUT TAB.
I USED <Switching to: Layout1> .BUT IT DOES NOT WORK.

[ronjonp]

(defun c:tm (/)
  (setvar 'tilemode
          (if (zerop (getvar 'tilemode))
            1
            0
          )
  )
  (princ)
)

[wakibd]

Thanks for your lisp program. But when i am using it gives the following error

; error: AutoCAD variable setting rejected: TILEMODE nil
Command:

[ronjonp]

Strange...what version of cad are you using?

[CarlB]

It should have worked, did you copy & paste the code?

here's a slightly differnet version:

(defun c:tm (/)
  (setvar 'tilemode
          (- 1 (getvar 'tilemode))
  )
  (princ)
)

[David Bethel]

This's a new one

'tilemode

It was always

"tilemode"

Did it change? -David

[Lee Mac]

I thought they were two of the same?

'tilemode and "tilemode"

[ronjonp]

Here is my favorite version (I believe Se7en is the original author)

(defun c:tm (/)
  (setvar 'tilemode (boole 6 1 (getvar 'tilemode)))
  (princ)
)

[Lee Mac]

^^ pretty neat

[alanjt]

much less elegant, but since many options are being offered, i thought i'd throw another option in the mix:

(defun c:TM (/)
 (if (eq (getvar 'tilemode) 1)
   (setvar 'tilemode 0)
   (setvar 'tilemode 1)
 )
 (princ)
)

se7en's is by far the most impressive. they all do the same thing. 6 in one, half a dozen in the other.