[原创]：让默林来帮你说话

wujimmy

我准备把这个功能加到CADQQ当中去,这样收到信息就可以用这个来提示了

默林是什么?下面有个例子
(要用ie打开才可以,不知道为什么,用myie打开不成功)
http://www.wujimmy.com/lbs/uploads/200604/29_221401_test.html

2. 
   
3.   [FONT=courier new]
   
4. (defun c:merlin()
   
5.   
   
6.   (if objAgent
   
7. (setq objAgent (vlax-create-object "Agent.Control")))
   
8. 
   
9. (vlax-put-property objAgent  "Connected"  :vlax-true)
   
10. (vlax-get-property objAgent  "Connected" )
    
11. (setq objCharacters (vlax-get-property objAgent  "Characters"))
    
12. (setq LoadReq (vlax-invoke-method objCharacters 'Load "Merlin" "Merlin.acs"))
    
13. (setq Merlin (vlax-invoke-method objCharacters 'Character "Merlin"))
    
14. (vlax-put-property Merlin "LanguageID" 1033)
    
15. 
    
16. (if (eq 1 (vlax-get-property LoadReq  "Status"))
    
17.   (progn
    
18. (setq LoadReq (vlax-invoke-method objCharacters 'Load "Merlin" "http://agent.microsoft.com/agent2/chars/Merlin/Merlin.acf"))
    
19. ))
    
20. 
    
21. (progn
    
22.   (vlax-invoke-method Merlin 'MoveTo 0 0 0)
    
23.   (vlax-invoke-method Merlin 'Show)
    
24.   (vlax-invoke-method Merlin 'Play "GetAttention")
    
25.   (vlax-invoke-method Merlin 'Play "GetAttentionContinued")
    
26.   (vlax-invoke-method Merlin 'Play "GetAttentionReturn")
    
27.   (vlax-invoke-method Merlin 'MoveTo 800 500 0)
    
28.   (vlax-invoke-method Merlin 'Play "Greet")
    
29.   (vlax-invoke-method Merlin 'Play "Announce")
    
30.   (vlax-invoke-method Merlin 'Speak "您有新邮件了！")
    
31.   (vlax-invoke-method Merlin 'Play "Read")
    
32.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
33.   
    
34.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
35.   (vlax-invoke-method Merlin 'Play "WriteContinued")
    
36.   (vlax-invoke-method Merlin 'Play "WriteReturn")
    
37.   (vlax-invoke-method Merlin 'Play "Blink")
    
38.   (vlax-invoke-method Merlin 'Speak "一会见！")
    
39.   (vlax-invoke-method Merlin 'Play "Wave")
    
40.   (vlax-invoke-method Merlin 'Hide)
    
41.   )
    
42. 
    
43. ;;;(vlax-release-object objAgent)
    
44. 
    
45. )
    
46.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:merlin()<br />   <br />   (if objAgent<br /> (setq objAgent (vlax-create-object "Agent.Control")))<br /> <br /> (vlax-put-property objAgent  "Connected"  :vlax-true)<br /> (vlax-get-property objAgent  "Connected" )<br /> (setq objCharacters (vlax-get-property objAgent  "Characters"))<br /> (setq LoadReq (vlax-invoke-method objCharacters 'Load "Merlin" "Merlin.acs"))<br /> (setq Merlin (vlax-invoke-method objCharacters 'Character "Merlin"))<br /> (vlax-put-property Merlin "LanguageID" 1033)<br /> <br /> (if (eq 1 (vlax-get-property LoadReq  "Status"))<br />   (progn<br /> (setq LoadReq (vlax-invoke-method objCharacters 'Load "Merlin" "http://agent.microsoft.com/agent2/chars/Merlin/Merlin.acf"))<br /> ))<br /> <br /> (progn<br />   (vlax-invoke-method Merlin 'MoveTo 0 0 0)<br />   (vlax-invoke-method Merlin 'Show)<br />   (vlax-invoke-method Merlin 'Play "GetAttention")<br />   (vlax-invoke-method Merlin 'Play "GetAttentionContinued")<br />   (vlax-invoke-method Merlin 'Play "GetAttentionReturn")<br />   (vlax-invoke-method Merlin 'MoveTo 800 500 0)<br />   (vlax-invoke-method Merlin 'Play "Greet")<br />   (vlax-invoke-method Merlin 'Play "Announce")<br />   (vlax-invoke-method Merlin 'Speak "您有新邮件了！")<br />   (vlax-invoke-method Merlin 'Play "Read")<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   <br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (vlax-invoke-method Merlin 'Play "WriteContinued")<br />   (vlax-invoke-method Merlin 'Play "WriteReturn")<br />   (vlax-invoke-method Merlin 'Play "Blink")<br />   (vlax-invoke-method Merlin 'Speak "一会见！")<br />   (vlax-invoke-method Merlin 'Play "Wave")<br />   (vlax-invoke-method Merlin 'Hide)<br />   )<br /> <br /> ;;;(vlax-release-object objAgent)<br /> <br /> )<br />   [/FONT]<br />

雨箭风刀

是个什么冬冬？有没有演示？

wujimmy

下面的附件打开就可以看到演示了
记得要用ie打开,用别的打开没有用

snsj

wujimmy 的东西总能让人眼前一亮，谢谢wujimmy 的程序，非常好的东西

snoopychen

jimmy兄很善于利用其他语言来扩展lisp功能（若我理解不对请别笑我），佩服的很，值得好好学习
要是演示可以用诸如gif.gif.gif的软件来抓屏就更明了了：）

zhang8755

不知道楼主的关于角色的属性和方法是从哪里找到的？如果我想换成其他角色，比如孙悟空，如何找到他的属性和方法的说明呢？

wujimmy

http://www.microsoft.com/msagent/downloads/user.asp

2. 
   
3. Microsoft Agent character files
   
4. You can use the following character files with Microsoft Agent. Note that which characters appear may depend on the application or web page you are using.
   
5. 
   
6. Select a characterGenie(1.6 MB exe)Merlin (1.8 MB exe)Peedy(3.3 MB exe)Robby (2.2 MB exe)
   
7. 
   

<br /> Microsoft Agent character files<br /> You can use the following character files with Microsoft Agent. Note that which characters appear may depend on the application or web page you are using. <br /> <br /> Select a characterGenie(1.6 MB exe)Merlin (1.8 MB exe)Peedy(3.3 MB exe)Robby (2.2 MB exe) <br /> <br />

http://download.microsoft.com/do ... fadf588e7/Peedy.exe

2. 
   
3. (defun c:Peedy()  
   
4. 
   
5. (setq objAgent (vlax-create-object "Agent.Control"))
   
6. 
   
7. (vlax-put-property objAgent  "Connected"  :vlax-true)
   
8. (vlax-get-property objAgent  "Connected" )
   
9. (setq objCharacters (vlax-get-property objAgent  "Characters"))
   
10. (setq LoadReq (vlax-invoke-method objCharacters 'Load "Peedy" "Peedy.acs"))
    
11. (setq Peedy (vlax-invoke-method objCharacters 'Character "Peedy"))
    
12. (vlax-put-property Peedy "LanguageID" 1033)
    
13. 
    
14. (if (eq 1 (vlax-get-property LoadReq  "Status"))
    
15.   (progn
    
16. (setq LoadReq (vlax-invoke-method objCharacters 'Load "Peedy" "http://agent.microsoft.com/agent2/chars/Peedy/Peedy.acf"))
    
17. ))
    
18. 
    
19. (progn
    
20.   (vlax-invoke-method Peedy 'MoveTo 0 0 0)
    
21.   (vlax-invoke-method Peedy 'Show)
    
22.   (vlax-invoke-method Peedy 'Play "GetAttention")
    
23.   (vlax-invoke-method Peedy 'Play "GetAttentionContinued")
    
24.   (vlax-invoke-method Peedy 'Play "GetAttentionReturn")
    
25.   (vlax-invoke-method Peedy 'MoveTo 800 500 0)
    
26.   (vlax-invoke-method Peedy 'Play "Greet")
    
27.   (vlax-invoke-method Peedy 'Play "Announce")
    
28.   (vlax-invoke-method Peedy 'Speak "您有新邮件了！")
    
29.   (vlax-invoke-method Peedy 'Play "Read")
    
30.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
31.   
    
32.   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
33.   (vlax-invoke-method Peedy 'Play "WriteContinued")
    
34.   (vlax-invoke-method Peedy 'Play "WriteReturn")
    
35.   (vlax-invoke-method Peedy 'Play "Blink")
    
36.   (vlax-invoke-method Peedy 'Speak "一会见！")
    
37.   (vlax-invoke-method Peedy 'Play "Wave")
    
38.   (vlax-invoke-method Peedy 'Hide)
    
39.   )
    
40. 
    
41. ;;;(vlax-release-object objAgent)
    
42. 
    
43. )
    

<br /> (defun c:Peedy()  <br /> <br /> (setq objAgent (vlax-create-object "Agent.Control"))<br /> <br /> (vlax-put-property objAgent  "Connected"  :vlax-true)<br /> (vlax-get-property objAgent  "Connected" )<br /> (setq objCharacters (vlax-get-property objAgent  "Characters"))<br /> (setq LoadReq (vlax-invoke-method objCharacters 'Load "Peedy" "Peedy.acs"))<br /> (setq Peedy (vlax-invoke-method objCharacters 'Character "Peedy"))<br /> (vlax-put-property Peedy "LanguageID" 1033)<br /> <br /> (if (eq 1 (vlax-get-property LoadReq  "Status"))<br />   (progn<br /> (setq LoadReq (vlax-invoke-method objCharacters 'Load "Peedy" "http://agent.microsoft.com/agent2/chars/Peedy/Peedy.acf"))<br /> ))<br /> <br /> (progn<br />   (vlax-invoke-method Peedy 'MoveTo 0 0 0)<br />   (vlax-invoke-method Peedy 'Show)<br />   (vlax-invoke-method Peedy 'Play "GetAttention")<br />   (vlax-invoke-method Peedy 'Play "GetAttentionContinued")<br />   (vlax-invoke-method Peedy 'Play "GetAttentionReturn")<br />   (vlax-invoke-method Peedy 'MoveTo 800 500 0)<br />   (vlax-invoke-method Peedy 'Play "Greet")<br />   (vlax-invoke-method Peedy 'Play "Announce")<br />   (vlax-invoke-method Peedy 'Speak "您有新邮件了！")<br />   (vlax-invoke-method Peedy 'Play "Read")<br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   <br />   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (vlax-invoke-method Peedy 'Play "WriteContinued")<br />   (vlax-invoke-method Peedy 'Play "WriteReturn")<br />   (vlax-invoke-method Peedy 'Play "Blink")<br />   (vlax-invoke-method Peedy 'Speak "一会见！")<br />   (vlax-invoke-method Peedy 'Play "Wave")<br />   (vlax-invoke-method Peedy 'Hide)<br />   )<br /> <br /> ;;;(vlax-release-object objAgent)<br /> <br /> )<br />

zhang8755

我的电脑上安装了office 2003后，就有MNKYKING.ACS 孙悟空的角色文件，可以利用你的代码调出来，但是没法让他做动作，比如下面这三句都不支持。
  (vlax-invoke-method Peedy 'Play "GetAttention")
  (vlax-invoke-method Peedy 'Play "GetAttentionContinued")
  (vlax-invoke-method Peedy 'Play "GetAttentionReturn")
如何知道孙悟空的用法呢？

wujimmy

你把其中的 Peedy全部替换成Mnkyking试一下看可不可以
注意大小写可以有关系.

zhang8755

不行，只能调出来，不能做动作，speak 可以用，其他的不知道怎能用

snoopychen

今天，在theswamp也看到一篇关于发音的讨论，不过讲不了中文：）
http://www.theswamp.org/index.php?topic=14549.0;all
Patrick_35

2. 
   
3. (setq sapi (vlax-create-object "Sapi.SpVoice"))
   
4. (vlax-invoke sapi "Speak" "Do you want autocad speak ?" 0)
   
5. (vlax-release-object sapi)
   

<br /> (setq sapi (vlax-create-object "Sapi.SpVoice"))<br /> (vlax-invoke sapi "Speak" "Do you want autocad speak ?" 0)<br /> (vlax-release-object sapi)<br />

armyguy

wujimmy，能不能把源码帖出来？

hithappy

没看懂是啥东西

791221ni

收到信息怎样使用这个来提示，楼主已经写出程序了吗？可以让我学习下吗？谢谢！

tianquan3

好东西好东西。