Command "Recognize" and error message

[Thosnow]

Hello All,

I have tried to use command "Recognize" in a VBA scrip (as seen below) to recognize a sheet metal CATPart for unfolding and I get an error message as per below picture.

CATIA.StartCommand "Recognize"
'// Press ALT and N letter to say No to cancel command "Recognize"
SendKeys "{N 1}" '// meaning Press letter N on the keyboard once. This script does not work

Error message:

How can I detect the above error message with a VBA script?
SendKeys "%(N)" '// this script tries to cancel command "Recognize" but it does not work either

In other words, what would be the right script and/or syntax to detect the above error message and cancel command "Recognize" automatically?

Your help is much appreciated.

 

[cilici]

SendKeys {ESCAPE}

?

 

[Thosnow]

Thanks for your suggestion but {ESCAPE} doesn't work. I have tried many time after running command "Recognize".

 

[cilici]

Are you sure CATIA is the active app when sending ESCAPE?

 

[Thosnow]

Yes...I am really sure CATIA app is active when press ESCAPE. I can only either press Yes or No on the little window as seen above in order to Cancel or say yes to continue

 

[cilici]

Then I'm out for CATIA API

Of course, there is WinAPI that can be used. That would be quite easy in your case: find the window with the title "Validation Error" and find the sub-windows corresponding to YES / NO buttons and click them (also by WinAPI function SendMessage).

 

[Thosnow]

I have tried to google up to see any similar WinAPI error message but have not seen anything close yet.

Could you please be more specific/detailed?

 

[cilici]

There you go. Call this sub when you want to click No

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hwndParent As Long, _
                                                    ByVal hwndChildAfter As Long, ByVal lpszClass As Long, _
                                                    ByVal lpszWindow As Any) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, _
                                                    ByVal wMsg As Long, ByVal wParam As Long, _
                                                    lParam As Any) As Long
Private Const BM_CLICK = &HF5

Private Sub ClickNo()
	Dim hValidationErrorWnd as long
	hValidationErrorWnd = FindWindow(CLng(0), "Validation error")
    
    
    	Dim hNoWnd As Long
[indent]'If you want to click Yes, change below to "&Yes"[/indent]
    	hNoWnd = FindWindowExhValidationErrorWnd, 0, 0, "&No")
    	SendMessage hNoWnd, BM_CLICK, 0, 0
End Sub

 

[Thosnow]

Thanks cilici...

Is it VBA code or VB script?

I am busy today...but I will try and let you know its result.

 

[cilici]

It works in VBA/VB6/VB.NET.

Never tried it in VBScript although it might work (no idea, not a fan of VBScript)

 

[Thosnow]

Hi cilici,

I pasted your code in VBA 6.5 and Visual Studio 2017 and lots of text lines become red as seen on picture below.

DO you have any idea?

I am using Windows 10 and VBA 6.5.

Thanks

 

[ferdo]

Hi,

If you are on 64-bit Windows architecture you need to add PtrSafe in front of Function

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[cilici]

So the syntax in your case would be:

Private Declare [b]PtrSafe[/b] Function FindWindow.....

And, obviously, there is a mistake on the last red line. It should be:

hNoWnd = FindWindowEx(hValidationErrorWnd, 0, 0, "&No")

 

[Thosnow]

Hi Fedro and Cilici...

I have modified the above code with PtrSafe but still have lots of errors as per pictures below. I have tried to figure out but no success yet. Please help

*** My code in Visual Studio 2017 Community

*** Error list

Your help is much appreciated and have a great day.

 

[cilici]

Thosnow,

the code works in all aforementioned IDEs but not entirely the same (e.g. 'long' in VS should be 'integer' type, PtrSafe is only if you run VBA on 64bits and so on)

Here are the declarations for VS:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, _
                                                        ByVal wMsg As Integer, ByVal wParam As Integer, _
                                                        ByVal lParam As String) As Integer

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
                                                (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As Integer, ByVal lpsz2 As String) As Integer

If you can't handle FROM here, you shouldn't use VS.

Good luck!