The only connection to this that I could find is when orthomode is on polarmode goes off automatically. I placed a provision to save the user autosnap & polarmode upon code start-up and turn off orthomode while running the code. If a user prefers orthomode to be on, They can turn it on at will. See how this works out and que me in as to how this operates.
Saved in: Registry
Initial value: 63
Controls AutoSnap marker, tooltip, and magnet. Also turns on polar and object snap tracking, and controls the display of polar and object snap tracking tooltips. The system variable value is the sum of the following bit values:
0 Turns off the AutoSnap marker, tooltips, and magnet. Also turns off polar tracking, object snap tracking, and tooltips for polar and object snap tracking
1 Turns on the AutoSnap marker
2 Turns on the AutoSnap tooltips
4 Turns on the AutoSnap magnet
8 Turns on polar tracking
16 Turns on object snap tracking
32 Turns on tooltips for polar tracking and object snap tracking
In order for the autosnap markers to be on + polar tracking + object snap tracking the autosnap needs to be set to 25. See below.
These are the settings during program operation.
Currently, This is how it is set in the code.
; F14 - Change Program Settings.
(defun CIT_CPS ()
(setq CPS (list 0 0 0 0 0 25 7))
(mapcar (function setvar)(list "cmdecho" "blipmode" "orthomode" "angbase" "angdir" "autosnap" "polarmode") CPS)
Take note below upon start-up that the user autosnap and polarmode are saved, So they should restore at program end or in the event of an error.
; F03 - Start-Up.
(defun C:CIT (/ ATAG$ BNAM$ BSCL# BSCL_LST BTAG$ BTAG_LST CPS DCL_ID DEG# ELST ENAM FLRN$ FSTY$
IANG IDFR$ IDFR_LST INPT OLMN$ RAD# SEQN$ SEQN# SSET SUS TERR UCLK *error*)
(setq SUS_LST (list "cmdecho" "blipmode" "orthomode" "osmode" "angbase" "angdir" "clayer" "polarmode" "autosnap")
SUS (mapcar 'getvar SUS_LST)
(princ "Cable Id Tag Lisp, CIT.lsp - Copyright © 2010")
(princ "\nType CIT to start program.")