Hallo Starbirth,
Danke für den Tipp mit dem IsUpToDate.
Habe mir mal angeschaut wie der Aufruf sein soll.
Hier eine funktionierende Version:
-----------------------------------------------------------------------
Dim ActiveDoc As Document
Dim aPart As Part
Set aDoc = CATIA.ActiveDocument
Set aPart = aDoc.Part
Set partRoot = aDoc.Part
Set pad1 = partRoot.FindObjectByName("Hauptkörper")
IsUpToDate = partRoot.IsUpToDate(pad1)
If IsUpToDate = False Then
MsgBox ("Das Part brauch ein Update")
Else
MsgBox ("kein Update nötig")
End If
End Sub
-----------------------------------------------------------------------
Danke und 10Us für Dich.
Grüße aus dem Rheinland,
CadV5UserR
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP