Bonjour
L’obectif: définir une taille de texte proportionnel à une étiquette à l’aide d’un coefficient qui redimensionnerai l’étiquette et le texte quelle contient dans l’esquisse d’une pièce.
Je vous fournis le code écris par une IA, ci-dessous :
*' Définir la hauteur de base du texte*
*Dim hauteurBase As Double = 5 ' Hauteur initiale en mm*
*Dim hauteurFinale As Double*
* *
*' Calculer la nouvelle hauteur*
*hauteurFinale = hauteurBase * CoeffMultiplicateur*
* *
*' Appliquer au texte dans l'esquisse nommée "Esquisse1"*
*Dim oDoc As PartDocument = ThisApplication.ActiveDocument*
*Dim oCompDef As PartComponentDefinition = oDoc.ComponentDefinition*
*Dim oSketch As Sketch = oCompDef.Sketches.Item("Esquisse1")*
* *
*' Parcourir les objets texte de l'esquisse*
*For Each oTextBox As TextBox In oSketch.TextBoxes*
* oTextBox.Height = hauteurFinale*
*Next*
* *
*' Mettre à jour le modèle*
*InventorVb.DocumentUpdate()*
Le problème dès que je lance la macro, inventor plante (Inventor 2022 5.2)
Je suis un ignare complet, quelqu’un serait il me corriger le code, ou me proposer un code adapter pour ce que je souhaite obtenir?
MErci d’avance
