AutoCAD Speak

[jpduhon]

Hi Terry,
I just test your code,but my cad only silence,what wrong?

first check the obvious non-cad things.
1 are your speakers plugged in and turned on?
2 make sure your speakers are plugged into the correct jack.
3 make sure your system volume is not muted and the master volume and wave are turned up

after you are sure these things are correct you move onto cad if there is still no sound.

I've seen some of the smartest people miss the simplest things.

[aaronic_abacus]

Now I'm thinking of shelling Microsoft Agent and using your program for each and every prompt!(etc.)

[Adesu]

Hi jpduhon,
Good info !!!
Thanks for your tip,it's very clear,I would test again,thanks a lot.

first check the obvious non-cad things.
1 are your speakers plugged in and turned on?
2 make sure your speakers are plugged into the correct jack.
3 make sure your system volume is not muted and the master volume and wave are turned up

after you are sure these things are correct you move onto cad if there is still no sound.

I've seen some of the smartest people miss the simplest things.

[SRBalliet]

When I do it:

Command: (setq Command_Start_Reactor (vlr-editor-reactor nil
'((:vlr-commandWillStart . Command_Start_Function ))) )
#<VLR-Editor-Reactor>

Command: (defun Command_Start_Function (ObjReactor Command-In / )
(_> (vlax-invoke (vlax-create-object "Sapi.SpVoice" ) "Speak" (car Command-In
) 0 )
(_> (vlax-release-object (vlax-create-object "Sapi.SpVoice" ) )
(_> )*Cancel*
; error: Function cancelled

Command:
Command: _line ; error: no function definition: COMMAND_START_FUNCTION
; error: no function definition: COMMAND_START_FUNCTION
Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:

I get that error message. I'm using LDD 2005. Is it a higher version thing?

[kennet.sjoberg]

When I do it: . .

Did you include the (vl-load-com) line ?

: ) Happy Computing !

kennet

Command:
Command: (setq Command_Start_Reactor (vlr-editor-reactor nil 
'((:vlr-commandWillStart . Command_Start_Function ))) )
#<VLR-Editor-Reactor>

Command: (defun Command_Start_Function (ObjReactor Command-In / )
(_>   (vlax-invoke (vlax-create-object "Sapi.SpVoice" ) "Speak" (car Command-In 
) 0 )
(_>   (vlax-release-object (vlax-create-object "Sapi.SpVoice" ) )
(_> )
COMMAND_START_FUNCTION
Command: 

[SRBalliet]

Did you include the (vl-load-com) line ?

: ) Happy Computing !

kennet

Command:
Command: (setq Command_Start_Reactor (vlr-editor-reactor nil 
'((:vlr-commandWillStart . Command_Start_Function ))) )
#<VLR-Editor-Reactor>

Command: (defun Command_Start_Function (ObjReactor Command-In / )
(_>   (vlax-invoke (vlax-create-object "Sapi.SpVoice" ) "Speak" (car Command-In 
) 0 )
(_>   (vlax-release-object (vlax-create-object "Sapi.SpVoice" ) )
(_> )
COMMAND_START_FUNCTION
Command: 

Yes, sorry I missed that on my copy and paste, but it was there. Any other idea?

[madcadder]

when copying and pasting to a command window the string has to be one long continuous string. any spaces are interpreted as an ENTER.

to me it's easier to cut-n-paste into VLIDE and load from there. Plus you have the opportunity to save to file if you want to keep it.

[Tom Beauford]

Hi Terry,
I just test your code,but my cad only silence,what wrong?

I couldn't get it to work either and found online that SAPI 5.1 is built into Windows XP and Windows Server 2003. We're using MAP 3D 2007 on Windows 2000 here which has SAPI 5.0.2602.00. Yes, my speakers work for everything else including the "Preview Voice" button in "Speech in Control Panel". Did anyone get this to work on Windows 2000?

Command: (setq Sapi (vlax-create-object "Sapi.SpVoice"))
nil
Command: (vlax-invoke sapi "Speak" "Do you want autocad speak ?" 0)
; error: bad argument type: VLA-OBJECT nil

[robert.1.hall72202]

The voice that is played isn't very loud on my speakers.
I had to turn the volume up.

Makes for some good office fun.

[SRBalliet]

Did anyone get this to work on Windows 2000?

I am using Win2000 and couldn't get it to work (see my posts below).