Add Length lisp

[jalwgis]

I found a lisp program that adds the lengths of lines, arcs and polylines in inches. Is there a way to change it so the total is in feet and inches?

Any help is appreciated.

[rkmcswain]

Sure. But we need the lisp file, presuming it's yours to share here.

[jalwgis]

Here's the script:

(DEFUN C:addlenth ()
(setq tot_len 0)
(prompt "\nSelect all objects to count: ")
(setq ss (ssget))
(while (> (sslength ss) 0)
(setq en (ssname ss 0))
(setq ed (entget en))
(setq e_type (cdr (assoc '0 ed)))
(cond
((= e_type "LINE") (add_lines))
((= e_type "ARC") (add_arcs))
((= e_type "LWPOLYLINE") (add_poly))
((or
(/= e_type "LINE")
(/= e_type "ARC")
(/= e_type "LWPOLYLINE")
)
(ssdel en ss)
)
)
)
(prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))
(princ)
)

(defun add_lines ()
(setq pt1 (cdr (assoc '10 ed)))
(setq pt2 (cdr (assoc '11 ed)))
(setq line_len (distance pt1 pt2))
(setq tot_len (+ tot_len line_len))
(ssdel en ss)
)

(defun add_arcs ()
(SETQ CEN (CDR (ASSOC '10 Ed))
RAD (CDR (ASSOC '40 Ed))
DIA (* RAD 2.0)
CIRCUM (* (* RAD PI) 2.0)
S_ANG (CDR (ASSOC '50 Ed))
E_ANG (CDR (ASSOC '51 Ed))
)
(IF (< E_ANG S_ANG)
(SETQ E_ANG (+ E_ANG (* PI 2.0)))
)
(SETQ
N_ANG (- E_ANG S_ANG)
N_ANG_1 (* (/ N_ANG PI) 180.0)
PART_CIRC (/ N_ANG_1 360.0)
A_LEN (* PART_CIRC CIRCUM)
)
(setq tot_len (+ tot_len a_len))
(PRIN1)
(SSDEL EN SS)
)

(defun add_poly ()
(command "area" "e" en)
(setq tot_len (+ tot_len (getvar "perimeter")))
(ssdel en ss)
)
(princ)

[Kent1Cooper · Accepted solution]

---

@jalwgis wrote:

I found a lisp program that adds the lengths of lines, arcs and polylines in inches. Is there a way to change it so the total is in feet and inches? ....

---

Presumably it adds them in drawing units.  Assuming the total is in a variable -- I'll assume one called 'total' -- that can be reported to you in any format you like.  If your current Units settings are Architectural, simply

(rtos total)

will give it to you in feet and inches, to whatever precision you have set.  If your Units are something else, but you want it reported in feet and inches, you can force that:

(rtos total 4 4)

will give it to you that way [the first 4 is for Architectural mode], rounded to the nearest 1/8" [the second 4 -- change that for different precision].

Your routine may already include such a function, just with some other mode argument [likely 2 for Decimal units].  Read about (rtos) in the AutoLisp Reference, and also about the DIMZIN System Variable, which affects the output, whether 0 feet will be included if under 1', and/or whether 0 inches will be included if it's a whole number of feet.

EDIT:  Your code post came in while I was writing the above.  Change this line:

(prompt (strcat "\nTotal length is: " (rtos tot_len 2 2)))

to replace the first 2 with 4, and you can keep or change the second 2.  [Or, if your Units are Architectural and your Units precision setting is acceptable, just omit both 2's.]

[jalwgis]

Thank you for the response! Much appreciated!

[mike_tomasurvey]

This Lisp is fantastic. Thanks for posting. I was wondering. Is there a way to include in the command a running total while lines are being computed? Kind of like using "DI">"Multiple Points"? 

I am not complaining the command is awesome. It has become a regular tool for me so thank you thank you thank you