Problème d\'association variables et paramètres

[RaoulDucable]

Bonjour à tous.

 

Dans l'extrait de script suivant, je cherche à associer une variable (saisie par un InputBox) à un paramètre situé dans un CATProduct. Mon problème est que cette association ne fonctionne pas.

 

Dim MaVarialble As Integer

 

Do

MaVarialble = InputBox("Entrez la longueur.")

Loop Until (UCase(MaVarialble) <> "")

 

Dim arrayOfVariantOfBSTR1(0)

arrayOfVariantOfBSTR2(0) = dirname & MonProduct

products1.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"

 

product1.ApplyWorkMode DESIGN_MODE

 

Dim product1 As Product

Set product1 = products1.Item(MonProduct & ".1")

 

Dim products1 As Product

Set products1 = product1.Products

 

product1.Update

 

Dim length1 As Lenght (ou Parameter)

 

Dim parameters1 As Parameters

Set parameters1 = product1.Parameters

 

Set length1 = parameters1.Item("MonParametre")

[surligneur] length1.value = MaVariable[/surligneur]

 

-------------------------------------------------------------------

 

ScriptingERR_1002

 

Source: CATIALength

Description: La méthode Value a échouée

 

Quelqu’un a-t-il rencontré et résolu ce problème.

 

Merci d'avance

 

[8_pool]

Vite fait comme ça, ça pourrait être un pb d'unité.

Ca arrive assez souvent dans les formules en intéractif. Je regarderais demain plus en détail.

[RaoulDucable]

Merci 8_pool

 

Pour plus d'info je peux mettre tout le script (certe assez long !)

 

 

[RaoulDucable]

Pour info :

 

Déclaration de la variable par un "InputBox" :

 

Dim MaVariable1 As Integer (par exemple)

MaVariable1 = InputBox("Texte de la boîte de dialogue", "nom de la fenêtre", MaVariable1)

 

Déclaration de la variable associé à un paramètre du CATProduct principal :

Dim MaVariable2 As Dimension (par exemple)

Set MaVariable2 = parameters1.Item("MonParamètre1")

 

Association de la variable au paramètre :

MaVariable2.value = MaVariable1

 

Déclaration de la variable associé à un paramètre du CATProduct secondaire :

Dim MaVariable3 As Dimension (par exemple)

Set MaVariable3 = parameters1.Item("MonParamètre2")

 

Création d'une formule entre le CATProduct principal et un CATProduct secondaire

Dim relations1 As Relations

Set relations1 = product1.Relations

 

Dim formula1 As Formula

Set formula1 = relations1.CreateFormula("Formule.1", "", MaVariable3, "`MonParamètre1`")

 

formula1.Rename "Formule.1"

formula1.activate

 

Raoul