Getfulldraworder

I'm trying to list out objects in draw order, but they keep coming out in the wrong order. What am I doing wrong here?

Dim e as AcadEntity
Dim b as AcadBlock
Dim eDictionary As Object
Dim sentityObj As AcadSortentsTable

Set eDictionary = _
ThisDrawing.ModelSpace.GetExtensionDictionary
Set sentityObj = eDictionary.GetObject("ACAD_SORTENTS")
Set b = ThisDrawing.ModelSpace

sentityObj.GetFullDrawOrder b, True
For Each e In sentityObj.Block
MsgBox e.ObjectName
Next e

Thanks for any help you can provide.

- ej

 

Hi,

For curiosity. What is the value of getting a list of objects in the order
they were drawn ?

--


Laurie Comerford
CADApps
www.cadapps.com.au

the wrong order. What am I doing wrong here?

 

So I can output them in the correct order.

 

Hi,

I'm still curious.

Why is any particular "order" correct?

Why do you want to output them in the correct order?


--

Regards,


Laurie Comerford
www.cadapps.com.au

 

The draw order is the order they are drawn on the screen. So if you have a filled rectangle overlapping a fille circle, say, the draw order determines which gets drawn on top of the other. If the circle is drawn first, the rectangle is going overlap and obscure part of the circle. That is the draw order.

 

Hi,

That's easy then. I'd look at the screen.

Laurie Comerford
CADApps
www.cadapps.com.au

a filled rectangle overlapping a fille circle, say, the draw order
determines which gets drawn on top of the other. If the circle is drawn
first, the rectangle is going overlap and obscure part of the circle. That
is the draw order.

 

I'm blind.