Bonjour a tous,
Je cherche a creer une macro sous VB permettant de choisir des pieces mecaniques (telles que vis, ecrous,...) puis de les cacher.
Tout marche tres bien A CONDITION que j'ai deja lance precedement une recherche manuelle grace a la fonction search.
Si je n'ai pas utilise la fonction Search manuellement avant la macro la recherche ne se lance pas. Je suppose qu'il y a quelquechose a activer mais je ne trouve pas quoi.
Voici mon code:
Code :
- Sub Search
- Dim settingControllers1 As settingControllers
- Set settingControllers1 = CATIA.settingControllers
-
- Dim searchSettingAtt1 As searchSettingAtt
- Set searchSettingAtt1 = settingControllers1.Item("CATCafSearchSettingCtrl" )
-
- searchSettingAtt1.DeepSearchActivation = True
- searchSettingAtt1.Commit
- Dim productDocument1 As ProductDocument
- Set productDocument1 = CATIA.ActiveDocument
- CATIA.RefreshDisplay = False
-
- Dim selection1 As Selection
- Set selection1 = productDocument1.Selection
- ...
- selection1.Search "...,all "
- Dim selection2 As Selection
- Set selection2 = productDocument1.Selection
-
- Dim visPropertySet1 As VisPropertySet
- Set visPropertySet1 = selection2.VisProperties
- visPropertySet1.SetShow 1
- selection2.Clear
- End Sub
|
Quelqu'un aurait-il une idee de ce qui manque pour que la macro marche sans devoir lancer une recherche au demarrage ?
Merci d'avance