(DEFUN c:eig_ueber (
/
obj
lay
l
f     
)     

(DEFUN gcr (
gcn
obj   
/
)   
(CDR (ASSOC gcn obj))
)
  
(SETQ i 0)  
(IF (SETQ aws (SSGET))
(REPEAT (SSLENGTH aws)
    (SETQ ob (SSNAME aws i))
    (SETQ obj (ENTGET ob))
    (SETQ lay (gcr 8 obj))
    (SETQ l (gcr 6 obj))
    (SETQ f (gcr 62 obj))
    (IF l (COMMAND "_-layer" "L" l lay ""))
    (IF f (COMMAND "_-layer" "FA" f lay ""))
    (COMMAND "_change" ob "" "EI" "FA" "VONLAYER" "")
    (COMMAND "_change" ob "" "EI" "LTY" "VONLAYER" "")
    (SETQ i (1+ i))   
)  
)
)