Topic: Converting Leaders to MLeaders

[cmwade77]

I am working on updating my routine that converts leaders to mleaders to also handle blocks. For some reason the attached code only modifies the first attribute in the block. I am wondering if anyone out there could help me out. As you can see from the comments, some of the code is reused from others on this board and other boards and I have tried to give all applicable credit, but if you know someone that I have missed in there, please let me know.

Any help that you can provide on figuring out why it is only modifying the first attribute would be greatly appreciated. It also seems to be doing it in reverse order, but I think I know how to fix that part.

[T.Willey]

Check here.  This might help you out.

http://www.theswamp.org/index.php?topic=34816.msg400209#msg400209

[cmwade77]

Thank you for that, now I just have to figure out how to get the attributes into a list like that.

[Lee Mac]

now I just have to figure out how to get the attributes into a list like that.

Perhaps?

Code: [Select]

(defun GetAttributes ( blockObject )
  (mapcar
    (function
      (lambda ( attrib ) (cons (vla-get-Tagstring attrib) (vla-get-TextString attrib)))
    )
    (vlax-invoke blockObject 'GetAttributes)
  )
)

[cmwade77]

That will do, thank you very much, I was trying on my own and failing miserably.

[cmwade77]

Ok, I think I have finally got the bugs worked out and got the command working with blocks, it will also now convert lines into plines before converting, in case you have exploded leaders. I have attached the code (there are remarks by the items that are to do with our standards, so that you know what they do and can change them.

Let me know what you think, I am sure the code could be optimized, especially given all of the outside code and such that has been plugged into it, but it does at least work.