Add Label to Each PLine in drawing with PLines length

[HCD]

Hey all,

 

I've looked through several sites and forms now looking for a lisp routine that could automatically add text to the mid point of every polyline in the drawing with the polylines lengths. Further, before the command executes, I would like to be prompted to enter a "manifold height" (this hight would later be multiplied by two - to account for supply and return piping), I want it to suppress the inches and also round the number up to the nearest increment of 5 foot.

 

Example: A polyline with the length of 123'-10 3/8" and a manifold elevation of 3' would be 123'-10 3/8" + 3' * 2 = 129'-10 3/8" then round up so 130'. The text on the polyline would only say 130'.

 

If posable, I'd like the text to be a field so that if changes were made to the polyline, I could just updatefield and all the text would be updated. Or similar to that effect...

 

Like I said, I've looked everywhere for something similar and I cannot find anything. I've tried putting pieces of lisp routines together myself, but I cannot find all the parts I need and I know next to nothing about lisp.

 

I'll attach a *.dwg to hopfully give a better idea.

 

Hope someone here can help me out, or point me in the right direction.

Loop Lengths.dwg

[ReMark]

I've looked through several sites and forms now looking for a lisp routine that could automatically add text to the mid point of every polyline in the drawing with the polylines lengths.

 

I've come across a couple of lisp routines that will definitely do this as it has been requested by users who work in the civil/surveying field. As for the remainder of what you require well that's something I haven't come across before.