Supports the direction change operation after turning MLEADER into BLOCK
(defun c:XDTB_MLeaderFX
(/ ents old sel ss str tf x
) (xd::doc:checkacadversion '>= "2008" "")
(xdrx-begin)
(xdrx-initssget "\nSelect multileader <exit>:")
'((-4 . "<or")
(0 . "MULTILEADER")
(2 . "XMLEADER*")
(-4 . "or>")
)
)
)
(setq ents
(xdrx_pickset
->ents ss
)) "\rInput direction [Up/Down(E)|Left/Right(D)|Oblique(A)<Exit>:"
)
)
)
(if (setq tf
(xdrx_object_isa x
"AcDbBlockreference")) (xdrx-entity-explode x)
)
)
(cond ((= sel
"E") (xdrx
-setpropertyvalue x
"mirror" 1)) ((= sel "D") (xdrx-setpropertyvalue x "mirror" 0))
((= sel "A") (xdrx-setpropertyvalue x "mirror" 2))
)
(xdrx-getpropertyvalue x "handle")
)
)
(xdrx-block-make
str
x
(xdrx-getpropertyvalue x "firstvertex" 0)
t
)
(xdrx
-entity
-setpropertiesfrom
(entlast) x
) )
)
)
ents
)
)
)
)
(xdrx_end)
)
