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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...