Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
nancy9x

Kính nhờ các anh chị trong diễn đàn giúp em lisp xuất danh mục bản vẽ này ạ

Các bài được khuyến nghị

Em muốn xuất danh mục bản vẽ với khung tên này nhưng làm lúc được lúc không, lần cuối em làm thì chỉ xuất ra khung trống được thôi. Em cũng không biết tại sao nữa, kính mong mọi người trong diễn đàn giúp đỡ. Em cảm ơn!

 

Tao Danh Muc.lsp

Drawing1.dwg

  • Vote giảm 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tại vì dòng này
 

(setq list3 (substr list2 (+ 2 (vl-string-search " " list2)))) 

   

Lisp đang search khoảng trống (" ") trong cái chuỗi KHBV của bạn, mà bạn đánh ký hiệu lại liền, nên hàm vl-string-search trả về nil, không phải số, nên không thể + với 2. 
Mình k có thời gian đọc code, nên hoặc là bạn đánh KHBV có khoảng trống, hoặc là sửa tạm thành 

 

(setq list3 (substr list2 (+ 2 (cond ((vl-string-search " " list2)) (0)))))

 

  • Like 2
  • Vote tăng 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
1 giờ trước, ketxu đã nói:

Đọc bài này mình lại nhớ lại lý do tại sao mình k viết lisp free nữa =))))

Thay đổi có một chút mà đã nâng cấp cái lisp. Bỏ đi một nhược điểm lớn của lisp là chỉ nhận ký tự khoảng trống. Đáng tiếc bỏ công ra mà không được lời cám ơn luôn.

Chủ đề cũ vẫn còn mà không quay lại hỏi. Lập hẳn topic mới xong rồi bỏ đi luôn.

Thay mặt những người đọc bài cám ơn @ketxu

  • Like 2
  • Vote tăng 3

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Vào lúc 21/11/2023 tại 14:11, vietduc147258 đã nói:

Thay đổi có một chút mà đã nâng cấp cái lisp. Bỏ đi một nhược điểm lớn của lisp là chỉ nhận ký tự khoảng trống. Đáng tiếc bỏ công ra mà không được lời cám ơn luôn.

Chủ đề cũ vẫn còn mà không quay lại hỏi. Lập hẳn topic mới xong rồi bỏ đi luôn.

Thay mặt những người đọc bài cám ơn @ketxu

Sự thực hay vậy đấy. 
Bảo sao các master cũ viết free nhiệt huyết của CV giảm hẳn
Còn các master mới thì nghĩ ngay đến việc thu phí code :)

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Vào lúc 21/11/2023 tại 12:30, ketxu đã nói:

Đọc bài này mình lại nhớ lại lý do tại sao mình k viết lisp free nữa =))))

Sorry anh ketxu nhé, thực ra em chưa kịp dùng lisp anh sửa do có việc riêng ạ.Cảm ơn anh nhiều nhé.Lần nữa xin lỗi anh 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Vào lúc 21/11/2023 tại 14:11, vietduc147258 đã nói:

Thay đổi có một chút mà đã nâng cấp cái lisp. Bỏ đi một nhược điểm lớn của lisp là chỉ nhận ký tự khoảng trống. Đáng tiếc bỏ công ra mà không được lời cám ơn luôn.

Chủ đề cũ vẫn còn mà không quay lại hỏi. Lập hẳn topic mới xong rồi bỏ đi luôn.

Thay mặt những người đọc bài cám ơn @ketxu

Cảm ơn anh đã nhắc nhở

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×