+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 11 to 12 of 12
  1. #11
    Forum Newbie
    Using
    AutoCAD 2015
    Join Date
    Jun 2008
    Posts
    5

    Default

    Registered forum members do not see this ad.

    My apologies. i did not know that.
    Code:
    (defun c:am (/ newleader pt1 pt2 ss txt x w rjp-getbbwdth)
    (vl-load-com)
    (defun rjp-getbbwdth (obj / out ll ur)
    (vla-getboundingbox obj 'll 'ur)
    (setq out (mapcar 'vlax-safearray->list (list ll ur)))
    (distance (car out) (list (caadr out) (cadar out)))
    )
    (if (setq ss (ssget '((0 . "*TEXT"))))
    (progn (setq txt (apply
    'strcat
    (mapcar
    'cdr
    (vl-sort
    (mapcar '(lambda (x)
    (cons (vlax-get x 'insertionpoint)
    (strcat (vlax-get x 'textstring) " ")
    )
    )
    (setq
    ss	(mapcar
    'vlax-ename->vla-object
    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    )
    )
    )
    (function (lambda (y1 y2) (< (cadr (car y2)) (cadr (car y1))))
    )
    )
    )
    )
    w (car (vl-sort (mapcar 'rjp-getbbwdth ss) '>))
    txt (apply 'strcat
    (mapcar 'chr (reverse (cdr (reverse (vl-string->list txt)))))
    )
    )
    (mapcar 'vla-delete ss)
    )
    )
    (if (and (setq pt1 (getpoint "\nSpecify leader arrowhead location: "))
    (setq pt2 (getpoint pt1 "\nSpecify landing location: "))
    )
    (progn (command "._MLEADER" pt1 pt2 "")
    (setq newleader (vlax-ename->vla-object (entlast)))
    (vla-put-textstring newleader txt)
    (vla-put-textwidth newleader w)
    )
    )
    (princ)
    )

  2. #12
    Forum Newbie
    Using
    AutoCAD 2015
    Join Date
    Jun 2008
    Posts
    5

    Default may apologies, i did not now that

    Registered forum members do not see this ad.

    Code:
    (defun c:am (/ newleader pt1 pt2 ss txt x w rjp-getbbwdth)
    (vl-load-com)
    (defun rjp-getbbwdth (obj / out ll ur)
    (vla-getboundingbox obj 'll 'ur)
    (setq out (mapcar 'vlax-safearray->list (list ll ur)))
    (distance (car out) (list (caadr out) (cadar out)))
    )
    (if (setq ss (ssget '((0 . "*TEXT"))))
    (progn (setq txt (apply
    'strcat
    (mapcar
    'cdr
    (vl-sort
    (mapcar '(lambda (x)
    (cons (vlax-get x 'insertionpoint)
    (strcat (vlax-get x 'textstring) " ")
    )
    )
    (setq
    ss	(mapcar
    'vlax-ename->vla-object
    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    )
    )
    )
    (function (lambda (y1 y2) (< (cadr (car y2)) (cadr (car y1))))
    )
    )
    )
    )
    w (car (vl-sort (mapcar 'rjp-getbbwdth ss) '>))
    txt (apply 'strcat
    (mapcar 'chr (reverse (cdr (reverse (vl-string->list txt)))))
    )
    )
    (mapcar 'vla-delete ss)
    )
    )
    (if (and (setq pt1 (getpoint "\nSpecify leader arrowhead location: "))
    (setq pt2 (getpoint pt1 "\nSpecify landing location: "))
    )
    (progn (command "._MLEADER" pt1 pt2 "")
    (setq newleader (vlax-ename->vla-object (entlast)))
    (vla-put-textstring newleader txt)
    (vla-put-textwidth newleader w)
    )
    )
    (princ)
    )

Similar Threads

  1. Multileader text
    By alijahed in forum AutoCAD General
    Replies: 5
    Last Post: 2nd Mar 2009, 09:58 am
  2. Cannot Edit Multileader Text
    By rustysilo in forum AutoCAD General
    Replies: 7
    Last Post: 2nd Feb 2009, 04:38 pm
  3. Autocad 2008 - Multileader Text Styles
    By nycadguy in forum AutoCAD General
    Replies: 15
    Last Post: 11th Dec 2008, 07:50 pm
  4. Multileader text at arrowhead end?
    By bbohannon1 in forum AutoCAD General
    Replies: 0
    Last Post: 13th Oct 2008, 07:11 pm
  5. MultiLeader text frame
    By lpseifert in forum AutoCAD 2D Drafting, Object Properties & Interface
    Replies: 0
    Last Post: 18th Jun 2008, 04:49 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts