another2121 发表于 2011-3-28 11:15:05

能让AUTOCAD 说话的程序

   刚从国外的一个网站上面发现了这个贴子，觉得比较有意思，于是便转发给大家一起分享。。。。
(DEFUN c:SAPI ()
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "good !" 0)
(vlax-invoke sapi "Speak" "ok !" 0)
(vlax-release-object sapi)
)


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

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

wide 发表于 2018-9-5 21:25:33

太牛了，佩服佩服。

Gu_xl 发表于 2011-3-28 11:30:00

回复 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 发表于 2011-3-28 13:46:49

可以说中文耶

x_s_s_1 发表于 2011-3-28 14:02:36

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

Gu_xl 发表于 2011-3-28 14:07:25

回复 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 发表于 2011-3-28 14:17:51

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

Gu_xl 发表于 2011-3-28 14:21:44

回复 x_s_s_1 的帖子

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

x_s_s_1 发表于 2011-3-28 14:36:17

本帖最后由 x_s_s_1 于 2011-3-28 14:43 编辑

我下载了一个语言包
汉语广州话：
ed2k://|file|NextUp-Nuance-Scansoft-TTS-Chinese-Cantonese-F-Sin-Ji.exe|92018745|5782A129B18D79A0657DFE41B8033127|/
汉语普通话：
ed2k://|file|NextUp-Nuance-Scansoft-TTS-Chinese-Mandarin-F-Mei-Linge1.exe|44255325|1B6AC9B98EE9A59AAFE2C127E4432436|/
ed2k://|file|.Neospeech.Tts.Chinese.Mandarin.-.Wang.16Khz.Voice.rar|204243552|1610AB8D85CF1590205053163F1A9094|/
现在返回的是("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 发表于 2011-3-28 14:50:18

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

another2121 发表于 2011-3-28 15:10:17

回复 Gu_xl 的帖子

谢谢版主。。。呵呵。。。。
页: [1] 2 3 4 5 6 7
查看完整版本: 能让AUTOCAD 说话的程序