Hello such, I would like to know how I can cancel my lisp while without leave me the message "; error: Function canceled"
(defun CopyMblock ()
(setvar "cmdecho" 0)
(while
(setq msxb (strcat "\n>> Punto de Inserción del bloque [ " bloqxlist " ]: "))
(princ msxb)
(cond ((= selex "1:20") (setq opcion3 0.4))
((= selex "1:25") (setq opcion3 0.5))
((= selex "1:50") (setq opcion3 1))
((= selex "1:100") (setq opcion3 2))
((= selex "1:125") (setq opcion3 2.5))
((= selex "1:200") (setq opcion3 4))
((= selex "1:250") (setq opcion3 5))
((= selex "1:500") (setq opcion3 10))
((= selex "MS:PS") (setq opcion3 20)))
(cond ((= key_tog1 "1") (command "._insert" bloqxlist "_s" *AX:Escala1*))
((= key_tog1 "0") (command "._insert" bloqxlist "_s" opcion3)))
(while (= (logand (getvar "cmdactive") 1) 1) (command pause))
(vl-cmdf "explode" "last")
(princ "\nPresiona [ ESC ] para cancelar ") (TERPRI)
(cond (nil (prompt "\n**Cancel**"))))
(setvar "cmdecho" 1)
(princ))