Hallo,
ich habs korrigiert:
--------Schnip----------------
Sub CATMain()
'Predefinitions
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
'Paramerer Definition
Dim intParam1 As Parameter
Set intParam1 = parameters1.Item("OWert")
Dim intParam2 As Parameter
Set intParam2 = parameters1.Item("UWert")
Dim intParam4 As Parameter
Set intParam4 = parameters1.Item("BWert")
Dim intParam6 As Parameter
Set intParam6 = parameters1.Item("DWert")
Dim I 'As Integer
Dim DWert 'As Integer
Dim BWert 'As Integer
'Handover parameters
'Calculation
BWert = 1
'I = 0
DWert = 1
intParam6.ValuateFromString (DWert)
part1.Update
Do
DWert = DWert + 1
intParam6.ValuateFromString (DWert)
part1.Update
'I = I + 1
Dim wert1, wert2
wert1 = Left(intParam1.ValueAsString, InStrRev(intParam1.ValueAsString, "mm") - 1)
wert2 = Left(intParam2.ValueAsString, InStrRev(intParam2.ValueAsString, "mm") - 1)
BWert = wert1 - wert2
Loop Until BWert < 0
intParam4.ValuateFromString (BWert)
part1.Update
End Sub
----------Schnap-----------------------
SG
Jens Hansen
------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP