Buenas,
Soy nuevo en esto, y bueno ahora en el trabajo tenemos un paroncete y estoy tratando de mejorar cosillas. He visto que se dejan por aquí rutinas de comandos y tal bastante útiles. Mi duda es que no sé donde tengo que copiar y pegar esa rutina para poder crear el archivo .lsp para después cargar la aplicación. Si alguien me puede echar una mano me sería de gran ayuda.
Un saludo!
AUTOLISP
Moderador: Moderadores
hola, intenta lo siguiente:
menu herramientas/autolisp/editor, aparece un panel de dialogo donde tienes que selecionar el icono de 'nuevo archivo' En este archivo tienes que introducir la rutina, por ejemplo
;;;;;;;;;;;;Rutina para dibujar tres líneas desde un punto.
(DEFUN c:dib_lineas ( / pt1 pt2 pt3 pt4)
;(DEFUN c:dib_lineas ()
(PROMPT "\nEste programa dibuja tres línas desde un punto")
(SETQ pt1 (GETPOINT "\nPrimer punto: "))
(SETQ pt2 (GETPOINT "\nSegundo punto: "))
(COMMAND "_line" pt1 pt2 "")
(SETQ pt3 (GETPOINT "\nTercer punto: "))
(COMMAND "_line" pt1 pt3 "")
(SETQ pt4 (GETPOINT "\nCuarto punto: "))
(COMMAND "_line" pt1 pt4 "")
)
y guardas el archivo en un lugar conocido con el nombre que quieras por ejemplo 'dib_lin'.
ahora en herramientas/autolisp/cargar, buscar el arhivo anterior 'dib_lin' y seleccionas cargar y luedo cierras.
Ahora en la linea de comando tecleas 'dib_lineas' y te funciona el pedazo de programa.
hasta luego.
menu herramientas/autolisp/editor, aparece un panel de dialogo donde tienes que selecionar el icono de 'nuevo archivo' En este archivo tienes que introducir la rutina, por ejemplo
;;;;;;;;;;;;Rutina para dibujar tres líneas desde un punto.
(DEFUN c:dib_lineas ( / pt1 pt2 pt3 pt4)
;(DEFUN c:dib_lineas ()
(PROMPT "\nEste programa dibuja tres línas desde un punto")
(SETQ pt1 (GETPOINT "\nPrimer punto: "))
(SETQ pt2 (GETPOINT "\nSegundo punto: "))
(COMMAND "_line" pt1 pt2 "")
(SETQ pt3 (GETPOINT "\nTercer punto: "))
(COMMAND "_line" pt1 pt3 "")
(SETQ pt4 (GETPOINT "\nCuarto punto: "))
(COMMAND "_line" pt1 pt4 "")
)
y guardas el archivo en un lugar conocido con el nombre que quieras por ejemplo 'dib_lin'.
ahora en herramientas/autolisp/cargar, buscar el arhivo anterior 'dib_lin' y seleccionas cargar y luedo cierras.
Ahora en la linea de comando tecleas 'dib_lineas' y te funciona el pedazo de programa.
hasta luego.
Un enlace en donde se habló ya anteriormente sobre manuales sobre lisp.
viewtopic.php?t=1751
P.D.: Por favor, xcns emplea la proxima vez antes el buscador del foro para evitar repetir temas ya existentes. Gracias
viewtopic.php?t=1751
P.D.: Por favor, xcns emplea la proxima vez antes el buscador del foro para evitar repetir temas ya existentes. Gracias
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados