Function key RTPan/Zoom?

[Josh Crawford]

When I was using R12 Dos I read about (in Cadence or Cadalyst, I think)
a neat way to reassign Function keys. Basically, two text files with
the key reassignments and resets were "executed" from a .bat with the
line "TYPE CADKEYS.ON" right before the call to ACAD.EXE and "TYPE
CADKEYS.OFF" right after. The most useful macros to me were for
psuedo-RTPan/Zoom keys: regular pan, zoom-in pan and zoom-out pan. The
"ON" macro code for F2,F3 & F4 was:
[0;60;"'ZOOM C ";0;75;0;77;" 1X "p
[0;61;"'ZOOM C ";0;75;0;77;" 2X "p
[0;62;"'ZOOM C ";0;75;0;77;" .5X "p
where the very first character ( ) is actually ASCII 27 (the escape
char. I think).
The ";0;75;0;77;" transparently (even to lisp) moves the crosshairs to
"grab" the current position so basically you could point to where you
wanted the screen to zoom-center (in/out) to and hit F2 and voila!
Place the crosshairs, press the desired f-key and I'm done.

I've tried to recreate these macros for the f-keys in R14 because I find
them easier to use than R14's RTPan/Zoom (which is still very good,
BTW). My only problem is that I can't make it truly transparent
(IMPORTANT!) to use.

Any ideas on how I can get this to work in R14?

--
Later,
Josh
jo...@mindspring.com

"I'm a perfectionist...I'm just not very good at it."

[Ed Brown]

Josh,

You can assign command to fuction keys by modifying you acad.mns menu
or whatever menu you are using. Open your menu file in a text editor and
fine the accelerator section. You can then assign the function keys as need
a sample of my ACCELERATOR section of my acad.mns is as follows:

***ACCELERATORS
[CONTROL+"K"]$M=$(if,$(and,$(getvar,pickadd),1),'_pickadd 0,'_pickadd 1)
[CONTROL+"L"]^O
[CONTROL+"R"]^V
ID_Copyclip [CONTROL+"C"]
ID_New [CONTROL+"N"]
ID_Open [CONTROL+"O"]
ID_Print [CONTROL+"P"]
ID_Save [CONTROL+"S"]
ID_Pasteclip [CONTROL+"V"]
ID_Cutclip [CONTROL+"X"]
ID_Redo [CONTROL+"Y"]
ID_U [CONTROL+"Z"]
["F1"]Nea
["F3"]Mid
["F4"]int,endp
["F5"]ins
["F6"]CEN
["F7"]QUA
["F11"]'zoom
["F12"]'pan

I have added the last 8 lines to this section. Call me or E-mail me if you
have problems
Ed Brown
RWS Research & development
(818)364-6766 X409
email work: engin...@spearsmfg.com
email home: com...@aol.com

good lick