Visual LISP, AutoLISP and General Customization

[#1]

---

msarqui wrote:

It is possible to do this in model and paper space at the same time? Like in on shot?

Thanks!

---

Not one shot but sorta

(defun c:HatchBack  (/ HatchColl Dict sorttable)
  (vlax-for layout  (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (setq HatchColl nil
          Dict      (vla-getextensiondictionary layout))
    (if (vl-catch-all-error-p
          (setq sorttable (vl-catch-all-apply 'vla-item (list dict "ACAD_SORTENTS"))))
      (setq sorttable (vla-addObject dict "ACAD_SORTENTS" "AcDbSortentsTable")))
    (vlax-for itm  layout
      (if (eq (vla-get-objectname itm) "AcDbHatch")
        (setq HatchColl (cons itm HatchColl))))
    (and HatchColl (vlax-invoke sorttable 'MoveToBottom HatchColl)
         )
    )(princ)
  )

[#2]

It works like a charm.

Thanks pbejse!

[#3]

---

msarqui wrote:

It works like a charm.

Thanks pbejse!

---

Glad it works for you msarqui

Cheers