Autolisp para cambiar textos a bloques con atributos. ...!!

[vidalbarrios]

(defun rtd (angulo) ; radianes a grados
(/ (* angulo 180.0) pi)
)

(defun c:TAB()
(setvar "CMDECHO" 0)
(setvar "ATTDIA" 0)
(setq seleccion1 (ssget '((0 . "TEXT"))))
(repeat (setq i (sslength seleccion1))
(setq seleccion2 (ssname seleccion1 (setq i (1- i))))
(setq seleccion3 (entget seleccion2))
(setq texto1 (cdr (assoc 1 seleccion3)))
(setq escala1 (cdr (assoc 40 seleccion3)))
(setq angulo (cdr (assoc 50 seleccion3)))
(setq angulo2 (rtd angulo))

(COMMAND "-insert" "C:\\TEMP\\BLOQUE_TEXTO.dwg" (cdr (assoc 10 seleccion3)) escala1 escala1 angulo2 texto1)


);end repeat
(setvar "ATTDIA" 1)
);

[josefernandoduarteisidro]

Hola me interesa descargar el lisp donde lo puedo conseguir?

[guillermogutierrez]

por favor me colabora con ella aplicacion???

[RagdeTheCat]

Hola alguien sabe que aplicación es????

[abrahamchura]

favor si me puede enviar su aplicacion, le estoy muy agradecido de antemano

[Gerardinsky]

EDGAR Hola. Te agradecería si me pudiera enviar la rutina a mi correo (chgerardo(a)gmail.com). Muchas gracias