Topic: Matching Another Mleader Attribute Values

[cmwade77]

The problem is related to the alignment of the attribute.
Change (2x):

Code: [Select]

(setq TestPt1
  (polar
    (vlax-safearray->list
      (vlax-variant-value (vla-get-insertionpoint Att))
    )
    (angle '(0 0 0) InsPt1)
    (distance '(0 0 0) InsPt1)
  )
)To:

Code: [Select]

(setq TestPt1
  (mapcar
    '+
    (vlax-get Att (if (zerop (vla-get-alignment Att)) 'insertionpoint 'textalignmentpoint))
    InsPt1
  )
)
Note: Your Mleader is annotative. I expect there will be additional issues with certain anno scales.

The other issue with your method is accounting for the scale of the block when inserted into Modelspace and scaled up with DIMSCALE or manually scaled.

[MSTG007]

lol. Thank you for the share! Yeah.. I am still trying to fit your code into the script. Still no luck with that, keeps erroring out. But, the annotation scale is the problem. But it should work in paperspace? 

[cmwade77]

lol. Thank you for the share! Yeah.. I am still trying to fit your code into the script. Still no luck with that, keeps erroring out. But, the annotation scale is the problem. But it should work in paperspace?

I have not tested it with annotative styles, but it definitely should work on any nonanotative style and should work in paperspace or modelspace, so long as dimscale is set properly.

[MSTG007]

I was playing around with the drawing I have uploaded, and I drew a few MLeaders in Paperspace and set the Annotation scale to None. I am hoping I did something wrong not to get it to work. lol.

[roy_043]

The other issue with your method...

My code is a minor improvement of *your* method. And yes, as I have mentioned before, there is an issue with block scaling and also with the textsize. Of course if there is only one attribute the solution can be much simpler.

[cmwade77]

The other issue with your method...

My code is a minor improvement of *your* method. And yes, as I have mentioned before, there is an issue with block scaling and also with the textsize. Of course if there is only one attribute the solution can be much simpler.

I see, I am still learning with the mapcar stuff and yes when there is only one attribute, it is much easier. It would be even easier if AutoCAD would return the actual locations of the insertion points of the text somehow, then I could use the same as any of the other attribute stuff.

[Lee Mac]

FWIW, I have now updated my Copy or Swap Text program to enable compatibility with Dimensions & MLeader Block Attributes.

[MSTG007]

Thank you so just lee for doing that!!!! Hopefully it wasn't too hard to add! Can't wait to try it tomorrow.

[Lee Mac]

You're welcome - I hope it works well in your testing.

[MSTG007]

Alight, I had some time to test it out. I am getting a Selected MLeader has no editable content.

Code: [Select]

Command: ctx
Formatting retained: Yes
Select source text [Settings/Exit]:
Selected MLeader has no editable content.
Formatting retained: Yes
Select source text [Settings/Exit]:
Selected MLeader has no editable content.
Formatting retained: Yes
Select source text [Settings/Exit]: *Cancel*
Command:

By the way here is a same dwg. Maybe the sway the Mleader block setup is wrong?

[Lee Mac]

Alight, I had some time to test it out. I am getting a Selected MLeader has no editable content.

Code: [Select]

Command: ctx
Formatting retained: Yes
Select source text [Settings/Exit]:
Selected MLeader has no editable content.
Formatting retained: Yes
Select source text [Settings/Exit]:
Selected MLeader has no editable content.
Formatting retained: Yes
Select source text [Settings/Exit]: *Cancel*
Command:

By the way here is a same dwg. Maybe the sway the Mleader block setup is wrong?

Many thanks - I've found the bug: it was the result of a single missing character, and dependent on the order of the components within the block definition of the MLeader Attributed Block!

I will update the program shortly.

[MSTG007]

Woohoo. I helped lee out! Im glad you found it!

[Lee Mac]

Updated here (V1.6).

Thank you once again for your time testing the program - let me know how you get on with the new version 

[MSTG007]

BOOM! Works! This is gonna change everything. lol! THank you again!

[Lee Mac]

BOOM! Works! This is gonna change everything. lol! THank you again!

Fantastic! I'm delighted that you can make use of the program