Aller au contenu

bidabu

Membres
  • Compteur de contenus

    2
  • Inscription

  • Dernière visite

Réputation sur la communauté

0 Neutral

À propos de bidabu

  • Rang
    ceinture blanche
  1. bidabu

    Découpe avec Texte paramétré

    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()
  2. 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.Font
×
×
  • Créer...