gefunden:
1. Möglichkeit per Benutzerdefinierte iProperties in IAM oder IPT
iProperties.Value("Custom", "Date Saved") = Now
iProperties.Value("Custom", "Time Saved") = Now.ToString("HH:mm:ss")
iProperties.Value("Custom", "Saved By") = Environment.UserName
InventorVb.DocumentUpdate()
als Ereignisauslöser sollte "vor dem Speichern von Dokumenten" gewählt werden
2. Möglichkeit für Zeichnungen
'Create a custom drawing property called "Scale x" for the scale of the first view on each drawing sheet.
'Adds save date and save time to plotstamp
Dim odrawdoc As DrawingDocument
odrawdoc = ThisApplication.ActiveDocument
customPropertySet = odrawdoc.PropertySets.Item("Inventor User Defined Properties")
For i = 1 To odrawdoc.Sheets.Count
' Make sure the desired property exists
Try
prop = customPropertySet.Item("Scale" + Str(i))
Catch
' Assume error means not found
customPropertySet.Add("", "Scale" + Str(i))
End Try
Try
iProperties.Value("Custom", "Scale" + Str(i)) = odrawdoc.sheets.item(i).DrawingViews.Item(1).ScaleString
iProperties.Value("Custom", "SavedBy") = ThisApplication.GeneralOptions.Username
iProperties.Value("Custom", "SaveDate") = Now
iProperties.Value("Custom", "SaveTime") = Now.ToString("HH:mm:ss")
Catch
End Try
Next i
InventorVb.DocumentUpdate()
auch hier wird in die Benutzerdefinierten iProperties geschrieben, die Zeichnung aktualisiert sich aber von selbst.
Diese Werte können dann per Text zB in eine Ecke der ZEichnung geschrieben werden.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP