Topic: Polyline length leader with additional text??

[donniedrake]

Anyone have a way to select a polyline, get it's length, put that length plus additional text in a mtext with leader?

The yellow highlighted text in the example is what I'm trying to accomplish.

[CAB]

Do a search. There are plenty of Label programs that can be modified.

[ronjonp]

And here's a quicky to put the length.

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ _getlength e l p1 p2)
2.   (vl-load-com)
3.   (defun _getlength (ename / ep)
4.     (if (vl-catch-all-error-p (setq ep (vl-catch-all-apply 'vlax-curve-getendparam (list ename))))
5.       0.0
6.       (vlax-curve-getdistatparam ename ep)
7.     )
8.   )
9.   (if (and (setq e (entsel "\nSelect object with length: ")) (setq p1 (cadr e)) (setq e (car e)))
10.     (if (and (/= 0.0 (setq l (_getlength e)))
11.              (setq p2 (getpoint p1 "\nSpecify leader landing location: "))
12.         )
13.       (command "._mleader" p1 p2 l)
14.       (princ "\nObject does not have length property...")
15.     )
16.   )
17.   (princ)
18. )

[ChrisCarlson]

Wouldn't be to complicated

Code - Auto/Visual Lisp: [Select]

1.        
2. (setq a (car(nentsel "\nSELECT ENTITY")))
3.         (if
4.                 (and a
5.                         (setq aDXF (entget a))(member (cdr (assoc 0 aDXF))'("LWPOLYLINE" "POLYLINE" "LINE" "ARC"))
6.                         )
7.         (progn
8.                         (setq a_length (vla-get-length(vlax-ename->vla-object a))))
9.         (princ "Not a valid selection")
10.  

Then find the mid point (first point of leader), extend it and enter the text.

[donniedrake]

Side note, I'm a newbie at implementing lisp's other than existing ones. Learning slowly!