Jump to content
siyadaliek

Total length write in the screen

Recommended Posts

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)
)

Share this post


Link to post
Share on other sites
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))

 

Share this post


Link to post
Share on other sites
siyadaliek

Thank you Jeomcanciller 😀... its works 🤩

Share this post


Link to post
Share on other sites
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. :)

Share this post


Link to post
Share on other sites
siyadaliek

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×