---

Hallo zusammen,

Ich habe eine Zeichnung unter ACAD2002 mit 3 .bmp-Dateien. Jetzt habe ich mir mal die Überwachung unter ActiveDocument angesehen. Dort finde ich leider nur ein .bmp. Wo finde ich alle images, die in der Zeichnung vorhanden sind?

------------------

cu
Heiko

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

---

Hallo @all,

2. Versuch....

habe jetzt folgenden Code, mit dem ich die bmp's auslesen kann:

Option Explicit
Public Sub TestImageList()
  Dim varTest As Variant
  Dim i As Integer
 
  varTest = ImageList
  If IsArray(varTest) Then
    For i = LBound(varTest) To UBound(varTest)
      Debug.Print varTest(i)
    Next i
  Else
    Debug.Print "No Images Found"
  End If
 
 
End Sub
Public Function ImageList() As Variant
  Dim objSelSet As AcadSelectionSet
  Dim intType(0) As Integer
  Dim varValue(0) As Variant
  Dim objImage As AcadRasterImage
  Dim varImageList() As Variant
  Dim i As Integer
 
  intType(0) = 0: varValue(0) = "IMAGE"
  Set objSelSet = ThisDrawing.PickfirstSelectionSet
 
  objSelSet.Select Mode:=acSelectionSetAll, Filtertype:=intType, Filterdata:=varValue
 
  If objSelSet.Count = 0 Then
    Exit Function
  Else
    ReDim varImageList(0 To objSelSet.Count - 1)
  End If
 
  For Each objImage In objSelSet
    varImageList(i) = objImage.ImageFile
    i = i + 1
  Next objImage

  ImageList = varImageList
 
End Function

Wie kann ich jetzt die Pfade der bmp's überschreiben / ändern???

------------------

cu
Heiko

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