Dim instance As IModeler
Dim PModDoc As ModelDoc2
Dim Profile As System.Object
Dim GuideCurve As System.Object
Dim Centerline As System.Object
Dim IsThinBody As System.Boolean
Dim ThinType As System.Integer
Dim Thickness1 As System.Double
Dim Thickness2 As System.Double
Dim FeatureScope As System.Boolean
Dim IsBlendClosed As System.Boolean
Dim KeepTangency As System.Boolean
Dim ForceNonRational As System.Boolean
Dim IsSolidBody As System.Boolean
Dim TessTolFactor As System.Double
Dim StartTangentLength As System.Double
Dim EndTangentLength As System.Double
Dim StartTangentDir As System.Boolean
Dim EndTangentDir As System.Boolean
Dim StartMatchingType As System.Integer
Dim EndMatchingType As System.Integer
Dim Merge As System.Boolean
Dim value As Body2
value = instance.CreateLoftBody2(PModDoc, Profile, GuideCurve, Centerline, IsThinBody, ThinType, Thickness1, Thickness2, FeatureScope, IsBlendClosed, KeepTangency, ForceNonRational, IsSolidBody, TessTolFactor, StartTangentLength, EndTangentLength, StartTangentDir, EndTangentDir, StartMatchingType, EndMatchingType, Merge) |