(repeat num
(setq lent (entget (ssname conj n)))
(setq lent (subst (cons 50 nrot)(assoc 50 lent) lent))
(entmod lent)
(setq n (+ 1 n))
)
(command "_undo" "_end")
)
(defun c:cambtext (/ conj)
(setvar "cmdecho" 0)
(if (setq conj (ssget (list (cons 0 "text"))))
(opcion_texto)
(prompt "Ningún texto encontrado."))
(setvar "cmdecho" 0)(prin1)
)
Puedes ocupar este ejemplo para agragar mas cosas, por ejemplo cambiar anchura, color, contenido del texto, pasar a mayuscula o minuscula, etc...
Espero que te sirva... si quieres alguna explicacion mandame un email a
[email protected] y te explico la rutina, por aca no la explico por que el foro no aguanta mucho texto...
Un saludo de SpeedCAD... :-)