Layer to Line

Looking for a quick way to take all the layers from a dwt and draw a line on each layer. (No particular area)

This may help you:

(defun c:LineInLayers( / OldOsm LayerName TabPoz)
(setq OldOsm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setvar "CMDECHO" 0)
(setq TabPoz T)
(while (setq LayerName (tblnext "LAYER" TabPoz))
 (setq LayerName (cdr (assoc 2 LayerName)))
 (entmake (list (cons '0 "LINE")
        (list '10 0.0 0.0 0.0)
        (list '11 1.0 1.0 0.0)
        (cons 8 LayerName)))
 (princ (strcat "\nLayer " LayerName " processed!"))

 (setq TabPoz nil)
)
(setvar "OSMODE" OldOsm)
(princ)
)

Regards