Automatic snap in Acad2000
Automatic snap in Acad2000
(OP)
Is there a way in Acad2000 to control the snap On/Off automatically as follows?
- On command entry the snap should go Off.
- When objects selection is done the snap should go On.
In both cases it should be possible to alter the snap status manually.
- On command entry the snap should go Off.
- When objects selection is done the snap should go On.
In both cases it should be possible to alter the snap status manually.





RE: Automatic snap in Acad2000
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: Automatic snap in Acad2000
(DEFUN C:OM ( / CM OM OT P) ; Move, NONE, Ortho on
(setq CE (getvar "cmdecho")
OM (getvar "osmode")
OT (getvar "orthomode"))
(setvar "cmdecho" 0)
(setvar "orthomode" 1)
(setvar "osmode" 0)
(setq P (ssget))
(COMMAND "MOVE" P "" PAUSE PAUSE)
(setvar "cmdecho" CE)
(setvar "orthomode" OT)
(setvar "osmode" OM)
(princ)
)
RE: Automatic snap in Acad2000
IFR, where should I write this program?
Thank you for reply.
RE: Automatic snap in Acad2000
Write the routine inside your acad.lsp file. Use a pure ASCII text editor like Notepad. Do NOT use Word unless you know how to save it as pure text!!! Word will mess it up!!!
RE: Automatic snap in Acad2000
RE: Automatic snap in Acad2000
Else, create this file by copy and paste into Notepad (Start/Run "Notepad"[ENTER]), save it as OM.lsp (or whatever). Save it in C:\ (or wherever)
In Autocad, type (load"C:\\om.lsp")
The you can type "OM" without the quotes on the Autocad command line and it will start.