J'ai besoin de votre aide pour utiliser correctement CATIA.

Je suis actuellement chargé de créer une pièce «support» pour un moule où une vis d'assemblage doit être insérée (quelle que soit sa longueur) d'un maximum de 15 mm. La longueur de la vis d'assemblage insérée dépend d'une plaque située au-dessus de la pièce de support. Dans Excel, j'ai créé plusieurs formules qui déterminent quelle vis d'assemblage doit être utilisée mais je ne sais pas comment utiliser les formules Excel dans VBA. Existe-t-il un moyen d'utiliser des formules Excel ou même des feuilles de calcul dans VBA?

'declaration of X as "Height of Plate 9"
Dim X As Integer
X = length1.Value

'declaration of Y as the result for the optimal length of the CapScrew to be used
Dim Y As Integer
Y = 0

 'Formula for the length of the CapScrew to be used
If (designTable1.Configuration <= 15) = True Then
    Y = X - 10 - 1 + 15
    designTable2.Configuration = Y
Else
    Y = X - 12 - 1 + 15
    designTable2.Configuration = Y
End If
0
Castella 15 août 2017 à 01:55

2 réponses

Meilleure réponse

Essayer:

Application.WorksheetFunction.YourFunction(YourArguments)

Cependant, il existe souvent une meilleure solution que d'utiliser les fonctions de feuille de calcul dans VBA.

0
Olly 15 août 2017 à 10:34

Grâce à la suggestion de @ Olly, j'ai pu trouver la bonne formule pour mon problème.

Pour que la formule fonctionne, j'ai créé une colonne dans la table de conception Capscrew que j'ai appelée SuporteCheck. Les valeurs de la colonne (qui correspondaient aux rangées des vis souhaitées M10 et M12) étaient le résultat de la formule: Hauteur de la plaque 9 - Longueur de la cavité dans la plaque 9 - Hauteur de la tête de la vis d'assemblage + Longueur de la cavité dans le support. Ensuite, j'ai utilisé la formule ci-dessus dans la configuration Capscrew: CloserInfConfig ("DesignTable.1", "Altura_da_cabeça", External Parameters\Diametro_Parafuso, "SuporteCheck", External Parameters\Espessura_Chapa_9 - 1mm - External Parameters\Diametro_Parafuso + {{X3 }}

Merci tout le monde.

0
Castella 20 sept. 2017 à 18:47