Evitare segnalazione di errore con l'exit

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
questo spezzone di codice :
Codice:
            (if (= Risposta "SI")
                        (progn            ;; Si
                            (setq ContornoStr (vl-string-trim " " ContornoStr))
                            (setq fp1 (open "C:\\AutocadSupporto\\Contorni\\Stringa.dat" "w"))
                                (write-line (itoa (- Cont 2)) fp1)
                                (write-line ContornoStr fp1)
                            (close fp1)
                            (alert "Dati salvati")
                            (exit)
                );;progn
                );;if
ferma il programma in corrispondenza dell'istruzione (exit) ma produce un messaggio di errore!
Non capisco perché.
Grazie.
 

x11start

Utente Standard
Professione: Disegnatore prefabbricati
Software: Autocad
Regione: Piemonte
#3
Io uso il comando VL-EXIT-WITH-ERROR quando voglio uscire senza tanti problemi: ad es. quando un listato non è ancora completo e non ho ancora "gestito" un determinata situazione.
Ad es. se non trova un file:

(if (null salv) (vl-exit-with-error (alert (strcat tipoel "1.txt\nNON TROVATO"))))
; Con comando vl-exit-with-error esce pulito ...

;;; (if (null salv) (progn (alert (strcat tipoel "1.txt\nNON TROVATO")) (quit)))
... Invece con QUIT esce male!
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#4
Perfetto x11start, il comando (vl-exit-with-error "Uscita dal programma") funziona a meraviglia, senza segnalazione di errore!
Grazie.