bmy07 发表于 2011-3-28 15:20:26

我的也不支持中文，能用的话很不错，可以语音提示

another2121 发表于 2011-3-28 15:27:38

回复 bmy07 的帖子

想要听到中文，请参照8楼与9楼的建议。。。

lrd1861 发表于 2011-3-28 17:40:57

这个很好玩

zhongys 发表于 2011-3-28 20:23:32

有意思,CAD上可以听评书小说了

x_s_s_1 发表于 2011-3-28 22:18:16

Gu_xl 发表于 2011-3-28 14:50 static/image/common/back.gif
控制面板-》语音选项设置ScanSoftMei-Ling_Full_22kHz为默认选项试试！

这个用vilsp如何控制呢？就是如何公用化

Gu_xl 发表于 2011-3-28 22:52:03

本帖最后由 Gu_xl 于 2011-3-29 09:02 编辑

回复 x_s_s_1 的帖子


;;;VoiceList 功能：返回可用的语音声音描述
(defun VoiceList(/ sapi i VoiceLst)
(setqSapi (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
)
;;;设置朗读者,根据返回的语音声音描述列表选择朗读者
(setq voice (nth 1 (VoiceLst)))
;;;创建语音对象
(setq sapi (vlax-create-object "Sapi.SpVoice"))
;;;朗读

(vlax-invoke sapi "Speak"
(strcat "<VOICE REQUIRED='NAME=" voice "'>" "My autoCAD can speak !" )
0)

(vlax-release-object sapi)


x_s_s_1 发表于 2011-3-28 22:58:45

本帖最后由 x_s_s_1 于 2011-3-28 23:11 编辑

版主太强了，呵呵我等菜鸟六体投地，vlax-invoke是否有误，是否为vlax-invoke-method ，我用2004返回 错误: Automation 错误。未提供说明。

binliao 发表于 2011-3-29 00:11:45

没有中文语言包啊

x_s_s_1 发表于 2011-3-29 00:19:36

在8楼有链接的

another2121 发表于 2011-3-29 00:28:37

当安装完中文语音包后，怎么样用LISP程序来设置默认为中文呢？其实也就是免去从控制面板里面去设置的步骤。。。。。请版主指点指点。。。。
页: 1 [2] 3 4 5 6 7
查看完整版本: 能让AUTOCAD 说话的程序