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 ạ

[nancy9x 1]

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

[ketxu 2.984]

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)))))

 

[ketxu 2.984]

Đọ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 =))))

[vietduc147258 55]

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

[ketxu 2.984]

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 :)

[abiabu9x 1]

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 

[abiabu9x 1]

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ở