Caps Lock

[LT.Seabee]

Is there a way to have a reactor or lisp code that would turn off/on the caps lock when doing certain routines (text, leaders, etc.)?

I know I've seen a way to do it, but am unable to find that source.
Any help will be greatly appreciated!

Harvey :???:

[matt.worland]

Mr. Peter Jamtgaard has a reactor for something like this.

[Mike.Perry]

Hi

Check out the following Submission # EX001163 by Bobby Jones on the AUGI Exchange Page -

AUGI Exchange Search Page (http://www.augi.com/exchange/search.asp?page=415)

Have a good one, Mike

[peter]

This routine will not switch the caps lock but when loaded it will convert all text to uppercase.

Peter Jamtgaard



(defun ACDBUppercase (Call Callback / objSelection)
(princ "Uppercase")
(if (not booReRun)
(progn
(setq objSelection (vlax-ename->vla-object (cadr Callback)))
(vdot objSelection)
(if (vlax-property-available-p objSelection "Textstring")
(progn
(setq lstComEndObjects (cons objSelection lstComEndObjects))
)
)
)
)
)
(defun ComEndUppercase (Call Callback)
(princ "ComEnd")
(if lstComEndObjects
(progn
(princ "In")
(foreach objSelection lstComEndObjects
(setq booReRun 'T)
(vl-catch-all-apply 'vla-put-textstring
(list objSelection
(strcase (vla-get-TextString objSelection))
)
)
(setq booReRun nil)
)
(setq lstComEndObjects nil)
)
)
)
(setq RXNAppend (vlr-acdb-reactor nil '((:vlr-objectAppended . acdbUppercase ))))
(setq RXNModified (vlr-acdb-reactor nil '((:vlr-objectModified . acdbUppercase ))))
(setq RXNCommandEnd (vlr-editor-reactor nil '((:vlr-commandEnded . ComEndUppercase ))))
(prin1)

[vahuur751]

Hi

There is Capslock.lsp included with Eric Schneider AutoLay[3.0] utility, which toggles Caps Lock on/off during any text command (using VLISP reactors and doslib.arx from McNeel). It is available from Autodesk newsgroups website (http://discussion.autodesk.com), make search for AutoLay in Customer Files group.

Vahur