Topic: How to get and set values from Attributed Block in Mleader

[Coder]

Hello guys .

I stuck in getting inside Mleader object to Get and Set the values of Attributed Block in Mleader according to its Tag strings.

Any one can give any example or how to get the vla-object that represents the Attributed Block inside Mleader ?

Thanks in advanced .

[ronjonp]

http://www.theswamp.org/index.php?topic=46547.msg515485#msg515485

[Coder]

http://www.theswamp.org/index.php?topic=46547.msg515485#msg515485

Thank you ronjonp for your time and post. 

And thank you Lee for the good work. 

[cmwade77]

Yes, as usual, Lee's code works wonders.

[Lee Mac]

Thanks guys 

[Coder]

Hello Lee.

Can you please help me by modifying your function to allow me to get the text string into a field codes to be used in Mtext ?

I tried this but it did not work.

Code - Auto/Visual Lisp: [Select]

1. (defun getmleaderatts (obj / rtn)
2.   (if
3.     (and
4.       (= "AcDbMLeader" (vla-get-objectname obj))
5.       (= acblockcontent (vla-get-contenttype obj))
6.       (eq (vla-get-ContentBlockName obj) "PILE")
7.     )
8.      (vlax-for sub
9.                    (vla-item
10.                      (vla-get-blocks (vla-get-document obj))
11.                      (vla-get-contentblockname obj)
12.                    )
13.        (if (and (= "AcDbAttributeDefinition" (vla-get-objectname sub))
14.                 (eq (strcase (vla-get-tagstring sub)) "DIA")
15.            )
16.          (setq rtn (strcat "%<\\AcObjProp Object(%<\\_ObjId "
17.                            (LM:objectid sub)
18.                            ">%).TextString>%"
19.                    )
20.          )
21.        )
22.      )
23.   )
24.   rtn
25. )

Code - Auto/Visual Lisp: [Select]

1. (if (and (setq str (getmleaderatts (vlax-ename->vla-object (car (entsel "\nSelect Mleader with Block PILE :"))
2.                      )
3.                    )
4.          )
5.          (setq pnt (getpoint "\nInsertion Point :"))
6.     )
7.   (vla-addmtext (vlax-get-property (LM:acdoc) (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace))
8.     (vlax-3D-point (trans pnt 1 0))
9.     0.0
10.     str
11.   )
12. )

[Lee Mac]

As far as I am aware, this is not possible as a Field expression must reference an ActiveX property and there is no ActiveX property which gives the text content of an MLeader Attribute (this must be obtained using the ActiveX getattributevalue method, as shown in my example in the other thread.

[Coder]

Thank you Lee for your reply.

I think I need to go back to normal Mleader to be able to link the TextString property in Fields.