---

Hallo Forum,

mit unten stehendem Code (Speichern unter) exportiere ich die IDW als DXF. Es wird ja immer nachgefragt ob überschrieben werden darf wenn eine Datei bereits besteht. Nicht so toll, es soll immer überschrieben werden.

Bei der Suche im Forum bin ich nun darauf gestoßen:
ThisApplication.SilentOperation = True
ThisApplication.SilentOperation = False

Hab das mal im Macro ausprobiert, hat aber keine Wirkung gezeigt. Wie muss man das realisieren um die Abfrage zu umgehen?

Code:

---

Public Sub als_DXF_speichern()
Dim dDoc As DrawingDocument
Dim fso As Object

Dim oInvApp As Object
Set oInvApp = GetObject(, "Inventor.Application")

Set fso = CreateObject("Scripting.FilesystemObject")
Dim ret As Variant
Set dDoc = ThisApplication.ActiveDocument

If dDoc Is Nothing Then Exit Sub
If Len(Trim(dDoc.FullFileName)) > 0 Then
      outFile = fso.GetParentFolderName(dDoc.FullFileName) & "\" & fso.GetBaseName(dDoc.FullFileName) & ".dxf"

        dDoc.SaveAs outFile, True
Else
        MsgBox "Erst Speichern", vbInformation
End If

End Sub

---

Gruß
Andreas

[Diese Nachricht wurde von fadeaway am 07. Mrz. 2012 editiert.]

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

---

Probiers mal damit

Code:

---

If fso.FileExists(outfile) Then
    Kill (outfile)
End If

---

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

---

Hi

Sollte sich über

Code:

---

ThisApplication.SilentOperation = True

---

erledigen lassen. Nicht vergessen es hinterher wieder abzuschalten.

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 20. Mrz. 2012 editiert.]

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

---

Hallo,

und danke für eure Antworten.

@noctis79
Könnte bei einem Blatt wohl funktionieren. Wenn es mehrere Blätter in einer IDW sind wird es schwierig.

@rkauskh
Wie im ersten Beitrag geschrieben habe ich es damit ja auch schon mal versucht. Leider hat es keinen Erfolg gebracht. Die Abfragen kamen trotzdem. Klappt es bei dir?

Gruß
Andreas

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

---

Warum? Wie sind die Blätter dann benannt (im Bezug zum Namen der idw)?

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

---

@noctis
Nehmen wir mal an eine IDW heißt "123456 Platte". Habe ich die IDW offen dann steht in der Browserleiste "Blatt:1".
Füge ich ein Blatt 2 hinzu heißt dieses "Blatt:2". Exportiere ich nun die Blätter heißen die DXF "123456 Platte_Blatt1.dxf bzw. 123456 Platte_Blatt2.dxf".
Löschen soll er aber "123456 Platte.dxf" das gibt es ja aber in dem Fall nicht. Ändert jemand noch den Blattnamen in der IDW von "Blatt:2" auf "wassergestrahlt" etc. wird es noch vielfältiger.
Man müsste den Dateinamen bis vor "_Blatt1.dxf" vielleicht abfragen.

Gruß
Andreas

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

---

Morgen!

Der "kill" Befehl unterstützt übrigens WildCards!
D.h. wenn Du alle dxf löschen möchtest die zur 123456 Platte.dxf gehören dann wäre der Aufruf kill ("123456 Platte*.dxf").

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

---

Zitat:

---

Original erstellt von noctis79:
Morgen!

Der "kill" Befehl unterstützt übrigens WildCards!
D.h. wenn Du alle dxf löschen möchtest die zur 123456 Platte.dxf gehören dann wäre der Aufruf kill ("123456 Platte*.dxf").

---

Problem sehe ich da, wenn ein Bauteil/Zeichnung mal nur 1.idw genannt wird, da bei wird bei kill ("1*.dxf") dann vermutlich eine Menge gelöscht.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Mir stellt sich die Frage warum

Code:

---

ThisApplication.SilentOperation = True
ThisApplication.SilentOperation = False

---

hier nicht funktioniert? Wäre doch die eleganteste Lösung!

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

---

Eleganter wäre villeicht noch mit dem Translator Addin zu arbeiten.
Aus der Inventor COM API Reference (F1 im VBA Editor drücken) http://ww3.cad.de/foren/ubb/Forum258/HTML/001150.shtml
Da geht das Uberschreiben der DXF Datei ohne Rückfrage problemlos.
Du musst für das Beispiel nur einmal eine DXF Konfiguration gespeichert haben (als *.ini).

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Danke Udo,

hab es gerade testen wollen. Steigt mit Laufzeitfehler 438 in Zeile vier aus. Objekt unterstützt diese Eigenschaft oder Methode nicht.

Gruß
Andreas

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