(defun MegaCADNr ()
 (if (= (strlen (rtos rang)) 1)(setq MLayerNr (strcat "0000" (rtos rang) ": ")))
 (if (= (strlen (rtos rang)) 2)(setq MLayerNr (strcat "000" (rtos rang) ": ")))
 )

(defun c:LL (/ dirname, file, count, f, row, LayerName)
;;;  (setq dirname (strcat (getvar "dwgprefix") "Layerliste.txt"))
  (setq dirname1 (strcat (getvar "dwgprefix") "Layerliste_base.txt"))
  (setq file1 (open dirname1 "w"))
;;;  (setq file (open dirname "w"))
;;;  (write-line (strcat "Layer List for " dirname1) file1 )
;;;  (write-line "" file1)
  (setq count 0)
  (setq f 1)
  (setq Rang 1)
  (setq LayerLs nil)
  (while (setq row (tblnext "LAYER" f))
    (setq f nil)
    (setq LayerName (cdr (assoc 2 row)))
    (MegaCADNr)
    (setq LS (cons MLayerNr LayerName))
    (setq LayerLs (cons LS LayerLs))

    (setq txt (strcat MLayerNr LayerName))
    (write-line txt file1)
    
    (setq count (+ count 1))
    (setq Rang (+ Rang 1))
  )
  (close file1)
;;;  (close file)
  (princ count)
  (princ (strcat " layers have been written to " dirname "."))
  (princ)
)
(princ  "\nTippe LL um eine für MegaCAD sortierte Layerliste zu erstellen.")