能让AUTOCAD 听话的程序

Imports Autodesk..Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Public Class wenzibiaozhu
    Dim WithEvents RC As SpeechLib.SpSharedRecoContext
    Dim myGrammar As SpeechLib.ISpeechRecoGrammar
    Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
     _
        Public Sub Ting()
        On Error Resume Next
        RC = New SpeechLib.SpSharedRecoContextClass
        myGrammar = RC.CreateGrammar
        Dim hostName As String = System.Reflection.Assembly.GetExecutingAssembly().Location
        Dim str As String = hostName.Substring(0, hostName.LastIndexOf(‘\’))
        myGrammar.CmdLoadFromFile(str & "\command.xml", SpeechLib.SpeechLoadOption.SLODynamic)
        myGrammar.DictationSetState(SpeechLib.SpeechRuleState.SGDSActive)
    End Sub
    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
        Select Case Result.PhraseInfo.GetText
            Case "镜像"
                acDoc.SendStringToExecute("_mirror ", True, False, False)
            Case Else
                MsgBox("你说的是" & Result.PhraseInfo.GetText & "，再说一遍！")
        End Select
    End Sub
End Class

uywda2vkd43.png