besoin d\'éclairage sur la signification d\'un script

[william31]

Bonjour,

 

J'aimerais savoir si quelqu'un pouvait m'aider à comprendre un morceau de script (permettant la selection d'un plan puis l'ouverture d'une esquisse dans ce dernier), et plus particulièrement la variable arrayofvariantofdouble....

 

Merci d'avance et bonne journée à vous...

 

voici le morceau de script :

 

 Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromName("Selection_RSur:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());AxisSystem.1;Z0;G1611)")

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0#
arrayOfVariantOfDouble1(1) = 0#
arrayOfVariantOfDouble1(2) = 0#
arrayOfVariantOfDouble1(3) = 0#
arrayOfVariantOfDouble1(4) = 1#
arrayOfVariantOfDouble1(5) = 0#
arrayOfVariantOfDouble1(6) = 0#
arrayOfVariantOfDouble1(7) = 0#
arrayOfVariantOfDouble1(8) = 1#
Set sketch1Variant = sketch1
sketch1Variant.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition() 

[naurel]

salut

 

Dim sketch1 As Sketch

Set sketch1 = sketches1.Add(reference1)

 

ces deux lignes permettent d'ajouter une esquisse dans la collection d'esquisse, l'esquisse s'appuie sur une reference (reference1, ton plan qui est defini avant).

 

Dim arrayOfVariantOfDouble1(8)

arrayOfVariantOfDouble1(0) = 0#

arrayOfVariantOfDouble1(1) = 0#

arrayOfVariantOfDouble1(2) = 0#

arrayOfVariantOfDouble1(3) = 0#

arrayOfVariantOfDouble1(4) = 1#

arrayOfVariantOfDouble1(5) = 0#

arrayOfVariantOfDouble1(6) = 0#

arrayOfVariantOfDouble1(7) = 0#

arrayOfVariantOfDouble1(8) = 1#

Set sketch1Variant = sketch1

sketch1Variant.SetAbsoluteAxisData arrayOfVariantOfDouble1

 

tout ça concerne l'orientation de l'esquisse (du systeme d'axe) où la variable arrayofvariantofdouble contient les informations, je ne connais pas la signification de chaque index mais il y a la les coordonnées sur x,y et z ainsi que l'angle sur x,y et z, ...

 

part1.InWorkObject = sketch1

 

Dim factory2D1 As Factory2D

Set factory2D1 = sketch1.OpenEdition()

 

Enfin les trois dernières permettent de définir l'esquisse comme objet de travail et de l'ouvrir.

 

 

voila, je ne suis pas sur de tout, donc si quelqu'un pouvait confirmer.

 

a plus, naurel

[Matthias31]

merci Naurel... informations très utiles