04-07-2021
01:48 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-07-2021
01:48 PM
Hello
Don't know if the additional options are correct in your case.
Private Sub FlangeHeight()
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oFeatures As SheetMetalFeatures
Set oFeatures = oPartDoc.ComponentDefinition.Features
Dim oFlange As FlangeFeature
Set oFlange = oFeatures.FlangeFeatures.Item(1)
Dim oFlangeDef As FlangeDefinition
Set oFlangeDef = oFlange.Definition
Call oFlange.SetEndOfPart(True)
Call oFlangeDef.SetDistanceHeightExtent("2 in", kPositiveExtentDirection, kHeightDatumOuter)
Call oPartDoc.ComponentDefinition.SetEndOfPartToTopOrBottom(False)
End Sub
R. Krieg
RKW Solutions
www.rkw-solutions.com