( defun getdraworder ( / 
                       alllist allorder
                       eobj extdict
                       ianz izler
                       lzr
                       sorttbl space
                       vobj )
  
;-------------------------------------------------------------------------------------------

(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"))
)

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

;-------------------------------------------------------------------------------------------

(setq lzr nil)
(setq ianz (length allList))
(setq izler 0)
(while (< izler ianz)
  (setq vobj (nth izler allList))
  (setq eobj (vlax-vla-object->ename vobj))
  (setq lzr (append lzr (list eobj)))
  (setq izler (+ izler 1))
) ; while

; Rückgabewert
  lzr

) ; Modulende