Dim instance As IFeatureManager
Dim FlangeEdge As Edge
Dim SketchFeat As Feature
Dim BooleanOptions As Integer
Dim DAngle As Double
Dim DRadius As Double
Dim BendPosition As Integer
Dim DOffsetDist As Double
Dim ReliefType As Integer
Dim DReliefRatio As Double
Dim DReliefWidth As Double
Dim DReliefDepth As Double
Dim FlangeSharpType As Integer
Dim PCBA As CustomBendAllowance
Dim value As Feature
value = instance.InsertSheetMetalEdgeFlange(FlangeEdge, SketchFeat, BooleanOptions, DAngle, DRadius, BendPosition, DOffsetDist, ReliefType, DReliefRatio, DReliefWidth, DReliefDepth, FlangeSharpType, PCBA)
|