AYUDA LISP NO CORRE

Ir abajo

AYUDA LISP NO CORRE

Mensaje por AVITOYM el Jue Oct 04, 2018 10:39 pm

Saludos cordiales estimados amigos y amigas

Estoy empezando con el tema de programación el lisp, llevo algunos años de usuario de ACAD. pero recién empiezo con esto del lisp, estoy siguiendo unos libros en pdf que me encontré en la red, y están algunos ejemplo como el que pondré a continuación, el mismo que no logro hacer correr en autocad, quisiera que me den la mano diciéndome que esta mal en mi código aparentemente lo tengo idéntico al libro pero este no me funciona, yo uso autocad civil 3d 2017, versión en ingles.

(DEFUN diblinea ( / ptl pt2 )
(GRAPHSCR)(PROMPT "Este sencillo programa dibuja una
línea" )
(TERPRI )
(SETQ pt1 ( GETPOINT "Primer punto: ") )
(TERPRI )
(SETQ pt2 ( GETPOINT ptl "Segundo punto: " ) )
( TERPRI )
(PROMPT "MUCHAS GRACIAS" )
( TERPRI )
(COMMAND "línea" pt1 pt2 "" )
)


y este otro q es una variante del primero


(DEFUN DIBLINEA3 (/ PT1 PT2 PT3 PT4)
(GRAPHSCR)
(PROMPT "ESTE SENCILLO PROGRAMA DIBUJA 3 LINES")
(TERPRI)
(SETQ PT1 (GETPOINT "PRIMER PUNTO: "))
(TERPRI)
(SETQ PT2 (GETPOINT "SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT2 "")
(SETQ PT3 (GETPOINT "NUEVO SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT3 "")
(SETQ PT4 (GETPOINT "NUEVO SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT4 "")IN
)


cuando los cargo al programa no me sale ningún error pero al momento que tecleo su nombre para poder ejecutarlos nunca se ejecutan

muchas gracias

AVITOYM

Mensajes : 2
Fecha de inscripción : 25/07/2018

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por cyberactive el Vie Oct 05, 2018 5:03 pm

Hola: solo agregale en este parrafo C: y si funciona

(DEFUN C:DIBLINEA3 (/ PT1 PT2 PT3 PT4)

Saludos.

cyberactive

Mensajes : 24
Fecha de inscripción : 16/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por Admin el Sáb Oct 06, 2018 2:12 am

Prueba esto

Código:
(DEFUN c:DIBLINEA3 (/ PT1 PT2 PT3 PT4)
(SETQ OSMODE (GETVAR 'OSMODE))
(SETVAR 'OSMODE 0) ;; DE ESTE MODO SE EVITAN LOS PINZAMIENTOS
(SETQ ORTHOMODE (GETVAR 'ORTHOMODE))
(SETVAR 'ORTHOMODE 0);; PPARA EVITAR LOS ORTOGONALE
 
 
 (PROMPT "ESTE SENCILLO PROGRAMA DIBUJA 3 LINES")
 (SETQ PT1 (GETPOINT "PRIMER PUNTO: "))
 (SETQ PT2 (GETPOINT PT1 "SEGUNDO PUNTO: "))
 (COMMAND "LINE" PT1 PT2 "")
 (SETQ PT3 (GETPOINT PT1 "NUEVO SEGUNDO PUNTO: "))
 (COMMAND "LINE" PT1 PT3 "")
 (SETQ PT4 (GETPOINT PT1 "NUEVO SEGUNDO PUNTO: "))
 (COMMAND "LINE" PT1 PT4 "")

(SETVAR 'OSMODE OSMODE);; SE REETABLECE OSMODE
(SETVAR 'ORTHOMODE ORTHOMODE);; IDEM PRA ORTHOMODE 
)

Admin
Admin

Mensajes : 194
Fecha de inscripción : 16/03/2016
Edad : 70
Localización : CORDOBA ARGENTINA

Ver perfil de usuario http://acadhispano.foroargentina.net

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por AVITOYM el Jue Oct 11, 2018 5:46 am

muchas gracias voy a probar con tus mejoras a la aplicación,

AVITOYM

Mensajes : 2
Fecha de inscripción : 25/07/2018

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por ronaldT el Jue Oct 11, 2018 7:06 pm

Buenos días AVITOYM
Animarte a seguir con tu deseo de aprender a programar, y créeme que hace muy bien revisar varios foros para aprender a programar.

Con respecto a las rutinas para su correcta ejecución debes escribirlo de esta manera
(DEFUN diblinea ( / ptl pt2 ) ,cuando usas DEFUND nombredelafuncion --- colocar (nombredelafuncion) para tu caso debes ejecutar (diblinea), entre paracentesis.

(DEFUN C: diblinea ( / ptl pt2 ) ,cuando usas DEFUND c: nombredelafuncion --- colocar nombredelafuncion para tu caso debes ejecutar diblinea, sin paracentesis.

Por otro lado hay un error en la primera rutina hay un erro en la linea 6
(SETQ pt2 ( GETPOINT ptl "Segundo punto: " ) ); cambiar ptl por pt1
Espero haber ayudado.

ronaldT

Mensajes : 38
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por diogenes66 el Vie Oct 12, 2018 9:36 pm

Hola AVITOYM.
como consejo que te quitará muchos dolores de cabeza, además de los comentarios anteriores, cuando uses las órdenes "command", "vl-cmdf", para llamar a comandos de Autocad, utiliza siempre la versión en inglés del comando, precedido por un guión bajo. Además funcionará en cualquierr idioma de Autocad/Civil.
Si el programa que estás haciendo, utiliza las órdenes en castellano y la versión de Autocad/Civil está en inglés, te dará error.
ejemplo
(command "linea" .....) debería ser (command "_line" ....)
Si quieres saltarte redefiniciones de comandos, se puede llamar al comando original poniendo un "." antes del comando:
(command "linea" .....) debería ser (command "_.line" ....)
Por mi experiencia es mejor acostumbrarse a utilizar el formato tipo "_.line"

Saludos y ánimo

AVITOYM escribió:Saludos cordiales estimados amigos y amigas

Estoy empezando con el tema de programación el lisp, llevo algunos años de usuario de ACAD. pero recién empiezo con esto del lisp, estoy siguiendo unos libros en pdf que me encontré en la red, y están algunos ejemplo como el que pondré a continuación, el mismo que no logro hacer correr en autocad, quisiera que me den la mano diciéndome que esta mal en mi código aparentemente lo tengo idéntico al libro pero este no me funciona, yo uso autocad civil 3d 2017, versión en ingles.

(DEFUN diblinea ( / ptl pt2 )
(GRAPHSCR)(PROMPT "Este sencillo programa dibuja una
línea" )
(TERPRI )
(SETQ pt1 ( GETPOINT "Primer punto: ") )
(TERPRI )
(SETQ pt2 ( GETPOINT ptl "Segundo punto: " ) )
( TERPRI )
(PROMPT "MUCHAS GRACIAS" )
( TERPRI )
(COMMAND "línea" pt1 pt2 "" )
)


y este otro q es una variante del primero


(DEFUN DIBLINEA3 (/ PT1 PT2 PT3 PT4)
(GRAPHSCR)
(PROMPT "ESTE SENCILLO PROGRAMA DIBUJA 3 LINES")
(TERPRI)
(SETQ PT1 (GETPOINT "PRIMER PUNTO: "))
(TERPRI)
(SETQ PT2 (GETPOINT "SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT2 "")
(SETQ PT3 (GETPOINT "NUEVO SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT3 "")
(SETQ PT4 (GETPOINT "NUEVO SEGUNDO PUNTO: "))
(TERPRI)
(COMMAND "LINE" PT1 PT4 "")IN
)


cuando los cargo al programa no me sale ningún error pero al momento que tecleo su nombre para poder ejecutarlos nunca se ejecutan

muchas gracias

diogenes66

Mensajes : 5
Fecha de inscripción : 19/05/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por tavo_ji83 el Vie Oct 12, 2018 10:00 pm

por ahi tengo un curso de autolisp en video si te interesa te lo paso esta muy bien para comenzar.
mandame un correo tavo_ji83@hotmail.com

tavo_ji83

Mensajes : 1
Fecha de inscripción : 15/02/2017

Ver perfil de usuario

Volver arriba Ir abajo

Re: AYUDA LISP NO CORRE

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.