Dim instance As IFeatureManager
Dim Type As Integer
Dim Position As Integer
Dim Reverse As Boolean
Dim DLength As Double
Dim DGap As Double
Dim DAngle As Double
Dim DRad As Double
Dim DMiterGap As Double
Dim PCBA As CustomBendAllowance
Dim UseDefaultRelief As Boolean
Dim ReliefType As Integer
Dim ReliefTearTypes As Integer
Dim UseReliefRatio As Boolean
Dim ReliefRatio As Double
Dim ReliefWidth As Double
Dim ReliefDepth As Double
Dim value As Feature
value = instance.InsertSheetMetalHem2(Type, Position, Reverse, DLength, DGap, DAngle, DRad, DMiterGap, PCBA, UseDefaultRelief, ReliefType, ReliefTearTypes, UseReliefRatio, ReliefRatio, ReliefWidth, ReliefDepth)
|