Přesun bloků do pozadí

LISP aplikace, která hromadně přesune všechny bloky ve výkrese tak, že budou zobrazeny v pozadí.

---

(DEFUN C:ib()

; Nastevni typu entity na bloky
(setq TYP "INSERT")

; Vyber vsech entit zvoleneho typu do vyberove mnoziny
(setq hatchset
  (ssget "X"
    (list (cons 0 TYP))
  )
)

; Presunuti zobrazeni vsech sraf do pozadi
(command "_draworder" hatchset "" "_b")

)

---

Soubor ke stažení