AYUDA LISP NO CORRE

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

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

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

Saludos.

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 
)

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

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.

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

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

muchas gracias por su ayuda, estoy iniciando en este largo proceso que es programar para autocad/ civil, ya los he de estar molestando mas seguido

Curso en video para no estar contestando pór correo.

https://mega.nz/#!G0Mk1KYa!i1eXUbXbzCY9MEywJjluqUTiPRxnbWhhOvY-k6KRdoA

Contraseña sin las comillas "@lisp@"

listo excelente yo con el aprendi mucho desde lo basico hasta avanzado

tavo_ji83 escribió:Curso en video para no estar contestando pór correo.

https://mega.nz/#!G0Mk1KYa!i1eXUbXbzCY9MEywJjluqUTiPRxnbWhhOvY-k6KRdoA

Contraseña sin las comillas "@lisp@"

listo excelente yo con el aprendi mucho desde lo basico hasta avanzado

Muchas gracias por compartirlo. Echaré un ojo que creo que me está haciendo falta...