Espirales Termino
Publicado por SpeedCAD (362 intervenciones) el 13/05/2002 17:59:03
(DEFUN errores (mens)
(SETQ *error* error0)
(IF (= mens "quitar / salir abandonar")
(PRIN1)
(PRINC (STRCAT "\nError: " mens " "))
)
(COMMAND "_undo" "_end")
(SETVAR "cmdecho" 1)(SETVAR "blipmode" 1)(SETVAR "osmode" refnt0)
(PRIN1)
)
(PROMPT "Nuevo comando HELISOL definido.")(PRIN1)
Debes juntarla toda y ejecutarla... Me cuentas como te fue...
Un saludo de SpeedCAD... :-)
(SETQ *error* error0)
(IF (= mens "quitar / salir abandonar")
(PRIN1)
(PRINC (STRCAT "\nError: " mens " "))
)
(COMMAND "_undo" "_end")
(SETVAR "cmdecho" 1)(SETVAR "blipmode" 1)(SETVAR "osmode" refnt0)
(PRIN1)
)
(PROMPT "Nuevo comando HELISOL definido.")(PRIN1)
Debes juntarla toda y ejecutarla... Me cuentas como te fue...
Un saludo de SpeedCAD... :-)
Valora esta pregunta
0