Match Text Properties Without Affecting Rotation

[BILLYJOW]

Hi guys,

When you match the properties from one piece of text to another by default it matches the rotation angle and text size. If you simply want to match the layer of one piece of text to another without affecting other text properties such as rotation angle.

Regards.

[BILLYJOW]

Hey all,

Problem solved.
I've found one at the Cadalyst site. It didn't mention the author but this lisp is great!

I'll posted the code below. And if you have a other code, please post too.

Thanks

;*****************************************************************************
;                          TTT.LSP
;This program changes a selected text string to match any other selected text
;string.
;*****************************************************************************

(DEFUN C:TTT ()

   (SETQ ED(ENTGET (CAR (NENTSEL "\nPick TEXT to change:"))))
   (SETQ EL (ENTGET (CAR (NENTSEL "\nPick TEXT to match:"))))
 (COMMAND "CMDECHO" "1")
  (SETQ ED (SUBST (CONS 7 (CDR (ASSOC 7 EL)))
                 (ASSOC 7 ED)
                ED
   )
 )
(ENTMOD ED)
  (SETQ ED (SUBST (CONS 40 (CDR (ASSOC 40 EL)))
                 (ASSOC 40 ED)
                ED
   )
)

(ENTMOD ED)
  (SETQ ED (SUBST (CONS 8 (CDR (ASSOC 8 EL)))
                 (ASSOC 8 ED)
                ED
   )
)
(ENTMOD ED)
(SETQ ED (SUBST (CONS 51 (CDR (ASSOC 51 EL)))
                (ASSOC 51 ED)
                ED
   )
)
(ENTMOD ED)
)

[Tharwat]

Try this Billy

(defun c:Test (/ s ent ss i e)
  (if (and (setq s (car (entsel "\n Select Single text :")))
           (wcmatch (cdr (assoc 0 (setq ent (entget s)))) "*TEXT")
           (progn (prompt " Select Texts to match ... ")
                  (setq ss (ssget "_:L" '((0 . "*TEXT"))))
           )
      )
    (repeat (setq i (sslength ss))
      (setq e (entget (ssname ss (setq i (1- i)))))
      (entmod
        (append e (list (assoc 7 ent) (assoc 40 ent) (assoc 8 ent)))
      )
    )
  )
  (princ)
)

[BILLYJOW]

Hi Tharwat.
Good one. I've tested and worked perfect!

Thank you.

I have one question.
Why the lisp match the layer and the height, but don't match the width??

Regards

[Tharwat]

Hi Tharwat.
Good one. I've tested and worked perfect!

Thank you.

You're welcome .

I have one question.
Why the lisp match the layer and the height, but don't match the width??

Regards

Because that follows the Text Style

[BILLYJOW]

Because that follows the Text Style

I get it, Tharwat.

Thank you again.

[Tharwat]

I get it, Tharwat.

Thank you again.

Enjoy it .....

[Rroger_D]

Try this Billy

(defun c:Test (/ s ent ss i e)
  (if (and (setq s (car (entsel "\n Select Single text :")))
           (wcmatch (cdr (assoc 0 (setq ent (entget s)))) "*TEXT")
           (progn (prompt " Select Texts to match ... ")
                  (setq ss (ssget "_:L" '((0 . "*TEXT"))))
           )
      )
    (repeat (setq i (sslength ss))
      (setq e (entget (ssname ss (setq i (1- i)))))
      (entmod
        (append e (list (assoc 7 ent) (assoc 40 ent) (assoc 8 ent)))
      )
    )
  )
  (princ)
)

Hi,

Sorry to hi-jack this thread and in what appears to be fairly old, but I cannot seem to find the similar solution elsewhere.

Is it possible to match text rotation only and NOT all other properties?

I assume a simple adjustment of the above Lisp but unfortunately, I don't understand Lisps at all

Thanks for any help.

Rroger_D

[Tharwat]

Is it possible to match text rotation only and NOT all other properties?

Replace this:

(entmod (append e (list (assoc 7 ent) (assoc 40 ent) (assoc 8 ent))))

With this:

(entmod (append e (list (assoc 50 ent))))