Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
revans1234
in reply to: revans1234

So further to this, I tried the following lines to use extrusion-

Prof is the profile loop

PCD is the partcomponentdefinition

 

    Dim ExDef As ExtrudeDefinition
    Set ExDef = PCD.Features.ExtrudeFeatures.CreateExtrudeDefinition(Prof, kJoinOperation)
    Call ExDef.SetDistanceExtent(0.12, kNegativeExtentDirection) 'hardcoded thickness
    Call PCD.Features.ExtrudeFeatures.ADD(ExDef)

 

With this it is possible to force the extent direction.

 

And it now all works fine- the flat pattern is OK too.

 

So Kevin gets the solution- thanks very much for that.

 

Roger.