---

Hier mein Problem.
In einer Vorlage habe ich ein Makro integriert, welches bei einem Speichervorgang eine Aktion auslöst.

********************************************************************
Option Explicit
Private obDocument As Document
Public WithEvents DocEvents As DocumentEvents
Dim szFileName As String
Public Sub AutoSave_Copy_by_Event()
Set DocEvents = ThisApplication.ActiveDocument.DocumentEvents
SaveAsType "dwf"
MsgBox "Inventor Datei wurde automatisch gespeichert" & vbCr & szFileName
End Sub


Public Sub DocEvents_OnSave(ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)
End Sub
Public Sub SaveAsType(szFileType As String)
Dim szFileName As String
Set obDocument = ThisApplication.ActiveDocument
If obDocument.DocumentType <> 12292 Then Exit Sub _
Else
Dim szExtension As String 'get the full file name from obDocument
szFileName = obDocument.FullFileName 'Determine the extension of the file
szExtension = Right(szFileName, 3) 'If the extension is IDW then save a DWF of the file, if not do nothing
If szExtension = "idw" Then szFileName = Left(szFileName, Len(szFileName) - 3) & szFileType
On Error Resume Next

obDocument.SaveAs szFileName, True

End Sub
*******************************************************************
Nun zu meinem Problem.
In der Vorlage (also in allen nun erstellten Dateien klappts.
ABER
Ich habe ca. 4000 IDW's wo dieses funktionieren soll.

Lösungsansatz 1:
Wie bekomme ich diese Funktion in die bestehenden Dateien.
Ähnlich der Funktion Konstruktionseigenschaften kopieren.

Lösungsansatz 2:
Über eine Klasse in dr devault.ivb müsste dieses rigentlich auf funktionieren.
Aber alle meine Versuche waren nicht erfolgreich.

Deshalb (da wir ja noch kein IV-VBA Forum haben  )
an alle _______ Wer weiss Rat ____

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

---

Inventor VBA

vielleicht wird dir dort geholfen 

Tüs

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

---

@Frank_Schalla

Du arbeitest mit DocumentEvents, und dein Problem ist, dass die Makros nur auf die Events von dem Dokument wo sie drinn stehen, reagieren ? Na wie wär's dann mit ApplicationEvents ? Allerdings glaube ich nicht, dass du da mit VBA und Makros weiter kommst. 4000 IDW's klingt nach einer ernsthaften Aufgabe, daher würde ich dir raten dein Projekt als ein AddIn zu machen. So wie du erzählst habt ihr min. 175438 Plätze  und da ist es viel leichter die Installations-Datei frei zu geben, so dass es jeder installieren kann (ausser du hast denen die Rechte abgezogen). Wie auch immer habe ich dein Programm in eine dll reingepackt und es hat funktioniert. Ich würde dir raten den gleichen Weg zu gehen.

PS: Wir haben doch ein Inventor-VBA Forum, nur ist es noch seeeehr gut versteckt  Vielleicht ändert sich das bald, so dass wir dann die Beiträge nicht immer nachträglich verschieben müssen.

------------------
Grüße daywa1k3r

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

---

Hallo Bernhard.

Bau doch in die inventor.cad.de-Startseite einen Shortcut zum VBA-Forum ein. Dann müssen wir nicht soviel klicken  .

lg Mathias

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

---

Und wenn noch einer sagt, der Bernhard ist nicht schnell wie ein Blitz 

Danke Bernhard 

------------------
Grüße daywa1k3r

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

---

Hat wer gesagt, das er langsam ist 

Danke Bernhard

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

---

Habe mir schon sowas gedacht. Räusper

Darf man sehen diese DLL. (incl Source) ?!! 

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