Topic: Problem with attribute matching

[drumbald]

This will match individual attributes text. I want to change it to match all the text in a block not individual ones

 

Code: [Select]

(defunct C:MTB ( / SOURCE TEXT DEST)

(while (not (and

  (prince "\please Select Source Title Block ")

  (set SOURCE (car (nettle)))

    (if

      (OR

        (= (car (assoc 0 (entreat SOURCE))) "ATTRIB")

        (= (car (assoc 0 (entreat SOURCE))) "TEXT")

        (= (car (assoc 0 (entreat SOURCE))) "MTEXT")

      )

      (prong 

       (set TEXT (car (assoc 1 (entreat SOURCE))))

       (prince (strata "\please Select Source Text (Attribute or Text) " TEXT))

       (prince "\please Select Text to Change (Attribute or Text) ")

       (set DEST (car (nettle)))

       (if (OR

                 (= (car (assoc 0 (entreat DEST))) "ATTRIB")

                 (= (car (assoc 0 (entreat DEST))) "TEXT")

                 (= (car (assoc 0 (entreat DEST))) "MTEXT")

                 )

             (prong     

                   (set DEST (entreat DEST))

                   (set DEST

                             (subset (cons 1 TEXT)

                                        (assoc 1 DEST)

                                        DEST

                         ) ; subset

                   ) ; set

                   (entomb DEST)

                   (endued (car (assoc -1 DEST)))

              ) ; prong

             (prince "\must be either an Attribute or Text!")

        ) ; if

       

       (prince)

    ) ; prong

    (prong

       (prince "\entity must be an Attribute or Text object!")

       (prince)

    ) ; prong

 

  ) ; if

))) ;whike,and,or

  (alert "This Lisp program was \nwritten by Craig Petersen \nThis is shareware:")

(prince)

   

) ; defunct


Code Tags added by CAB

[deegeecees]

Please elaborate.

[whdjr]

Try this MatchAtts.lsp

[Mark]

drumbald -

if the posted code is not yours please remove it. We don't want any problems with the author. this is the part that bothers me.

Code: [Select]

"This Lisp program was \nwritten by Craig Petersen \nThis is shareware:"
Thanks.

[LE]

What language is that for the functions names..... ?

[deegeecees]

I was having the same 's LE, other than the fact that people just spurt out a little sentence and expect others to just jump at it. I know its a learning thing, mixed with an ego thing, but come on, what dahells that all about!? </rant off>

Ok, Mr. Drumbald, if you get back to this please revise your code like Mr. Thomas said, or it will be removed.

[Kerry]

guys,

this is what happens when peeps use obscure nick names.

Have a look at the posters email address ..

[Bob Wahr]

Eyes like an eagle (or is that an e-gull)

[Kerry]

Heh, bob,

Someone who uses the undocumented defunct function can't be all bad.

[Serge J. Gianolla]

This maybe LISP but not Auto or Visual, I think that's what Luis meant DGC.

[CAB]

Here is a translation.

Code: [Select]

(defun c:mtb (/ source text dest)
  (while
    (not
      (and
        (setq source (car (entsel "\nplease Select Source Title Block ")))

        (if (member (cdr (assoc 0 (entget source))) '("ATTRIB" "TEXT" "MTEXT"))
          (progn
            (setq text (cdr (assoc 1 (entget source))))
            (prompt
              (strcat "\please Select Source Text (Attribute or Text) " text)
            )

            (setq dest
                   (car (entsel
                          "\nplease Select Text to Change (Attribute or Text) "
                        )
                   )
            )

            (if
              (member (cdr (assoc 0 (entget dest))) '("ATTRIB" "TEXT" "MTEXT"))
               (progn
                 (setq dest (entget dest))
                 (setq dest (subst (cons 1 text) (assoc 1 dest) dest))
                 (entmod dest)
                 (entupd (cdr (assoc -1 dest)))
               )
               (prompt "\nmust be either an Attribute or Text!")
            )
          )

          (prompt "\nentity must be an Attribute or Text object!")

        )

      )
    )
  ) ; while

  (prompt
    "This Lisp program was \nwritten by Craig Petersen \nThis is shareware:"
  )

  (princ)
)

[Kerry]

Well, that ruins my theory. I thought he was a guy from Portland or  Anaheim having some fun.

[Serge J. Gianolla]

Very good Alan, you are now officially bilingual! :kewl:

[CAB]

Well, that ruins my theory. I thought he was a guy from Portland or  Anaheim having some fun.

Not so fast, I think you may be correct.

That is my (goofing around) translation of the routine not an official translation.
Sorry Serge, I wish it were so.

[Andrea]

prong !!??

you mean..

progn !!



prince !!??

you mean

princ !!

or maybe...princesse !![/color]

same with...

entreat...nettle...entomb..endued !!!

maybe this was wrote in another language..