Nhờ Kiểm Tra Lỗi Lisp

[ngoctanvt 0]

Hi các anh.

Em mới tập tành viết lisp được vài tháng. Nhờ ae kiểm tra hộ lisp triển khai giao ống bên dưới tại sao chỉ chạy đúng 1 lần đầu, còn những lần sau đều bị lỗi.

Em cảm ơn.

http://www.cadviet.com/upfiles/5/57144_pipetoflat_2.lsp

 

[ndtnv 481]

Sau khi vào if trong vòng lặp, i = 1, l = nil

khi thực hiện

(if (= i 1)
  (setq l1 l) ; =>l1 nil
)

Vì không phải chuyên môn nên tôi sửa tạm như sau thì chạy

(if (= i 2)
  (setq l1 l)
)

Lỗi thứ 2: vẽ không đúng nếu osmode <> 0

[ngoctanvt 0]

Cảm ơn anh. Lisp chạy ok đúng ý em rồi.  :mellow: