Dim instance As IFeatureManager
Dim GenericHoleType As Integer
Dim StandardIndex As Integer
Dim FastenerTypeIndex As Integer
Dim SSize As String
Dim EndType As Short
Dim Diameter As Double
Dim Depth As Double
Dim Value1 As Double
Dim Value2 As Double
Dim Value3 As Double
Dim Value4 As Double
Dim Value5 As Double
Dim Value6 As Double
Dim Value7 As Double
Dim Value8 As Double
Dim Value9 As Double
Dim Value10 As Double
Dim Value11 As Double
Dim Value12 As Double
Dim value As Feature
value = instance.HoleWizard(GenericHoleType, StandardIndex, FastenerTypeIndex, SSize, EndType, Diameter, Depth, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8, Value9, Value10, Value11, Value12)
|