Public Sub Autor() Dim Dok As Document Set Dok = ThisApplication.ActiveDocument Dim Opp As GeneralOptions Set Opp = ThisApplication.GeneralOptions Dim Name As String Name = Opp.UserName MsgBox (Name) 'Kurze Weg zum iProp Autor Dok.PropertySets.Item(1).Item(3).Value = Name End Sub
siehe auch Kursserie VBA Programmieren für Konstrukteure
Hallo,
AntwortenLöschenbei Verwendung der obenstehenden Regel bekomme ich in Inventor 2018 folgende Fehlermeldung:
Fehler in Regelprogrammformat:
Alle anderen Subs oder Funktionen müssen hinter Sub Main() stehen.
Wo liegt das Problem?
Das ist vba Code und nicht ilogic Siehe dazu https://inventorfaq.blogspot.de/2017/04/vba-code-in-ilogic-code-umwandeln.html
AntwortenLöschenHi,
AntwortenLöschendas klappt bei mir super.
welche Eignaben muss ich denn machen um den Konstrukteur zu ändern?
Gibt es da irgendwo eine fertige liste?
Gruß
Lars
Wenn du "richtig" mit iproperties arbeiten willst, siehe hier
Löschen