Génération automatique de paramètre
Milou52
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je suis débutant en codage VB, mais ma question est d'ordre général je pense :
Est-ce qu'il est possible de créer un code permettant de générant automatiquement des nouveaux paramètres internes au code (et ensuite de les renommer avec un incrément), pour les utiliser par la suite ?
Le problème étant que je ne connais pas à l'avance le nombre de paramètres dont je vais avoir besoin.
Merci pour votre réponse
Je suis débutant en codage VB, mais ma question est d'ordre général je pense :
Est-ce qu'il est possible de créer un code permettant de générant automatiquement des nouveaux paramètres internes au code (et ensuite de les renommer avec un incrément), pour les utiliser par la suite ?
Le problème étant que je ne connais pas à l'avance le nombre de paramètres dont je vais avoir besoin.
Merci pour votre réponse
5 réponses
-
Bonjour,
Huuummm plus claire que ça tu meure :DD
Essaye d'expliquer un peu mieux Stp, avec un exemple concret si possible.
A+
-
J'ai besoin d'un nombre inconnu de paramètre dans un code, dans l'idéal il faudrait que je puisse avoir une boucle du type :
For i=1 to n
param.i = "création param"
Next
si n vaut 3 j'obtiendrai
param.1
param.2
param.3 -
Tes paramètres y ressemble à quoi ?
mais une piste..Sub Essais() Dim n As Integer, i As Integer Dim Param() 'pour le test n = 3 ReDim Param(n) For i = 1 To n Param(i) = "Param " & i Next i End Sub
Difficile de faire mieux sans renseignement concret.
A+
-
Puisque tu insistes je vais te mettre un morceau de code :
Sub CATMain()
[...]
'Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneOffset1)
'Dim hybridShapeIntersection1 As HybridShapeIntersection
Set hybridShapeIntersection1 = hybridShapes1.Item("Intersection.25")
'Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeIntersection1)
hybridShapeSpline1.AddPointWithConstraintExplicit reference2, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection2 As HybridShapeIntersection
Set hybridShapeIntersection2 = hybridShapes1.Item("Intersection.26")
'Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeIntersection2)
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection3 As HybridShapeIntersection
Set hybridShapeIntersection3 = hybridShapes1.Item("Intersection.27")
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
body1.InsertHybridShape hybridShapeSpline1
part1.InWorkObject = hybridShapeSpline1
part1.Update
End Sub
Je travaille sous CATIA, une fonction sert à créer une droite en reliant des points. Chaque point semble être stocké dans la variable "reference1", 2 ,3. je souhaite automatiser la sélection des points, leur nombre total est n. Je ne sais donc pas à l'avance combien créer de paramètre "référence" ... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Je te rappel que tu est dans le forum VB?
Je comprend rien à ton code.
Je laisse la place
A+
PS: ton titre aurait dû être plus clair.