Dim instance As IModeler
Dim PModDoc As ModelDoc2
Dim Propagate As Boolean
Dim Alignment As Boolean
Dim TwistCtrlOption As Short
Dim KeepTangency As Boolean
Dim BAdvancedSmoothing As Boolean
Dim StartMatchingType As Short
Dim EndMatchingType As Short
Dim IsThinBody As Boolean
Dim Thickness1 As Double
Dim Thickness2 As Double
Dim ThinType As Short
Dim PathAlign As Short
Dim TwistAngle As Double
Dim BMergeSmoothFaces As Boolean
Dim value As Body2
value = instance.CreateSweptBody(PModDoc, Propagate, Alignment, TwistCtrlOption, KeepTangency, BAdvancedSmoothing, StartMatchingType, EndMatchingType, IsThinBody, Thickness1, Thickness2, ThinType, PathAlign, TwistAngle, BMergeSmoothFaces)
|