I DL and tried, and it appears to work when I start acad, in that it turns caplock on. When I click/alttab toa browser, it turns it off. BUT when I give acad focus, it does not turn it back on. I checked both boxes in the setup. Was that right?
BTW, I have this code that does the same thing that Se7en is suggesting, in that my code turns on caps for text commands.
Option Explicit
Private WithEvents AutoCAD As AcadApplication
'Begin Code Block
Private Const VK_CAPITAL = &H14
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private kbArray As KeyboardBytes
Private Declare Function GetKeyState Lib "user32" _
() ' (ByVal nVirtKey As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" _
() ' (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" _
() ' (kbArray As KeyboardBytes) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If CommandName = "TEXT" Or CommandName = "EATTEDIT" Or CommandName = "DTEXT" Or CommandName = "INSERT" Or CommandName = "DDATTE" Or _
CommandName = "DDEDIT" Then
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 1
SetKeyboardState kbArray
End If
End Sub
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If CommandName = "TEXT" Or CommandName = "EATTEDIT" Or CommandName = "DTEXT" Or CommandName = "INSERT" Or CommandName = "DDATTE" Or _
CommandName = "DDEDIT" Then
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPITAL) = 0
SetKeyboardState kbArray
End If
End Sub
'End Code Block
I got this from CadVault , I think Randall Rath is the author
this goes inthe "This Drawing " module