Evitare segnalazione di errore con l'exit

Angelo2449 · 19 Agosto 2018

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.

dieva · 20 Agosto 2018

è proprio quello il compito di (exit)...
https://knowledge.autodesk.com/sear...677B9EC8-C35D-4736-AE59-1BDB12E540AF-htm.html

x11start · 23 Agosto 2018

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 · 28 Agosto 2018

Perfetto x11start, il comando (vl-exit-with-error "Uscita dal programma") funziona a meraviglia, senza segnalazione di errore!
Grazie.

Evitare segnalazione di errore con l'exit

Angelo2449

Utente Junior

dieva

Utente Standard

x11start

Utente Standard

Angelo2449

Utente Junior

Discussioni simili

Statistiche forum

Utenti online