---

Hallo zusammen.
Seit unser Upgrade von IV11 zu IV2010 (und BS Vista 64 bit) haben wir die Vorteile des Makros "AddSysDateTime" nicht mehr. Das Makros soll beim Speicherung Datum und Uhrzeit der letzen Änderung in iProperties liefern. Aber es klappt nicht wie früher (IV11, XP Pro 32 bit). Der Code sieht so aus:

Code:

---

Sub AutoSave()
    AddSysDateTime
End Sub

Public Sub AddSysDateTime()
 
    On Error Resume Next
 
    'Check if the active document is a Drawing
    If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
 
    'Add a custom property "SysDate" with system date
    Set opropset = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
    'As a workaround the property must be delete because it can not be changed
    opropset.Item("SysDate").Delete
    Call opropset.Add(Date, "SysDate")
 
    'Add a custom property "SysTime" with system time
    Set opropset = ThisApplication.ActiveDocument.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
    'As a workaround the property must be delete because it can not be changed
    opropset.Item("SysTime").Delete
    Call opropset.Add(Format(Time, "hh:mm"), "SysTime")
     
    End If
End Sub

---

Habt ihr Ideen, wie wir das wieder hinkriegen könnten?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, kommentier mal das "On Error Resume Next" raus, dann siehst du wo dein Programm abstürzt. Einfach blind alle Fehlermeldungen zu ignorieren ist  keine gute Lösung. Und sonst: wenn 64Bit dann .NET - mit VBA kommst du da bald gar nicht mehr weiter.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe es gemacht. Passiert nix. Keine Fehlermeldungen. Nur wenn das Makro manuell ausführt wird, ändert sich das Datum und die Zeit, aber nicht, wie nötig bei der Speicherung der Zeichnung.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm, laut Doku existieren die AutoMakros noch, aber bei mir springt OnSave (Inventor 2010 x64) auch nicht an 

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe jetzt das Makro in der Vorlage .idw-Datei als Modul gespeichert (nicht, wie empfohlen in default.ivb). Inventor zeigte Meldung beim Öffnen der neuen .idw : 

Zitat:

---

"In der Vorlagendatei ist ein nicht leeres VBA-Projekt gespeichert"

---

Ich habe die Option "Meldung nicht mehr anzeigen" gewählt  . Und das Makro funktioniert. Kann man es so lassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von J.Grig:
...Ich habe die Option "[i]Meldung nicht mehr anzeigen" gewählt   . Und das Makro funktioniert. Kann man es so lassen?[/i]

---

Naja, meine Warnung mit VBA hast du geschickt ignoriert. Mit den AutoMakros in der Vorlage bist du dem Wahnsinn noch einen Schritt näher gekommen. Die Meldung die du bekommen hast, kommt nicht von ungefähr. Automakros in der Vorlagedatei haben oft zu Probleme bei der Migration geführt. Muss ja nicht sein, da du ein "On Error Resume Next" am Anfang hast, aber ich habe schon Einiges in Bezug auf die Inventor Exceptions erlebt, daher kann ich nur vor dieser Vorgehensweise warnen.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP