topic Re: Visually See if SNAP is ON via color Swatch? in Visual LISP, AutoLISP and General Customization Forum

Visually See if SNAP is ON via color Swatch?

johnw — Fri, 12 Jun 2015 14:30:42 GMT

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.

Re: Visually See if SNAP is ON via color Swatch?

Anonymous — Sat, 13 Jun 2015 16:07:35 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

johnw — Sat, 13 Jun 2015 16:57:00 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

johnw — Sat, 13 Jun 2015 16:57:01 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

ВeekeeCZ — Sun, 14 Jun 2015 21:33:57 GMT

The only example I found for a toolbar...

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

Re: Visually See if SNAP is ON via color Swatch?

scot-65 — Mon, 15 Jun 2015 22:34:47 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

johnw — Mon, 15 Jun 2015 23:03:00 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

alexKoshman — Wed, 17 Jun 2015 14:48:02 GMT

Why not to change the color OF THE CROSSHAIR!?

; ))

Re: Visually See if SNAP is ON via color Swatch?

johnw — Wed, 17 Jun 2015 15:01:28 GMT

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???

Re: Visually See if SNAP is ON via color Swatch?

alexKoshman — Wed, 17 Jun 2015 18:14:41 GMT

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!

; ))

Re: Visually See if SNAP is ON via color Swatch?

johnw — Wed, 17 Jun 2015 18:26:05 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

alexKoshman — Thu, 18 Jun 2015 09:44:43 GMT

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

Maybe on weekend?..

Re: Visually See if SNAP is ON via color Swatch?

martin_leiter — Thu, 18 Jun 2015 10:38:24 GMT

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

Best Regards Martin

Re: Visually See if SNAP is ON via color Swatch?

alexKoshman — Thu, 18 Jun 2015 10:57:30 GMT

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...

Re: Visually See if SNAP is ON via color Swatch?

johnw — Thu, 18 Jun 2015 15:41:09 GMT

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

Re: Visually See if SNAP is ON via color Swatch?

alexKoshman — Thu, 18 Jun 2015 15:47:25 GMT

They ARE in the code already!

I told this to martin.leiter...

Re: Visually See if SNAP is ON via color Swatch?

johnw — Thu, 18 Jun 2015 16:31:12 GMT

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.

Re: Visually See if SNAP is ON via color Swatch?

scot-65 — Thu, 18 Jun 2015 22:51:02 GMT

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.

Re: Visually See if SNAP is ON via color Swatch?

johnw — Fri, 19 Jun 2015 14:48:07 GMT

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

Thank all of you for your comments and help!

Re: Visually See if SNAP is ON via color Swatch?

scot-65 — Fri, 19 Jun 2015 22:34:10 GMT

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

???