Probleme angle VBA SW

Out of category
1

Bonjour, j'utilise cette formule dans excel pour controler ma piece 

Part.Parameter("D1@Esquisse1@35xxxD02.Part").SystemValue = Excel.Range("C9") 

mais lorsque j'ai un angle il faut que je fasse comment?

 

2

Bonjour,

C'est une pièce de tôlerie dont vous contrôler l'angle ou une découpe de profilé ???

3

c'est plutot une pièce de tôlerie mais de maniere plus generale cela peut-etre un volume

je joint un exemple

Ci dessous le code pour modifier un cote sous Excel

Part.Parameter("D2@Esquisse1@piece1.Part").SystemValue = Excel.Range("C9") /1000

 

Mais qu'elle est la formule pour modiifer l'angle  piloter par la cote " D1@Esquisse1"


piece1.sldprt
4

Il me semble qu'il manque quelque chose à ton code. Essaye ça :

Part.Parameter("D1@Esquisse1@35xxxD02.Part").SystemValue = Excel.Range("C9").value

 

5

Bonjour,

Si a valeur est en deg dans Excel alors :

Dim pi As Double
pi = 4 * Atn(1)
Part.Parameter("D1@Esquisse1@piece1.Part").SystemValue = Excel.Range("C9") * pi / 180

Et si ta valeur est en radians dans Excel :

Part.Parameter("D1@Esquisse1@piece1.Part").SystemValue = Excel.Range("C9")

Cordialement,

2 « J'aime »
6

merci  je suis en degrée