---

Hallo,
da mir im VBA Forum bis jetzt nicht geholfen werden konnte, stelle ich meine Frage hier noch einmal.

Ich suche ein Makro welches Zeichnungen öffnet, alle Ansichten aktualisiert, speichert und dann wieder schliesst.

Hat hier jemand eine Idee dazu?

Danke und Gruß
Burkhard

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

---

Nachtrag zu meiner vorherigen Frage:
Ich könnte mir auch eine iLogic Funktion vorstellen, welche beim Speichern des Bauteils oder der Baugruppe fragt, ob die Zeichnung auch aktualisiert werden soll.
Gruß
Burkhard

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

---

Hallo,

dies sollte prinzipiell möglich sein.

Hier mal ein paar Fragen, die zum anbieten einer Lösung hilfreich wären:

- liegen die Zeichnungen in dem selben Pfad wie die Modelle?
- heißen die Zeichnungen genauso wie die Modelle?
- gibt es zu jedem Modell nur eine Zeichnung?
- wenn es mehrere Zeichnungen gibt und die erste Zeichnung wie das Modell heißt, wie heißt dann die zweite oder dritte Zeichnung?
- Soll nur die Zeichnung aktualisiert werden oder auch gleich ein PDF, DXF oder DWG der aktualisierten Zeichnung erstellt werden?

------------------
Mit Besten Grüßen

Ruzy5624

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

---

hm, das Thema gehört aber in Inventor VBA.

ich denke das wird nicht so einfach machbar sein, da eine Veränderung einer Zeichnung meistens eine Veränderung im 3D modell abbildet. Ergo, es müssten auch alle Modelle geöffnet werden (3D Modelle aktualiseren) um die Zeichnung zu aktualiseren. Ergo das willst du nicht 

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

---

Hallo,

- liegen die Zeichnungen in dem selben Pfad wie die Modelle? - ja

- heißen die Zeichnungen genauso wie die Modelle? - ja

- gibt es zu jedem Modell nur eine Zeichnung? - eine Zeichnung ja, aber manchmal mit mehreren Blättern

- wenn es mehrere Zeichnungen gibt und die erste Zeichnung wie das Modell heißt, wie heißt dann die zweite oder dritte Zeichnung? - s.o.

- Soll nur die Zeichnung aktualisiert werden oder auch gleich ein PDF, DXF oder DWG der aktualisierten Zeichnung erstellt werden? - es sollen  nur die Zeichnungen incl. aller Ansichten und Blätter aktualisiert werden. Für die Konvertierung habe ich ein eigenes Tool.

Ja, die Frage gehört ins VBA Forum. Dort habe ich die Frage auch gestellt, aber noch keine einzige Antwort erhalten. Deshalb habe ich es hier versucht.

Ich habe mir jetzt erst einmal mit einem kleinen Erinnerungsfeld mit iLogic geholfen. Ich möchte aber sicherheitshalber auch ältere Zeichnungen aktualisieren.
Vielleicht hat ja noch jemand eine Idee. Ich bin nämlich ein Programmier Dummy.
Gruß
Burkhard

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

---

Deinen Beitrag im VBA Forum habe ich bereits vor einigen Tagen gesehen, allerdings hat mich dieses KwikBatch irritiert, welches ich nicht kenne, weswegen ich mich zurückgehalten habe.

Habe hier mal etwas geschrieben, kannst bei Gelegenheit ja mal testen ob es funktioniert. Bei meinen ersten Test scheint es zu laufen.

Code:

---

Public Sub DrawingUpdate()
    Dim filesystem As Object
    Set filesystem = CreateObject("Scripting.FilesystemObject")
    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
   
    If oDoc.DocumentType <> kPartDocumentObject And oDoc.DocumentType <> kAssemblyDocumentObject Then
        MsgBox "Aktives Dokument ist kein Bauteil oder Baugruppe", vbOKOnly, "Fehler"
        Exit Sub
    End If
   
    oDoc.Update
   
    Dim strPath As String
    Dim strName As String
    strPath = filesystem.GetParentFolderName(oDoc.FullFileName) & "\"
    strName = filesystem.GetFileName(oDoc.FullFileName)
    strName = Left(strName, Len(strName) - 4)
   
    Debug.Print (strPath)
    Debug.Print (strName)
   
    Dim oDrawingDoc As Inventor.Document
    Set oDrawingDoc = ThisApplication.Documents.Open(strPath & strName & ".idw", False)
   
    oDrawingDoc.Update
    oDrawingDoc.Save
    oDrawingDoc.Close (True)
   
    MsgBox "Zeichnung wurde aktualisiert", vbOKOnly, "Erfolgreich"
End Sub

---

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Hallo Ruzzy5624,
danke für deine Rückmeldung.
Ich habe es getestet. Es funktioniert auch bis auf eine Kleinigkeit.
Ich bekomme nach jeder Aktualisierung die Abfrage ob gespeichert werden soll. Das soll es natürlich, aber ohne mein Eingreifen.

Ich sollte noch etwas zu KWiKBatchRun sagen.
Das Tool ist gekauft. Die 32bit Variante war noch kostenlos. Die 64bit Variante kostet ein paar Dollar.

Ich verwende dieses Tool schon lange und habe bisher alle meine Kundenzeichnungen damit konvertiert. Dazu hatte ich irgendwann einmal eine "saveas" Routine gefunden. Im KWiKBatchRun werden alle zu konvertierenden Dateien markiert und dann im Batchbetrieb mit dem gewählten VBA Modul abgearbeitet. Ich kann damit z.B. 100 Zeichnungen markieren und als PDF speichern lassen. Dann habe ich Zeit zum Kaffee machen.

So ein Modul stelle ich mir auch für die Aktualisierung vor.
Deine Routine funktioniert, nur die Speichern Abfrage stört.

Würde mich freuen wenn Du mir da noch helfen könntest.

Gruß
Burkhard

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

---

Zitat:

---

Original erstellt von 3d-freelancer:
... Ich suche ein Makro welches Zeichnungen öffnet, alle Ansichten aktualisiert, speichert und dann wieder schliesst...

---

Für derlei Routinen, gibt es den im Paket enthaltenen Aufgabenplaner.

------------------
---------
Grüße vom
Kühlfisch

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

---

http://help.autodesk.com/view/INVNTOR/2014/DEU/?guid=GUID-7FD8EA9B-EFCE-4C2C-89E8-247E410D90DF

------------------

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Hallo nightsta1k3r, Hallo Kühlfisch,
danke für den Hinweis. Damit werde ich mich auch noch einmal befassen. Scheint das zu sein was ich brauche, ich bin aber mit einem Versuch vor ein paar Tagen gescheitert. Warum auch immer....
Gruß
Burkhard

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

---

Achso, sry... das geht natürlich auch, durch eine klitzekleine Änderung am Code:

Code:

---

Public Sub DrawingUpdate()
    Dim filesystem As Object
    Set filesystem = CreateObject("Scripting.FilesystemObject")
    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
   
    If oDoc.DocumentType <> kPartDocumentObject And oDoc.DocumentType <> kAssemblyDocumentObject Then
        MsgBox "Aktives Dokument ist kein Bauteil oder Baugruppe", vbOKOnly, "Fehler"
        Exit Sub
    End If
   
    oDoc.Update
   
    Dim strPath As String
    Dim strName As String
    strPath = filesystem.GetParentFolderName(oDoc.FullFileName) & "\"
    strName = filesystem.GetFileName(oDoc.FullFileName)
    strName = Left(strName, Len(strName) - 4)
   
    Debug.Print (strPath)
    Debug.Print (strName)
   
    Dim oDrawingDoc As Inventor.Document
    Set oDrawingDoc = ThisApplication.Documents.Open(strPath & strName & ".idw", False)
   
    oDrawingDoc.Update
    oDrawingDoc.Save2
    oDrawingDoc.Close (True)
   
    MsgBox "Zeichnung wurde aktualisiert", vbOKOnly, "Erfolgreich"
End Sub

---

einfach bei "oDrawingDoc.Save" eine zwei anhängen, dann werden alle referenzierten Dokumente mitgespeichert, ohne die Frage.

Edit: Der Aufgabenplaner ist natürlich ein auch oftmals sehr unterschätztes Tool. Ich selber nutze ihn auch nicht, weswegen mir seine teilweise sehr nützlichen Funktionen leider weitestgehend unbekannt sind.

------------------
Mit Besten Grüßen

Ruzy5624

[Diese Nachricht wurde von Ruzy5624 am 02. Nov. 2016 editiert.]

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

---

Hallo Ruzy5624,
vielen Dank, damit komme ich erst einmal weiter.
Zugegeben, ich habe meistens auch einen Bogen um den Aufgabenplaner gemacht. Jetzt habe ich aber 2 Möglichkeiten und werde testen was einfacher bzw. für mich schneller geht.
Danke an alle
Üs für Ruzy5624 sind unterwegs.
Gruß
Burkhard

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