Dim instance As IFeatureManager
Dim Closed As Boolean
Dim KeepTangency As Boolean
Dim ForceNonRational As Boolean
Dim TessToleranceFactor As Double
Dim StartMatchingType As Short
Dim EndMatchingType As Short
Dim StartTangentLength As Double
Dim EndTangentLength As Double
Dim StartTangentDir As Boolean
Dim EndTangentDir As Boolean
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.InsertProtrusionBlend(Closed, KeepTangency, ForceNonRational, TessToleranceFactor, StartMatchingType, EndMatchingType, StartTangentLength, EndTangentLength, StartTangentDir, EndTangentDir, IsThinBody, Thickness1, Thickness2, ThinType, Merge, UseFeatScope, UseAutoSelect)
|