Fonction "Clic droit > Remplacer..." pour HybridShapes

Bonjour à tous !

Je pense que je n'aurais pas de réponse puisque "Vacances" !

Mais je tente quand même. At puis, y en a qui n'en ont pas de vacances...

Bref, je voudrais savoir s'il existait une ligne de code en VBA qui traduirait le "Clic droit > Remplacer", mais sur une ligne (HybridShapes)

Je sais que pour un produit, on peut écrire :

Code:

Set obj_cur_prod = CATIA.ActiveDocument.Products
Set obj000 = obj_cur_prod.ReplaceComponent(ProduitARemplacer, ProduitRemplçant, True)

Mais cela ne marche pas avec les HybridShapes.

Du coup je voudrais savoir, si vous connaîtriez par hasard l'existence d'un bout de code qui fonctionnerait avec mes HybridShapes.

D'avance merci, à plus

Une stagiaire en mousse

Pour ceux que ça intéresse, on m'a donné une solution pour contourner le problème

Il faut créer un assemblage intermédiaire. Le seul composant dans l'assemblage sera votre ligne à remplacer.

Ensuite, assurez-vous que votre géométrie finale (sa construction) repose sur l'assemblage intermédiaire.

Via code VBA, vous pouvez alors utiliser la fonction "ReplaceElement" (utilisez F1 pour plus d'info sur cette fonction)

Et si besoin, n'hésitez pas à poster ici