Topic: Print Layers (or export to Word / Excel)

[M-dub]

As the subject states, I'm looking for something that will either print out the layers in a drawing (Acad2000) or export them to an Excel spreadsheet or Word document.  Anyone have any ideas?  (Besides -layer and copying all that stuff to Word and all that garbage...I've got Freakin' TONS of layers in this one drawing in particular.)

Thanks a million!

Mike

[Mark]

why don't we write one real quick? I'll get it started.

[Mark]

that was quick Mark!!

creates a .csv file on the root of C named the same as the dwg.
example: Drawing1.csv

Code: [Select]


(defun c:layers2csv (/ get->layobj open->file lay lylst fo)
  (vl-load-com)

  (defun get->layrobj ()
    (vla-get-Layers
      (vla-get-ActiveDocument
        (vlax-get-acad-object)
        )
      )
    )
 
    (vlax-for lay (get->layrobj)
      (setq lylst
             (cons
               (list
                 (vlax-get-property lay 'Name)
                 (itoa (vlax-get-property lay 'Color))
                 (vlax-get-property lay 'Linetype)
                 )
               lylst
               )
            )
      )

  (if lylst
    (progn
       ; remove layer '0' and reverse the list
      (setq lylst (reverse (vl-remove (last lylst) lylst))
            ; sort the list
            lylst (vl-sort lylst '(lambda (x y) (< (car x)(car y))))
            fo (open (strcat "c:/"(getvar 'dwgname)".csv") "w"); suitable for Excel
            )
      (foreach l lylst
        (write-line (strcat (car l) "," (cadr l) "," (last l)) fo)
        )
      (close fo)
      )
    )

  (princ)
  )


[M-dub]

I am not worthy of your talents, Mark!

When are you gonna put that paypal thing up again?  

[Mark]

glad you like it

[Dent Cermak]

Go to your Sheet Manager tab, down to "Sheet Tools", then down to "Create Layer Report". Gives you a nice file that you can edit in WORD, and probably Excel.

[M-dub]

I'll have to try that one tomorrow Dent.  Hopefully it works!
Thanks a lot!
Mike

[Dent Cermak]

Well, did it work ?

[M-dub]

Call me an idiot, but I can't find 'Sheet Manager' so, No, I guess it didn't work.  

I just have Acad 2000...pretty plain jane.

[Dent Cermak]

Dang!! Send me the drawing and I will send you a text file. A blank drawing with all of your layers loaded will do the trick.

[M-dub]

Acutally Dent, I completely appreciate the offer, but the routine Mark provided me with worked like a charm.
Thanks a lot!

[One Shot]

that was quick Mark!!

creates a .csv file on the root of C named the same as the dwg.
example: Drawing1.csv

Code: [Select]


(defun c:layers2csv (/ get->layobj open->file lay lylst fo)
  (vl-load-com)

  (defun get->layrobj ()
    (vla-get-Layers
      (vla-get-ActiveDocument
        (vlax-get-acad-object)
        )
      )
    )
 
    (vlax-for lay (get->layrobj)
      (setq lylst
             (cons
               (list
                 (vlax-get-property lay 'Name)
                 (itoa (vlax-get-property lay 'Color))
                 (vlax-get-property lay 'Linetype)
                 )
               lylst
               )
            )
      )

  (if lylst
    (progn
       ; remove layer '0' and reverse the list
      (setq lylst (reverse (vl-remove (last lylst) lylst))
            ; sort the list
            lylst (vl-sort lylst '(lambda (x y) (< (car x)(car y))))
            fo (open (strcat "c:/"(getvar 'dwgname)".csv") "w"); suitable for Excel
            )
      (foreach l lylst
        (write-line (strcat (car l) "," (cadr l) "," (last l)) fo)
        )
      (close fo)
      )
    )

  (princ)
  )


Mark,

This cool, but where do the file go after your run the lisp?

[One Shot]

I found it.  Is there a way that the file can be sent to a folder that you want?

thank you,

Brad

[nivuahc]

Change this line

Code: [Select]

fo (open (strcat "c:/"(getvar 'dwgname)".csv") "w"); suitable for Excel

to the directory of your choosing (using forward slashes, of course). Like this:

Code: [Select]

fo (open (strcat "c:/this/is/my/favorite/folder/"(getvar 'dwgname)".csv") "w"); suitable for Excel

[David Hall]

Go to your Sheet Manager tab, down to "Sheet Tools", then down to "Create Layer Report". Gives you a nice file that you can edit in WORD, and probably Excel.

I have 2005, i opened Sheet Set Manager, but I cant find what you are referring to.