Bonjour,
j'ai un petit problème pour faire une boucle.
Je programme avec leVisual Basic de CATIA V5 un logiciel de CAO.
Le code est le suivante :
Code :
'Création du texte
Dim iFontSize As Double
Dim Compteur1 As Integer
Dim Compteur2 As Integer
iFontSize = 6
For Compteur1 = 3 To 1 Step -1
For Compteur2 = 10 To 30
Set myText = myView.Texts.Add(TRef(Compteur1).Value, -50, Compteur2)
Next Compteur2
Next Compteur1
J'explique d'abord le fonctionnement de cette commande.
Par exemple : La commande Set myText = myView.Texts.Add(CATIA_V5, -50, 30) sert à mettre dans un dessin créé sous CATIA V5
le texte "CATIA_V5" au coordonnées -50mm sur X et 30mm sur Y.
Je veut donc créer du texte à différents endroits suivant une boite de dialogue qui apparaitra.
La boucle 1 prendra le texte dans les zones de texte (text box) apellées "TRef1", "TRef2" et "TRef3".
La boucle 2 fera varié l'emplacement du texte selon les coordonnées de Y.
Le problème est que je n'arrive pas à réaliser la boucle du Compteur1.
La référence Tref1, Tref2 et Tref3 ne sont pas prise en compte, par exemple au commencement de la 1ere boucle la commande prend donc cette forme :
Code :
Set myText = myView.Texts.Add(TRef(3).Value, -50, 10)
Comment faire pour prendre la valeur de la zone de texte en compte pour quelle change à chaque boucle...??
Merci d'avance pour vos réponses.
Message édité par Matthias31 le 13-03-2007 à 15:50:28
