Dim instance As IModelDoc2
Dim R1 As Double
Dim Propagate As Boolean
Dim UniformRadius As Boolean
Dim Ftyp As Integer
Dim VarRadTyp As Boolean
Dim OverflowType As Integer
Dim NRadii As Integer
Dim Radii As Double
Dim UseHelpPoint As Boolean
Dim UseTangentHoldLine As Boolean
Dim CornerType As Boolean
Dim SetbackDistCount As Integer
Dim SetBackDistances As Double
Dim value As Integer
value = instance.IFeatureFillet4(R1, Propagate, UniformRadius, Ftyp, VarRadTyp, OverflowType, NRadii, Radii, UseHelpPoint, UseTangentHoldLine, CornerType, SetbackDistCount, SetBackDistances)
|