Dim instance As IFeatureManager
Dim Type1 As Short
Dim Size1 As Double
Dim Length1 As Double
Dim PenetrationType1 As Short
Dim PenetrationValue1 As Double
Dim Pitch As Double
Dim Type2 As Short
Dim Size2 As Double
Dim Length2 As Double
Dim PenetrationType2 As Short
Dim PenetrationValue2 As Double
Dim Flag As Integer
Dim EdgeNum1 As Integer
Dim DeSelEdge1 As Object
Dim EdgeNum2 As Integer
Dim DeSelEdge2 As Object
Dim FaceSet1 As Object
Dim FaceSet2 As Object
Dim value As Feature
value = instance.InsertFilletBeadFeature3(Type1, Size1, Length1, PenetrationType1, PenetrationValue1, Pitch, Type2, Size2, Length2, PenetrationType2, PenetrationValue2, Flag, EdgeNum1, DeSelEdge1, EdgeNum2, DeSelEdge2, FaceSet1, FaceSet2)
|