能让AUTOCAD 说话的程序

another2121

     刚从国外的一个网站上面发现了这个贴子，觉得比较有意思，于是便转发给大家一起分享。。。。

2. (DEFUN c:SAPI ()
   
3.   (setq sapi (vlax-create-object "Sapi.SpVoice"))
   
4.   (vlax-invoke sapi "Speak" "good !" 0)
   
5.   (vlax-invoke sapi "Speak" "ok !" 0)
   
6.   (vlax-release-object sapi)
   
7.   )
   
8. 
   

(DEFUN c:SAPI ()<br />   (setq sapi (vlax-create-object "Sapi.SpVoice"))<br />   (vlax-invoke sapi "Speak" "good !" 0)<br />   (vlax-invoke sapi "Speak" "ok !" 0)<br />   (vlax-release-object sapi)<br />   )<br /> <br />

  但是把上面那段源码放置在其它的程序中，怎么只能执行一次，以后每次都提示错误呢？

1. 
   
2. (DEFUN SAPI ()
   
3.   (setq sapi (vlax-create-object "Sapi.SpVoice"))
   
4.   (vlax-invoke sapi "Speak" "good !" 0)
   
5.   (vlax-invoke sapi "Speak" "ok !" 0)
   
6.   (vlax-release-object sapi)
   
7.   )
   
8. (defun c:tt()
   
9.    (princ (strcat "\n" (itoa 7)))
   
10.   (sapi) (princ) )
    

<br /> (DEFUN SAPI ()<br />   (setq sapi (vlax-create-object "Sapi.SpVoice"))<br />   (vlax-invoke sapi "Speak" "good !" 0)<br />   (vlax-invoke sapi "Speak" "ok !" 0)<br />   (vlax-release-object sapi)<br />   )<br /> (defun c:tt()<br />    (princ (strcat "\n" (itoa 7)))<br />   (sapi) (princ) )<br />

wide

太牛了，佩服佩服。

Gu_xl

回复 another2121 的帖子

函数名和变量名sapi重名了，修改如下：
(DEFUN SAPI (/ sapi)
  (setq sapi (vlax-create-object "Sapi.SpVoice"))
  (vlax-invoke sapi "Speak" "good !" 0)
  (vlax-invoke sapi "Speak" "ok !" 0)
  (vlax-release-object sapi)
  )

ZZXXQQ

可以说中文耶

x_s_s_1

如何说啊，没有找到中文语言包啊

Gu_xl

回复 x_s_s_1 的帖子

;利用下面的方法可查看系统支持何种语言：

(vl-registry-descendents  "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Speech\\Voices\\Tokens\\")
返回可用语言列表：如我的win7下返回值：'("MSSimplifiedChineseVoice" "MS-Lili-2052-20-DSK" "MS-Anna-1033-20-DSK")
MSSimplifiedChineseVoice（中文男声，xp和win7中同时存在）
MS-Lili-2052-20-DSK（中英文女声，win7中存在）

MS-Anna-1033-20-DSK (英文女声)

其中MS-Lili-2052-20-DSK（中英文女声，win7中存在）中文朗读效果最好！

x_s_s_1

谢谢，我返回的是("MSSam")呵呵

Gu_xl

回复 x_s_s_1 的帖子

山姆大叔是不会说中文！呵呵

x_s_s_1

我下载了一个语言包
汉语广州话：
NextUp-Nuance-Scansoft-TTS-Chinese-Cantonese-F-Sin-Ji.exe (87.76 MB)
汉语普通话：
NextUp-Nuance-Scansoft-TTS-Chinese-Mandarin-F-Mei-Linge1.exe (42.21 MB)
[NeoSpeech语音合成英语、中文朗读引擎].Neospeech.Tts.Chinese.Mandarin.-.Wang.16Khz.Voice.rar (194.78 MB)
现在返回的是("ScanSoftMei-Ling_Full_22kHz" "MSSam")
但还是无法发出中文
(vlax-dump-object sapi t)
;特性值:
;   AlertBoundary = 32
;   AudioOutput = #<VLA-OBJECT ISpeechObjectToken 0232cd90>
;   AudioOutputStream = #<VLA-OBJECT ISpeechMMSysAudio 0232cff4>
;   EventInterests = 0
;   Priority = 0
;   Rate = 0
;   Status (RO) = #<VLA-OBJECT ISpeechVoiceStatus 02326290>
;   SynchronousSpeakTimeout = 10000
;   Voice = #<VLA-OBJECT ISpeechObjectToken 023263b8>
;   Volume = 100
;支持的方法:
;   DisplayUI (4)
;   GetAudioOutputs (2)
;   GetVoices (2)
;   IsUISupported (2)
;   Pause ()
;   Resume ()
;   Skip (2)
;   Speak (2)
;   SpeakStream (2)
;   WaitUntilDone (1)

Gu_xl

控制面板-》语音选项设置ScanSoftMei-Ling_Full_22kHz为默认选项试试！

another2121

回复 Gu_xl 的帖子

谢谢版主。。。呵呵。。。。