Hallo zusammen
Ich hatte früher immer nur im SolidWorks Forum Antworten auf meine Fragen bekommen, arbeite aber nun neu mit Inventor und bin dabei ein AddIn zu schreiben. Da das nicht ohne Probleme geht, nun doch mal ein Account hier.
Ich habe vorher immer wieder in VBA etwas kleines geschrieben und habe auch sonst bisschen Programmiererfahrung, aber ich merke den Unterschied mit Visual Studio und .NET deutlich - es geht einfach langsamer voran als mit VBA.
Nun zum Eigentlichen:
Ich möchte ein AddIn schreiben, dass auf OnSave/OnOpen/... reagiert und in die iProperties etwas reinschreibt/ausliest.
Auf die Events reagieren geht dank eines guten Beitrags hier im Forum.
Mein Vorhaben: Ich lese das Feld "Authority" aus den iProperties aus und wenn der Wert nicht dem Benutzernamen entspricht, dann soll das Speichern verhindert werden. Ich mache damit eine Art Dateischreibschutz.
Wenn dann alles funktioniert kommt noch sowas wie ein CheckIn/CheckOut Button hinzu mit dem der eigene Benutzername in das Feld "Authority" geschrieben/entfernt wird.
Ich dachte sowas wie HandlingCode = HandlingCodeEnum.kEventHandled funktioniert vielleicht. Ging aber leider nicht
Code:
Private Sub m_ApplicationEvents_OnSaveDocument(ByVal DocumentObject As Inventor._Document, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, ByRef HandlingCode As Inventor.HandlingCodeEnum) Handles m_ApplicationEvents.OnSaveDocument Dim sAuthority As String
sAuthority = DocumentObject.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Authority").Value
If BeforeOrAfter = EventTimingEnum.kBefore Then
If sAuthority <> sUserName Then
MsgBox("Die Datei ist zurzeit von " + sAuthority + " in Benutzung. Speichern ist nicht möglich!")
'---- HIER SOLL DAS SPEICHERN ABGEBROCHEN WERDEN -----
End If
Else
MsgBox("after save")
End If
End Sub
Hoffe sowas funktioniert überhaupt. Vielen Dank schon mal im Voraus!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP