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

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