LISP-hatchtoback y textoalfrente que actuen en modelo y recorran todas las presentaciones

[MANTONIOPM]

Hola buenas noches, ando buscando el código VBA o lisp para que me ejecute el comando hathtobak y textoalfrente tanto en modelo como en todas las presentaciones, porque cuando lo intento al poner el tilemode para las presentaciones me lo hace solo en la primera presentación que se encuentra y en las demás ya no. Gracias por adelantado.

[calderg1000]

Estimado @MANTONIOPM 

Aqui te adjunto la rutina que adapte de otra del foro de la comunidad en Ingles. Esta rutina, envía los Hatch hacia el fondo y también hacia el frente.

;;;Routine Autolisp, adapted by Calderg1000 de: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/draworder-all-layouts/td-p/5947873
;;;para dar respuesta a una consulta en el foro de la comunidad de Autodesk en español
;;;01-01-21
;;;--------------------------Draw Order Hatch to Back in all Layouts--------------------------------
(defun C:Htb (/ doit)
  (defun doit (/ ss)
    (if (setq ss (ssget "_X" (list '(0 . "HATCH") (cons 410 (getvar 'ctab)))))
      (command "_.draworder" ss "" "_Back")
    ); if
  )
  (foreach layout (layoutlist)
    (setvar 'ctab layout) (doit)
  )
  (setvar 'ctab "Model") (doit)
  (princ)
); defun

;;;--------------------------Draw Order Hatch to Front in all Layouts-------------------------------
(defun C:Htf (/ doit)
  (defun doit (/ ss)
    (if (setq ss (ssget "_X" (list '(0 . "HATCH") (cons 410 (getvar 'ctab)))))
      (command "_.draworder" ss "" "_Front")
    ); if
  )
  (foreach layout (layoutlist)
    (setvar 'ctab layout) (doit)
  )
  (setvar 'ctab "Model") (doit)
  (princ)
); defun