能让AUTOCAD 听话的程序

zlg258369

别人发了个说话的，我发个听话的。

1. Imports Autodesk.AutoCAD.Runtime
   
2. Imports Autodesk.AutoCAD.ApplicationServices
   
3. Imports Autodesk.AutoCAD.DatabaseServices
   
4. 
   
5. 
   
6. Public Class wenzibiaozhu
   
7. 
   
8.     Dim WithEvents RC As SpeechLib.SpSharedRecoContext
   
9.     Dim myGrammar As SpeechLib.ISpeechRecoGrammar
   
10.     Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    
11. 
    
12.     <CommandMethod("TH")> _
    
13.         Public Sub Ting()
    
14. 
    
15.         On Error Resume Next
    
16.         RC = New SpeechLib.SpSharedRecoContextClass
    
17.         myGrammar = RC.CreateGrammar
    
18.         Dim hostName As String = System.Reflection.Assembly.GetExecutingAssembly().Location
    
19.         Dim str As String = hostName.Substring(0, hostName.LastIndexOf(‘\’))
    
20. 
    
21.         myGrammar.CmdLoadFromFile(str & "\command.xml", SpeechLib.SpeechLoadOption.SLODynamic)
    
22.         myGrammar.DictationSetState(SpeechLib.SpeechRuleState.SGDSActive)
    
23. 
    
24.     End Sub
    
25. 
    
26.     Private Sub RC_Recognition1(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult) Handles RC.Recognition
    
27. 
    
28.         Select Case Result.PhraseInfo.GetText
    
29.             Case "镜像"
    
30.                 acDoc.SendStringToExecute("_mirror ", True, False, False)
    
31. 
    
32.             Case Else
    
33. 
    
34.                 MsgBox("你说的是" & Result.PhraseInfo.GetText & "，再说一遍！")
    
35. 
    
36.         End Select
    
37.     End Sub
    
38. 
    
39. End Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Runtime<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> <br /> <br /> Public Class wenzibiaozhu<br /> <br />     Dim WithEvents RC As SpeechLib.SpSharedRecoContext<br />     Dim myGrammar As SpeechLib.ISpeechRecoGrammar<br />     Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br /> <br />     <CommandMethod("TH")> _<br />         Public Sub Ting()<br /> <br />         On Error Resume Next<br />         RC = New SpeechLib.SpSharedRecoContextClass<br />         myGrammar = RC.CreateGrammar<br />         Dim hostName As String = System.Reflection.Assembly.GetExecutingAssembly().Location<br />         Dim str As String = hostName.Substring(0, hostName.LastIndexOf(‘\’))<br /> <br />         myGrammar.CmdLoadFromFile(str & "\command.xml", SpeechLib.SpeechLoadOption.SLODynamic)<br />         myGrammar.DictationSetState(SpeechLib.SpeechRuleState.SGDSActive)<br /> <br />     End Sub<br /> <br />     Private Sub RC_Recognition1(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult) Handles RC.Recognition<br /> <br />         Select Case Result.PhraseInfo.GetText<br />             Case "镜像"<br />                 acDoc.SendStringToExecute("_mirror ", True, False, False)<br /> <br />             Case Else<br /> <br />                 MsgBox("你说的是" & Result.PhraseInfo.GetText & "，再说一遍！")<br /> <br />         End Select<br />     End Sub<br /> <br /> End Class

只包含一个命令


该贴已经同步到 zlg258369的微博

nxy_918

晕！！！！

kwok

牛..............

no13bus

利用spi类库

aziz

一楼代码有错误

zlg258369

aziz 发表于 2011-10-25 10:19
一楼代码有错误

在我这是没问题滴

cabinsummer

aziz 发表于 2011-10-25 10:19
一楼代码有错误

有错误就指出在哪里，怎么改。

aziz

不好意思，我看错了的。没装.NET