Model Tab To Layout Tab

[wizman]

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

[Freerefill]

.... booyah

 

(defun c:tm( / )
 (setvar 'tilemode (fix (cos (getvar 'tilemode))))
 (princ)
 )

[ronjonp]

Here's another...

 

(defun c:tm (/)
 (if (= (getvar 'ctab) "Model")
   (setvar 'ctab (car (layoutlist)))
   (setvar 'ctab "Model")
 )
)

[ronjonp]

Ok I'm done....lotsa cool examples

 

(defun c:tm (/)

(if (vl-position (getvar 'ctab) (layoutlist))

(setvar 'tilemode 1)

(setvar 'tilemode 0)

)

)

[ronjonp]

Ok..I lied

 

(defun c:tm (apply 'setvar (list 'tilemode (- 1 (getvar 'tilemode)))))

[wizman]

Good codes guys, keep up.

(defun c:tmwiz2 (/)
 (setvar 'tilemode (- 2 (expt 2 (getvar 'tilemode))))
 (princ)
)

[alanjt]

ooh ooh, i want to contribute one more.

 

(defun c:TM (/)
(eval (list 'setvar "tilemode" (abs (1- (getvar 'tilemode)))))
(princ)
)

[alanjt]

nevermind, i don't know why i was thinking you needed the abs

 

(defun c:TM (/)
(eval (list 'setvar "tilemode" (1- (getvar 'tilemode))))
(princ)
)

[alanjt]

this is basically the last one ron posted

 

(defun c:TM (/)
 (apply 'setvar (list 'tilemode (1- (getvar 'tilemode))))
 (princ)
)

[alanjt]

ok, now i'm done. this is not a good option, but it does work...

 

(defun c:TM (/)
 (vla-SendCommand
   (vla-get-ActiveDocument
     (vlax-get-acad-object)
   ) ;_ vla-get-ActiveDocument
   (strcat "(setvar 'tilemode "
           (itoa (1- (getvar 'tilemode)))
           ") "
   ) ;_ strcat
 ) ;_ vla-SendCommand
 (princ)
) ;_ defun

[wizman]

and still another one:

(defun c:tmwiz3 (/)
 (setvar 'tilemode (distance '(1 0 0)
	    (list  (getvar 'tilemode) 0 0)))
 (princ)
)

[Lee Mac]

Just for kicks (turn speakers on):

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:tm  [b][color=RED]([/color][/b][b][color=RED])[/color][/b]
 [b][color=Red]([/color][color=Blue]vl-load-com[/color][color=Red])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vlax-invoke[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vlax-create-object[/color][/b] [b][color=#ff00ff]"Sapi.SpVoice"[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"Speak"[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]vl-list->string[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]84[/color][/b] [b][color=#009900]105[/color][/b] [b][color=#009900]108[/color][/b] [b][color=#009900]101[/color][/b] [b][color=#009900]109[/color][/b] [b][color=#009900]111[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#009900]101[/color][/b]
               [b][color=#009900]32[/color][/b] [b][color=#009900]115[/color][/b] [b][color=#009900]101[/color][/b] [b][color=#009900]116[/color][/b] [b][color=#009900]32[/color][/b] [b][color=#009900]116[/color][/b] [b][color=#009900]111[/color][/b] [b][color=#009900]32[/color][/b][b][color=RED])[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]ascii[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b]
                   [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b]tilemode
                           [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]tilemode[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[ronjonp]

Nice one!^^^

[Lee Mac]

Nice one!^^^

 

Cheers Ron

[alanjt]

haha, awesome lee

[ronjonp]

wizman's distance one is pretty clever

[David Bethel]

to toggle a sysvar in diesel

 

^c^c^p$(if,$(=,$(getvar,TILEMODE),1),!.)Toggle TILEMODE]^c^c^p(setvar "TILEMODE" (- 1 (getvar "TILEMODE")));^p

The single quote thing is a pretty bad thing.

 

(type tilemode) returns nil

(type 'tilemode) returns SYM

 

In A2K

Command: setvar
Enter variable name or [?]: 'tilemode

Unknown variable name.  Type SETVAR ? for a list of variables.

-David

[wizman]

wizman's distance one is pretty clever

 

thanks ronjonp, here's one again.

 

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

[Lee Mac]

You guys never stop...! :P

[ronjonp]

I wonder which variant to OP will go with