Dim instance As IFeatureManager
Dim Type As Short
Dim NCurvesDir1 As Short
Dim NCurvesDir2 As Short
Dim HasCenterline As Boolean
Dim TessTolFactor As Double
Dim WantsSolid As Boolean
Dim MergeBody As Boolean
Dim FeatureScope As Boolean
Dim AutoSelect As Boolean
Dim Thin As Boolean
Dim Thickness1 As Double
Dim Thickness2 As Double
Dim ReverseThickness As Boolean
Dim ThinSolidType As Short
Dim UseSharedThickness As Boolean
Dim CapEnds As Boolean
Dim EndThickness As Double
Dim AutoFillet As Boolean
Dim FilletRadius As Double
Dim ForceNonRational As Boolean
Dim value As Feature
value = instance.InsertNetBlend(Type, NCurvesDir1, NCurvesDir2, HasCenterline, TessTolFactor, WantsSolid, MergeBody, FeatureScope, AutoSelect, Thin, Thickness1, Thickness2, ReverseThickness, ThinSolidType, UseSharedThickness, CapEnds, EndThickness, AutoFillet, FilletRadius, ForceNonRational)
|