topic Re: How to make existed multileader vertical in AutoCAD Forum

How to make existed multileader vertical

Richard_Yankee — Thu, 11 Jan 2024 02:01:05 GMT

I have a lot multileader annotation and i was told to make all the leaders vertical. Is there anyway to make the come true easily, cause i have a lot of annotations. Thanks in advance😀

Re: How to make existed multileader vertical

pendean — Thu, 11 Jan 2024 14:40:25 GMT

@Richard_Yankee Nothing built-in "automatic" offers that ability except to use object snap tracking which takes some practice to perfect https://www.nobledesktop.com/learn/autocad/object-snap-tracking#:~:text=Object%20Snap%20Tracking%20can%20be,only%20functions%20during%20a%20command.

Re: How to make existed multileader vertical

ВeekeeCZ — Thu, 11 Jan 2024 16:18:21 GMT

Easy with LISP.

http://www.lee-mac.com/runlisp.html

(defun c:Mleader90 ( / s i e d a b)

  (if (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
	    d (entget e)
	    a (cadr (assoc 110 d))
	    b (cadr (assoc 10 (member '(302 . "LEADER{") d))))
      (setpropertyvalue e "TextLocation/X"
	((if (> b a) - +) (getpropertyvalue e "TextLocation/X") (abs (- b a))))))
  (princ)
  )

Re: How to make existed multileader vertical

Richard_Yankee — Fri, 12 Jan 2024 02:12:55 GMT

Hi @ВeekeeCZ, Thanks for your kindly help, I really appreciate.

I tried the lisp, it seems only works for some of Mleaders not all of them. Could you please help to check what's going on coz I'm not farmiliar with Lisp. Thank you so much

Re: How to make existed multileader vertical

ВeekeeCZ — Fri, 12 Jan 2024 11:27:46 GMT

Yeap, I can see that, thanks. That's all I can do with the picture.

Re: How to make existed multileader vertical

pendean — Fri, 12 Jan 2024 14:25:32 GMT

@ВeekeeCZ wrote:

Yeap, I can see that, thanks. That's all I can do with the picture.

I'll share one with you too.

Re: How to make existed multileader vertical

ВeekeeCZ — Fri, 12 Jan 2024 16:06:16 GMT

Ok, a different approach does that trick.

(vl-load-com)

(defun c:Mleader90 ( / s i c o)
  (if (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
    (repeat (setq i (sslength s))
      (and (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
	   (setq c (vlax-safearray->list (vlax-variant-value (vla-getleaderlinevertices o 0))))
	   (vla-SetLeaderLineVertices o 0 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 5)) (apply 'list (mapcar '(lambda (x) (nth x c)) '(0 1 2 0 4 5))))))))
  (princ)
  )

To make them flat, change the number series to 0 1 2 3 1 5.

Re: How to make existed multileader vertical

pendean — Fri, 12 Jan 2024 16:37:58 GMT

@ВeekeeCZ wrote:

Ok, a different approach does that trick.

(vl-load-com)

(defun c:Mleader90 ( / s i c o)
  (if (setq s (ssget "_:L" '((0 . "MULTILEADER"))))
    (repeat (setq i (sslength s))
      (and (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
	   (setq c (vlax-safearray->list (vlax-variant-value (vla-getleaderlinevertices o 0))))
	   (vla-SetLeaderLineVertices o 0 (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 5)) (apply 'list (mapcar '(lambda (x) (nth x c)) '(0 1 2 0 4 5))))))))
  (princ)
  )

To make them flat, change the number series to 0 1 2 3 1 5.

Both newer versions work great in the sample I shared. Thanks.

Re: How to make existed multileader vertical

Richard_Yankee — Tue, 16 Jan 2024 02:56:33 GMT

Thanks so much