Topic: F1 HELP !!

[Andrea]

Hi all...

another one...

HOW do I remove or change the F1 button..
(help file)

this step is very very long.....
before opening the help file.


thanks.

[CADaver]

pliers

[Keith™]

Well, you could use a screwdriver and pop that bad boy off the keyboard .. but I think you were referring to a way to programmatically do it ....

There is a registry item you can change that can disable or remap any key(s) you want, but it requires a reboot.

I don't think there is a way to reassign it in AutoCAD... although you might be able to interrupt a keypress by using a VBA API call....

[ELOQUINTET]

if i recall correctly can't you just go into your .mns file and under accelerators put in

("F1")^C^C

on the same subject i also changed my F4 key to reset my osnaps

("F4")'osmode;127

is this what you're looking for?

[Andrea]

exact...but i've made a test...

("F1")^C^C

is not working...

the good syntax is..

["F1"]^C^C


thanks.

[whdjr]

I personally like

use a screwdriver and pop that bad boy off the keyboard

[Keith™]

Well, I'll be .. I was going to suggest that you try the accellerators, but I couldn't remember if it worked for the F1 key .. there was some issues some time ago on older versions ....

Anyway, I have developed a simple little VBA program that turns off the F1 key (or any key for that matter) in the AutoCAD window. All you need to do is supply the ASCII code of the key to turn off...

Code: [Select]


Option Explicit

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetCurrentVbaProject Lib "vba332.dll" Alias "EbGetExecutingProj" (hProject As Long) As Long
Private Declare Function GetFuncID Lib "vba332.dll" Alias "TipGetFunctionId" (ByVal hProject As Long, ByVal strFunctionName As String, ByRef strFunctionId As String) As Long
Private Declare Function GetAddr Lib "vba332.dll" Alias "TipGetLpfnOfFunctionId" (ByVal hProject As Long, ByVal strFunctionId As String, ByRef lpfn As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Long
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Long) As Long
Private Declare Function RegisterHotKey Lib "User32" (ByVal hWND As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "User32" (ByVal hWND As Long, ByVal id As Long) As Long
Private Sub CreateHotKey(ByVal intKeyCode As Integer, ByVal hWND As Long)
    Dim mlngAtom As Long
    mlngAtom = GlobalAddAtom(CStr(Now))
    RegisterHotKey hWND, mlngAtom, 0, intKeyCode
End Sub
Private Sub DestroyHotKey(ByVal hWND As Long)
    UnregisterHotKey hWND, GlobalDeleteAtom(mlngAtom)
End Sub
Public Sub TurnOff()
    'replace vbKeyF1 with the ascii code of the key to turn off or the vbKey equivalent
    CreateHotKey vbKeyF1, FindAutoCAD
    MsgBox "F1 is now disabled"
End Sub
Private Function MyAddressOf(sFuncName As String) As Long
 Dim lResult As Long
 Dim lHproject As Long
 Dim sFuncID As String
 Dim lFuncPtr As Long
 Dim sFuncNameUnicode As String
 sFuncNameUnicode = StrConv(sFuncName, vbUnicode)
 Call GetCurrentVbaProject(lHproject)
 If lHproject <> 0 Then
   lResult = GetFuncID(lHproject, sFuncNameUnicode, sFuncID)
   If lResult = NO_ERROR Then
     lResult = GetAddr(lHproject, sFuncID, lFuncPtr)
     If lResult = NO_ERROR Then
       MyAddressOf = lFuncPtr
     End If
   End If
 End If
End Function
Private Function FindAutoCAD() As Long
  FindAutoCAD = FindWindow(vbNullString, Application.Caption)
End Function


[ELOQUINTET]

yeah whoops i was looking at a screenshot i have in a customizing file it [ ] not ( )  

[MikePerry]

Hi

Below comes from an old AUGI Guild post by Ed Jobe -

<snip>
I came to the same conclusion, except that I though it would be good to provide some feedback. I came up with this function in the acad.lsp file.

Code: [Select]

;;;used to remap the F1 key
(defun NoHelp ()
   (setvar "nomutt" 1)
   (princ "You hit the F1 key.")
   (setvar "nomutt" 0)
   (princ)
)

Then, the F1 macro becomes:
["F1"]^C^C(NoHelp)
 
Here is what you get:
Command: *Cancel*
Command: *Cancel*
Command: (NoHelp) You hit the F1 key.
</snip>

Have a good one, Mike

[Serge J. Gianolla]

The answer was already given, but there are other tips on the site that may interest other users.
http://www.archidigm.com/Coverpage/cover1-03/lounge-set_autocad_f1_key.htm

[Andrea]

Hi

Code: [Select]

;;;used to remap the F1 key
(defun NoHelp ()
   (setvar "nomutt" 1)
   (princ "You hit the F1 key.")
   (setvar "nomutt" 0)
   (princ)
)

why using the "nomutt" variable ??

[hyposmurf]

I remember a while back my F1 key became associated with a shortcut for my windows explorer.Drove me nuts,everytime I was searching for help.Had to change the properties of the shorcut back to its original pathname.What are you going to re-associate the help key to Andrea?You dont need it anymore?

[CAB]

Thanks Serge
Very informative link.

[MikePerry]

why using the "nomutt" variable ??

Hi

Honest answer, pass.... would have to ask Ed why he included, I personally can't see a reason for it in this situation (from the little experiment I just carried out here).

Have a good one, Mike

[Bryco]

This is the way to do it in 2006
1)Open Cui
2)In the “Command List” box select “New”
3)In the Properties window that pops up on the lower right:
  In the name line  type  NoHelp
  Either leave the macro line as ^C^C
  Or add a c  to ^C^C^C
  In the ElementID line change it to MMU_Nohelp
4)Now Drag and drop that new command to the upper left box  “Customizations in ALL CUI FILES-> Keyboard shortcuts-> Shortcut keys.
5)The Command (NoHelp) will now appear in the top right box that will be called “Shortcuts”. Doubleclick on it to open the information box below.
6)In the line Key(s)    type in F1 or if you click on the word Key(s) a little box to the right with 3 dots will show up. Click on this and you can click on the F1 key and assign it. Beware, if you have caps on  you will get shift +F1, so turn caps off.
7)Apply, ok and you are good to go.

On another note, comparing this to the incredibly easy mns method who wants shares in "CUI".    NOT ME.