---

Hallo zusammen,

in meiner Zeichnung ist ein Rasterbild angehängt (z. B. RasterName) - nun möchte ich dieses per VBA-Code löschen.

Kann mir jemand einen Kursschnipsel zeigen, wie ich Zugriff auf das Objekt bekomme und dieses dann lösche?

Danke Helmut

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

---

Hallo dimfplmoser,
ist das Bild als OLE Objekt eingefügt, oder als Bild extern referenziert (Befehl EXTERNREF bzw. BILDZUORDNEN) oder als bitonales Bild mit Autodesk Rasterdesign eingebettet?
Soll die Datei von der Festplatte gelöscht werden, oder soll die Bild-Einfügung lediglich aus der AutoCAD Zeichnung gelöscht werden oder soll die Definition aus der Zeichnung entfernt werden?
Das betreffende Objekt und seine Methoden findet man im Objektkatalog unter AcadRasterImage.

Ein Beispiel, welches evt. deine Frage beantwortet:

Code:

---

Sub deleteAllRasterImages()

Dim obj As Object
Dim image As AcadRasterImage

For Each obj In ThisDrawing.ModelSpace
If TypeOf obj Is AcadRasterImage Then
  Set image = obj
  image.Delete
End If
Next

End Sub

---

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

Udo Hübner
www.CAD-Huebner.de

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

---

Oder evt. ist dieses Codeschnipsel interessant:

Code:

---

Sub ListImages_AcadFileDependencies()
Dim objFileDepCol As AutoCAD.AcadFileDependencies
Dim objFileDep As AutoCAD.AcadFileDependency
Set objFileDepCol = ThisDrawing.FileDependencies
Dim strTemp As String
For Each objFileDep In objFileDepCol
 
  If objFileDep.Feature = "Acad:Image" Then
    objFileDepCol.UpdateEntry objFileDep.Index
    strTemp = "Dateiname: " & vbTab & objFileDep.FileName
    strTemp = strTemp & vbCrLf & "Dateigröße: " & vbTab & _
    vbTab & objFileDep.FileSize
    MsgBox strTemp
  End If
Next
End Sub

---

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

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Herr Hübner,

vielen Dank für Ihre schnelle Antwort. Der erste Code-Schnipsel ist sehr interessant. Mein Problem ist, dass die Zeichnungen, mit denen ich arbeite aus mehreren 10000 Objekten bestehen. Ich hatte vergeblich versucht mit folgendem Code weiterzukommen:

Dim objRasterImg As Object
Set objRasterImg.ObjectName = GetObject(strRasterName)
objRasterImg.Delete

Kann man den Code irgendwie retten?

Danke

Helmut Seidel

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

---

Hallo Helmut,

Sind alle Objekte Bilder?! Sonst erstelle erst einmal einen SelectionSet, der alle Bilder enthält und durchlaufe diesen dann.

Gruß, Carsten

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

---

Hallo Carsten,

nein, es sind nur einige Bilder enthalten. Auch wenns dumm klingt (bin ziemlich neu in Acad-Vba), wie kann ich denn ein SelectionSet bilden, das alle Bilder enthält?

Nochmal danke und sorry ...

Helmut

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

---

Hi Helmut,

Hier mal ein Selectionset für Bilder:

Code:

---

Sub Ch4_Filtertest()
  Dim sset As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  On Error Resume Next
  ThisDrawing.SelectionSets.Item("SS2").Delete
  Set sset = ThisDrawing.SelectionSets.Add("SS2")
  FilterType(0) = 0
  FilterData(0) = "Image"
 
  sset.Select acSelectionSetAll, , , FilterType, FilterData
End Sub

---

Gruß, Carsten

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

---

Hallo Carsten,

super - oder fast. Ich hab jetzt mit deiner Hilfe denfolgenden Code zusammengebaut:

On Error Resume Next
    ThisDrawing.SelectionSets.Item("SS2").Delete
    Set sset = ThisDrawing.SelectionSets.Add("SS2")
    FilterType(0) = 0
    FilterData(0) = "Image"

    sset.Select acSelectionSetAll, , , FilterType, FilterData
   
    ' SelectionSet durchlaufen
    For Each objRasterImg In sset
        ' Testen, ob gesuchtes Image
        If objRasterImg.name = strRasterName Then
            ' Raster löschen
            objRasterImg.Delete
            ' FileSystem-Objekt erstellen
            Set objFso = CreateObject("Scripting.FileSystemObject")
            ' Testen, ob die Datei vorhanden ist
            If objFso.FileExists(strRasterPath) Then
                objFso.DeleteFile strRasterPath
                objRasterImg.Update
            End If
        End If
    Next

Das funktioniert scheinbar. Das Raster wird nicht mehr angezeigt und die Datei wird gelöscht. Allerdings wird das Raster nur in der Anzeige gelöscht. In der Bilderverwaltung bleibt das Bild allerdings vorhanden? Krieg ich die auch noch raus?

Nochmal Danke

Helmut

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