Topic: lisp request please - text to multileader

[ira]

L2M lisp asks to pick as much text as you want to make part of the multileader, then asks you to pick a single line to turn into the leader part of the multileader.  So because the exploede leader I am trying to turn into a multileader is just a bunch of lines (not poly lines)it does not do what i want.  I think the lisp im asking to be modified is the way to go I just want to be able to delete the original exploded lines.

[cmwade77]

Looking at the code, I just realized it is out of date, the attached code should work for you.

As for modifying the existing code, this SHOULD work; however, there may be circumstances where it won't work or will produce undesirable results since you would not have selected the lines at any point in time a crossing window would need to be used. An alternative approach is to select the lines and extract the start and end points from that and erase the lines, which is essentially what my code in the attached LISP does.

Code - Auto/Visual Lisp: [Select]

1. (defun c:am (/ newleader pt1 pt2 ss txt x w rjp-getbbwdth)
2.   (vl-load-com)
3.   (defun rjp-getbbwdth (obj / out ll ur)
4.     (vla-getboundingbox obj 'll 'ur)
5.     (setq out (mapcar 'vlax-safearray->list (list ll ur)))
6.     (distance (car out) (list (caadr out) (cadar out)))
7.     )
8.   (if (setq ss (ssget '((0 . "*TEXT"))))
9.     (progn (setq txt (apply
10.                        'strcat
11.                        (mapcar
12.                          'cdr
13.                          (vl-sort
14.                            (mapcar '(lambda (x)
15.                                       (cons (vlax-get x 'insertionpoint)
16.                                             (strcat (vlax-get x 'textstring) " ")
17.                                             )
18.                                       )
19.                                    (setq
20.                                      ss (mapcar
21.                                           'vlax-ename->vla-object
22.                                           (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
23.                                           )
24.                                      )
25.                                    )
26.                            (function (lambda (y1 y2) (< (cadr (car y2)) (cadr (car y1))))
27.                                      )
28.                            )
29.                          )
30.                        )
31.                  w (car (vl-sort (mapcar 'rjp-getbbwdth ss) '>))
32.                  txt (apply 'strcat
33.                             (mapcar 'chr (reverse (cdr (reverse (vl-string->list txt)))))
34.                             )
35.                  )
36.            (mapcar 'vla-delete ss)
37.            )
38.     )
39.   (if (and (setq pt1 (getpoint "\nSpecify leader arrowhead location: "))
40.            (setq pt2 (getpoint pt1 "\nSpecify landing location: "))
41.            )
42.     (progn
43. (set oPt1 (osnap pt1 "_nea")
44.        oPt2 (osnap pt2 "_nea"))
45. (if (/= oPt1 nil)
46. (progn
47. (if (/= oPt2 nil)
48. (command "._erase" "_c" oPt1 oPt2 "")
49.  (command "._erase" oPt1 "")
50. )
51. )
52.  
53. (command "._MLEADER" pt1 pt2 "")
54.            (setq newleader (vlax-ename->vla-object (entlast)))
55.            (vla-put-textstring newleader txt)
56.            (vla-put-textwidth newleader w)
57.            )
58.     )
59.   (princ)
60.   )
61.