Topic: PolarMode

[hudster]

Does anyone know how to toggle polar snaps on and off?

I've tried polarmode, but it makes no difference, I have a lisp which activates ortho but when it's finished I want to go back to polarsanps, but this doesn't work.

[Kerry]

Perhaps :

AUTOSNAP System Variable bit 8 and 32

in conjunction with :
POLARMODE system variable
POLARANG system variable
POLARDIST system variable
POLARADDANG system variable

[hudster]

cheers that did it.

[Kerry]

great !

Autosnap bit 63 turns on/off everything related to polar tracking.
so ..  incorporating something like this may suit you :

Code: [Select]

(defun c:togglepolar ()
  (if (= (getvar "autosnap") 63)
    (setvar "osmode" (logior (getvar "osmode") 16384))
    (setvar "osmode" (boole 6 (getvar "osmode") 16384))
  )
  (if (= (getvar "autosnap") 63)
    (setvar "autosnap" 0)
    (setvar "autosnap" 63)
  )
  (princ)
)

[Biscuits]

Try this one. Can't remember where I got this one. I know I don't get the credit.

Code: [Select]


;TOGGLES POLAR TRACKING ON OR OFF
;
(defun c:pt ()
(princ
(strcat "\nPolar tracking "
(if (= 8 (logand 8 (setvar "autosnap" (boole 6 (getvar "autosnap") 8))))
"en" "dis"
)
"abled."
)
)
(princ)
)