Total length write in the screen

[siyadaliek]

Sir,

 

i am using one lisp which gives me the total length of the selected line , but please anyone can edit the lisp by adding,  the total length  i need to write  r in the drawing with a leader line 

 

 

(defun C:33 (/ 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)
)

[joemcanciller]

If I got your question right. Change the line
 

(alert (strcat "Total length of selected objects is " (rtos tl)))

into

(setvar "cmleaderstyle" "standard")
  (command "_mleader" pause pause (rtos tl))

 

[siyadaliek]

Thank you Jeomcanciller ... its works 

[joemcanciller]

2 hours ago, siyadaliek said:

Thank you Jeomcanciller ... its works 

No problem. I just learned those in this forum. You'll learn a lot here.

[joemcanciller]

You got that code here http://www.turvill.com/t2/free_stuff/tlen.lsp
Am I right?
Enjoy! 

[siyadaliek]

Thank you sir  , i tried a lot to learn but i believe  it need some programming knowledge