---

Ich möchte in einer dxf-Datei bestimmte Bereiche löschen. Ich habe das ganze im Excel mit VBA hinbekommen. Mir ist aber der Weg Import ins Excel - bearbeiten - Export aus Excel zu lang. Die Frage ist, ob das ganze auch unter AutoCad mit VBA geht? Es geht darum einen Text zu finden und in diesem Bereich einige Zeilen zu löschen (siehe unten).

Ich füge mal das funktionierende Excelmakro ein:
Sub Loeschen()
    Dim rngFind As Range
    Dim var As Variant
    Dim A As Variant
    Dim B As Variant
    Dim i As Variant
    Dim sWkn As String
    sWkn = Application.InputBox(prompt:="Zu löschender Text?", Title:="Textlöschung", Default:="Test")
    If sWkn = "" Then Exit Sub
    Do
        var = Application.Match(sWkn, Columns(1), 0)
        If IsError(var) Then
            Beep
            MsgBox "Fertig!"
            Exit Do
        Else
            A = var - 1
            B = var + 14
            For i = A To B
                Rows(A).Delete
            Next
        End If
    Loop
End Sub

Danke für die Tipps.

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

---

sehe ich das richtig, Du liest eine Dxf Datei in Excel ein, suchst das Vorkommen eines bestimmtem Strings und löscht die Zeile davor und die 14 nachfolgenden?

Das sieht so aus als ob Du komplette Zeichnungselemente löscht, geht mit Autocad VBA besser da Du geziehlt nach diesen Typ mit den gewünschten Eigenschaften suchen und dann löschen, verschieben oder sonst noch was kannst.

Wenn die Dxf Datei als Ascii vorliegt kannst Du das ganze auch direkt in der Datei machen, "Open "Zeichnung.dxf" For Output As #1....usw.", wäre der schnellste weg.

Gruss,
Harry

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

---

Völlig richtig. Ich suche einen bestimmten String und lösche die Zeile davor und 14 danach.

Ich werde den Tipp mit Open und Output mal ausprobieren. Danke.

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