Print Layer name list [Archive]

Totes100

30th Apr 2004, 07:11 pm

Hi,

How do I print a list of all the Layer names in a project?

Using Acad 2002.

TIA,

Rob

Totes100

30th Apr 2004, 08:24 pm

Found my own answer. Hope others find it useful.

Method Number 1

Enter LOGFILEON at the command prompt.
Enter -la on the command line. This invokes the LAYER command without launching the Layer dialog box.
Enter ? to select the layers to list.
Press ENTER to accept the default * wildcard character. This displays the text window with all the layer names and their properties.
Press ENTER to complete the LAYER command.
Enter LOGFILEOFF at the command prompt.
Using a word processor, such as Windows Notepad, open the file in the AutoCAD folder with the same name as the active drawing in AutoCAD. For example, test.dwg would have a logfile named test.log.

Method Number 2
Enter -la on the command line. This invokes the LAYER command without launching the Layer dialog box.
Enter ? to select the layers to list.
Press ENTER to accept the default * wildcard character. This displays the text window with all the layer names and their properties.
Press ENTER to complete the LAYER command.
Pick and drag to select the text in the AutoCAD Text window.
Right click to display the Text Window drop-down menu.
Select Copy from the drop-down menu to copy the text to the Clipboard. You can now paste the text into most Windows applications.

--------------------------------------------------------------------------------

tlyall

30th Apr 2004, 11:02 pm

or you can try this routine...

Type -layer on the command line.
Choose the ? option to get a list of layers.
Press F2 to open the Text Window.
Select the layer list.
Right-click and choose Copy.
Open a text editor such as Notepad. (Start > Run. Type Notepad and click OK.) You can use Microsoft Word or another word processor, but the columns won't line up as nicely.
Press Ctrl+V or choose Edit>Paste.
Choose File>Print.

Flores

1st May 2004, 02:50 am

Here is a routine that prints a text file of the layers. If you right click your ACAD icon on the desktop, and enter a drawing location in the shortcut tab > "start in" field, this is where this routine will make the layer file.

;Laylog.LSP: Writes a log of layers in a drawing to a file.
;

;_________________________________________________ ______________________

(DEFUN Convert_date ()
(Setq dte (rtos (getvar "cdate") 2 4))
(setq yr (substr dte 1 4))
(setq mo (substr dte 5 2))
(setq dy (substr dte 7 2))
(setq sdate (strcat "DATE: "mo "/" dy "/" yr "\t"))
)

(defun tabber (item / leng)
(setq leng (strlen item))
(cond
((< leng 8) "\t\t\t\t")
((< leng 16) "\t\t\t")
((< leng 24) "\t\t")
((< leng 32) "\t")
)
)

;;;;;;;;;;; below appends
(DEFUN flie_append (FNAME)
(SETQ appnder (OPEN FNAME "r"))
)
;;;;;;;;;;;;;;;;;;;;;;;;;
(defun creat (fname / layer_name layer_color layer_type tab1 record layer_file)
(if appnder
(progn
(princ (strcat "\nAppending current layer list to " fname))
(setq layer_file (open fname "a"))
)
(setq layer_file (open fname "w"))
)
(princ "\n" layer_file)
(princ "__________________________________________________ __\n" layer_file)
(convert_date)
(princ sdate layer_file)
(princ (strcat "Drawing Name: " fname) layer_file)
(princ "\n\n" layer_file)
;;; (princ "Layer Name\t\t\tColor\tLine Type\tRemarks\n" layer_file)
(princ "Layer Name\t\t\tColor\tLine Type\n" layer_file)
(princ "__________________________________________________ \n" layer_file)
(setq record (tblnext "layer" T))
(while record
(setq layer_name (cdr(assoc 2 record))
layer_color (itoa (cdr(assoc 62 record)))
layer_type (cdr(assoc 6 record))
)
(setq tab1 (tabber layer_name))
(setq layer_name (strcat layer_name tab1)
layer_color (strcat layer_color "\t")
)
(princ layer_name layer_file)
(princ layer_color layer_file)
(princ layer_type layer_file)
(princ "\n" layer_file)
(setq record (tblnext "layer"))
);end while
; (princ "\n" layer_file)
(close layer_file)
(PRINC)
)

(defun c:laylog (/ fname exst nme laynme laylst oldlst appnder)
(setq nme (getvar "dwgname"))
(setq fname (getstring (strcat "\nEnter name of layer file <" nme ">: " )))
(if (= fname "")
(setq fname nme)
)
(setq fname (strcat fname ".txt"))
(flie_append fname)
(creat fname)
(princ)
)

Flores