Topic: getting object "above" with from draworder

[jmaeding]

(Posted in adesk customization group also)
I want to replace an existing entity with another, and put the new one at the exact same draworder.
To get the draworder of the existing entity, I have to use the getfulldraworder method I believe.
Once I have the list, I can determine what object is above me so I use that in the MoveBelow method.
I am this far with getting it:

(setq space (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq extdict (vla-getextensiondictionary space))
(if (not (zerop (vla-get-count extdict)))
  (setq sorttbl (vla-getobject extdict "acad_sortents"))
  (setq sorttbl (vla-addobject extdict "acad_sortents" "acdbsortentstable"))
)
(setq allorder (vla-getfulldraworder sorttbl space :vlax-false))

but no go, I get nil for allorder...any ideas

[T.Willey]

I just noticed that the SortEntsDictionary has a SwapMember method.  If you have the entity names, then you can swap them, no need to find the full order (which I haven't been able to do either).

SwapOrder Method
 


Swaps the draw order positions of two objects.

See Also | Example

Signature

object.SwapOrder (Object1, Object2)

object

SortentsTable
The object or objects this method applies to.

Object1

AcadEntity; the first object.

Object2

AcadEntity; the second object.

[T.Willey]

It worked for me.  I drew a line, and then a rectangle, and then I hatched the rectangle.  I used the draw order command, and brought it all to front.  The hatch still on top.  I got the object id for the line, and the hatch.  I swaped them in the dictionary, and after a regen the line shows over the hatch.

Hope that helps.

[Jeff_M]

(setq allorder (vla-getfulldraworder sorttbl space :vlax-false))

but no go, I get nil for allorder...any ideas

Yep, this is one of those cases where the supplied argument (you used space above) is an OUTPUT variable.....this is more what you want:

Code: [Select]

(vla-getfulldraworder sorttbl 'allorder :vlax-false)
(setq allList (vlax-safearray->list allorder))


[T.Willey]

(setq allorder (vla-getfulldraworder sorttbl space :vlax-false))

but no go, I get nil for allorder...any ideas

Yep, this is one of those cases where the supplied argument (you used space above) is an OUTPUT variable.....this is more what you want:

Code: [Select]

(vla-getfulldraworder sorttbl 'allorder :vlax-false)
(setq allList (vlax-safearray->list allorder))


Good one Jeff.  I don't know if I would have ever caught that one.

[jmaeding]

ahhh, grasshoppper!
Thanks again, hope you make it to AU this year!