You need to get the Feature and then use GetDefinition to retrieve the IRevolveFeatureData2 Interface
Something like this:
Dim myFeat as Feature
Dim myRevolve as RevolveFeatureData2
Set myFeat = myPart.FeatureByName("Revolve-Thin1") 'where myPart is a PartDoc
Set myRevolve = myFeat.GetDefiniton
myRevolve.AccessSelections Part, Nothing
myRevolve.SetRevolutionAngle True, 50 * PI / 180
myRevolve.SetWallThickness True, 6 / 1000
myFeat.ModifyDefinition myRevolve, Part, Nothing
Note - I haven't tested this code
I'm using the same code but it doesnt modify the part.
Do you have time to test the part I posted?
Thank you very much.
I can't see any part attached. Can you resend?
That code worked OK for me.
Attached is the macro I used.
Don't forget to change the values 50 and 6 to actually change the feature dimensions.
Macro1.swp.zip 8.5 KB
It really works, its just that im giving a wrong value for
bool Forward thats why it does not apply the changes.
But its ok now.
But regarding the bool Forward how can i determine
that it should be false or true?
Thank you by the way.
True means Direction1, False means Direction2.
If it is a single direction revolve, then True is what you need.