能让AUTOCAD 说话的程序

bmy07

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

another2121

回复 bmy07 的帖子

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

lrd1861

这个很好玩

zhongys

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

x_s_s_1

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

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

Gu_xl

回复 x_s_s_1 的帖子

1. ;;;VoiceList 功能：返回可用的语音声音描述
   
2. (defun VoiceList(/ sapi i VoiceLst)
   
3. (setq  Sapi (vlax-create-object "Sapi.SpVoice"))
   
4. (setq Voices (vlax-invoke Sapi 'GetVoices))
   
5. (setq i 0 VoiceLst '())
   
6. (repeat (vla-get-count Voices)
   
7. (setq VoiceLst (append VoiceLst
   
8. (list (vlax-invoke (vla-item Voices i) 'GetDescription))))
   
9.   ;
   
10. (setq i (1+ i))
    
11. )
    
12. (vlax-release-object Sapi)
    
13. VoiceLst
    
14. )
    
15. ;;;设置朗读者,根据返回的语音声音描述列表选择朗读者
    
16. (setq voice (nth 1 (VoiceLst)))
    
17. ;;;创建语音对象
    
18. (setq sapi (vlax-create-object "Sapi.SpVoice"))
    
19. ;;;朗读
    
20. 
    
21.   (vlax-invoke sapi "Speak"
    
22. (strcat "<VOICE REQUIRED='NAME=" voice "'>" "My autoCAD can speak !" )
    
23. 0)
    
24. 
    
25.   (vlax-release-object sapi)
    

;;;VoiceList 功能：返回可用的语音声音描述<br /> (defun VoiceList(/ sapi i VoiceLst)<br /> (setq  Sapi (vlax-create-object "Sapi.SpVoice"))<br /> (setq Voices (vlax-invoke Sapi 'GetVoices))<br /> (setq i 0 VoiceLst '())<br /> (repeat (vla-get-count Voices)<br /> (setq VoiceLst (append VoiceLst <br /> (list (vlax-invoke (vla-item Voices i) 'GetDescription))))<br />   ;<br /> (setq i (1+ i))<br /> )<br /> (vlax-release-object Sapi)<br /> VoiceLst<br /> )<br /> ;;;设置朗读者,根据返回的语音声音描述列表选择朗读者<br /> (setq voice (nth 1 (VoiceLst)))<br /> ;;;创建语音对象<br /> (setq sapi (vlax-create-object "Sapi.SpVoice"))<br /> ;;;朗读<br /> <br />   (vlax-invoke sapi "Speak" <br /> (strcat "<VOICE REQUIRED='NAME=" voice "'>" "My autoCAD can speak !" ) <br /> 0)<br /> <br />   (vlax-release-object sapi)<br />

x_s_s_1

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

binliao

没有中文语言包啊

x_s_s_1

在8楼有链接的

another2121

当安装完中文语音包后，怎么样用LISP程序来设置默认为中文呢？其实也就是免去从控制面板里面去设置的步骤。。。。。请版主指点指点。。。。