---

Hallo VBA Gemeinde,

weiß jemand wie man mit VBA-Code in ACAD2004 die Zeichenreihenfolge von Objekten, die sich überlappen, steuern kann.
Leider steht bei AutoCAD-Objekten kein ZOrder - Property zur verfügung.
Über "Thisdrawing.SendCommand" den vorhandenen AutoCAD-Befehl hierzu zu verwenden ist wohl nicht gerade eine elegante Lösung.

Für jegliche Lösungsansätze wäre ich dankbar.

Gruß Weirdo

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

---

Der Beitrag ist zwar alt würde mich aber auch interessieren!
Mfg Chris

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

---

Hi Chris,
schau Dir doch mal das "Sortents Table Objekt" an. Mit dem MoveToButtom Beispiel schieb ich alle Pixelbilder ganz nach nach hinten.
Grüße,
Klaus 

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

---

Vor 2005 bleibt bloß die physische Sortierung .. (siehe auch hier ..

ansonsten : Siehe Klaus ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Habs schon Danke!
Sub MoveObj_to_Bottom(ObjectACAD)
'Get an extension dictionary and, if necessary, add a SortentsTable object
    Dim arrx(0) As AcadObject
    Dim ObjIds(1) As Long
    Dim sentityObj As Object
    Dim eDictionary As Object
   
    Set eDictionary = ThisDrawing.Modelspace.GetExtensionDictionary
   
    On Error Resume Next
    sentityObj = Nothing
    Set sentityObj = eDictionary.GetObject("ACAD_SORTENTS")
    On Error GoTo 0
   
    If sentityObj Is Nothing Then
    'If Err <> 0 Then
        ' No SortentsTable object, so add one
        Set sentityObj = eDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
    End If
        On Error GoTo 0
    ObjIds(0) = ObjectACAD.ObjectID  'plineObj.ObjectID
 
    Dim varObject As AcadObject
    Set varObject = ThisDrawing.ObjectIdToObject(ObjIds(0))
   
    Set arrx(0) = ObjectACAD 'varObject
   
    'Move the Object to the bottom
    sentityObj.MoveToBottom arrx
    AcadApplication.Update
    Err.Clear
     
End Sub

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