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