Topic: cAPS lOCK & aUTOcad

[M-dub]

Quick question:  Is there a way to turn CAPS LOCK on or off from the command line?
I'm looking for an out-of-the-box solution without having to use any code.

[deegeecees]

In case you change your mind about using code...
Do a search for acad.dvb, and copy it to your recognized support directory. Press Alt+F11, and copy paste the following code to the beginning of the ThisDrawing module.

Code: [Select]


Option Explicit
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

Then copy/paste this code to the end of the module.

Code: [Select]


Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
 If CommandName = "TEXT" Or CommandName = "DTEXT" Or _
 CommandName = "DDEDIT" Or CommandName = "MTEDIT" Or _
 CommandName = "ATTEDIT" Or CommandName = "EATTEDIT" Or _
 CommandName = "DIMLINEAR" Or CommandName = "QLEADER" Or _
 CommandName = "MTEXT" Then
 'add any other command names you want caps on for
 'be sure to add them to the endcommand section below as well
   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 = "DTEXT" Or _
 CommandName = "DDEDIT" Or CommandName = "MTEDIT" Or _
 CommandName = "ATTEDIT" Or CommandName = "EATTEDIT" Or _
 CommandName = "DIMLINEAR" Or CommandName = "QLEADER" Or _
 CommandName = "MTEXT" Then
   GetKeyboardState kbArray
   kbArray.kbByte(VK_CAPITAL) = 0
   SetKeyboardState kbArray
 End If
End Sub

You will never be plagued by the caps monster ever again, unless you so choose to be.

[M-dub]

Thanks Deeg... I just wanted to edit a button we have to change selected text to all caps so that the button would also turn caps lock on.  Far from a big deal... more of a curiosity, I guess.
Thanks again.

[deegeecees]

I hear ya. I wouldn't know how to do that without using some code.

[Krushert]

Is there not a little routine that someone the Swamp cook up a long time ago.  Do a search for CAPsMan EXE.

[Maverick®]

You could PM Cmdrduh.  He has a caps lock utility that turns on caps lock depending on the name of the active window (editable).  Might work for ya.

[M-dub]

Thanks guys.  99.293% of the time, this isn't a problem, so I'm not going to worry about it.  I just wondered if there was some new variable they had come out with for acad.

[Big G]

in mtext theres an AutoCAPS and a Change Case from the right-click menu.....
so if text is written lowercase CTRL-A, CTRL-SHIFT-U [or -L] depending on upper or lower chars....

[rhino]

in mtext theres an AutoCAPS and a Change Case from the right-click menu.....
so if text is written lowercase CTRL-A, CTRL-SHIFT-U [or -L] depending on upper or lower chars....

That works for DTEXT as well - Thanks Big G :kewl:

[Bob Wahr]

If you don't want to use code, but want a single button that toggles caplock, you might try this.

[M-dub]

If you don't want to use code, but want a single button that toggles caplock, you might try this.

Aside from physically picking up the mouse and using it to depress said key, I was looking for a way to turn caps on with a setvar so I could put it in a macro.

[Bob Wahr]

unfortunately, and I know this is hard to believe, cap lock is a system setting, not an autocad one.  Without accessing the system, you can't do it.

[M-dub]

unfortunately, and I know this is hard to believe, cap lock is a system setting, not an autocad one.  Without accessing the system, you can't do it.

Yep, maybe I should put it on the wish list. 

[Maverick®]

unfortunately, and I know this is hard to believe, cap lock is a system setting, not an autocad one.  Without accessing the system, you can't do it.

Just another example of The Man keeping you down.

[Bob Wahr]

Yeah, AutoCAD controlling my OS.  That's what I want 

[t-bear]

For those interested, the Caps Manager is at Resource Cad International...http://www.resourcecad.com/ here.

It works well for me here when I'm jumping from proggy to proggy.  I want caps on in ACAD and off in other programs....this does it automatically.

[Keith™]

CapsMan is located here

[CHulse]

Yeah, AutoCAD controlling my OS.  That's what I want 

I just wonder when Autodesk will come up with it's own OS.... :ugly:

[sinc]

I don't think they'd want to do that.  Then they wouldn't be able to blame anything on Microsoft.   

[RGUS]

CapsMan is located here

Link not found

[RGUS]

For those interested, the Caps Manager is at Resource Cad International...http://www.resourcecad.com/ here.

It works well for me here when I'm jumping from proggy to proggy.  I want caps on in ACAD and off in other programs....this does it automatically.

Look like they have removed it

[dtkell]

I think this is what you're looking for: http://www.theswamp.org/lilly_pond/keith/CapsMan.exe?nossi=1
Although not sure if it works on current release.

[Krushert]

If so, then another great had bit the dust

[Keith™]

It should still work

[BlackBox]

FWIW - It does still work for AutoCAD applications (2014-2016 here), but needs to be updated for apps outside of ACAD.exe, as capslock stays enabled when switching to Office 2013/O365 Apps, Chrome, etc.

[dtkell]

FWIW - It does still work for AutoCAD applications (2014-2016 here), but needs to be updated for apps outside of ACAD.exe, as capslock stays enabled when switching to Office 2013/O365 Apps, Chrome, etc.

That may be what i had in my mind, as it has been some time since I tried it and knew there was some aspect of it that didn't work.