Dim instance As IFeatureManager
Dim Depth As Double
Dim DirType As Short
Dim LocType As Short
Dim BIsProfile As Boolean
Dim ProfileD1 As Double
Dim ProfileD2 As Double
Dim ProfileD3 As Double
Dim ProfileAngle As Double
Dim ProfileD4 As Double
Dim BOffset As Boolean
Dim DProfileOffset As Double
Dim CrvIndex As Integer
Dim BReverseDir As Boolean
Dim BReverseFace As Boolean
Dim BUseLenDim As Boolean
Dim Faces As Object
Dim value As Feature
value = instance.InsertGussetFeature2(Depth, DirType, LocType, BIsProfile, ProfileD1, ProfileD2, ProfileD3, ProfileAngle, ProfileD4, BOffset, DProfileOffset, CrvIndex, BReverseDir, BReverseFace, BUseLenDim, Faces)
|