Code:
Imports Inventor.UnitsTypeEnumSub Main()
Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument
Dim oCompDef As ComponentDefinition
oCompDef = oDoc.ComponentDefinition
Dim oParams As Parameters
oParams = oCompDef.Parameters
Dim oUserParams As UserParameters
oUserParams = oParams.UserParameters
If Anzahl >= 1 Then
Dim Leiste_1 As Parameter
Try
oTester = oUserParams.Item("Position_1")
Catch
oMaterialType = oUserParams.AddbyValue("Position_1", "0", kTextUnits)
End Try
End If
If Anzahl < 1 Then
Try
Dim param As Parameter
param = oDoc.ComponentDefinition.Parameters.Item("Position_1")
param.Delete
Catch
End Try
End If
If Anzahl >= 2 Then
Dim Leiste_2 As Parameter
Try
oTester = oUserParams.Item("Position_2")
Catch
oMaterialType = oUserParams.AddbyValue("Position_2", "0", kTextUnits)
End Try
End If
If Anzahl < 2 Then
Try
Dim param As Parameter
param = oDoc.ComponentDefinition.Parameters.Item("Position_2")
param.Delete
Catch
End Try
End If
If Anzahl >= 3 Then
Dim Leiste_3 As Parameter
Try
oTester = oUserParams.Item("Position_3")
Catch
oMaterialType = oUserParams.AddbyValue("Position_3", "0", kTextUnits)
End Try
End If
If Anzahl < 3 Then
Try
Dim param As Parameter
param = oDoc.ComponentDefinition.Parameters.Item("Position_3")
param.Delete
Catch
End Try
End If
End Sub