---

Hallo zusammen,

mit dem folgenden Code lade ich ein Rasterbild in die aktuelle Zeichnung:

Code:

---

' Raster-Image anzeigen
    Set objRasterImg = ActiveDocument.ModelSpace.AddRaster(strName, dblKoords, 1#, 0#)
    objRasterImg.ImageHeight = dblHeight
    objRasterImg.ImageWidth = dblWidth
    objRasterImg.Update

---

Das funktioniert soweit auch super, allerdings liegt das Rasterbild nun vor der Zeichnung. Ich hätte das Bild aber lieber hinter der Zeichnung. Kann mir jemand sagen wie ich das hin bekomme?

Danke Helmut

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

---

Das Einfachste ist sicher über ein _draworder über SendCommand.
Vielleicht helfen diese Beiträge etwas weiter. http://ww3.cad.de/foren/ubb/Forum259/HTML/000373.shtml#000001  http://ww3.cad.de/foren/ubb/Forum259/HTML/000715.shtml#000001
Ansonsten kann man über die AcadSortentsTable Zugriff auf die Sortierreihenfolge von Objekten bekommen.
http://discussion.autodesk.com/thread.jspa?messageID=4190292

Dazu mal einen Blick auf die MoveToBottom-Methode im Beispiel
SortentsTable Example werfen.

Quelle: "AutoCAD Active X and VBA Reference" aus den Online Hilfe.

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

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 08. Feb. 2008 editiert.]

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

---

Schon mal danke für eure Antwort.

Ich hab mir aus den informationen folgende Routine zusammengebaut:

Code:

---

Public Sub moveObjectToBottom(objDrawObject As Object)
    ' Zeichnungsobjekt nach hinten schieben
   
    Dim objObjects(0) As AcadEntity
    Dim objDictionary As Object
    Dim objEntity As Object
    Dim objObject As AcadObject
 
    Set objObject = ThisDrawing.ObjectIdToObject(objDrawObject.ObjectID)
    Set objObjects(0) = objObject
   
    Set objDictionary = ThisDrawing.ModelSpace.GetExtensionDictionary
    On Error Resume Next
    Set objEntity = objDictionary.AddObject("ACAD_SORTENTS")
    On Error GoTo 0
    If objEntity Is Nothing Then
        Set objEntity = objDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
    End If

    ' die nächste Zeile ergibt die Fehlermeldung:
    ' Run-time error '5'
    ' invalid procedurecall or argument
    objEntity.MoveToBottom objObjects
   
    AcadApplication.Update
End Sub

---

Soweit ich das sehe hab ich aber keinen Fehler gemacht, oder?

Nochmal danke

Helmut

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

---

Der Zugriff auf die SortentsTable ist (soweit ich mich erinnere) erst ab AutoCAD 2005 möglich. Ist es evt. das?
Am besten fülle doch deine Systemangaben aus.

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

Udo Hübner

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