Topic: Replace text with existing block with attribute

[luisternou]

Hello everyone!
I have several bridge-numbers in my drawing(2000+). I want to replace the text numbers with an existing block with an attribute in it who's value becomes de replaced text.
Is there someone who can help me to write a lisp?
Thanks in advance,
Kind regards, Luis

[ChrisCarlson]

This isn't too bad if you're willing to learn. You need to break it down into steps first. This is how I would break it down

1) Select text entities and filter on entities with the string you want to replace
    1a) Create a txtstr variable
    1b) Create a variable for insertion point based on the text entity
2) Insert the block
4) Input the string into the attribute of the block entity
5) Delete the text entity

[luisternou]

    eeeeh oké, thanks, that looks very simple! But to be honest. I tried in the past to write lisp but I don't have the talent and/or brains to get it right.  I hope you or someone else can help me. Anyhow, thanks for replying!

[ChrisCarlson]

Research and examine the following;

Code - Auto/Visual Lisp: [Select]

1. ssget , vla-get-TextString ,  vla-InsertBlock , vla-put-TextString , vla-Delete  

[luisternou]

Sorry Master_Shake but I am in a hurry! So what I did is: I did the command Tcircle and selected all the text. Then with an old lisp I have I converted all the 2014 circles to a circle block. Then in Express-tools I replaced all the circle blocks with the one I want with the attribute. With another lisp I copy the text to the attribute value one by one... 

[ronjonp]

If you still have text near the blocks, THIS could be modified to copy text value into the attribute.

[luisternou]

Thanks ronjonp! That looks promising. I will look in to that first thing in the morning!

[luisternou]

Hi Ronjonp! I tried the lisp but it not working in my drawing. I attached a small part of it. Maybe you can take a look?
Thanks in advance!

Kind regards,
Luis

[ronjonp]

Hi Ronjonp! I tried the lisp but it not working in my drawing. I attached a small part of it. Maybe you can take a look?
Thanks in advance!

Kind regards,
Luis

Here you go:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ blocks el fuzz p text txt x)
2.   (vl-load-com)
3.   (setq fuzz 0.001)
4.   (if (and (setq text (ssget "_x" '((0 . "text") (8 . "!Kunstwerken_Watervaknummer"))))
5.            (setq blocks (ssget "_x" '((0 . "insert") (66 . 1) (2 . "Symbool_Kunstwerk"))))
6.            (setq blocks (mapcar 'vlax-ename->vla-object (mapcar 'cadr (ssnamex blocks))))
7.            (setq
8.              text (mapcar
9.                     '(lambda (x) (setq el (entget x)) (list (cdr (assoc 11 el)) (cdr (assoc 1 el)) x))
10.                     (mapcar 'cadr (ssnamex text))
11.                   )
12.            )
13.       )
14.     (foreach block blocks
15.       (setq p (vlax-get block 'insertionpoint))
16.       (if (setq txt (vl-some '(lambda (x)
17.                                 (if (equal p (car x) fuzz)
18.                                   x
19.                                 )
20.                               )
21.                              text
22.                     )
23.           )
24.         (progn (mapcar '(lambda (x) (vla-put-textstring x (cadr txt)))
25.                        (vlax-invoke block 'getattributes)
26.                )
27.                (entdel (last txt))
28.         )
29.       )
30.     )
31.   )
32.   (princ)
33. )

[luisternou]

Hello again Ronjonp!
For you it is maybe nothing but for me this is amazing  Thank you very much!!

In the meantime I was also examining this routine. It did something but not as smooth and fast as your routine. Maybe it is interesting for you to study.
http://cadtips.cadalyst.com/attributed-blocks/automatically-convert-text-or-mtext-attributes (credits to Ricky Medley).

Anyway, thangs again! I am glad I get my deadline in time! 

[luisternou]

 

[ronjonp]

Hello again Ronjonp!
For you it is maybe nothing but for me this is amazing  Thank you very much!!

In the meantime I was also examining this routine. It did something but not as smooth and fast as your routine. Maybe it is interesting for you to study.
http://cadtips.cadalyst.com/attributed-blocks/automatically-convert-text-or-mtext-attributes (credits to Ricky Medley).

Anyway, thangs again! I am glad I get my deadline in time! 

Glad to help .. now you can go home early today! 

[luisternou]

  Exacly, I go now, have a nice weekend Ronjonp!

[ronjonp]

Exacly, I go now, have a nice weekend Ronjonp!

You too 

[symoin]

Dear RonJonp,

How to modfiy or is there any way for converting the Normal block without attribute to a block with attribute and attach the nearest text on the same layer as its value.
dOESN'T MATTER IF THE BLOCK IS REPLACE WITH A NEW BLOCK.