Problema DCL, voi come fate?

Ciao a tutti,
ho un problema con le finestre DCL che ho semplificato nel seguente codice.
In sostanza ho scritto una funzione che ho associato al tasto "ok" della
finestra di dialogo.
Il problema è che questa funzione dovrebbe chiudere la finestra di dialogo e
quindi chiedere all'utente di specidicare due punti sullo schermo; ma la
finestra di dialogo rimane sempre aperta costringendomi a terminare AutoCAD.

Cosa sbaglio?


(defun c:test (/ dialogo)
(setq dialogo (load_dialog "FINESTRA.dcl"))
(if (< dialogo 0)
(progn (alert "Il file 'FINESTRA.dcl' non è presente\nnei percorsi di
ricerca oppure è corrotto.") (quit))
)
(new_dialog "Prova" dialogo)

(action_tile "accept" "(lisp_test)")

(start_dialog)
(unload_dialog dialogo)
)


(defun lisp_test ( / valA valB valC)
(setq valA (get_tile "keyA"))
(setq valB (get_tile "keyB"))
(setq valC (get_tile "keyC"))

;inizio verifica errori
(setq err "no")
(if (= valB "")(progn (setq err "si") (alert "Specificare
valore.")))
;fine verifica errori

(if (= err "no")
(progn
(done_dialog)
(unload_dialog dialogo)

(setq p1 (getpoint))
(setq p2 (getpoint))
(command "_line" p1 p2 "")
)
)
)
[ Auf dieses Posting antworten ]