bidabu

Bonjour, vous pouvez créer un paramètre utilisateur de type texte.(ici que j'ai nommé texte_a_graver) dans votre esquisse, lier le texte à ce paramètre. dans votre esquisse, lier le texte à ce paramètre. et créer une règle toute simple pour lier à votre fichier Excel : texte_a_graver = GoExcel.CellValue("Classeur1.xlsx", "Feuil1", "D2") RuleParametersOutput() InventorVb.DocumentUpdate()

bonjour, vous pouvez créer une nouvelle règle et tester ceci (j'ai volontairement mis des valeurs farfelues): Public Sub Main() Dim oDoc As Document oDoc = ThisDoc.Document If oDoc.DocumentType = kDrawingDocumentObject Then Dim oDStyle As DimensionStyle oDStyle = oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults.LinearDimensionStyle Dim sFontSize As String sFontSize = oDStyle.TextStyle.FontSize If ActiveSheet.Size="A4" Then oDStyle.TextStyle.FontSize = 0.25 End If If ActiveSheet.Size="A3" Then oDStyle.TextStyle.FontSize = 2 End If If ActiveSheet.Size="A2" Then oDStyle.TextStyle.FontSize = 2 End If If ActiveSheet.Size="A1" Then oDStyle.TextStyle.FontSize = 5 End If If ActiveSheet.Size="A0" Then oDStyle.TextStyle.FontSize = 10 End If Else MessageBox.Show("Cette règle ne peut s'exécuter que dans une mise en plan", "Message d'avertissement", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1) Return End If End Sub