Sugerencias con autolisp

[ing_ldc]

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?

[Sr. Floppy]

Crtl+c -Crtl+v ¿quizás?

[Nanook_fgp]

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

[ing_ldc]

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.

[FRANK SOLO]

No sé si el problema será lo que voy a decir, pero por si acaso, ahí va. Que yo recuerde cualquier rutina echa en AutoLISP, hay que cargarla previamente en AutoCAD, ¿cómo? En el menú herramientas->AutoLISP->cargar aplicación, en ese momento se abre un cuadro de diálogo, desde dónde puedes cargar el archivo Lisp, y una vez cargado, en tu caso, tendrás que llamar a la función desde la línea de comandos como: pln.

A ver si así funciona, también se puede hacer para que se cargue automáticamente desde el fichero AutoCAD, PGP, pero no recuerdo cómo se hace exactamente. Si alguien lo sabe, ya está tardando en decirlo.

Por cierto, en AutoLISP creo que ya lo tienes y la extensión tiene que ser lsp, guárdalo en una carpeta y luego lo cargas desde ella.

[pnc]

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.

[FRANK SOLO]

Gracias pnc por refrescarme la memoria.

[ing_ldc]

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.

[FRANK SOLO]

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

[CarlosG_2005]

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.