;Blikej - zabliká vybranou hladinou
;CAD Studio - www.cadstudio.cz - www.cadforum.cz
;------------------------------------------------------------

(defun C:BLIKEJ ( / ent lay sslay)

 (defun ssblik (ss val / ssl i entn)
  (setq i 0  ssl (sslength ss))
  (repeat ssl
     (setq entn (ssname ss i))
     (redraw entn val)
     (setq i (1+ i))
  )
 )

 (setvar "cmdecho" 0)
 (if (and
	 (setq ent (entsel "\nVyberte objekt pro zablikání hladinou: "))
	 (setq ent (car ent))
	 (setq lay (cdr (assoc 8 (entget ent))))
	 (setq sslay (ssget "_X" (list (cons 8 lay))))
     )
  (repeat 12
     (ssblik sslay 3)
     (command "._delay" "100")
     (ssblik sslay 4)
     (command "._delay" "100")
  ))
 (princ)
)
;(regenall)?