---

Hallo ACAD-Spezialisten,

ich bin neu hier im Forum und habe einen Code von Nancy gefunden, der da heißt.

Sub blubb()
    Dim acApp As Object, acDoc As Object
    Dim fType%(0), fData(0), sset As Object, x As Object
    Dim r&, i%, attr
    Set acApp = GetObject(, "autocad.application")
    Set acDoc = acApp.ActiveDocument
    Set sset = acDoc.SelectionSets.Add("NewSet03")
    fType(0) = 0: fData(0) = "INSERT"
    sset.Select acSelectionSetAll, , , fType, fData
    'Spalte B (Blockhandle)
    For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 2
        For Each x In sset
            If Cells(r, 2) = x.handle Then
                If x.HasAttributes Then
                    attr = x.GetAttributes
                    For i = LBound(attr) To UBound(attr)
                        attr(i).TagString = Cells(r, i + 4)
                        attr(i).TextString = Cells(r + 1, i + 4)
                    Next
                End If
                Exit For
            End If
        Next
    Next
    sset.Delete
End Sub

Dieser Code ist genial, eine Änderung in der Excelliste, Makroprogramm ablaufen lassen und die Änderung ist in ACAD-Zeichnung gändert.
Wie sieht es aber aus, wenn in der Excelliste eine komplette Zeile von Attributen gelöscht wird. Welcher Codes ist hier erforderlich, damit sich in der Zeichnung das betreffende Objekt automatisch löscht?.

Gruß

Uli

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