Dim instance As IFeatureManager
Dim EdgeCount As Integer
Dim FlangeEdges As Edge
Dim SketchFeatCount As Integer
Dim SketchFeat As Feature
Dim BooleanOptions As Integer
Dim FlangeAngle As Double
Dim FlangeRadius As Double
Dim BendPosition As Integer
Dim FlangeOffsetDist As Double
Dim ReliefType As Integer
Dim FlangeReliefRatio As Double
Dim FlangeReliefWidth As Double
Dim FlangeReliefDepth As Double
Dim FlangeSharpType As Integer
Dim CustomBendAllowance As CustomBendAllowance
Dim value As Feature
value = instance.IInsertSheetMetalEdgeFlange2(EdgeCount, FlangeEdges, SketchFeatCount, SketchFeat, BooleanOptions, FlangeAngle, FlangeRadius, BendPosition, FlangeOffsetDist, ReliefType, FlangeReliefRatio, FlangeReliefWidth, FlangeReliefDepth, FlangeSharpType, CustomBendAllowance)
|