Commits

Panagiotis Mavrogiorgos  committed 7c024f6

Added support for toggle-ortho and toggle-osnap.

Note: This are not transparent versions.

  • Participants
  • Parent commits 9f0920f

Comments (0)

Files changed (1)

File Lisp/command_aliases.lsp

 ; Custom functions
 ;---------------------------------------------------------------------------
 
+; Toggle ortho and toggle snap are not transparent.
+; This means that they cannot be called during the execution 
+; of another command (e.g. line).
+(defun toggle_ortho ()
+    (setvar "orthomode" (abs (1- (getvar "orthomode"))))
+    (princ)
+)
+
+(defun toggle_osnap ()
+    (setvar "osmode" (boole 6 (getvar "osmode") 16384))
+    (princ)
+)
 
 ; For some reason the copy alias doesn't default to "multiple copy" mode.
 ; The following routine fixes this.