Message 1 of 4
Need some help with iLogic rule
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I'm trying to use iLogic to create a note on a drawing sheet and apply a certain text style to it, I'm not having much success so far. Can someone take a look at this and point me to where I messed up?
' Récupération du document de dessin actif
Dim drawingDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim feuille As Sheet = drawingDoc.ActiveSheet
' Définir le texte à insérer
Dim texte As String = "Exemple de texte"
Dim positionX As Double = 10 ' Position X du texte
Dim positionY As Double = 10 ' Position Y du texte
Dim pointInsertion As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(positionX, positionY)
' Création de la note de texte
Dim noteTexte As DrawingNote = feuille.DrawingNotes.GeneralNotes.AddFitted(pointInsertion, texte)
' Nom du style de texte à appliquer
Dim styleNom As String = "Barcode" ' Remplacez par le nom de votre style
Dim styleTexte As TextStyle = Nothing
' Recherche du style dans la liste des styles de texte
Dim styleTrouve As Boolean = False
For Each styleTexte In drawingDoc.StylesManager.TextStyles
If styleTexte.Name = styleNom Then
' Appliquer le style trouvé à la note de texte
noteTexte.TextStyle = styleTexte
styleTrouve = True
Exit For
End If
Next
' Si le style est trouvé, centrer et appliquer les autres propriétés
If styleTrouve Then
noteTexte.HorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextCenter
noteTexte.VerticalJustification = VerticalTextAlignmentEnum.kAlignTextMiddle
noteTexte.Color = ThisApplication.TransientObjects.CreateColor(0, 0, 0) ' Noir
Else
' Message si le style n'a pas été trouvé
MessageBox.Show("Le style de texte spécifié n'a pas été trouvé.", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If