Can you turn off OSNAP from inside Macros?

[Adam R.]

Hello Everyone. I have been creating specialized tool buttons ever since I absorbed all the information from Lynn Allen's "Menu Madness". Now I have come to a brick wall. I have a habit of forgetting to shut my osnap off before using my Stretch with crossing polygon button. All I want to do is shut off osnap with in the Macro. Lisp isn't really an option right now. I'll start learning about that this summer. I love the LISP routines I have right now, but I don't know how to write them yet.

Thank You in advance for your help.
Adam

[Mike.Perry]

Hi

You could look at using the OSnap "None" option ie.

Command: _.Stretch
 
 Select objects to stretch by crossing-window or crossing-polygon...
 Select objects: Specify opposite corner: 2 found
 
 Select objects:
 
 Specify base point or displacement: _None
 
 Specify second point of displacement or <use first point as displacement>: _None
 
 Command:

Have a good one, Mike

[Adam R.]

Thank You for your help Mike. I was able to use the _non selection in the Macro only once, and since I'm using the polygon option then there are sometimes several selection clicks. Now I'm at the point where the Osnaps are not active for just the first selection. Is there a way to have the _non selection active until the command is exited?

Thanks Again,
Adam

[Mike.Perry]

Hi

Maybe use a tiny bit of LISP....

(setq Saved_OSMode (getvar "OSMode))
 (setvar "OSMode" 0)
 Do your stuff....
 (setvar "OSMode" Saved_OSMode)

Have a good one, Mike

[Adam R.]

Ok, please dont start throwing things at me for this. Do I just insert that LISP into the Macro for the toolbar?

[jaberwok]

To toggle all snaps OFF -

(setq osm (getvar "osmode")) (setvar "osmode" (+ osm 16384))

To return to previous snap settings -

(setvar "osmode" (- osm 16384))

The last bit should work but it's giving me problems at the moment.

HTH

[pnorman]

Hi arobitaille,

If you include an example of one of your macros in your post it would help people a lot in determining the best way to answer your question.
With several different languages to choose from and many people at different levels its good to know where you're coming from. There's always more than one way to solve a problem but its about offering the most efficient for your needs!

Cheers
P

[Mike.Perry]

Ok, please dont start throwing things at me for this. Do I just insert that LISP into the Macro for the toolbar?

Hi

No one is going to do such a thing....

As "pnorman" suggested, post what you have so far, we can then go from there.

Have a good one, Mike

[Adam R.]

OK, This is what I have in the toolbar Macro: ^C^Cstretch;cp;_non.
I can't seem to repeat the _non selection for each polyline selection. Any help here is appreciated.

Thanks Again,
Adam

[pnorman]

Here is one way to do it;

change the button macro to this:
^C^Caro_str;

paste this into your acaddoc.lsp

(defun c:aro_str ()
(setvar "osmode" (+ (getvar "osmode") 16384))
(command "stretch" "cp")
(while (= (logand 1 (getvar "cmdactive")) 1)
(command pause)
)
(setvar "osmode" (- (getvar "osmode") 16384))
(princ)
)

The command c:aro_str will be available when you next open a drawing.
WARNING: there is no error handling built in. If you hit Esc half way through your osnaps will not be reset. With more time I can make it smarter! (you can turn them back on using the "osnap" tab at the bottom of your screen)

PS You can change c:aro_str to whatever you want!