---

Hallo zusammen!

Ich habe eines meiner älteren Programme etwas erweitert.
Ferner möchte ich diesem hinzufügen, dass wenn die DXF - Datei
bereits vorhanden ist, dann MsgBox "Yes" / "No" etc.
Hier der Code:

Code:

---

For Each BlockEnt In DSSet
    Set BlockObj = BlockEnt
    If BlockObj.ObjectName = "AcDbBlockReference" Then
        If BlockObj.HasAttributes Then
            BlockWert = BlockObj.GetAttributes
            '--DXF - Datei erzeugen--!!!
           
            If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString) = BlockWert(0).TextString Then
                '--Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!!
                Dim Antwort As VbMsgBoxResult
                Antwort = MsgBox("Die Datei ist bereits vorhanden, wollen Sie die Datei überschreiben?", vbQuestion + vbYesNo, "Frage")
                Select Case Antwort
                    Case vbYes
                        strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
                        strFilename = RemoveExtension(ThisDrawing.Name)
                        ThisDrawing.Wblock strTempPath, DSSet
                        Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
                        With objExportFile
                        .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
                        .Close
                        End With
                        Kill strTempPath
                        strTempPath = RemoveExtension(strTempPath)
                        Set objExportFile = Nothing
                        Call ListeDXFRegen
                    Case vbNo
                        Call ListeDXFRegen
                        Exit Sub
                End Select
            Else
                strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
                strFilename = RemoveExtension(ThisDrawing.Name)
                ThisDrawing.Wblock strTempPath, DSSet
                Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
                With objExportFile
                .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
                .Close
                End With
                Kill strTempPath
                strTempPath = RemoveExtension(strTempPath)
                Set objExportFile = Nothing
                Call ListeDXFRegen
            End If
      End If
    End If
Next BlockEnt

---

Das mit der Abfrage wenn die Datei bereits vorhanden ist funktioniert so leider noch nicht.
Wo liegt da mein Fehler, oder wie müßte es richtig lauten?

Vielen Dank im Voraus.

------------------
Gruß

Dirk

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

---

Hi Dirk,

An welcher Stelle hakt es denn?!
Beim ermitteln, ob die Datei vorhanden ist oder bei dem Yes/No Auswerten?!

Gruß, Carsten

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

---

Hi,

>> If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString) = BlockWert(0).TextString Then

Kannst Du mal nachsehen, was in den Variablen:

LB_DXFFileLocal.Caption
BlockWert(0).TextString

drinsteht?

Ich würde mal, ohne den Inhalte der Variablen zu kennen, vermuten, dass da die Extension fehlt; oder endet der Inhalt von BlockWert(0).TextString mit ".dxf"?

- alfred -

------------------
www.hollaus.at

---

Hallo Carsten!
Hallo Alfred!

Danke für die Tips.
Das mit dem & ".dxf" wars.

Code:

---

If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then

---

Nun funktioniert es prima.

... schönes Wochenende noch.

------------------
Gruß

Dirk

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

---

Hallo!

Habe dazu noch eine Frage.
Wie kann ich dem User nach dem Durchlauf der Schleife die Info
geben, welche Datei überschrieben unter "Yes" und / oder unter "No"
nicht überschrieben wurde?

Code:

---

If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then
    '--Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!!
    Dim Antwort As VbMsgBoxResult
    Dim DxfVorhanden As String
    DxfVorhanden = BlockWert(0).TextString & ".dxf"
    Antwort = MsgBox("Die Datei - " & DxfVorhanden & " - ist bereits vorhanden, wollen Sie die Datei überschreiben?", vbQuestion + vbYesNo, "Frage")
    Select Case Antwort
        Case vbYes
            strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
            strFilename = RemoveExtension(ThisDrawing.Name)
            ThisDrawing.Wblock strTempPath, DSSet
            Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
            With objExportFile
            .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
            .Close
            ''###--schreiben in einer Textdatei ".txt" oder ".log" welche Datei überschrieben wurde--##????
           
            End With
            Kill strTempPath
            strTempPath = RemoveExtension(strTempPath)
            Set objExportFile = Nothing
        Case vbNo
            Resume Next
            ''###--schreiben in einer Textdatei ".txt" oder ".log" welche Datei nicht überschrieben wurde--##????
           
    End Select
Else

---

Hätte da jemand eine Lösungansatz für mich?

Vielen Dankim Voraus.

------------------
Gruß

Dirk

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

---

DxfLog.txt DxfLog1.txt

... habe da etwas gefunden, was auch soweit funktioniert.

Code:

---

Select Case Antwort
    Case vbYes
        strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
        strFilename = RemoveExtension(ThisDrawing.Name)
        ThisDrawing.Wblock strTempPath, DSSet
        Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
          With objExportFile
        .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
        .Close
       
        '--in Textdatei schreiben--!!!
        Dim Nr As Integer
        Dim datei As String
        datei = LB_DXFFileLocal.Caption & "\" & "DxfLog.txt"
        Nr = FreeFile
        Open datei For Append As #Nr
        Print #1, BlockWert(0).TextString & ".dxf"
        Close #Nr
        '------------------------------
       
        End With
        Kill strTempPath
        strTempPath = RemoveExtension(strTempPath)
        Set objExportFile = Nothing
    Case vbNo
        Resume Next
End Select

---

Die Datei DxfLog.txt sieht dann so wie im Anhang aus.
Wie bekommt man es hin, das diese dann so aussieht, we ich sie
in der DxfLog1.txt von Hand geschrieben habe?
Ist das überhaupt möglich?

Vielen Dank im voraus.

------------------
Gruß

Dirk

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

---

Hi,

ich fürchte, ich verstehe die Frage nicht, sonst würde ich zu:

>> Wie kann ich dem User nach dem Durchlauf der Schleife die Info geben [...]

In jedes Case eine MsgBox einsetzen.

Code:

---

MsgBox "Überschreibe: " & LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString

---

...oder Du arbeitest mit

Code:

---

ThisDrawing.Utility.Prompt "Überschreibe: " & LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString

---

Und ich kann mir nicht vorstellen, dass das gefragt war, das hättest Du schon gemacht, oder?

- alfred -

------------------
www.hollaus.at

---

Hi,

Ok, unsere Posts haben sich überschnitten. 

>> Wie bekommt man es hin, das diese dann so aussieht, we ich sie
>> in der DxfLog1.txt von Hand geschrieben habe?
>> Ist das überhaupt möglich?

Du sammelst in zwei Arrays die Meldungen, die Du ausgeben willst, zusammen. Einmal für die überschriebenen, einmal für die anderen Drawings.

Und am Ende Deines Durchlaufs schreibst Du diese dann raus.

.... das mal die Vorstellung, wie ich's machen würde. Mein Problem dabei ist, dass ich nicht weiss, was daran (bei Dir) nicht funktioniert? Die Idee wirst Du ja auch schon gehabt haben, vermute ich mal. 

- alfred -

------------------
www.hollaus.at

---

Hallo Alfred!

... mit dem über Array nachgedacht hast Du recht.
Ich weiss nur nicht, wie ich das richtig umsetzen muss?

Daher wäre ich Dir sehr dankbar, wenn Du mir dabei helfen könntest.

Code:

---

If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then
    '--Abfrage ob man die bereits vorhandene Datei überschreiben möchte--!!!
    Dim Antwort As VbMsgBoxResult
    Dim DxfVorhanden As String
    DxfVorhanden = BlockWert(0).TextString & ".dxf"
    Antwort = MsgBox("Die Datei - " & DxfVorhanden & " - ist bereits vorhanden, wollen Sie die Datei überschreiben?", vbQuestion + vbYesNo, "Frage")
    Select Case Antwort
        Case vbYes
            strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
            strFilename = RemoveExtension(ThisDrawing.Name)
            ThisDrawing.Wblock strTempPath, DSSet
            Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
            With objExportFile
            .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
            .Close
            '--DXFArray1---------------!!!
            Dim DXFArray1() As Variant
            Dim i As Info
            DXFArray1 = BlockWert(0).TextString & ".dxf"
            For i = 1 To UBound(DXFArray1)
            'Hier die Frage, wie müßte das mit dem Array richte lauten???
            'Mit dem Array habe ich so meine Problem.
            'Wie setzte ich es wo richtig ein?
            '....
            '....
           
           
            '--in Textdatei schreiben--???
            Dim Nr As Integer
            Dim datei As String
            datei = LB_DXFFileLocal.Caption & "\" & "DxfLog.txt"
            Nr = FreeFile
            Open datei For Append As #Nr
            Print #1, BlockWert(0).TextString & ".dxf"
            Close #Nr
            '------------------------------
           
            End With
            Kill strTempPath
            strTempPath = RemoveExtension(strTempPath)
            Set objExportFile = Nothing
        Case vbNo
            Resume Next
            '--DXFArray1---------------!!!
            Dim DXFArray2() As Variant
            Dim e As Info
            DXFArray2 = BlockWert(0).TextString & ".dxf"
            For e = 1 To UBound(DXFArray2)
            'Hier die Frage, wie müßte das mit dem Array richte lauten???
            'Mit dem Array habe ich so meine Problem.
            'Wie setzte ich es wo richtig ein?
            '....
            '....
           
           
            '--in Textdatei schreiben--???
            Dim Nr1 As Integer
            Dim datei1 As String
            datei1 = LB_DXFFileLocal.Caption & "\" & "DxfLog.txt"
            Nr1 = FreeFile
            Open datei1 For Append As #Nr
            Print #1, BlockWert(0).TextString & ".dxf"
            Close #Nr
            '------------------------------
    End Select
Else
    strTempPath = LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dwg"
    strFilename = RemoveExtension(ThisDrawing.Name)
    ThisDrawing.Wblock strTempPath, DSSet
    Set objExportFile = ThisDrawing.Application.Documents.Open(strTempPath)
    With objExportFile
    .SaveAs LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString, acR18_dxf
    .Close
    End With
    Kill strTempPath
    strTempPath = RemoveExtension(strTempPath)
    Set objExportFile = Nothing
End If

---

Vielen Dank im Voraus.

------------------
Gruß

Dirk

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

---

Hi,

ich sehe in Deinem Code nicht, wie Du was aufrufst, ob dieses Codeschnippsel in einem Modul oder in der ThisDrawing oder in einer eigenen Instanz läuft. Wie soll ich da was machen können?
Ein Vergleich dazu wäre, dass ich eine Nockenwelle brauche, aber nicht verrate, was rundherum ist (Automarke, Baujahr, Motortyp, ...). 

Nun denn, versuchen wir's

In einem Modul definierst Du

Code:

---

Dim FilesWritten1 as Collection  'hier kommen die rein, die 'normal' geschrieben wurden
Dim FilesWritten2 as Collection  'hier kommen die rein, die 'überschrieben wurden'
Dim FilesWriteCanceled as Collection  'hier kommt rein, was nicht überschrieben wurde

---

In der Procedure, wo Du den Durchlauf startest, schreibst Du dann am Anfang

Code:

---

FilesWritten1 = New Collection
FilesWritten2 = New Collection
FilesWriteCanceled = New Collection

---

In Deiner Abarbeitung schreibst Du dann

Code:

---

If Dir(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString & ".dxf") = BlockWert(0).TextString & ".dxf" Then
  Select Case Antwort
      Case vbYes
        '....
        call FilesWritten2.Add(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString)
        '....
      Case vbNo
        '....
        call FilesWriteCanceled.Add(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString)
        '....
  End Select
Else
  '...
  call FilesWritten1.Add(LB_DXFFileLocal.Caption & "\" & BlockWert(0).TextString)
  '...
End If

---

'und am Ende (in der Proc, wo Du die Schleifen durchgelaufen bist) kannst Du mit

Code:

---

Dim tStr as Variant
For each tStr in FilesWritten1
  'da läufst Du jetzt alle 'normal' geschriebenen Dateien durch
  'in tStr steht der Dateiname drin
Next
'und das gleiche für die anderen beiden Collections.

---

die Dateinamen rausschreiben.

HTH, - alfred -

------------------
www.hollaus.at

---

Hallo Alfred!

Vielen Dank erst einmal.
Das hat mir schon mal sehr geholfen.

------------------
Gruß

Dirk

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