Problem English VBA SW

Out of category

sev-et-fab February 10, 2019, 5:07pm 1

Hello, I use this formula in excel to control my part

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

But when I have an angle, how do I do it?

ac_cobra_427 February 10, 2019, 7:18pm 2

Hello

Is it a sheet metal piece whose angle you control or a profile cut???

sev-et-fab February 11, 2019, 9:03am 3

It's more of a sheet metal part, but more generally it can be a volume

I attach an example

Below is the code to modify a side in Excel

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

But what is the formula for modifying the angle driven by the " D1@Esquisse1" dimension

Part1.SLDPRT

remrem February 11, 2019, 10:02am 4

It seems to me that something is missing from your code. Try this:

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

d.roger February 11, 2019, 10:30am 5

Hello

If a value is in deg in Excel then:

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

And if your value is in radians in Excel:

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

Kind regards

2 Likes

sev-et-fab February 11, 2019, 3:53pm 6

thank you I'm in degree