Voice Assistant for portable arms

[Murguel]

I really start to love CMM Manager. Just implemented a voice assistant, what I would like to share with you guys.

For those wo are measuring with protable arms and do not want to permanently watch the Status Bar or Measurement Dialog to see which element comes next:

Code: Select all

SpeakText = "Measure Circle 1 with 4 points without plane "
'
'* The next two rows should exist in the first script.
'* If you want to use this script multiple times, then remove
'* the next two lines in the following scripts
'
Dim sapi
Set sapi=CreateObject("sapi.spvoice")
'
'* This is the main function. This has to remain in all further scripts
'
sapi.Speak SpeakText

Good luck with. For me it is not just a nice gimmick... it really assists during the measurement.

[medupriest]

Very nice. Thank you for the contribution.

[CrashN8]

This is great! Yes, thank you for the contribution. I will make this post sticky.
Note: You can also change the voice by adding the following line to VBScript:

Set sapi.Voice = sapi.GetVoices.Item(1)

Code: Select all

SpeakText = "Hello World.  This is a voice synthesizer test."
'
'* The next two rows should exist in the first script.
'* If you want to use this script multiple times, then remove
'* the next two lines in the following scripts
'
Dim sapi
Set sapi=CreateObject("sapi.spvoice")
Set sapi.Voice = sapi.GetVoices.Item(1)

'
'* This is the main function. This has to remain in all further scripts
'
sapi.Speak SpeakText

[Murguel]

Thank you too. Now I can switch between German and English Great.

[CrashN8]

Update that includes use of InputBox(), Voice Rate, and Volume:

Code: Select all

dim speechobject
dim response

response = inputbox("Enter Text To Speak")

Set VObj = CreateObject("SAPI.SpVoice")
   with VObj
       Set .voice = .getvoices.item(0)
       .Volume = 100
       .Rate = 1
   end with

set speechobject=VObj
speechobject.speak response