Ortho Toggle

How can I add the Ortho toggle (on/off) command to a single toolbar button?
What is the command line?

I already know that F8 works, as well as the button at the bottom of the
screen.
But a button in my floating toolbar would be better.

Thanks-

 

(setvar "orthomode" 1) = on


Bill

 

Hi Tom

^p(progn(setvar"ORTHOMODE"(boole 6(getvar"ORTHOMODE")1))(princ))

Cheers

 

[Button name]^O

Bob

 

(setvar "orthomode" (- 1 (getvar "orthomode")))
___

 

Tom,

(setvar "ORTHOMODE" (abs (- (getvar "ORTHOMODE") 1)))

cheers

 

or using diesel

'_setvar;orthomode;$M=$(if,$(eq,$(getvar,orthomode),0),1,0)

mark

 

(vla-setvariable
(vla-get-activedocument (vlax-get-acad-object))
"orthomode"
(- 1
(vlax-variant-value
(vla-getvariable
(vla-get-activedocument (vlax-get-acad-object))
"orthomode"
)
)
)
)