size texts and layer ...routine help

[leonucadomi]

hello:

Does anyone have a routine in which I can select all the texts or mtext in the window and change them to "mylayer" and color bylayer

 

thanks

 

[GLAVCVS]

Only those visible in the graphics window or the entire drawing?

[leonucadomi]

  On 2/24/2025 at 8:04 PM, GLAVCVS said:

Only those visible in the graphics window or the entire drawing?

Expand  

ONLY THOSE THAT I SELECT WITH WINDOW

[GLAVCVS]

Maybe this will help you

(defun c:trocapa (/ conj ent n)
  (setq n -1)
  (princ "\nSelect TEXTs/MTEXTs...")  
  (if (setq conj (ssget '((0 . "*TEXT"))))
    (while (setq ent (ssname conj (setq n (1+ n))))
      (entmod (append (entget ent) (list (cons 8 "MyLayer") (cons 62 256))))
    )
  )
  (princ)
)

 

[GLAVCVS]

If you want to change the name of the destination layer you just have to change the 'MyLayer' code to the name you want.

[leonucadomi]

  On 2/24/2025 at 8:34 PM, GLAVCVS said:

If you want to change the name of the destination layer you just have to change the 'MyLayer' code to the name you want.

Expand  

thanks