topic Re: layout name to excel or csv in Visual LISP, AutoLISP and General Customization Forum

layout name to excel or csv

chan230984 — Mon, 30 Sep 2019 03:53:38 GMT

hi all I have many layout but I want to send to Excel or csv

who can help me write some lisp

thanks

Re: layout name to excel or csv

Moshe-A — Mon, 30 Sep 2019 05:15:02 GMT

@chan230984 hi,

check this on

enjoy

moshe

; Layout To Excel CSV

(defun c:lay2Csv (/ fname f)
 (setq fname (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) ".csv"))
 (if (setq f (open fname "w"))
  (progn
   (foreach lay (layoutlist)
    (write-line lay f)
   ); foreach

   (setq f (close f))
   (prompt (strcat "\nCreating " fname " file."))
  ); progn
 ); if

 (princ)	
)

Re: layout name to excel or csv

lavarias.jayson.v — Tue, 31 May 2022 04:06:43 GMT

This works great, Is there a way to include dwg name on first column of excel?. Thank you in advance.

Re: layout name to excel or csv

kpblc2000 — Tue, 31 May 2022 05:47:49 GMT

(vl-load-com) (defun c:lay2csv (/ file handle layouts dwgname) (setq dwgname (strcat (getvar "dwgprefix") (getvar "dwgname")) file (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) ".csv") ) ;_ end of setq (if (setq handle (open file "w")) (progn (setq layouts (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))) (write-line "File\tLayout name\tCount" handle) (foreach item (layoutlist) (write-line (strcat dwgname "\t" item "\t" (itoa (vla-get-count (vla-get-block (vla-item layouts item))))) handle ) ;_ end of write-line ) ;_ end of foreach (close handle) (princ (strcat "\nAll data saved to " file)) ) ;_ end of progn ) ;_ end of if (princ) ) ;_ end of defun

Re: layout name to excel or csv

lavarias.jayson.v — Tue, 31 May 2022 08:42:42 GMT

Thank you @kpblc2000 for your urgent response.

What I need is to reflect the dwg names on the first column and the layout names on the second column.

Will this be possible? Thank you.

Re: layout name to excel or csv

kpblc2000 — Tue, 31 May 2022 08:51:46 GMT

You see I tried to add "entities range at layout" because empty layouts will contain 0 entities. And you can filter empty layouts. If you don't need it, try this one:

(vl-load-com) (defun c:lay2csv (/ file handle layouts dwgname) (setq file (strcat (getvar "dwgprefix") (setq dwgname (vl-filename-base (getvar "dwgname"))) ".csv") ) ;_ end of setq (if (setq handle (open file "w")) (progn (write-line "File\tLayout name" handle) ; comment (place semicolon at the start of line) this line if you don't need table header (foreach item (layoutlist) (write-line (strcat dwgname "\t" item) handle) ) ;_ end of foreach (close handle) (princ (strcat "\nAll data saved to " file)) ) ;_ end of progn ) ;_ end of if (princ) ) ;_ end of defun

P.S. I didn't check it

P.P.S. Sorry for my English

Re: layout name to excel or csv

lavarias.jayson.v — Tue, 31 May 2022 09:48:47 GMT

Thanks @kpblc2000

Here's the result of the program.

Filename and layout name shared the same column. It is possible to have the Filename on Column A and layout name on column B?

Re: layout name to excel or csv

kpblc2000 — Tue, 31 May 2022 10:48:50 GMT

During import data to Excel try to select "Tab symbol" as a delimiter.

Re: layout name to excel or csv

lavarias.jayson.v — Tue, 31 May 2022 10:56:49 GMT

@kpblc2000 Thanks.

where should I place the tab symbol on the program? pardon, I totally new with lisp program. Thanks.

Re: layout name to excel or csv

kpblc2000 — Tue, 31 May 2022 12:46:42 GMT

Not at program. During importing.

You can replace

symbol to any you want 🙂

Re: layout name to excel or csv

lavarias.jayson.v — Tue, 31 May 2022 13:09:54 GMT

@kpblc2000

Thanks a lot. Got It now 😊

Re: layout name to excel or csv

Sea-Haven — Wed, 01 Jun 2022 02:22:07 GMT

CSV Comma Seperated Values is not a csv file where a Tab is used as seperator in the true sense, understand why you did it that way.

Its easy to do (write-line (strcat dwgname "," layoutname) handle) then no confusion. Also "," = (chr 44)

Just me "handle" is a valid Autocad reserved name so would not use it as a variable name.

Re: layout name to excel or csv

kpblc2000 — Wed, 01 Jun 2022 07:11:19 GMT

File name can contain commas so using comma as delimiter (i think) can't guarantee result.

About ""handle" is a valid Autocad reserved name" - never heard about it. Up to ACAD20221 this code work correctly.