Visually See if SNAP is ON via color Swatch?

[johnw]

We use SNAP when we draw and as a trainer I would like to easily see if someone has SNAP ON or OFF with a color swatch displayed on the ribbon panel. Is there a way to display a green swatch that is large enough to see from a distance if SNAP is ON and it turn RED if SNAP is OFF? Some folks use the classic toolbar menu as well so the swatch for that would have to be located at the bottom left of the menu in the startup. If someone could show me how to show this color switch in a Ribbon panel setting and as lower left corner of classic window setting that would be fantastic.

Much thanks,

John W.

[Anonymous]

Isn't the status tabs at the bottom of thr screen (ORTHO, OSNAP, SNAP, etc.) work for you? The tabs change between dark and light indicating status of OFF and ON

[johnw]

They don't work from a distance. That's why I requested this.

[johnw]

They don't work from a distance. That's why I requested this.

[ВeekeeCZ]

The only example I found for a toolbar...

http://www.theswamp.org/index.php?topic=49071.msg541859#msg541859

[scot-65]

(setvar "MODEMACRO" "$(if,$(getvar,snapmode), Snap is ON, Snap is OFF)")

[johnw]

Any way to display a color green if it's on and color red if it's off?

[alexKoshman]

Why not to change the color OF THE CROSSHAIR!?

; ))

[johnw]

Sounds like a great idea! I have a routine that someone wrote that changes my crosshairs to RED when I'm in paperspace and WHITE when in model space (see attached lisp routine - i had to change extension to .txt for attachment to load). How would I add changing the color to PURPLE if SNAP IS OFF in Either paper or model space???

[alexKoshman]

You have to fully rewrite this example program with "VLR-SysVarChanged" Reactor for catching user changes the "SNAPMODE" system variable and then change the "ModelCrosshairColor" or " "LaypoutCrosshairColor" Property for Model or Model depending on your current Space!

; ))

[johnw]

Sorry, I don't have a clue on how to do this.

[alexKoshman]

Sorry! But I have no time to write it now!..

Maybe on weekend?..

[martin_leiter]

an Example... http://ww3.cad.de/foren/ubb/Forum145/HTML/004108.shtml

Best Regards Martin

[alexKoshman]

You mean that of cause:

(vla-put-ModelCrosshaircolor (vla-get-display (vla-get-preferences (vlax-get-acad-object)))
  (cdr (assoc 420 (acad_truecolordlg (cons 420 16777215))))
)

Because we mustn't use "setvar" (see there below) in Reactors for variables changing...

[johnw]

Do I insert these lines of code inside the file I attached earlier or insert it into the acad.lsp file? Not sure...

[alexKoshman]

They ARE in the code already!

I told this to martin.leiter...

[johnw]

I'm sorry I don't understand what you mean. If you added this code to my original attachment can you attach the revised code so I can download it. Or if I need to do something on my end please let me know.

Thanks.

[scot-65 · Accepted solution]

Attached file is code for the reactor part.

I was not sure how to handle the "answer" in a timely manner.

However, the attached file reactor does work with limited testing. Remove the ".TXT" extension.

I am also displaying the code here with revisions:

;; System Variable Changed Exercise

(vl-load-com)
(vlr-sysvar-reactor nil '((:vlr-sysVarChanged . Sys_Var_Chg_SNMODE)))

(defun Sys_Var_Chg_SNMODE (obj lst / )
 (if (and (= (car lst) "SNAPMODE") (cdr lst))
  (if (= (getvar "SNAPMODE") 0)
   ;change crosshair color to RED here.
   ;change crosshair color to GREEN here.
  );if
 );if
 (princ)
);end Sys_Var_Chg_SNMODE

Good Luck.

[johnw]

Thanks Scott, I got this working in modelspace! Thank you.

Thank all of you for your comments and help!

[scot-65]

Just an additional thought...
The crosshair color is recorded into the registry when editor is closed.
By opening another file that has the opposite setting of SNAPMODE
the color would be wrong.
To fix this, add code inside S::STARTUP (or equal):
(vl-load-com)
(if (= (getvar "SNAPMODE") 0)
;change crosshair color to RED here.
;change crosshair color to GREEN here.
);if

???