(defun ff_hata (s)
  (if (/= s "Function cancelled")
    (princ (strcat "
Error: " s))
  )
  (setq *error* olderr)
  (princ)
)
(defun c:ff (/ SS1 E# ENT NAMES LYR)
  (setq olderr *error*
*error* ff_hata
  )
  (setvar "cmdecho" 0)
  (princ "
Katmanı kapatılacak nesneleri seçiniz:")
  (setq SS1 (ssget)
E#  (sslength SS1)
  )
  (if (> E# 0)
    (progn
      (setq ENT   (ssname SS1
  (setq E# (1- E#))

  )
    ENT   (entget ENT)
    NAMES (cdr (assoc 8 ENT))
    E#   (1- E#)
      )
    )
  )
  (while (> E# -1)
    (setq ENT (ssname SS1 E#)
  ENT (entget ENT)
  LYR (cdr (assoc 8 ENT))
  NAMES (strcat NAMES "," LYR)
  E# (1- E#)
    )
  )
  (command "LAYER" "F" NAMES "")
  (princ)
)
(princ)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")