topic Betreff: Autocad total length by selecting multiple dimension in Visual LISP, AutoLISP and General Customization Forum

Autocad total length by selecting multiple dimension

Anonymous — Mon, 19 Jun 2017 08:29:17 GMT

Hi Friends...

I have multiple dimensions in separate location. I just want to know, is there anyway to find the total length by selecting together those dimension?. I wish I could have a LISP. Please help. Its really urgent

Thank you in advance.

Re: Autocad total length by selecting multiple dimension

vladimir_michl — Mon, 19 Jun 2017 11:25:38 GMT

You can use the AddLen LISP utility to sum dimensions - see www.cadstudio.cz/freeware

Vladimir Michl, www.cadstudio.cz www.cadforum.cz

Re: Autocad total length by selecting multiple dimension

3wood — Mon, 19 Jun 2017 12:12:28 GMT

You can also try ADDDIM.

Re: Autocad total length by selecting multiple dimension

Anonymous — Mon, 19 Jun 2017 15:12:07 GMT

Dear Vladimir

Thanks lot for your advise. Its works great!!!

However, Its shows the real value and always asking me to save a .sdf file. May I know why it is?

Re: Autocad total length by selecting multiple dimension

Kent1Cooper — Mon, 19 Jun 2017 15:44:48 GMT

@Anonymous wrote:

.... is there anyway to find the total length by selecting together those dimension?. ....

In simplest terms:

(defun C:DIMLINADD (/ ss n)
  (setq total 0)
  (if (setq ss (ssget '((0 . "DIMENSION"))))
    (repeat (setq n (sslength ss))
      (setq total (+ total (cdr (assoc 42 (entget (ssname ss (setq n (1- n))))))))
    )
  )
  total
)

HOWEVER, that doesn't limit your selection to linear kinds of Dimensions, so if you pick any angular ones, it will include the angle of each [in radians] in the total, as if it's a "length." It could be made to step through each Dimension and check what kind it is before adding it into the total, if needed.

It leaves the total in the 'total' variable value [which is not localized, so it will remain], for you to use in something if you want more than just a report of the total length.

Re: Autocad total length by selecting multiple dimension

Anonymous — Tue, 20 Jun 2017 04:12:15 GMT

Dear 3Wood,

Thank you for your help and advise. While I'm trying this, its asking me to register. So is it vital?

Re: Autocad total length by selecting multiple dimension

vladimir_michl — Wed, 21 Jun 2017 05:46:23 GMT

You can just ESC the file-export prompt or suppress it completely by setting the LISP variable:

(setq AddLenNoFile T)

Vladimir Michl, www.cadstudio.cz www.cadforum.cz

Re: Autocad total length by selecting multiple dimension

sbussDVCLP — Mon, 10 Jan 2022 19:07:24 GMT

Is there a way to make this work for and give you the total Foot/Inches?

Re: Autocad total length by selecting multiple dimension

Kent1Cooper — Mon, 10 Jan 2022 20:25:38 GMT

@sbussDVCLP wrote:

Is there a way to make this work for and give you the total Foot/Inches?

If your Units are Architectural, you can replace the line in Message 5 that says simply

total

with this:

(rtos total)

It will report according to your current Units mode and precision settings. If you want the result differently, you can specify the mode and precision [read about the (rtos) function].

Betreff: Autocad total length by selecting multiple dimension

tarik.rock92 — Tue, 11 Jan 2022 09:39:22 GMT

@Anonymous schrieb:
Hi Friends...

I have multiple dimensions in separate location. I just want to know, is there anyway to find the total length by selecting together those dimension?. I wish I could have a LISP. Please help. Its really urgent

Thank you in advance.

Hi, I'm a bit late, but I found one LISP that we use on work.

;| TLEN.LSP - Total LENgth of selected objects (c) 1998 Tee Square Graphics |; (defun C:TLEN (/ ss tl n ent itm obj l) (setq ss (ssget) tl 0 n (1- (sslength ss))) (while (>= n 0) (setq ent (entget (setq itm (ssname ss n))) obj (cdr (assoc 0 ent)) l (cond ((= obj "LINE") (distance (cdr (assoc 10 ent))(cdr (assoc 11 ent)))) ((= obj "ARC") (* (cdr (assoc 40 ent)) (if (minusp (setq l (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent))))) (+ pi pi l) l))) ((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE") (= obj "LWPOLYLINE")(= obj "ELLIPSE")) (command "_.area" "_o" itm) (getvar "perimeter")) (T 0)) tl (+ tl l) n (1- n))) (alert (strcat "Total length of selected objects is " (rtos tl))) (princ) )