03-07-2018
10:52 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-07-2018
10:52 AM
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.