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
--
Juerg Menzi
MENZI ENGINEERING GmbH, Switzerland
http://www.menziengineering.ch

[Button name]^O

Bob

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

"Tom C." <(E-Mail Removed)> wrote in message
news:40c483ab$1_2@newsprd01...
> 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-
>
>

Tom C. wrote:
> 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-
>
>
Tom,

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

cheers
--
Marco Caprez
CAD-Spezialist
Getronics (Schweiz) AG

or using diesel

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

mark

"Tom C." <(E-Mail Removed)> wrote in message
news:40c483ab$1_2@newsprd01...
> 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-
>
>

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