Export polyline data (area, layer and inner text) to excel
@Anonymous wrote:
Polyline nº Text inside polyline Polyline Area (m2) Polyline Layer 1 1.1 51.34 m2 Room Layer 2 1.2 28.75 m2 Room Layer 3 1.3 14.41 m2 Room Layer 4 - 100.75 m2 Floor Layer
Try this [results in CSV format]
(defun c:demo (/ ss i area layer all_data pts csv_file openfile)
;; 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))))
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
)
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"
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)
)
openfile
)
)
(close openfile)
(startapp "notepad" csv_file)
)
)
(princ)
)
HTH
Accepted solution
@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)
)
@Anonymous wrote:
Would it be possible for the table to:
-include polylines without texts
How would you want to label those polylines on the table? as blank or a dash perhaps?
@devitg wrote:
It´s easy to ask by step, when it would be better to ask the whole stair.
True.
@Anonymous wrote:
-include polylines without texts
-include one last column with the polyline's "Handle ID"
-include all the texts inside the polyline in the first column
(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)))
ent (entget e)
area (vlax-curve-getarea e)
data (mapcar '(lambda (d)(cdr (assoc d ent))) '( 8 70 5))
pts (mapcar 'cdr
(vl-remove-if-not
'(lambda (d)
(= 10 (car d))
)
ent
)
)
)
(setq all_data
(cons
(list
(cond
((null (setq ssText (ssget "_CP" pts '((0 . "TEXT"))))) "-"
)
((= (sslength ssText) 1)
(cdr (assoc 1 (entget (ssname ssText 0))))
)
((substr
(apply 'strcat
(mapcar '(lambda (st)
(strcat " | " st))
(vl-sort
(mapcar '(lambda (s)
(cdr (assoc 1 (Entget s)))
)
(vl-remove-if 'listp (mapcar 'cadr (ssnamex ssText)))
)
(function (lambda (a b)
(< a b)
)
)
)
)
)
4
)
)
)
area
(car data)
(if (zerop ( logand 1 (cadr data))) "No" "Yes")
(caddr data)
)
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,Handle"
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)
","
(cadddr itm)
","
(last itm)
)
openfile
)
)
(close openfile)
(startapp "notepad" csv_file)
)
)
(princ)
)
I used the pipe " | " as the separator for collected names, the comma symbol is used for delimiter for the csv file.
| 1.1 | 1.2 | 1.3 | 187.25 m2 | Floor Layer | Yes | 8BBD |
HTH
@Anonymous wrote:
. What line(s) do I have to change to get it to list the areas in square feet?
Are you referring to the unit string?
This
(strcat (rtos (Cadr itm) 2 2) " m2")
to
(strcat (rtos (Cadr itm) 2 2) " sq. ft")
or you need conversion?
@Anonymous wrote:
I need the conversion to square feet.
I tried to come up with it myself but I could not get the math right.
Thanks!
Any of this two will work
(strcat (rtos
(* (Cadr itm) 10.7639104) 2 2) " sq. ft")
or
(strcat (rtos
(cvunit (Cadr itm) "sq meter" "sq feet")
2 2) " sq. ft")
HTH