Dim instance As IModeler
Dim CurveArray As Object
Dim BBlendClosed As Boolean
Dim BForceCubic As Boolean
Dim GuideCrvArray As Object
Dim StartMatchingType As Integer
Dim EndMatchingType As Integer
Dim NormalAtStartSection As Object
Dim NormalAtEndSection As Object
Dim StartMatchingFaceList As Object
Dim EndMatchingFaceList As Object
Dim DegeneratedStart As Boolean
Dim DegeneratedEnd As Boolean
Dim StartPointOfStartSection As Object
Dim StartPointOfEndSection As Object
Dim SectionIndexStart As Integer
Dim SectionIndexEnd As Integer
Dim GuideIndexStart As Integer
Dim GuideIndexEnd As Integer
Dim value As Object
value = instance.CreateLoftSurface(CurveArray, BBlendClosed, BForceCubic, GuideCrvArray, StartMatchingType, EndMatchingType, NormalAtStartSection, NormalAtEndSection, StartMatchingFaceList, EndMatchingFaceList, DegeneratedStart, DegeneratedEnd, StartPointOfStartSection, StartPointOfEndSection, SectionIndexStart, SectionIndexEnd, GuideIndexStart, GuideIndexEnd)
|