Topic: "Rotating" MLeader block content to horizontal

[ronjonp]

Well it was worth a try . Seems like recreating the mleader would be the easiest for this then, but you'd still have some manual cleanup.

[ChrisCarlson]

Could you make your static blocks into dynamic block with a text rotation and "fudge" the mleaders?

[Grrr1337]

Well it was worth a try . Seems like recreating the mleader would be the easiest for this then, but you'd still have some manual cleanup.

I thought the same and decided to try that out.
And saw the few problems that occur (aside from the obvious manual cleanup):

• Mleader that has no leaders - so basically reinserting a new block is required, but how to (re)match the scale?
• Mleader with more than one leader - couldn't replicate the multiple leaders in the newly created one (see below the code what I tried, but removed in the end)
• Other mleader that errors on the GetLeaderLineVertices method - no idea whats wrong
  

Heres the sloppy code as a starting point (try it on cadpoobah's dwg to see/understand the listed problems) :

Code - Auto/Visual Lisp: [Select]

1. (defun C:test ( / MleaderBlockAtts doc spc SS i o n L )
2.  
3.   ; _$ (MleaderBlockAtts (vlax-ename->vla-object (car (entsel)))) -> (("EQNOMISC" 1060 "") ("EQNO" 1059 "N0802"))
4.   (defun MleaderBlockAtts ( mld / id L )
5.     (and
6.       (eq 'VLA-OBJECT (type mld)) (member (vla-get-ObjectName mld) '("AcDbMLeader" "AcDbLeader"))
7.       (eq (vla-get-ContentType mld) acBlockContent)
8.       (vlax-for x (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-ContentBlockName mld))
9.         (and
10.           (eq (vla-get-ObjectName x) "AcDbAttributeDefinition") (setq id (vla-get-ObjectID x))
11.           (setq L (cons (list (vla-get-TagString x) id (vla-GetBlockAttributeValue mld id)) L))
12.         )
13.       ); vlax-for
14.     ); and
15.     L
16.   ); defun MleaderBlockAtts
17.  
18.   (and
19.     (setq spc (vla-get-Block (vla-get-ActiveLayout (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))))
20.     (princ "\nSelect multileaders: ")
21.     (setq SS (ssget "_:L-I" '((0 . "MULTILEADER"))))
22.     (repeat (setq i (sslength SS))
23.       (and
24.         (setq o (vlax-ename->vla-object (ssname SS (setq i (1- i)))))
25.         (setq n (vla-get-LeaderCount o))
26.         (setq L (MleaderBlockAtts o))
27.         (cond
28.           ( (zerop n) ; Mleader that doesn't contains any leaders - lets create a block reference
29.             (
30.               (lambda ( / _dist _cen b atts att ll1 ll2 ur1 ur2 )
31.                 (setq _dist (lambda (p1 p2) (apply 'distance (mapcar 'vlax-safearray->list (list p1 p2)))))
32.                 (setq _cen (lambda ( pts ) (vlax-3D-point (apply 'mapcar (cons '(lambda (a b) (/ (+ a b) 2.)) (mapcar 'vlax-safearray->list pts))))))
33.                 (vla-GetBoundingBox o 'll1 'ur1)
34.                 (setq b (vlax-invoke spc 'InsertBlock '(0. 0. 0.) (vla-get-ContentBlockName o) 1 1 1 0.))
35.                 (vla-GetBoundingBox b 'll2 'ur2)
36.                 (vlax-invoke b 'ScaleEntity '(0. 0. 0.) (/ (_dist ll1 ur1) (_dist ll2 ur2))) ; <- THIS IS NOT CORRECT, I KNOW (but its close to the result)
37.                 (vla-GetBoundingBox b 'll2 'ur2)
38.                 (vla-Move b (_cen (list ll2 ur2)) (_cen (list ll1 ur1)))
39.                 (setq atts (mapcar (function (lambda (x) (cons (vla-get-TagString x) x))) (vlax-invoke b 'GetAttributes)))
40.                 (foreach x L
41.                   (and
42.                     (setq att (cdr (assoc (car x) atts)))
43.                     (vla-put-TextString att (last x))
44.                   )
45.                 ); foreach
46.                 (vla-put-Layer b (vla-get-Layer o))
47.                 (vla-Delete o)
48.               ); lambda
49.             )
50.           )
51.           ( (>= n 1) ; Standard Mleader that contains 1+ leaders
52.             (
53.               (lambda ( / tmp new )
54.                 (and
55.                   (not (vl-catch-all-error-p (setq tmp (vl-catch-all-apply 'vla-GetLeaderLineVertices (list o 0)))))
56.                   (setq new (vla-AddMLeader spc tmp 0))
57.                   (progn
58.                     (foreach x '(ArrowheadSize ArrowheadType ContentBlockName ContentType StyleName Layer LeaderType BlockConnectionType BlockScale)
59.                       (vlax-put new x (vlax-get o x))
60.                     ); foreach
61.                     (foreach x L (apply 'vla-SetBlockAttributeValue (cons new (cdr x))) )
62.                     (vla-Delete o)
63.                   ); progn
64.                 ); and
65.               ); lambda
66.             )
67.           )
68.         ); cond
69.       ); and
70.     ); repeat
71.   ); and
72.   (princ)
73. ); defun

So this is what I tried to solve problem #2 - but it creates only one 'leader' for the multileader object:

Code - Auto/Visual Lisp: [Select]

1. (and
2.   (setq n (vla-get-LeaderCount o))
3.   (not (vl-catch-all-error-p (setq tmp (vl-catch-all-apply 'vla-GetLeaderLineVertices (list o 0))))) ; 'tmp' - the initial safearray
4.   (setq new (vla-AddMLeader spc tmp 0)) ; use 'tmp' to create the mleader (since its required)
5.   (progn
6.     (vla-RemoveLeader new 0) ; remove the only leader we added to the mleader, so we won't mess up the indexes
7.     (repeat n
8.       (setq n (1- n))
9.       (setq tmp (vla-AddLeader new))
10.       (vla-AddLeaderLine new tmp (vla-GetLeaderLineVertices o n))
11.     ); repeat
12.   ); progn
13. ); and