Export polyline data (area, layer and inner text) to excel

Anonymous · ‎09-08-2018

Hello, everyone!

I am searching for a lisp that can find all closed polylines in a drawing and export to excel their following information:

-Area of each closed polyline

-Layer in which the polyline resides

-Text inside each polyline

I have a building plan with polylines enclosing each room and the corresponding room text number also inside the polyline. I am looking for a lisp that can export to excel a table like this:

Text inside polyline	Polyline Area (m2)	Layer
"Room_1.1"	10 m2	Room_Layer
"Room_1.2"	5 m2	Room_Layer
"Room_1.3"	5 m2	Room_Layer
-	20 m2	Floor_Layer

The polylines and room text numbers are located in different layers.

One of the polylines (last row in the table) encloses the whole building which means that there is more that one text inside it. For this single polyline, I only need its area and layer (text not needed).

I am fairly new to lisp creation so any help you can provide me would be highly appreciated!

Thanks in advance!

pbejse · ‎02-20-2019

This

";"
(strcat (rtos (Cadr itm) 2 2) " m2")
";"

to

";"
(strcat (vl-string-translate "." "," (rtos (Cadr itm) 2 2)) " m2")
";"

Good job buddy

🙂

wacho31 · ‎02-20-2019

You are magician! works perfect!

Thank you

Here is a result (attachments)

wacho31 · ‎02-20-2019

Is it possible to add below exported data in csv file

- in first column:

string "Total area:"

- in second column:

value with sum of areas

Thank You!

jalal.mousa · ‎03-10-2019

Hi There,

can you edit lisp to add column for perimeter of room beside area ?

@pbejse wrote:

@Anonymous wrote:

Just one more detail, would it be possible to add a 4th column to the table with the information on whether the polylines are closed or not (field "Closed" in "Misc" properties, attached image).

Here you go.

(defun c:EPD (/ ss i area layer all_data pts csv_file openfile) ; Export Polyline Data
;;			pBe Sep 2018			;;
  (if (and
        (setq all_data nil
              ss       (ssget '((0 . "LWPOLYLINE")))
        )
	        (repeat (setq i (sslength ss))
	          (setq e     (ssname ss (setq i (1- i)))
	                area  (vlax-curve-getarea e)
	                layer (cdr (assoc 8 (setq ent (entget e))))
	                cl_op (cdr (assoc 70 ent))
	                pts   (mapcar 'cdr
	                              (vl-remove-if-not
	                                '(lambda (d)
	                                   (= 10 (car d))
	                                 )
	                                ent
	                              )
	                      )
	          )
	          (if (setq ssText (ssget "_CP" pts '((0 . "TEXT"))))
	            (setq all_data
	                   (cons
	                     (list (if (= (sslength ssText) 1)
	                             (cdr (assoc 1 (entget (ssname ssText 0))))
	                             "-"
	                           )
	                           area
	                           layer
	                           (if (zerop ( logand 1 cl_op)) "No" "Yes")
	                     )
	                     all_data
	                   )
	            	)
                 )
               all_data
               )
	        (setq csv_file (getfiled "Save CSV File"
	                                 (strcat
	                                   (getvar 'dwgprefix)
	                                   (vl-filename-base (getvar 'dwgname))
	                                   ".csv"
	                                 )
	                                 "csv"
	                                 45
	                       )
	        	)
	        )

        (progn
          (setq openfile (open csv_file "w"))
          (write-line
            "Text inside polyline,Polyline Area (m2),Layer,Closed"
            openfile
          )
          (foreach itm (vl-sort all_data
                                '(lambda (a b) (< (Cadr a) (cadr b)))
                       )
            (write-line
              (Strcat (Car itm)
                      ","
                      (strcat (rtos (Cadr itm) 2 2) " m2")
                      ","
                      (caddr itm)
                      ","
                      (last itm)
              )
              openfile
            )
          )
          (close openfile)
          (startapp "notepad" csv_file)
        )
      )
  (princ)

)

pbejse · ‎03-11-2019

I assume you meant "length", it is the same is it not? Can you confirm that it is.

jalal.mousa · ‎03-11-2019

Hi,
Yes you are right, once you use polyline it will give you in properties area and length
I would like to get :

1. Text inside polyline
2. Polyline layer name
3. Area (in sf or sm depends on inits)
4. Length (in lf or lm)
[cid:image001.png@01D4D7E7.FD000080]

CLL_PBE · ‎03-11-2019

@jalal.mousa wrote:
Hi,
Yes you are right, once you use polyline it will give you in properties area and length
I would like to get :

1. Text inside polyline
2. Polyline layer name
3. Area (in sf or sm depends on inits)
4. Length (in lf or lm)
[cid:image001.png@01D4D7E7.FD000080]

Sure

command: TPAL [ attached file ]

Result:

Text inside polyline,Layer,Polyline Area (m2),Length
Single line 2,Alayer,248.44 m2,69.41
Single line 5,AnotherLayer,226.73 m2,60.32
Single line 4,AndAnother,610.96 m2,98.92
Single line 1,YetAnotherLayer,215.65 m2,58.78

HTH

jalal.mousa · ‎03-11-2019

Hi There,
Thanks a lot for your help this is great, but I am facing trouble with using this code with all polylines I draw
It loads lisp successfully but when I run it and select objects it won't wright results to notepad/excel
When I tried lisp on sample provided it works
Any thoughts on why it is not working?
Please see attached file with 3 rooms I draw (room 100,102,103) that lisp won't work with
I am using Autocad 2015 not sure if it's matters
Thanks in advance

pbejse · ‎03-11-2019

@jalal.mousa wrote:
..
Please see attached file with 3 rooms I draw (room 100,102,103) that lisp won't work with
..

Those must be invisible drawing files I've been hearing about in the past 3 months

Try attaching the file again @jalal.mousa .

jalal.mousa · ‎03-12-2019

Hi not sure why it did not attached it maybe because i reply in e-mail

please see attached hope it will work

CLL_PBE · ‎03-12-2019

@jalal.mousa wrote:

Hi not sure why it did not attached it maybe because i reply in e-mail

please see attached hope it will work

On your previous post, you posted a code that you want to modify, and it shows below.

So...

change

(setq ssText (ssget "_CP" pts '((0 . "TEXT"))))

To

(setq ssText (ssget "_CP" pts '((0 . "MTEXT"))))

HTH

jalal.mousa · ‎03-12-2019

this solution works perfect

thanks a lot

I was wondering if I can ask for last few things

please see attached file that different polyline overlap each other in few locations

would it be possible to provide a count column and total length where they overlap ?

so in attached file you will see notes I put to clarify above

jalal.mousa · ‎03-12-2019

sorry for bothering you again

can you add:

would it also possible to list all text that have no polyline around
add column beside text content for text layer name

in our example the answer would be ;

Text with no poliyline around ( 101)
name of layer (0)

many thanks in advance

jalal.mousa · ‎03-12-2019

sorry for bothering you again

can you add:

would it also possible to list all text that have no polyline around
add column beside text content for text layer name

in our example the answer would be ;

Text with no poliyline around ( 101)
name of layer (0)

many thanks in advance

CLL_PBE · ‎03-12-2019

@jalal.mousa wrote:

this solution works perfect

thanks a lot

I was wondering if I can ask for last few things..

...

would it be possible to provide a count column and total length where they overlap

....

can you add:

would it also possible to list all text that have no polyline around

add column beside text content for text layer name

You can ask by all means.

Yes Yes, and Yes

Would you like some fries to go with that lisp?

jalal.mousa · ‎03-12-2019

LOL
I know it is too much to ask

pbejse · ‎03-12-2019

@jalal.mousa wrote:
LOL
I know it is too much to ask

Just playing with you, I'll post the modified code later

Cheers

jalal.mousa · ‎03-12-2019

sorry to bother you again

i just notice that :

if there is more than one text inside closed polyline it won't grab any of the text but -
it won't grab closed polyline if no text inside
it won't grab text if no closed polyline around it (this mentioned probably part of last email)

is this something can be fixed ?

pbejse · ‎03-13-2019

@jalal.mousa wrote:

sorry to bother you again

i just notice that :

if there is more than one text inside closed polyline it won't grab any of the text but -

it won't grab closed polyline if no text inside

it won't grab text if no closed polyline around it (this mentioned probably part of last email)

is this something can be fixed ?

Are you serious right now?

The answer is still YES

But first

Deposit 50 USD to this account number

(73 39 109 32 97 98 117 115 105 110 103 32 121 111 117 114 32 107 105 110 100 110 101 115 115)

....

jalal.mousa · ‎03-13-2019

Omg 😴

Community

Export polyline data (area, layer and inner text) to excel

Export polyline data (area, layer and inner text) to excel

Export polyline data (area, layer and inner text) to excel