---

Hallo Zusammen!

Ich habe folgendes Problem!
In einem Programm erzeuge ich einen Wbock (*.dwg).
Dieser wird in ein festgelegtes Verzeichnis gespeichert und anschließend im Hintergrund geladen und dann als *.dxf wieder gespeichert.
Anschließend wird die entsprechende *.dwg gelöscht, da ich diese nicht mehr benötige.
Ansich funktioniert dies gut, bis auf das, daß dieser Vorgang sehr lange bis zu teilweise 5 Minuten dauert.

Kann es daran liegen, daß beim speichern des Wblocks das Voransichtsfenster geladen wird?

Kann man dieses mittels VBA unterdrücken bzw. ausschalten?

Dies ist der Code:
Private Sub cmd4_Click()
Dim objDxf As AcadSelectionSet
Dim strTempName As String
Dim strTempPath As String
Dim strFilename As String
Dim objExportFile As AcadDocument
UserForm1.Hide

Select Case Cbo.ListIndex

Case 0  'Abspeichern des WBloks unter R 12.dxf

strTempPath = tbo.Text & "\" & tbo1.Text
strFilename = RemoveExtension(ThisDrawing.name)
Set objDxf = ThisDrawing.SelectionSets.Add("dxfcnc"): objDxf.SelectOnScreen
ThisDrawing.Wblock strTempPath, objDxf
Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
With objExportFile
.SaveAs ThisDrawing.path & "\" & tbo1.Text, acR12_dxf
.Close
End With
Kill strTempPath & ".dwg"
strTempPath = RemoveExtension(strTempPath)
objDxf.Delete
Set objDxf = Nothing
Set objExportFile = Nothing
UserForm1.Show

Case 1  'Abspeichern des WBloks unter R 2004.dxf

strTempPath = tbo.Text & "\" & tbo1.Text
strFilename = RemoveExtension(ThisDrawing.name)
Set objDxf = ThisDrawing.SelectionSets.Add("dxfcnc"): objDxf.SelectOnScreen
ThisDrawing.Wblock strTempPath, objDxf
Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
With objExportFile
.SaveAs ThisDrawing.path & "\" & tbo1.Text, acR18_dxf
.Close
End With
Kill strTempPath & ".dwg"
strTempPath = RemoveExtension(strTempPath)
objDxf.Delete
Set objDxf = Nothing
Set objExportFile = Nothing
UserForm1.Show
End Select
End Sub

Dieses habe ich mal Dank Hilfe des Forums erstellt.

Wäre für Hilfe wie immer dankbar.

Gruß

Dirk

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

---

na den code kenn ich doch! immer gut alte bekannte zu treffen!

dein zusammen kopiertes programm da oben fuehrt noch immer einige aktionen aus die nicht noetig sind weil mittlerweile aus dem zusammhang gerissen. das wuerd ich erstmal klaeren. ansonsten erinnere ich mich dunkel das das thema schonmal besprochen wurde. damals habe ich dir empfohlen den dxf export manuell zu starten und die ablaufdauer zu vergleichen. wie siehts denn da aus?

harry

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