Extrapolating Individual Lines

[mrahman4VVMK]

Hello all,

I'm currently using AutoCAD LT and am looking for a Lisp that can help me extract the lengths of individual lines and export those measurements to Excel or CSV.

I came across a Lisp called LAYLENGTH that lets me extract line lengths, but it only totals up the lengths of all lines on a given layer rather than measuring each line individually. As shown in the attached picture, this isn't quite what I need.

Does anyone know of a Lisp or another method to get individual line lengths and export them? Any advice would be greatly appreciated!

I've also attached the lisp of the LAYLENGTH program as well to see if anyone could change the program to fit my purpose. 

[ec-cad]

The Lisp you attached, gets more than just lines and builds a table.

You just want the 'length' of 'line' s to be exported to a .csv file ?

Post a small sample drawing, and explain exactly what lines you mean, or specifics about

Lines on particular Layers .. include Polylines ?, just a little more information than you have

in your post. I'm sure we can come up with a Lisp to do that (it's been done many times before).

ECCAD

[mrahman4VVMK]

Hello,

Yes, I’m looking for a way to get the length of each individual line and export that data to a CSV file. I need to be able to import this data of lengths into Excel for my work.

I would like to extract the individual lines with the varying lengths shown in the pic above into a table that are from the same layers. 

Hopefully this explains what I am trying to achieve. 

[ec-cad]

OK,

Working on it now.

🙂

ECCAD

[Moshe-A]

@mrahman4VVMK  hi,

DATAEXRACTION command will do that for you, no need for lisp

Moshe

[mrahman4VVMK]

I dont think I have that command in Autocad LT 

[ec-cad]

OK, here's the Lisp. I see you have LT , hope it supports Lisp.

;; Export_Lines_to_csv.lsp
;; Function call: GO
;; Written by: ECCAD , Control Systems & Services, LLC (Arizona LLC)
;; Revision: 1.0, Aug 15, 2024 for Acad Forum

 (defun C:GO ( / path nam OUTFILE O OX ofil ss Count lay pt1 pt2 len)

  (setq path (getvar "dwgprefix")); includes the "\\"
  (setq nam (getvar "dwgname"))
  (setq nam (substr nam 1 (- (strlen nam) 4))); strip the .dwg
  (setq OUTFILE (strcat path nam "_Line_Report.csv"))

;; Function to output to the .csv file
 (defun write_to_csv_file ( S ); send in 'string', formatted as .csv
   (if (findfile OUTFILE)
    (progn
     (setq FLAG 0)
     (setq ofil (open OUTFILE "a"))
     (write-line S ofil)
     (close ofil)
    ); progn
   ); if
   (if (not (findfile OUTFILE))
    (progn
     (setq FLAG 0)
     (setq ofil (open OUTFILE "w"))
;; Header
     (setq OX (strcat
        (chr 34) "LINE#" (chr 34) ","
        (chr 34) "LAYER" (chr 34) ","
        (chr 34) "LENGTH" (chr 34) ",,"
     )); setq/strcat
     (write-line OX ofil)
     (write-line S ofil)
     (close ofil)
    ); progn
   ); if
 ); function

Looks like the Forum clipped some of the code.. see the .lsp attached.

ECCAD

[Sea-Haven]

A couple of decisions, 

Make a table only,

Send direct to Excel only

Make a table and send to Excel

For me direct to Excel or LibreCad Calc no CSV.

I ask as like others can do all 3. 

Do you don't want more objects ? Can be "please choose object type" also. Trying to avoid repeated goes at the code.

Lastly post sample dwg with desired table, so can size correctly.

[mrahman4VVMK]

Hello @ec-cad,

Thank you so much for the lisp for the exporting of lines. Is it possible to change the program for circles and rectangles instead of lines?

[ec-cad]

Sure, couple of questions:

You said "Is it possible to change the program for circles and rectangles instead of lines?"

Does that mean to 'exclude' Lines ? "instead of lines" ...

What information do you need for the Circles ? Radias / Diameter / Center / Circumfrence?

And for the Rectangles, Are they Polylines - Closed, or Open ? or just lines that form a Rectangle ?

Any specific Layers to check for Circles / Rectangles ?

So many questions, I know..

Awaiting your response.

ECCAD

[ec-cad]

This one will do just the Circles. May have too much info, but you could remove data items if needbe.

Awaiting answers to the Rectangles. When done, we can make a single Lisp, that asks for 'what' type

of items you want to export. A for All, L for Lines, C for Circles, R for Rectangles, etc.

ECCAD

[mrahman4VVMK]

Hello @ec-cad 

Thank you so much for the LISP for the circle extraction. 

For the rectangle, I am using the rectangle polyline function that is provided from the autocad LT. I would like for to export the width, length, and layers if possible.

That would be great if we could combine all of them. 

[ec-cad]

Sure, make up a small sample drawing with Layers, and Polylines and attach.

I'll see what I can do.

Once we get the last piece in place, we'll tie them all together and output

all that stuff.

ECCAD

[АлексЮстасу]

Hi, @mrahman4VVMK 

As an option. If such lisp's operates in LT.
XDTOOLS_PROP2 - save values of objects properties in their XData. (Your interface will be in English).

XDTOOLS_2CSV - unload XData content to txt, csv.
Of course, first you need to create/edit XData definition - XDTOOLS_MDEFINE.
Then attach the required XData to many objects - XDTOOLS_ADD.
Etc.

[ec-cad]

I'm assuming your 'Rectangle Polyline' routine just outputs "LWPolyLines", in the form of a Rectangle.

This Lisp attached, will report those Rectangles.

Now that we have Lines / Circles / Rectangles, how do you want the 'output' .csv file stacked ?

Since each item has a little different Header Line, do you want (3) Header Lines, seperating

the Lines from the Circles, and the Circles from the Rectangles. Then the final report would

be Header for Lines, line data, Header for Circles, circle data, and lastly, Header for Rectangles,

rectangle data .. ???

ECCAD

[Sea-Haven]

This is something I did for this type of task, I just use (if (not AH:plprops)(load "Pline line arc props")) so no need to have all the code in multiple lisps.

; properties use as a library function
; By Alan H july 2020

(defun AH:cords (obj / co-ords xy )
(setq coordsxy '())
(setq co-ords (vlax-get obj 'Coordinates))
(setq numb (/ (length co-ords) 2))
(setq I 0)
(repeat numb
(setq xy (list (nth (+ I 1) co-ords)(nth I co-ords) ))
(setq coordsxy (cons xy coordsxy))
(setq I (+ I 2))
)
)


(defun AH:chkcwccw (obj / lst newarea)
(setq lst (CORDS obj))
(setq newarea
(/ (apply (function +)
            (mapcar (function (lambda (x y)
                                (- (* (car x) (cadr y)) (* (car y) (cadr x)))))
                    (cons (last lst) lst)
                    l)) 
2.)
)
(if (< newarea  0)
(setq cw "F")
(setq cw "T")
)
)

; Can use reverse in Autocad - pedit reverse in Bricscad.

(defun AH:plprops (obj txt / lst)
(foreach val lst
(cond
((= (strcase val)  "LAY") (setq lay (vla-get-layer obj)))
((= (strcase val) "AREA")(setq area (vla-get-area obj)))
((= (strcase val) "START")(setq start (vlax-curve-getstartpoint obj)))
((= (strcase val) "END" (strcase txt))(setq end (vlax-curve-getendpoint obj)))
((= (strcase val) "LEN" (strcase txt))(setq len (vlax-get obj 'Length)))
((= (strcase val) "CW" (strcase txt))(AH:chkcwccw obj))
((= (strcase val) "CORDS" (strcase txt))(CORDS obj))
((= (strcase val) "MID" (strcase txt))(setq mp (vlax-curve-getpointatdist obj(/ (vlax-get obj 'Length) 2.0))))
)
)
)

(defun AH:lineprops (obj lst / )
(foreach val lst
(cond
((= (strcase val)  "LAY") (setq lay (vlax-get obj 'layer)))
((= (strcase val) "START")(setq start (vlax-get obj 'startpoint)))
((= (strcase val) "END" (strcase txt))(setq end (vlax-get obj 'endpoint)))
((= (strcase val) "LEN" (strcase txt))(setq len (vlax-get obj 'Length)))
((= (strcase val) "MID" (strcase txt))(setq mp (mapcar '* (mapcar '+ (vlax-get obj 'startpoint)(vlax-get obj 'endpoint)) '(0.5 0.5))))
)
)
)

(defun AH:circprops (obj lst / )
(foreach val lst
(cond
((= (strcase val)  "LAY") (setq lay (vlax-get obj 'layer)))
((= (strcase val) "LEN" (strcase txt))(setq len (vlax-get obj 'Circumference)))
((= (strcase val) "RAD" (strcase txt))(setq rad (vla-get-radius obj)))
((= (strcase val) "CEN" (strcase txt))(setq cen (vlax-get obj 'Center)))
((= (strcase val) "AREA" (strcase txt))(setq end (vlax-get obj 'AREA)))
)
)
)

(defun AH:arcprops (obj txtlst)
(foreach val lst
(cond
((= (strcase val) "LAY") (setq lay (vlax-get obj 'layer)))
((= (strcase val) "LEN" (strcase txt))(setq len (vlax-get obj 'length)))
((= (strcase val) "RAD" (strcase txt))(setq rad (vlax-get obj 'radius)))
((= (strcase val) "CEN" (strcase txt))(setq cen (vlax-get obj 'Center)))
((= (strcase val) "START" (strcase txt))(setq start (vlax-get obj 'startpoint)))
((= (strcase val) "END" (strcase txt))(setq area (vlax-get obj 'endpoint)))
((= (strcase val) "AREA" (strcase txt))(setq end (vlax-get obj 'AREA)))
((= (strcase val) "MID" (strcase txt))(setq mp (vlax-curve-getpointatdist obj(/ (vlax-get obj 'ArcLength) 2.0))))
)
)
)

; starts here
; (setq ent (vlax-ename->vla-object (car (entsel "Pick Object "))))
; do a check for object type then use defun
; pick an example below


; many examples copy to command line for testing mix and match 
; (AH:plprops ent '("LAY"))(princ lay)
; (AH:plprops ent '("END"))(princ end)
; (AH:plprops ent '("START"))(princ start)
; (AH:plprops ent '("END" "START"))(princ end)(princ start)
; (AH:plprops ent '("AREA" "LAY" "END" "START"))(princ area)(princ lay)(princ end)(princ start)
; (AH:plprops ent '("START" "AREA" "LAY" "CW"))(princ start)(princ area)(princ cw)
; (AH:plprops ent '("start" "END" "CORDS" "cw"))(princ start)(princ end)(princ coordsxy)(princ cw)
; (AH:plprops ent '("CW"))(princ cw)
; (AH:plprops ent '("AREA"))(princ area)
; (AH:plprops ent '("CORDS"))(princ coordsxy)
; (AH:lineprops ent "len"))(princ len)
; (AH:lineprops ent '("len" "lay"))(princ len)(princ lay)
; (AH:lineprops ent '("lay" "end" "start" "len"))(princ len)(princ lay)(princ start)(princ end)
; (AH:circprops ent '("lay" "rad" "area" "cen"))(princ lay)(princ rad)(princ area)(princ cen)
; (AH:circprops ent '("lay" "rad"))
; (AH:arcprops ent '("lay" "rad"))