Dim instance As IFeatureManager
Dim Sd As Boolean
Dim Flip As Boolean
Dim Dir As Boolean
Dim T1 As Integer
Dim T2 As Integer
Dim D1 As Double
Dim D2 As Double
Dim Dchk1 As Boolean
Dim Dchk2 As Boolean
Dim Ddir1 As Boolean
Dim Ddir2 As Boolean
Dim Dang1 As Double
Dim Dang2 As Double
Dim OffsetReverse1 As Boolean
Dim OffsetReverse2 As Boolean
Dim TranslateSurface1 As Boolean
Dim TranslateSurface2 As Boolean
Dim NormalCut As Boolean
Dim UseFeatScope As Boolean
Dim UseAutoSelect As Boolean
Dim AssemblyFeatureScope As Boolean
Dim AutoSelectComponents As Boolean
Dim PropagateFeatureToParts As Boolean
Dim T0 As Integer
Dim StartOffset As Double
Dim FlipStartOffset As Boolean
Dim value As Feature
value = instance.FeatureCut3(Sd, Flip, Dir, T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, TranslateSurface1, TranslateSurface2, NormalCut, UseFeatScope, UseAutoSelect, AssemblyFeatureScope, AutoSelectComponents, PropagateFeatureToParts, T0, StartOffset, FlipStartOffset)
|