Dim instance As IFeatureManager
Dim Propagate As Boolean
Dim Alignment As Boolean
Dim TwistCtrlOption As Short
Dim KeepTangency As Boolean
Dim ForceNonRational As Boolean
Dim StartMatchingType As Short
Dim EndMatchingType As Short
Dim IsThinBody As Boolean
Dim Thickness1 As Double
Dim Thickness2 As Double
Dim ThinType As Short
Dim Merge As Boolean
Dim UseFeatScope As Boolean
Dim UseAutoSelect As Boolean
Dim value As Feature
value = instance.InsertProtrusionSwept(Propagate, Alignment, TwistCtrlOption, KeepTangency, ForceNonRational, StartMatchingType, EndMatchingType, IsThinBody, Thickness1, Thickness2, ThinType, Merge, UseFeatScope, UseAutoSelect)
|