Dim instance As IFeatureManager
Dim SingleDir As Boolean
Dim IsSolid As Boolean
Dim IsThin As Boolean
Dim IsCut As Boolean
Dim ReverseDir As Boolean
Dim BothDirectionUpToSameEntity As Boolean
Dim Dir1Type As Integer
Dim Dir2Type As Integer
Dim Dir1Angle As Double
Dim Dir2Angle As Double
Dim OffsetReverse1 As Boolean
Dim OffsetReverse2 As Boolean
Dim OffsetDistance1 As Double
Dim OffsetDistance2 As Double
Dim ThinType As Integer
Dim ThinThickness1 As Double
Dim ThinThickness2 As Double
Dim Merge As Boolean
Dim UseFeatScope As Boolean
Dim UseAutoSelect As Boolean
Dim value As Feature
value = instance.FeatureRevolve2(SingleDir, IsSolid, IsThin, IsCut, ReverseDir, BothDirectionUpToSameEntity, Dir1Type, Dir2Type, Dir1Angle, Dir2Angle, OffsetReverse1, OffsetReverse2, OffsetDistance1, OffsetDistance2, ThinType, ThinThickness1, ThinThickness2, Merge, UseFeatScope, UseAutoSelect)
|