Code Red > AutoLISP (Vanilla / Visual)

Object Snap keyboard overide

(1/5) > >>

cparnell:
A2K6

I'm in a mess, going back to A2K I have always assigned the number keys at the top of my keyboard to my object snaps.

["1"]_CEN
["2"]_ENDP
["3"]_INT
["4"]_MID
["5"]_NODE
["6"]_PERP
["7"]_QUA
["8"]_TAN
["9"]_nea
["0"]_appint

in my ACAD.mnu file. Doing this would allow me to override my osnap mode to use the OSnap assigned to this key. Now in A2K6, I have been unable to migrate these settings over to my main CUI file. I was told on the AutoDESK discussion forum that A2K6 will not allow anything to be assigned to the number keys at the top of the keyboard.

I am lost, using shift right click slows me down, and using icons slows me down. Is there any way to assign OSnaps to my number keys at the top of my keyboard like I am accustomed to?

I guess that I'm hoping that LISP will do the trick, but I just don't know much about LISP. Just about all I know is from a class that Robert Green taught at AUGI camp in Birmingham, AL a month or so ago.

I am LOST.

LE:
Hi,

I don't have AutoCAD 2006.....

So is not there anymore the section ?:

***ACCELERATORS

Where you were able to place something like these ?:


["NUMPAD4"]_nea
["NUMPAD5"]_endp
["NUMPAD6"]_perp
["NUMPAD7"]_int
["NUMPAD8"]_mid
["NUMPAD9"]_qua
["NUMPAD1"]_nod
["NUMPAD2"]_cen
["NUMPAD3"]_ins

Chuck Gabriel:
I hesitate to mention it, because the currently available version is somewhat broken, but HotKeys will allow you to create keyboard shortcuts like what you are looking for.

http://home.carolina.rr.com/hotkeys

I am told the 2004 version works in AutoCAD 2006.

Once it is installed and you have created a keys definition file with the editor, you will need to type KEYSCONFIG at the command line and use the browse button to select your keys definition file (that's the broken part).

Good luck.

Hangman:
I had the guys here help me put together a lisp that'd do what your looking for.
Here it is if your interested.

--- Code: ---;;Written by Hangman    August, 2005
;;
;;This is a Running OSnap Toggle macro lisp
;;
;;  1  ENDpoint
;;  2  MIDpoint
;;  3  CENter
;;  4  NODe
;;  5  QUAdrant
;;  6  INTersection
;;  7  INSertion
;;  8  PERpendicular
;;  9  NEArest
;;  0  OFF
;;
;;
;;

(DEFUN C:1 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 1)); on/off
  (princ)
)
;;
(DEFUN C:2 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 2)); on/off
  (princ)
)
;;
(DEFUN C:3 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 4)); on/off
  (princ)
)
;;
(DEFUN C:4 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 8)); on/off
  (princ)
)
;;
(DEFUN C:5 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 16)); on/off
  (princ)
)
;;
(DEFUN C:6 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 32)); on/off
  (princ)
)
;;
(DEFUN C:7 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 64)); on/off
  (princ)
)
;;
(DEFUN C:8 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 128)); on/off
  (princ)
)
;;
(DEFUN C:9 ()
  (SETVAR "OSMODE" (BOOLE 6 (GETVAR "OSMODE") 512)); on/off
  (princ)
)
;;
(DEFUN C:0 ()
  (SETVAR "OSMODE" 0); off
  (princ)
)

--- End code ---

ELOQUINTET:
have you looked at temporary override keys? i keep most of mine on all the time but use shift+i for insert and a couple others i use infrequently.

Navigation

[0] Message Index

[#] Next page