Dim instance As IModeler
Dim PModDoc As ModelDoc2
Dim Profile As Object
Dim GuideCurve As Object
Dim CenterLine As Object
Dim IsThinBody As Boolean
Dim ThinType As Integer
Dim Thickness1 As Double
Dim Thickness2 As Double
Dim FeatureScope As Boolean
Dim IsBlendClosed As Boolean
Dim KeepTangency As Boolean
Dim ForceNonRational As Boolean
Dim IsSolidBody As Boolean
Dim TessTolFactor As Double
Dim StartTangentLength As Double
Dim EndTangentLength As Double
Dim StartTangentDir As Boolean
Dim EndTangentDir As Boolean
Dim StartMatchingType As Integer
Dim EndMatchingType As Integer
Dim Merge As 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)
|