How can I know the Caps Lock is on/off by lisp

[Anonymous]

Hello. How can I know the Caps Lock is on/off by lisp?

[hak_vz]

You can not do this directly, but you can use  DOSLIB 

(dos_capslock 1) = on
(dos_capslock) = off

[Sea-Haven]

Why ? If a problem of case there are change case code out there or in a IF use (case str) forces caps.

[Anonymous]

thank you.

Is that set up?  If I jist want know the status on/off.How can I do?

[Anonymous]

I want to control a lisp to work on or not. For example. If Caps Lock is on,the plug-in unit dosen't work.

[Sea-Haven]

If its open code then the CASE function should fix the problem.

[Anonymous]

thank you.examples

[hak_vz]

@Anonymous 

If you know some autolisp it easy to do. I have pointed out name of the function you should use.

Download DOSLIB, and create something. I don't use it lately and have no time to write examples, but you can certainly find a lot of examples by simply googling for "autolisp doslib".

[Anonymous]

thanks.I'll learn it .It's useful & helpful.

[Kent1Cooper · Accepted solution]

---

@Anonymous wrote:

I want to control a lisp to work on or not. For example. If Caps Lock is on,the plug-in unit dosen't work.

---

Here's a routine I ran across some time ago, that I have used to force Caps-lock on when I start up AutoCAD [via acaddoc.lsp], which you may be able to modify to force it off.  It works through MS Word.

;; Turn Caps Lock on: [edited from Tim Spangler in "Caps Lock," theswamp.org 04/09/12]
(setq
  isMSW (vlax-get-object "Word.Application"); nil if Word not running already
  MSW (vlax-get-or-create-object "Word.Application"); whether or not already
); setq
(if (= (vlax-get MSW 'CapsLock) 0); Caps Lock is off
  (vlax-invoke-method
    (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Shell")
    'SendKeys "{CAPSLOCK}"
  ); -invoke
); if
(if (not isMSW) (vlax-invoke-method MSW 'quit)); Exit Word only if not otherwise in use
(vlax-release-object MSW)

[Anonymous]

Thank you very mach.I have tried it and It's good.Muth computers have MS Word.

[Sea-Haven]

i FOUND THIS, (acet-sys-keystate 20) it returns 0 or 1 for on / off. Acet is part of express tools and works in Bricscad.

20 is capslock

[diagodose2009]

You transform your-programe to programe_jc10aro.lsp. All calls from original source will be redirected

to one caller named (jc_aro10 "name-of-function" )..

The main tricks, you can insert the 

Command: (acet-sys-keystate 20)

(acet-sys-keystate 20) as function. When the capslock=1 entire program, has be stopped.

Please you insert the "(acet-sys-keystate 20)" inside (defun jc_aro10...........

[TomBeauford]

To make sure Caps Lock is off

(if(=(acet-sys-keystate 20)1)(vlax-invoke-method (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Shell") 'SendKeys "{CAPSLOCK}"))

To make sure Caps Lock is on

(if(=(acet-sys-keystate 20)0)(vlax-invoke-method (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Shell") 'SendKeys "{CAPSLOCK}"))

[TomBeauford]

Just for fun

To make sure Num Lock is off

(if(=(acet-sys-keystate 144)1)(vlax-invoke-method (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Shell") 'SendKeys "{NUMLOCK}"))

To make sure Num Lock is on

(if(=(acet-sys-keystate 144)0)(vlax-invoke-method (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Shell") 'SendKeys "{NUMLOCK}"))

Keyboard Key Code Values

https://www.oreilly.com/library/view/javascript-dhtml/9780596514082/apb.html

[john.uhden]

@Anonymous 

That's a noble idea, but capslock can be on or off and the user can hold down the shift key, so you cannot control the raw input.  I think that with using grread you can make the user feel as though the case is out of their control, but you can't use grread within a dialog box or other standard AutoCAD input dialogs.

[Anonymous]

Thank you very much for your reply. My friend asked me to make a reactor plug-in for him, but sometimes he don't use it. So he want to use a switch to control whether the reactor works, and specify to use the cap lock key to control it.Is there a better way?

[john.uhden]

You've made me think that a command-reactor might be what you want. It
could be set up to take action on the start of only certain commands
thereby allowing the reaction to turn capslock on or off before the user
provides any input.