[Hỏi] Bẫy lỗi khi sử dụng lệnh (grread ...)

[quansla 259]

Các bác  cho em hỏi làm thế nào để bẫy lỗi (khi người dùng nhấn ESC) trong khi sử dụng code (grread nil 4 1)

Em cảm ơn các bác

[Tot77 508]

http://www.cadviet.com/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-100

Bẫy lỗi bằng hàm *error

[quansla 259]

http://www.cadviet.com/forum/topic/14210-hoi-ve-lisp-thuat-toan-y-tuong-coding/page-100

Bẫy lỗi bằng hàm *error

Không rõ bác đã thử chưa với Cad 2012 ở máy em code như thế này không có khả năng bắt lỗi

(defun c:thunghiem( / myerr old_err gr ga gb roop)

(defun myerr (msg)

(if msg (princ (strcat "\nBay loi thu nghiem: " msg)))

(if old_err (setq *error* old_err))

(princ))

(setq old_err *error* *error* myerr)

(setq roop T)

(while roop

(princ "\n Bat ky de kiem tra= .....\tSpace/Enter=Quit:")

(setq gr (grread nil (+ 2 4 8) 2)

ga (car gr)

gb (cadr gr))

(cond

((member gr '((2 13)(2 32))) ;; "" Space or Enter

(princ"\nBan da chon quit")

(setq roop nil))

(T

(princ "\nGia tri gr la:")

(princ gr)

(princ "\tGia tri ga la:")

(princ ga)

(princ "\tGia tri gb la:")

(princ gb))

)

)

(if old_err (setq *error* old_err))

(princ)

)

 

 

 

Trong suốt quá trình thực hiện lệnh, việc nhấn phím bất kỳ chuột trái/ phải code vẫn thực hiện, nhưng nếu ấn ESC là cần tắt hoàn toàn Cad mới thoát khỏi lỗi

[Tot77 508]

Bạn viết thế này

 (defun myerr (msg)    (if msg (princ (strcat "\nBay loi thu nghiem: " msg)))    (setq roop nil)    (if old_err (setq *error* old_err))    (princ)  )

 (defun myerr (msg)

    (if msg (princ (strcat "\nBay loi thu nghiem: " msg)))

    (setq roop nil)

    (if old_err (setq *error* old_err))

    (princ)

  )

[quansla 259]

Cảm ơn bác nhé, không hiểu do sơ suất ở đâu, hồi sáng em đã từng thủ cách đặt roop bằng nil ngay khi bắt lỗi mà máy vẫn treo, giờ về nhà dùng code đó lại được, mai để em mang lên cơ quan check lại máy trên đó vậy