---

Hi!

Versuche mich gerade etwas in VBA und wollte mir ein kleines makro schreiben das mir eine zeichnung neu erstellt und gleich abspeichert.

If Antwort = vbYes Then
    Set oNewDoc = oApp.Documents.Add(kDrawingDocumentObject, "C:\Program Files\Autodesk\Inventor 2008\Templates\Norm.idw", True)
    Call oApp.ActiveDocument.SaveAs(sDrawingName, True)
    Call oApp.ActiveDocument.Close(True)
    Call oApp.Documents.Open(sDrawingName, True)
    End If

So Funktioniert das auch recht gut, nur würde ich jetzt gerne die erste Zeichnung unsichtbar öffnen, weil sich jetzt noch eine gewisse wartezeit einstellt...
Nur hab ich keine Ahnung was ich statt ThisApplication nehmen muss damit ich die unsichtbare Zeichnung finde.
Oder kann ich das mit dem Speichern anders machen, weil gehe ja jetzt noch einen Umweg über SaveAs

------------------
MfG Rudi

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

---

Deine neue Zeichnung ist in oNewDoc gespeichert. Du benutzt aber weiter oApp.ActiveDocument was wahrscheinlich nicht funktionieren wird wenn du das Dokument unsichtbar öffnest. Versuch einfach so etwas:

Code:

---

    Set oNewDoc = oApp.Documents.Add(kDrawingDocumentObject, "C:\Program Files\Autodesk\Inventor 2008\Templates\Norm.idw", False)
    Call oNewDoc.SaveAs(sDrawingName, True)

---

Ohne jetzt den Sinn des Makros nachvollziehen zu wollen...

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

FX64 Software Solutions

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

---

Danke funktioniert 

Hab mir eh scho sowasgedacht, aba habe das oApp davorgelassen...

Makro ist eine kleine erweiterung des OpenIDW()  wenn er keine Findet, dann soll er eine neue machen und gleich mit dem namen speichern 

------------------
MfG Rudi

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