topic Re: How can I know the Caps Lock is on/off by lisp in Visual LISP, AutoLISP and General Customization Forum

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

Anonymous — Wed, 10 Nov 2021 05:41:35 GMT

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

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

hak_vz — Wed, 10 Nov 2021 06:15:55 GMT

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

(dos_capslock 1) = on (dos_capslock) = off

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

Sea-Haven — Wed, 10 Nov 2021 06:16:27 GMT

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

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

Anonymous — Wed, 10 Nov 2021 06:30:57 GMT

thank you.

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

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

Anonymous — Wed, 10 Nov 2021 06:40:55 GMT

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.

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

Sea-Haven — Wed, 10 Nov 2021 06:55:20 GMT

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

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

Anonymous — Wed, 10 Nov 2021 07:03:10 GMT

thank you.examples

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

hak_vz — Wed, 10 Nov 2021 07:45:32 GMT

@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".

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

Anonymous — Wed, 10 Nov 2021 08:11:28 GMT

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

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

Kent1Cooper — Wed, 10 Nov 2021 13:03:32 GMT

@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)

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

Anonymous — Thu, 11 Nov 2021 01:05:56 GMT

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

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

Sea-Haven — Sat, 13 Nov 2021 04:58:55 GMT

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

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

diagodose2009 — Tue, 16 Nov 2021 17:56:00 GMT

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...........

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

TomBeauford — Tue, 16 Nov 2021 20:21:11 GMT

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}"))

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

TomBeauford — Tue, 16 Nov 2021 21:19:30 GMT

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

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

john.uhden — Sun, 28 Nov 2021 23:43:39 GMT

@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.

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

Anonymous — Mon, 29 Nov 2021 01:59:55 GMT

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?

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

john.uhden — Wed, 08 Dec 2021 23:14:51 GMT

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.

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

JBerns — Fri, 16 Jan 2026 15:03:59 GMT

Has the acet-sys-keystate function changed its load behavior in AutoCAD 2025?

It seems that code that worked in AutoCAD 2022 is not working in AutoCAD 2025.

I added this code to restore its functionality:

;; load AutoCAD Express Tools (if (null acet-sys-keystate) (if (findfile (setq ETU "acetutil.fas")) (progn (load ETU) (setq ETU nil) ) ;_progn ) ;_if ) ;_if

Regards,

Jerry

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

BlackBox_ — Fri, 16 Jan 2026 16:14:49 GMT

@Kent1Cooper wrote:
@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.

This topic & mentioning Tim brings me back... Thanks, Kent!

https://www.theswamp.org/index.php?topic=41461.msg465692#msg465692

Cheers