Tema: Sugerencias con autolisp

Hola a todos, necesito que me den una mano. Tengo una programación en AutoLISP que me paso uno de ustedes, el problema es que la tengo en un archivo de texto en el bloc de notas (txt) y no sé cómo pasarla al AutoCAD 2004, me podrían explicar cómo se hace?

Simplemente tienes que cambiar la extensión del txt por lsp y a funcionar. Un saludo.

Hola como están? Los consejos que me dieron no funcionaron, para que se den una idea, esta programación me la pasó un flaco en este foro que creo que se llama Diego y es para armar planillas en AutoCAD, lo que tengo en un archivo del bloc de notas es esto:
(defun c:pln ().
(Setq modos (getvar osmode)).
(Setque mcolor (getvar cecolor)).
(Setvar dimzin 1).
(Command _cecolor red).
(Setque tes 0).
(Setque pto (getpoint \nEspecifique el punto de insercion de la planilla: )).
(Setque ptox (car pto)).
(Setque ptoy (car (cdr pto))).
(Setque ubi 0).
(Setque swi xxxx).
(While (/= tes 999).
(Setque pnto (getpoint \nPunto de lindero: )).
(Setque pntox (car pnto)).
(Setque pntoy (car (cdr pnto))).
(Setque n_pto (getstring \nNombre del punto: )).
(If (= n_pto swi) (setque tes 99).
(If (= tes 0) (setque swi n_pto)).
(Setque tes (+ tes 1)).
(Setque imx (rtos pntox 2 3)).
(Setque imy (rtos pntoy 2 3)).
(Command _text (list ptox (- Ptoy ubi)) 0 n_pto).
(Command _text (list (+ ptox 6.99) (- Ptoy ubi)) 0 imy).
(Command _text (list (+ ptox 21.05) (- Ptoy ubi)) 0 imx).
(Setque pues (- Ptoy ubi)).
(Setque ubi (+ ubi 1.667))).
(Setvar osmode 0)}.
(Command _cecolor white).
(Command _line (list (- Ptox 1.02) (+ ptoy 11.174)) (list (- Ptox 1.02) (- Pues 3.887))).
(Command _line (list (- Ptox 1.02) (+ ptoy 11.174)) (list (+ ptox 32.195) (+ ptoy 11.174))).
(Command _line (list (- Ptox 1.02) (+ ptoy 8.099)) (list (+ ptox 32.195) (+ ptoy 8.099))).
(Command _line (list (- Ptox 1.02) (+ ptoy 5.024)) (list (+ ptox 32.195) (+ ptoy 5.024))).
(Command _line (list (- Ptox 1.02) (+ ptoy 1.94) (list (+ ptox 32.195) (+ ptoy 1.94)).
(Command _line (list (- Ptox 1.02) (- Pues 3.887)) (list (+ ptox 32.195) (- Pues 3.887))).
(Command _line (list (- Ptox 1.02) (- Pues 0.812)) (list (+ ptox 32.195) (- Pues 0.812))).
(Command _line (list (+ ptox 32.195) (+ ptoy 11.174)) (list (+ ptox 32.195) (- Pues 3.887))).
(Command _cecolor .
(Command _line (list (+ ptox 5.4) (+ ptoy 1.94) (list (+ ptox 5.4) (- Pues 0.812))).
(Command _line (list (+ ptox 18.87 (+ ptoy 1.94) (list (+ ptox 18.87 (- Pues 0.812))).
(Command _cecolor white).
(Command _text c (list (+ ptox 15.60) (+ ptoy 9.06)) 0 xx).
(Command _text c (list (+ ptox 15.60) (+ ptoy 5.985)) 0 planilla de coordenadas).
(Command _text c (list (+ ptox 15.60) (- Pues 2.855)) 0 Area = m2).
(Command _cecolor red).
(Command _text c (list (+ ptox 1.95) (+ ptoy 2.981)) 0 punto).
(Command _text c (list (+ ptox 11.776) (+ ptoy 2.981)) 0 norte).
(Command _text c (list (+ ptox 25.423) (+ ptoy 2.981)) 0 este).
(Setvar osmode modos).
(Command _cecolor mcolor)).

Y no sé cómo pasarlo al AutoLISP, lo de cambiarle la extensión no funciona.

Mas fácil: si tienes el archivo nombre, lsp lo buscas con el explorador de Windows, lo arrastras hasta la ventana de AutoCAD, y ya lo has cargado.

Y no, para que se cargue siempre no era desde AutoCAD, PGP, si no desde AutoCAD, lsp.

Gracias pnc por refrescarme la memoria.

Necesito que me den una explicación detallada, lo que yo publique más arriba lo tengo en archivo de extensión.txt por lo que no puedo cargarlo en AutoCAD (herramientas/AutoLISP/cargar) lo que si puedo hacer es entrar en el edito de visual Lisp (herramientas/AutoLISP/visual Lisp editor) ahora que tengo que hacer, copio el que tengo en el txt y lo pego en la ventana que dice visual Lisp console? Y después como hago para que se convierta en una rutina de AutoLISP y la pueda cargar en AutoCAD, yo de esto no entiendo nada, por favor expliquenme en forma detallada como si fuera un niño de tres años.

Chao saludos a todos.

Pues ya no sé si será algo tan fácil como cambiarle la extensión de txt a lsp. Pero prueba por si acaso.

Saludos. Sobre tu consulta si aún no has podido solucionarla. Yo lo que haría seria cambiarle la extensión del archivo de.txt a.lsp, tengo dos caminos uno es como ya lo han mencionado, usando el explorador del Windows, y el otro es editando ese archivo con el bloc de notas y hacer uso de guardar como, en nombre del archivo le pones, por decir, ya no prueba, txt sino prueba, lsp.

De ahí sigues la rutina que veo conoces de como cargar un archivo Lisp en AutoCAD.

Listo.