Polyline Label with a leader

[rickquin651723]

Can anyone help to write a LISP that will label the horizontal length, not to be confused with slope of a polyline, that would include a leader, and an option to input the material of the line(MTEXT)? And of course control of the font.....Oh and one last thing, it only has to label to the nearest foot.

TIA

[ccalder]

Give this a whirl. I assume from your wording you're talking 3d polylines not 2d or lwpoly's. It uses the leader command so arrow style and text font and size are controlled by the active dimstyle. If you use this on non 3d poly's the footage wont be right and it'll probably crash. let me know if you are needing this to work on both 3d and 2d or lwpoly's and can make it work.

(vl-load-com)
;this only works as intended on 3d polys, 2d polys give weird results
(defun c:foo ( / en lst tmp dist str1 str2 pt1 pt2)
;change "foo" to whatever command work for you
 (while (not (setq en (ssname (ssget "_+.:E:S" '((0 . "POLYLINE"))) 0))))
 (setq	lst (getcoords en)
	en (vlax-ename->vla-object en)
	tmp (list (list (car lst) (cadr lst)))
	lst (cdddr lst))
 (repeat (/ (length lst) 3)
  (setq	tmp (append tmp (list (list (car lst) (cadr lst))))
	lst (cdddr lst))
 );end repeat
 (setq lst tmp dist 0.0)
 (repeat (- (length lst) 1)
  (setq	dist (+ dist (distance (car lst) (cadr lst)))
  	lst (cdr lst))
 );end repeat
 (setq	mat (vlax-get en 'Material)
	str1 (strcat "Horizontal Distance = " (rtos dist 2 0)) str2 (strcat "Material = " mat)
	pt1 (getpoint "\nPick point for beginning of leader")
	pt2 (getpoint "\npick point for end of leader"))
 (command "_LEADER" pt1 pt2 "" str1 str2 "")
 (princ)
);end defun

;I didnt write this function but don't know whom to give credit, sorry
(defun getcoords (ent)
  (vlax-safearray->list
    (vlax-variant-value
      (vlax-get-property
	(vlax-ename->vla-object ent)
	"Coordinates"
      )
    )
  )
)

edit: cleaned code a little, if I knew what units you were measuring in I could add that to the label.

[rickquin651723]

Thanks for the reply ccalder, sorry for the delay, I didn't realize you had responded, been so busy I haven't had many opportunities to get back. Then when I did, our post was long gone and buried, found the dealio on my account that tracks what I've posted and viola'!!!
Anyway, I am in fact working with 2d polylines in profile view. C3D allows you to label lines, but they are labeled with their slope length not the horizontal. I'm gonna attach an image in hopes to better explain myself. Thanks again!

PV LABEL 2.JPG

[MMccall]

I'm using civil 3D and I'm seeing that the label style can be made to show the horizontal length of a tangent vs the sloped length. Is that not working for you?

Another option might be to use an Expression for labeling that subtracts the start station of a segment from the end station to arrive at a horizontal value.

[rickquin651723]

I'll check again, what type of label are you using? This brings up another point of contention, I'm drawing my conduit (Pipe network) with a polyline, as I've yet to find a network that looks like what the bosses want. Therefore I'm unable to use the standard pipe labels and networks. I'll attach an image of that as well.
Thanks for the input.

PV LABEL 3.JPG

[MMccall]

Ahh, now I understand ... i think. The label I was looking at was a profile label but it was for labeling the tangent sections of a profile. That wouldn't work here. However I did find something that might work.

Make the conduit polyline into a profile (trace over it with a profile, you can even put in some curves if you want). Then build a General Note label, feature: note, label type: note, in the style add a reference text component for a profile. This reference text component can reach properties of a profile line. There is a property for the profile length .... the total horizontal length.