Dim instance As IFeatureManager
Dim Depth As System.Double
Dim DirType As System.Short
Dim LocType As System.Short
Dim BIsProfile As System.Boolean
Dim ProfileD1 As System.Double
Dim ProfileD2 As System.Double
Dim ProfileD3 As System.Double
Dim ProfileAngle As System.Double
Dim ProfileD4 As System.Double
Dim BOffset As System.Boolean
Dim DProfileOffset As System.Double
Dim CrvIndex As System.Integer
Dim BReverseDir As System.Boolean
Dim BReverseFace As System.Boolean
Dim BUseLenDim As System.Boolean
Dim ProfileD5 As System.Double
Dim ProfileD6 As System.Double
Dim ProfileChamferAngle As System.Double
Dim BUseLenDimForChamfer As System.Boolean
Dim BNeedChamferInGusset As System.Boolean
Dim value As Feature
value = instance.InsertGussetFeature3(Depth, DirType, LocType, BIsProfile, ProfileD1, ProfileD2, ProfileD3, ProfileAngle, ProfileD4, BOffset, DProfileOffset, CrvIndex, BReverseDir, BReverseFace, BUseLenDim, ProfileD5, ProfileD6, ProfileChamferAngle, BUseLenDimForChamfer, BNeedChamferInGusset) |