Dim instance As IModeler
Dim NCurves As Integer
Dim CurveArray As Curve
Dim BBlendClosed As Boolean
Dim BForceCubic As Boolean
Dim NGuides As Integer
Dim GuideCrvArray As Curve
Dim StartMatchingType As Integer
Dim EndMatchingType As Integer
Dim NormalAtStartSection As MathVector
Dim NormalAtEndSection As MathVector
Dim NStartMatchingFaces As Integer
Dim StartMatchingFaceList As Face2
Dim NEndMatchingFaces As Integer
Dim EndMatchingFaceList As Face2
Dim DegeneratedStart As Boolean
Dim DegeneratedEnd As Boolean
Dim StartPointOfStartSection As MathPoint
Dim StartPointOfEndSection As MathPoint
Dim SectionIndexStart As Integer
Dim SectionIndexEnd As Integer
Dim GuideIndexStart As Integer
Dim GuideIndexEnd As Integer
Dim value As Surface
value = instance.ICreateLoftSurface(NCurves, CurveArray, BBlendClosed, BForceCubic, NGuides, GuideCrvArray, StartMatchingType, EndMatchingType, NormalAtStartSection, NormalAtEndSection, NStartMatchingFaces, StartMatchingFaceList, NEndMatchingFaces, EndMatchingFaceList, DegeneratedStart, DegeneratedEnd, StartPointOfStartSection, StartPointOfEndSection, SectionIndexStart, SectionIndexEnd, GuideIndexStart, GuideIndexEnd)
|