Dim instance As IFeatureManager
Dim SingleDir As System.Boolean
Dim IsSolid As System.Boolean
Dim IsThin As System.Boolean
Dim IsCut As System.Boolean
Dim ReverseDir As System.Boolean
Dim BothDirectionUpToSameEntity As System.Boolean
Dim Dir1Type As System.Integer
Dim Dir2Type As System.Integer
Dim Dir1Angle As System.Double
Dim Dir2Angle As System.Double
Dim OffsetReverse1 As System.Boolean
Dim OffsetReverse2 As System.Boolean
Dim OffsetDistance1 As System.Double
Dim OffsetDistance2 As System.Double
Dim ThinType As System.Integer
Dim ThinThickness1 As System.Double
Dim ThinThickness2 As System.Double
Dim Merge As System.Boolean
Dim UseFeatScope As System.Boolean
Dim UseAutoSelect As System.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) |