modifier error handling d'une librairie
Niveau de complexité: moyen/élevé
salut à tous,
le problème que j'ai est assez complexe, mais je vais essayer d'être le + clair possible:
- Je dois modifier le message d'erreur (pour le changer et l'écrire en français) venant d'une librairie sous Catia.
- Pour la modifier, il faudrait intégrer le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| On Error GoTo LongTransaction_Error
' You may wish to set the titles once, in Sub Main.
App.OleServerBusyMsgTitle = "title"
App.OleRequestPendingMsgTitle = "APP_TITLE"
' Message texts specific to this request.
App.OleServerBusyMsgText = "The component for"
' Code to make a request and use results...
' ...
LongTransaction_Error:
If Err.Number = &H80010001 Then
MsgBox "Transaction cancelled"
Else
' Code to handle other errors.
End If
Resume LongTransaction_Cleanup
LongTransaction_Cleanup:
' Code to perform any necessary cleanup...
' ...
' Exit Sub |
Info sup:
- La librairie en question est définie par:
Code:
Set xSel = CATIA.ActiveDocument.Selection
-L'erreur apparaît au niveau de:
Code:
sStatus = xSel.SelectElement2(sFilter, "Select a " & typ, False)
N.B: j'ai déjà utilisé la partie "on error go to..." citée plus haut mais sans résultat. Il faudrait changer la gestion des erreurs de la foncion "SelectElement2".
-L'erreur est de type 448:
448 Named argument not found
Comment peut-on changer le message d'erreur de cette librairie??
Merci d'avance,
a+
Nicolas
