; This function to change some entities by reference to 
; a picked entity
(defun c:ce (/ x )
  (setq x (entsel "\nSelect reference entity: "))
  (setq nl (cdr (assoc 8 (entget (car x)))) )
  (setq group (ssget))
  (command "change" group "" "P" "LAyer" nl "")
)
