Drawing: Modifier la taille de caractère de la valeur d'une côte

Bonjour à tous !

Par hasard, quelqu'un saurait comment changer la taille de la valeur d'une côte dans un draw?

Je suis parti sur un code de ce genre:

Code:

Dim doc As DrawingDocument
Dim view As DrawingView
Dim selection As selection
Dim dimensions As DrawingDimensions
Dim dimension As DrawingDimension

Dim nbDimensions As Integer

Set doc = CATIA.ActiveDocument
Set view = doc.sheets.ActiveSheet.views.ActiveView
Set dimensions = view.dimensions
Set selection = doc.selection

nbDimensions = dimensions.Count

selection.Clear

For i = 1 To nbDimensions

    Set dimension = dimensions.Item(i)
    selection.Add dimension.GetValue

    'Ici j'ai essayé des trucs, en vain.

    selection.VisProperties
    selection.Clear
Next i

Merci !

Bonjour,
essaye ça pour voir
Sel.VisProperties.SetRealColor 0, 0, 255, 0
sel est un objet selection

Bonjour,

Merci mais SetRealColor sert à changer la couleur, cependant je souhaite changer la taille de la côte

ah oui dsl je me suis trompée je voulais plutôt mettre
SetRealWidth

Je l'avais déjà testé celui là, il sert à modifier l'épaisseur du trait de côte...
Je voudrais modifier la police de la valeur (la taille du texte) en fait, mais je commence à croire que c'est impossible par l'intermédiaire d'une macro haha

j'ai trouvé kelke chose je pense que cela pourrait faire ton affaire
Property FontSize( ) As double

Returns or sets the font size of the drawing text.
Example:
This example sets the MyText drawing text font size to 3.5.
iFontSize = 3.5
MyText.SetFontSize 0, 0, iFontSize

u déclare ton text comme un drawing text
essaye d'explorer cette solution

J'ai bien peur que cela ne fonctionnera pas, un DrawingDimension n'étant pas considéré comme un DrawingText.

J'ai essayé pourtant d'utiliser FontSize sur un DrawingDimension, mais hélas sans succès...

regarde au niveau de la propriété forshortened

Code:

o Property Forshortened( ) As boolean 

Returns or sets foreshortened mode or not.
Example:
This example retrieves foreshortened mode or not MyDimension drawing dimension.
 oForsh = MyDimension.Forshortened
 


Dejà merci pour votre aide

Xorman, j'ai essayé d'utiliser cette propriété, cependant je ne sais pas à quoi elle sert... Apparemment Foreshortened veut dire Raccourci, mais je ne sais pas à quoi ça peut servir sur un Dimension...

Peut être pourrais-tu m'en dire plus? Merci

Ok j'ai trouvé à quoi sert la propriété Forshortened d'une Dimension, il sert à raccourcir une côte de type rayon, mais en aucun cas à modifier la police de cette côte...

Au passage, cette propriété fait planter mon Catia!