Přesun šraf do pozadí

Skript, který přesune zobrazení všech šraf ve výkrese do pozadí.

---

(DEFUN C:hb()

; Nastevni typu entity na srafy
(setq TYP "HATCH")

; 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í