Dim style leader line

Hey all.

One of my co-workers asked me if I knew a way to have a toolbar with 2 different leader lines to select, One leader line with arrow head and the other leader line with a loop on it.

She told me it was a pain each time just to change the the arrow head to loop.

She wanted a toolbar to select from to select leader line with arrow head or loop.

dose anyone know of a lisp routine or would it be just as easy as writing a script file?

You mean something like this:

(defun c:ARROW (/ ss)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "LEADER"))))
   ((lambda (i / e v)
      (while (setq e (ssname ss (setq i (1+ i))))
        (if (= 0 (vla-get-arrowheadtype (setq v (vlax-ename->vla-object e))))
          (vla-put-arrowheadtype v 7)
          (vla-put-arrowheadtype v 0))))
     -1))
 (princ))

Edit:

This will handle multiple selections, and will toggle back and forth between "Default" and "Origin" arrow heads.

That lisp routine will work, But I also found the Multileader line toolbar in AutoCAD 2008.

Thanks RenderMan

You're welcome.