Double sided qleader..ie arrow @ ea. end?

[Michael83]

We use a double sided leader to show the direction of floor/ceiling joists, rafters, trusses amongst others.. In a typ. day I'll draw a min of a 200 of these double sided leaders (closed w/ dimstyle leader settings at 7) of various lengths. Besides drawing a qleader, followed by snapping another qleader at the endpoint of the first and retracing back, could there be a better alternative?..creating a block and stretching the ends didn't help too much..in my dream world there's a way to draw a double sided leader in a start and end command! Thanks for all help!

[alanjt]

quickie...

 

(defun c:TEst (/ p1 p2)
 (if (and (setq p1 (getpoint "\nSpecify first point: "))
          (setq p2 (getpoint p1 "\nSpecify next point: "))
     )
   (mapcar (function (lambda (a b) (command "_.leader" "_non" a "_non" b "" "" "_none")))
           (list p1 p2)
           (list p2 p1)
   )
 )
 (princ)
)

[jake77777]

I looked into that for hours. I CANNOT thank you enough!

[alanjt]

I looked into that for hours. I CANNOT thank you enough!

You're welcome.

You could also create a Dynamic block with a stretch parameter.

[David Bethel]

I can't figure why this is not working, but pline with varying widths should also work:

 

(defun c:dld ();/ p1 p2)

 (initget 1)
 (setq p1 (getpoint "\nStart Point:   "))
 (initget 1)
 (setq p2 (getpoint p1 "\nEnd Point:   "))

 (setq p1 (list (car p1) (cadr p1))
       p2 (list (car p2) (cadr p2)))

 (entmake (list (cons 0 "LWPOLYLINE")
                (cons 100 "AcDbPolyline")
                (cons 90 4)
                (cons 70 0)
                (cons 38 (getvar "ELEVATION"))
                (cons 39 (getvar "THICKNESS"))
                (cons 70 0)
                (cons 10 p1)
                (cons 40 0)
                (cons 41 (/ (getvar "DIMASZ") 3.))
                (cons 42 0)
                (cons 10 (polar p1 (angle p1 p2) (getvar "DIMASZ")))
                (cons 40 0)
                (cons 41 0)
                (cons 42 0)
                (cons 10 (polar p2 (angle p2 p1) (getvar "DIMASZ")))
                (cons 40 (/ (getvar "DIMASZ") 3.))
                (cons 41 0)
                (cons 42 0)
                (cons 10 p2)
                (cons 40 0)
                (cons 41 0)
                (cons 42 0))))

 

-David

[Lee Mac]

How about this from Tim:

 

http://www.theswamp.org/index.php?topic=20820.0

[alanjt]

How about this from Tim:

 

http://www.theswamp.org/index.php?topic=20820.0

Excellent link, Lee.

[Lee Mac]

Excellent link, Lee.

 

Nice program isn't it? I was going to write one myself - but there's no point in reinventing the wheel