Solidworks VBA speech

Macro
5

Hello;

Have you tried replacing msgBoxes with " sendmsgtoUser2 "?

https://help.solidworks.com/2022/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~SendMsgToUser2.html?verRedirect=1

Kind regards.

… In the meantime I found this:

and this:

if it can help...

6

Hello
I don't want msgbox or sendmsgtoUser2 which is the same thing

I just tried the following macro, which doesn't work asynchronously weirdly

Function RobotSpeaking(sText As String) As Boolean
    On Error Resume Next
    Err.Clear
    With CreateObject("SAPI.SpVoice")
        .SVSFlagsAsync
        .Volume = 100
        .Speak sText
    End With
    RobotSpeaking = (Err.Number = 0)
End Function
7

And does it work without the asynchronous part or not?

.SVSFlagsAsync
8

with or without . SVSFlagsAsync is the same in Solidworks, the text is read synchronously

9

From what I understand it is well read, but not asynchronously and it doesn't matter if . SVSFlagsAsync is present or not.
Is that right?

10

yes that's it and when I put this macro, the message is read in VBE only (F8 key) but not with the macro button

Function RobotSpeaking(sText As String) As Boolean
    On Error Resume Next
    Err.Clear
    With CreateObject("SAPI.SpVoice")
        '.SVSFlagsAsync
        .Volume = 100
        .Speak sText, 1 'ou SVSFlagsAsync
    End With
    RobotSpeaking = (Err.Number = 0)
End Function

I try too
. Speak sText, SVSFlagsAsync = True, or false and it is read synchronously in both cases

11

I have the impression that this is the normal operation, if I replace:

  .Speak sText, 1

by:

  .Speak sText, 0

The text is well read.
With the 1 no reading because it seems that as soon as it moves to the next line of code the text is interrupted (before it has started)

This macro under SW or excel has the same operation under the 2 software so for me it doesn't come from SW


Sub speech()

Set swApp = Application.SldWorks 'Ligne à mettre ne commentaire sous excel

 
RobotSpeaking "Ceci est un essai, de texte lu par windows 10, si vous entendez le message tout en affichant le msgbox, c'est que cela fonctione"
MsgBox "Fonctionne si le message s'affiche avant la fin du texte lu"
  
End Sub

Function RobotSpeaking(sText As String) As Boolean
    On Error Resume Next
    Err.Clear
    With CreateObject("SAPI.SpVoice")
        .SVSFlagsAsync
        .Volume = 100
        .Speak sText, 1 'ou SVSFlagsAsync
    End With
    RobotSpeaking = (Err.Number = 0)
End Function
12

yet in the VBE editor with the F8 key the text is read asynchronously with ,1 or SVSFlagsAsync

13

Yes but if you quickly click on F8 as soon as you arrive on msgbox it cuts the text.
In excel these 2 codes work. One asynchronously and the other not.

Sub TalkToMe3()
Application.Speech.Speak "Excel me parle tout en affichant le message", SpeakAsync:=True
MsgBox "test"
End Sub
Sub TalkToMe4()
Application.Speech.Speak "Excel me parle puis affichele message" ', SpeakAsync:=True
MsgBox "test"
End Sub

So I guess it comes from the function used.
We will have to find an equivalent method under SW.

14

If anyone has a code idea

15

By not creating a function (code of the function directly in the sub) it reads the text well, while displaying the msgbox:

Dim swApp As Object
Sub speech()
Dim sText As String
sText = "Ceci est un essai, de texte lu par windows 10, si vous entendez le message tout en affichant le msgbox, c'est que cela fonctione"

Set swApp = Application.SldWorks
With CreateObject("SAPI.SpVoice")
        '.SVSFlagsAsync
        .Volume = 100
        .speak sText, 1 ', 1 ', 0 'ou SVSFlagsAsync
    End With
 
MsgBox "Fonctionne si le message s'affiche avant la fin du texte lu"
  
End Sub
16

I just realized something

The asynchronous read code works fine but is cut off automatically because the macro closes with end sub

So to summarize my macro should ideally read the text and let me work on solidworks

In fact, the macro doesn't have time to read the text before it closes since I don't have any other actions afterwards

So the playback would have to continue while letting me manipulate solidworks and I don't know if it's possible to export the voice command out of vba (batch...)

17

I think we should ask him to wait with WaitUntilDone

18

The problem is that it comes down to the same as if it's synchronous, which I don't want

19

I don't have the impression that it's possible.

  • Either asynchronous and at the end of the sub whether the text is finished or not it cuts. (even including the text in a function or other sub called by call or other procedure)

  • Either not asynchronous and we wait for the end of the text to move on to the next instruction.

I don't know in what frame and why exactly you want to put voice text, but personally I'm not a fan of it at all, and I much prefer the msgbox or text box that allows you to continue the instructions while displaying the text.
On macros that we launch very often, it would very quickly take my head.
And for a design office shared by 20 colleagues like us, I'm not even talking about it, the sound is cut off on all the workstations.

1 Like
20

In asynchronous programming, on .NET for example, we are obliged to give an Await statement. Otherwise, you don't wait for an asynchronous instruction to finish, and that's what makes this type of programming so meaningful.

So you need to call your SpVoice method, then run a set of tasks if you want to and then call WaitUntilDone

21

Thank you for your answers
For the moment I don't see a solution, I'm leaving it on standby

22

To sum up, you have two solutions:
Either you put WaitUntilDone before EndSub
Either you launch your function on another thread

23

@Konti in another thread, it also doesn't work because it breaks the text as soon as the function or sub called ends.
And if you run non-asynchronous, it waits for the end of the function or sub to continue.

24

I finally found

Function Msg_sonore(sText As String) As Boolean
'Permet de lire le message de manière asynchrone en passant par .vbs
Dim swApp As Object
Dim fso, Dossier, Fichier, f
Dim oWsh As Variant
Set swApp = Application.SldWorks
Set oWsh = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

Dossier = Left(swApp.GetCurrentMacroPathName, InStrRev(swApp.GetCurrentMacroPathName, "\"))
Fichier = "PART_MEP_suppr contraintes.vbs"
If Dir(Dossier & Fichier) <> "" Then fso.DeleteFile Dossier & Fichier

Set f = fso.CreateTextFile(Dossier & Fichier, True)
f.WriteLine "'Fichier temporaire, pour lecture message sonore asynchrone"
f.WriteLine "Dim speech"
f.WriteLine "Set speech = CreateObject(""SAPI.SpVoice"")"
f.WriteLine "speech.Speak """ & sText & """"
f.Close

oWsh.ShellExecute Dossier & Fichier
Set oWsh = Nothing

End Function
1 Like