May want to look to see what voices are available first:
;; Check for available voices in registry
(vl-registry-descendents "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Speech\\Voices\\Tokens\\")
<This is why I couldn't change the voice - I only had one voice installed /slaps forehead)
(defun C:VoiceList(/ i VoiceLst)
(setq Sapi (vlax-create-object "Sapi.SpVoice"))
(setq Voices (vlax-invoke Sapi 'GetVoices))
(setq i 0 VoiceLst '())
(repeat (vla-get-count Voices)
(setq VoiceLst (append VoiceLst
(list (vlax-invoke (vla-item Voices i) 'GetDescription))))
(setq i (1+ i))
)
;(vlax-release-object Sapi)
VoiceLst
)
VoiceList or (C:VoiceList) gives to me:
("Microsoft Mary" "Microsoft Mike" "Microsoft Sam" "Sample TTS Voice")
For sound Animations or Simulations of
five Maltese cross or Geneva mechanism (HofMalt.zip),
three Parallel mechanism(HofPar.zip),
Pulley, Valve, Bench Vice and a Hammer(HofAni1.zip) and for
exploded views of an U-bolt pipe strap and Shaft clamp(HofAni2.zip)
see:
http://forums.augi.com/showthread.php?t=55713&page=4&highlight=animationRegards,
HofCAD CSI
PS I made some modifications and additions in SpeakCfg.lsp.
For example, adding Wav sound, voice identification and warnings.
The program SpeakCfg is Using the Speech Application Programming Interface
from Microsoft Speech SDK 5.1 (
http://www.microsoft.com/downloads/") or the
speech module from Microsoft Office (Microsoft Word 2002, or Microsoft Excel 2002).