Đến nội dung


Hình ảnh
- - - - -

Nhờ Kiểm Tra Lỗi Lisp


  • Please log in to reply
2 replies to this topic

#1 ngoctanvt

ngoctanvt

    biết zoom

  • Members
  • Pip
  • 10 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 November 2015 - 10:55 PM

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.c...ipetoflat_2.lsp

 


  • 0

#2 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 24 November 2015 - 07:40 AM

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


  • 1

#3 ngoctanvt

ngoctanvt

    biết zoom

  • Members
  • Pip
  • 10 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 November 2015 - 08:25 PM

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


  • 0