balloon

[tiziano69]

good morning, who is so kind to explain how to change the attached file, making sure that the text, during the creation of the "anonymous" block does not form part of the block itself so that it can be changed later. See Annex

Thank you.

 

[GP.]

the question arises spontaneously: why not use multidir?
It's a lisp almost 20 years ago, so it was the only way to create a guide with a circle around the text.

 

[tiziano69]

I know the multidir, it is that I asked myself a colleague who uses autocad 2007 and here are not available.

 

[GP.]

open the lisp with a text editor and add rows in red.

[COLOR="#A9A9A9"]  
          ...........
          ...........
          (setq th (setq tmp le))
          (while (setq tmp (entnext tmp))[/COLOR][COLOR="#FF0000"][/COLOR][B] [COLOR="#FF0000"](if (/= (cdr (assoc 0 (entget tmp))) "text")[/COLOR][/B][COLOR="#A9A9A9"] (entmake (entget tmp))[/COLOR][B][COLOR="#FF0000"] (setq txt (entget tmp))[/COLOR][/B][B][COLOR="#FF0000"]              )[/COLOR][/B]
[COLOR="#A9A9A9"]   )
          (setq tmp (entmake (list (cons '0 "endblk"))))
          (while (setq th (entnext th))
            (entdel th)
          )[/COLOR] [B][COLOR="#FF0000"]          (if txt (entmake txt))[/COLOR][/B][COLOR="#A9A9A9"] (entdel le)
...
...[/COLOR]

 

[tiziano69]

Okay, done, I put the lines in and it works, thank you

 

[GP.]

Please: