topic Re: polyline length on leader in Visual LISP, AutoLISP and General Customization Forum

polyline length on leader

Anonymous — Thu, 09 Aug 2018 20:54:40 GMT

is there a lisp or program where i can click on a polyline and show the length of that line on the end of a leader that i can move around and drop off

Re: polyline length on leader

Kent1Cooper — Thu, 09 Aug 2018 21:33:47 GMT

Would this be always a Leader specified by only the arrowhead location and one other point [or, always the same number of defining points if other than 2], or would the number of defining points need to vary?

It shouldn't be hard to do something like that if you don't mind not seeing the length value text until after you've given it the other end of the Leader. [It may be possible to get the text in and then let you drag it around, but I think it would be a lot more complicated.]

Over in the plain-AutoCAD Forum where you first raised the question, it was about a Line, but here it's about a Polyline, in which case another question arises: Should it show the length of just the segment you pick on, or of the entire Polyline?

You also talked about picking the line, then picking the point on it where you want the Leader arrowhead, but that step is not in the current description. Does that mean the arrowhead should go at the point where you pick on the Polyline?

Re: polyline length on leader

Anonymous — Thu, 09 Aug 2018 21:45:23 GMT

this is for an electrical engineering project.

we are measuring conduit.

what we need is to choose all the pieces of a line. hit enter and have those lengths added up in a que. then select the line to define a leader start point, click on the page and have a leader end point with the total length of lines selected displaying at the end of a leader.

all we need is the total length of the lines selected on the end of a leader.

i hope that answers your questions... about my question 🙂

Re: polyline length on leader

Anonymous — Thu, 09 Aug 2018 21:47:12 GMT

i said polyline, i was incorrect in my verbage. i was talking about multiple lines. they were not drawn with a spline. i dont think.

Re: polyline length on leader

Anonymous — Thu, 09 Aug 2018 21:51:46 GMT

we dont mind seeing the length value until after its dropped off. what we dont want to do is have to look at properties and add up line lengths.

Re: polyline length on leader

john.uhden — Thu, 09 Aug 2018 23:43:10 GMT

How about if you just grip the end and drag it where you want?

I don't understand what the length matters.

Re: polyline length on leader

Satish_Rajdev — Fri, 10 Aug 2018 07:24:31 GMT

Came across to similar thread recently, I hope this will work for you :

http://www.cadtutor.net/forum/showthread.php?104867-Codes-to-Add-Text-only-and-no-need-leader..

(defun c:Test ( / s p c a d)
  (vl-load-com)
  (if (and (setq s (car (entsel "\nPick a polyline :")))
         (or (= (cdr (assoc 0 (entget s))) "LWPOLYLINE")
             (alert "Invalid object! Please pick a polyline only.")
             )
         (setq p (getpoint "\nSpecify point perpendicular to polyline :"))
         (setq c (vlax-curve-getclosestpointto s p))
         (setq a (angle p c))
         (not (grdraw p c 1 -1)) ;; rubber line in red colour.
         (setq d (angle '(0. 0. 0.) (vlax-curve-getfirstderiv s (vlax-curve-getparamatpoint s c))))
         (or (or (equal (rem (+ d (* pi 0.5)) (+ pi pi)) a 1e-4)
                 (equal (rem (+ d (* pi 1.5)) (+ pi pi)) a 1e-4)
                 )
             (alert "Picked point is not a perpendicular to picked polyline. <!>")
             )
         )
  (command "_.leader" "_non" p "\\" "" (strcat "CHAINAGE = " (rtos (vlax-curve-getdistatpoint s c) 2 4)) "")
  )
(princ)
)

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 12:28:38 GMT

we have to call out the length of the conduit on our drawings. so instead of measuring each piece then adding it up, and then tagging the wire with a leader and entering the length 1000's of times we just want to tag each piece and have the length come up with a leader.

click click enter boom

seconds save minutes, minutes save hours

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 13:48:08 GMT

so went to wordpad and created a .lsp file. but when i try to load it onto autocad using the appload command it cant see the file. i can see it on wordpad with the .lsp extension but i cant see it anywhere else. how do i load the file onto autocad?

Re: polyline length on leader

Satish_Rajdev — Fri, 10 Aug 2018 14:24:50 GMT

Just copy that code and past it at command-line... run test command

Re: polyline length on leader

Kent1Cooper — Fri, 10 Aug 2018 15:06:06 GMT

@Anonymous wrote:

.... choose all the pieces of a line. hit enter and have those lengths added up in a que. then select the line to define a leader start point, click on the page and have a leader end point with the total length of lines selected displaying at the end of a leader.

all we need is the total length of the lines selected on the end of a leader.

....

polyline ... incorrect ... talking about multiple lines

....

So, multiple selection of [presumably end-to-end?] Line objects only, but one Leader showing the total of their lengths. Try this:

(defun C:LTLL (/ ss total); = Leader with Total Length of Lines
  (if (setq ss (ssget '((0 . "LINE"))))
    (progn ; then
      (setq total 0)
      (repeat (setq n (sslength ss))
        (setq total
          (+
            total
            (vla-get-Length (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
          ); +
        ); setq
      ); repeat
      (command "_.leader" pause pause "" (rtos total) "" "")
    ); progn
  ); if
  (princ)
); defun
(vl-load-com)

It uses your current Units length settings for mode and precision in the total-length figure -- if you want something different, add mode and precision arguments in the end of the (rtos) function.

It does only a 2-designated-points Leader, but could easily be modified for more than 2 if you always want the same number, or less easily for an indeterminate number of points.

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 15:06:29 GMT

i need to do lines not polylines

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 15:07:39 GMT

ok i didn't know to use the command test. thanks. unfortunately i am not using polylines.

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 15:18:19 GMT

kent can you please just send me a lisp file that i can load

Re: polyline length on leader

Satish_Rajdev — Fri, 10 Aug 2018 15:21:52 GMT

Try this :-

(defun c:Test ( / s p c a d)
  (vl-load-com)
  (if (and (setq s (car (entsel "\nPick a line :")))
         (or (= (cdr (assoc 0 (entget s))) "LINE")
             (alert "Invalid object! Please pick a polyline only.")
             )
         (setq p (getpoint "\nSpecify point perpendicular to line :"))
         (setq c (vlax-curve-getclosestpointto s p))
         (setq a (angle p c))
         (not (grdraw p c 1 -1)) ;; rubber line in red colour.
         (setq d (angle '(0. 0. 0.) (vlax-curve-getfirstderiv s (vlax-curve-getparamatpoint s c))))
         (or (or (equal (rem (+ d (* pi 0.5)) (+ pi pi)) a 1e-4)
                 (equal (rem (+ d (* pi 1.5)) (+ pi pi)) a 1e-4)
                 )
             (alert "Picked point is not a perpendicular to picked polyline. <!>")
             )
         )
  (command "_.leader" "_non" p "\\" "" (strcat "CHAINAGE = " (rtos (vlax-curve-getdistatpoint s c) 2 4)) "")
  )
(princ)
)

Re: polyline length on leader

Kent1Cooper — Fri, 10 Aug 2018 15:32:13 GMT

@Anonymous wrote:

kent can you please just send me a lisp file that i can load

Try this.

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 17:30:17 GMT

almost there.

i need to be able to select more than 1 line and then add them up. they are not poly lines. its really good but not there yet.

we have conduit runs that take 90 degree turns we need to add up and give a total length for the run.

also can you get it to register in feet and inches?

so far so good, you are almost there

Re: polyline length on leader

Kent1Cooper — Fri, 10 Aug 2018 19:20:25 GMT

@Anonymous wrote:

....

i need to be able to select more than 1 line and then add them up. they are not poly lines. its really good but not there yet.

we have conduit runs that take 90 degree turns we need to add up and give a total length for the run.

also can you get it to register in feet and inches?

....

I don't understand -- it does exactly what you describe, for me. It doesn't care what direction(s) the Line(s) run or turn [or even whether they are contiguous at their ends as I assume the ones you would select would be]. And if your current Units settings for length are feet and inches, that's what it uses, to your current-settings level of precision. What are you getting?

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 19:27:21 GMT

on mine when i select a line it only lets me choose the one line. and then it ask me to choose a point perpendicular to the line. and the only thing that it is measuring is the length of where the leader starts away from the line

do i need to change some settings or something?

i am using the command test to start using the lisp after i appload it.

Re: polyline length on leader

Anonymous — Fri, 10 Aug 2018 19:29:44 GMT

at the end of the leader it says chainage = 23.7859

i know thats the measurement from the line to where the leader starts