topic Re: Lisp TXT to ATT (help to modify) in Visual LISP, AutoLISP and General Customization Forum

Lisp TXT to ATT (help to modify)

Edwin.Saez — Fri, 08 Sep 2017 18:29:50 GMT

hi everyone!

I found the following Lee Mac routine, and I need you to help me modify it.
lisp converts the text to attributes.

- I need them to be able to convert texts that are inside the block, without having to enter the block.
- when they are already converted, they are assigned the default property "Multiples Lines".
- The default text of the ATT, should not have "_" between texts.

Thanks for the help

;; Txt2Att  ( Lee Mac )
;; Converts Single-line Text to Attribute Definition

(defun c:txt2att ( / StringSubst RemovePairs ss ent eLst str dx73 )
  (vl-load-com)
  ;; Lee Mac  ~  27.04.10

  (defun StringSubst ( new pat str )
    (while (vl-string-search pat str)
      (setq str (vl-string-subst new pat str))
    )
    str
  )

  (defun RemovePairs ( lst pairs )
    (vl-remove-if
      (function
        (lambda ( pair )
          (vl-position (car pair) pairs)
        )
      )
      lst
    )
  )

  (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
    
    ( (lambda ( i )
        
        (while (setq ent (ssname ss (setq i (1+ i))))
          (setq eLst (entget ent)
                str  (StringSubst "_" " " (cdr (assoc 1 eLst)))
                dx73 (cdr (assoc 73 eLst)))

          (setq eLst (RemovePairs eLst '( 0 100 1 73 )))

          (if (entmake (append '( (0 . "ATTDEF") ) eLst (list (cons 70    0)
                                                              (cons 74 dx73)
                                                              (cons 1   str)
                                                              (cons 2   str)
                                                              (cons 3   str))))
            (entdel ent)
          )
        )
      )
      -1
    )
  )

  (princ))

Re: Lisp TXT to ATT (help to modify)

pbejse — Sat, 09 Sep 2017 16:33:02 GMT

@Edwin.Saez.Jamanca wrote:

hi everyone!

I found the following Lee Mac routine, and I need you to help me modify it.
lisp converts the text to attributes.

- I need them to be able to convert texts that are inside the block, without having to enter the block.
- when they are already converted, they are assigned the default property "Multiples Lines".
- The default text of the ATT, should not have "_" between texts.

Thanks for the helP

Easier to REDEFINE a block Edwin. Once you modify one of the instances of the block the rest will follow. Have the UPDATED block at the ready, include the block onto your Tool palette and you're done.

- Not sure what that means

- off topic -

I remember a month or so ago, I was blasted by giving the same suggestion

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Sat, 09 Sep 2017 17:47:07 GMT

@pbejse,

THANKS FOR ANSWERING,
WHAT HAPPENS IS THAT I HAVE 100 DIFFERENT BLOCKS HAVING TEXTS WITHIN THE BLOCK, AND THAT I WANT THAT TEXTS TO BE ATTRIBUTED, NOT TO ENTER INTO EVERY BLOCK AND CREATE A NEW ATTRIBUTE.

Re: Lisp TXT to ATT (help to modify)

pbejse — Sun, 10 Sep 2017 06:05:34 GMT

@Edwin.Saez.Jamanca wrote:

@pbejse,

THANKS FOR ANSWERING,
WHAT HAPPENS IS THAT I HAVE 100 DIFFERENT BLOCKS HAVING TEXTS WITHIN THE BLOCK, AND THAT I WANT THAT TEXTS TO BE ATTRIBUTED, NOT TO ENTER INTO EVERY BLOCK AND CREATE A NEW ATTRIBUTE.

Wow. Deja Vu and All caps at that.

TEXTS - plural , each one will be converted to multiline attribtue or combined all text ito one multiline attribute?

Can you post a sample block?

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Sun, 10 Sep 2017 07:20:53 GMT

I attached a dwg example of the blocks.

there are 2 types of blocks:

- blocks that have single line text (text)
- blocks that have multi-line text (Mtext)

lisp should work for both options.
similar to the lisp of lee mac, but without having to enter the block editor, and that convert to attribute the texts.
in the case of texts of several lines (Mtext) must combine all the Mtext, in one multiline attribute.

Thanks for the help @pbejse.

Re: Lisp TXT to ATT (help to modify)

pbejse — Sun, 10 Sep 2017 07:57:09 GMT

Both strings on blocks are MTEXT.

Are you saying if the MTEXT is just one line convert it to an attribute and more than one then convert it to a MultiLine attribute?

Or convert MTEXT to multiline attribute regardless? and if it's a TEXT entity just a regular attribute?

What you need to show is a BEFORE and AFTER so there would be no confusion.

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Sun, 10 Sep 2017 08:01:48 GMT

pbejse escribió:

Both strings on blocks are MTEXT.

if I know, but lisp should work for text and Mtext, since other blocks are with text

Are you saying if the MTEXT is just one line convert it to an attribute and more than one then convert it to a MultiLine attribute?

if, the text make it an attribute.
mtext that is also a single attribute. Only the content of the mtext is in separate line; this should be a single attribute.

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Sun, 10 Sep 2017 08:10:23 GMT

@pbejse,

Attached dwg, with the blocks as they are now, and how they should be.

Re: Lisp TXT to ATT (help to modify)

pbejse — Sun, 10 Sep 2017 08:48:49 GMT

Ok, before I begin, The blocks to be processed have only one item of either a MTEXT or a TEXT? There are no blocks that have multiple text/mtext entity, and by that, I mean more than one text/mtext object not string lines. Correct?

Re: Lisp TXT to ATT (help to modify)

jackshield — Sun, 10 Sep 2017 10:58:06 GMT

i cannot think of any native autocad solutions. you can redefine the block, but getting the new attribute to absorb the existing text value may not be possible. the lisp routine might work if blocks are exploded, if you can live without the blocks

Re: Lisp TXT to ATT (help to modify)

pbejse — Sun, 10 Sep 2017 14:00:58 GMT

Command: TXT2MATT

HTH

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Mon, 11 Sep 2017 07:14:46 GMT

Patrick,

It works very well.

the only thing I want you to add is that all attributes have the property of multiple lines.

thanks

Re: Lisp TXT to ATT (help to modify)

pbejse — Mon, 11 Sep 2017 16:34:31 GMT

@Edwin.Saez.Jamanca wrote:

Patrick,

It works very well.

the only thing I want you to add is that all attributes have the property of multiple lines.

thanks

Thought you wanted single attributes for single lines.

Try the quick mod [ txtAll2Matt.lsp ]

HTH

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Mon, 11 Sep 2017 18:03:00 GMT

@pbejse,

is perfect for me
a question, could the boundary width "0" the attribute?

thanks always for the help!

you are a crack

Re: Lisp TXT to ATT (help to modify)

pbejse — Mon, 11 Sep 2017 18:20:43 GMT

@Edwin.Saez.Jamanca wrote:

@pbejse,

is perfect for me
a question, could the boundary width "0" the attribute?

thanks always for the help!

you are a crack

Yes, just get rid of this line

....
(vla-put-MTextBoundaryWidth NewMultilineAttribute (vlax-get (Cdr f) 'width))
...

BUT more coding would be needed to add the //P per line based on the existing STRING content.

Not sure if that's a good thing

We'll continue tomorrow edwin,

Cheers

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Tue, 12 Sep 2017 15:02:07 GMT

@pbejse,

BUT more coding would be needed to add the //P per line based on the existing STRING content.

This is what I need...

thanks Patrick! you are a genious!!

Re: Lisp TXT to ATT (help to modify)

pbejse — Tue, 12 Sep 2017 18:15:48 GMT

@Edwin.Saez.Jamanca wrote:

BUT more coding would be needed to add the //P per line based on the existing STRING content.

This is what I need...

Not a big fan of "//P" myself. so I'm not really in agreement with your request there edwin. I think you're better off with the mtext width as it was before it was converted to Multiline Attribute.

But really that's just me stalling.

Re: Lisp TXT to ATT (help to modify)

Edwin.Saez — Tue, 12 Sep 2017 18:53:30 GMT

@pbejse,

thanks for answering patrick.

what happens is that I do not like to see the attribute grips when it has a width width other than 0. That's why I wanted the value to be kept at 0, and depending on the content of the existing text, you can do a line break , just as you mentioned it.

Anyway, I appreciate your help. 🙂

Re: Lisp TXT to ATT (help to modify)

jackshield — Tue, 12 Sep 2017 19:33:16 GMT

Did this resolve the issue of retaining the text value defined in block?