Pick and Speak

[aaronic_abacus]

this program speaks what is picked.

(defun c:SayIt2 ()
 (setq nent (car (nentsel "Pick words to say: ")))
 (setq nentl (entget nent))
 (setq nentv (cdr (assoc 1 nentl)))
 (setq Phrase$ nentv)
; (setq Phrase$ (getstring T "Enter string: "))
 (setq Phrase$l (strlen Phrase$))
 (if (> Phrase$l 1000) (setq Phrase$ (substr Phrase$ 1 1000)))
 (vl-load-com)
 (setq sapi (vlax-create-object "Sapi.SpVoice"))
 (vlax-invoke sapi "Speak" Phrase$ 0)
 (vlax-release-object sapi)
 (princ)
);defun c:SayIt2

[Tom Beauford]

Haven't played with this in years. http://forums.augi.com/showthread.ph...-AutoCAD-Speak

[BIG-AL]

sapi is a little slow to play but interesting for (alert "you have picked incorrect object")

[Tom Beauford]

If you're in a cubicle make sure you're using headphones or having alerts announcing all your mistakes could be embarrassing.

[aaronic_abacus]

3 damn lines and boom, cad is talking back! thanks terrycadd!

now, how about voice recognition?

[BIG-AL]

I am sorry to disappoint but voice recognition has been around for like 30 years, it is known that talking to yourself is the 1st sign of madness. Yes I have played "line" Autcad responds you pick points etc. "Save" does just that.

!@#$ is I stuffed up code word for Undo.

You need a word for Everything it is best if you train it, how many of us have rang the telephone !@$% I just want to talk to someone. Found the solution mumble.

You can still buy a digitiser, a proficient operator knew where every command was like a typist, would not look, their speed was amazing.