Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 1 18 Chia sẻ đến các bạn 1 lisp đánh số thứ tự hàng loạt, thêm tiền tố, hậu tố,... Áp dụng cho Text (cũng như Mtext), Block Att (Block thuộc tính), Dim. Lisp có nhiều tính năng đánh số ví dụ đánh đè lên Text cũ hoặc thêm vào Text hiện tại,... thỏa mãn nhiều yêu cầu đề bài đặt ra. Tên lệnh: STT - Đánh số thứ tự hàng loạt (áp dụng cho Text, Att, Dim) C1 - Copy tăng dần (áp dụng cho Text, Att) C2 - Copy giảm dần (áp dụng cho Text, Att) 1C - Copy tăng dần N đơn vị (áp dụng cho Text, Att) FT - Thêm tiền tố, hậu tố, hoặc xóa 1 đoạn ký tự ở đầu hoặc cuối (áp dụng cho Text, Att, Dim) Mô tả: - STT : + Đánh số thứ tự theo các quy tắc tùy chọn, ví dụ: trên xuống dưới, trái sang phải, theo chiều pline hoặc theo thứ tự người dùng pick chọn + Có thể thêm tiền tố, hậu tố, nhập stt bắt đầu, số chữ số 0. + Kết quả có thể đè lên text cũ hoặc thêm vào đầu, cuối + 1 số ví dụ: (hình minh họa) Đánh số từ trên xuống dưới, trái sang phải: Đánh số theo thứ tự pick chọn: Đánh số theo chiều Pline: - C1, C2, 1C : Đánh số thứ tự thủ công + Hoạt động như lệnh Copy nhưng tăng/giảm dần giá trị cuối cùng trong Text/Att + Có thể chọn 1 nhóm đối tượng, ví dụ: 1 hình tròn và 1 Text, ... + Lệnh 1C chỉ dùng cho các Text/Att số thực - FT : Thêm tiền tố, hậu tố; xóa 1 đoạn ký tự ở đầu hoặc cuối Change log - v1.00 (18/01/2024): Phiên bản đầu tiên - v1.01 (04/04/2024): Thêm option đánh stt theo 2 chiều, ví dụ: trái qua phải, trên xuống dưới - v1.02 (09/05/2024): Thêm tính năng thêm tiền tố, hậu tố, xóa 1 đoạn ký tự ở đầu hoặc cuối - v1.03 (06/08/2024): + Sửa lại cách đánh stt có số 0 đằng trước bằng cách khai báo stt bắt đầu là 01, 002, ... Thêm tính năng đánh theo alphabet A, B, C, D,... + Sửa lỗi khi đánh số theo 2 chiều trên->dưới, trái->phải - v1.04 (28/10/2024): Sửa một số lỗi Link download https://drive.google.com/drive/u/1/folders/1vs5fVIPiH1afDJczolu_GURTnXlaM75Y Chúc các bạn thành công :))) 17 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
ronaldo2002 4 Báo cáo bài đăng Đã đăng Tháng 1 18 cái này e thấy a share lâu rồi chắc mới update hả a, thansks a nhiều nhé toàn lisp chất lượng mà còn free 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
tien2005 248 Báo cáo bài đăng Đã đăng Tháng 1 19 @Duong Nhat Duy Bạn nên dùng hàm vl-filename-mktemp để tạo file dcl, file sẽ tự xóa khi kết thúc lisp. Dùng (getvar 'roamablerootprefix) để tạo file dcl có khả năng sẽ không tạo được file 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 1 19 34 phút trước, tien2005 đã nói: @Duong Nhat Duy Bạn nên dùng hàm vl-filename-mktemp để tạo file dcl, file sẽ tự xóa khi kết thúc lisp. Dùng (getvar 'roamablerootprefix) để tạo file dcl có khả năng sẽ không tạo được file Thanks bạn nhé, code mình toàn nhảy của Leemac nên cũng chả để ý nữa hehe. 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
nancy9x 1 Báo cáo bài đăng Đã đăng Tháng 4 2 Vào lúc 19/1/2024 tại 11:30, Duong Nhat Duy đã nói: Thanks bạn nhé, code mình toàn nhảy của Leemac nên cũng chả để ý nữa hehe. Anh Duong Nhat Duy anh có thể sửa lisp thêm tùy chọn từ trái qua phải và từ trên xuống dưới được không ạ. Em cảm ơn anh nhiều 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
ronaldo2002 4 Báo cáo bài đăng Đã đăng Tháng 4 2 6 phút trước, nancy9x đã nói: Anh Duong Nhat Duy anh có thể sửa lisp thêm tùy chọn từ trái qua phải và từ trên xuống dưới được không ạ. Em cảm ơn anh nhiều . hong 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
abiabu9x 1 Báo cáo bài đăng Đã đăng Tháng 4 3 20 giờ trước, ronaldo2002 đã nói: . hong Bác có thể dễ tính xíu được hông? :)) 1 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
ronaldo2002 4 Báo cáo bài đăng Đã đăng Tháng 4 3 HÓNG Á 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 4 3 Vào lúc 2/4/2024 tại 15:22, nancy9x đã nói: Anh Duong Nhat Duy anh có thể sửa lisp thêm tùy chọn từ trái qua phải và từ trên xuống dưới được không ạ. Em cảm ơn anh nhiều Mình đã update thêm option này rồi nhé, các bạn tải lại trên đầu topic. Vào lúc 19/1/2024 tại 10:54, tien2005 đã nói: @Duong Nhat Duy Bạn nên dùng hàm vl-filename-mktemp để tạo file dcl, file sẽ tự xóa khi kết thúc lisp. Dùng (getvar 'roamablerootprefix) để tạo file dcl có khả năng sẽ không tạo được file Uh đúng là hàm này dùng ngon hơn, không bị lỗi khi Username trong windows có dấu tiếng Việt, thanks bạn nhé ! 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
makhorungxanh 0 Báo cáo bài đăng Đã đăng Tháng 4 8 Vào lúc 18/1/2024 tại 18:44, Duong Nhat Duy đã nói: Chia sẻ đến các bạn 1 lisp đánh số thứ tự hàng loạt, áp dụng cho Text (cũng như Mtext), Block Att (Block thuộc tính), Dim. Lisp có nhiều tính năng lựa chọn ví dụ thêm tiền tố, hậu tố, ... thỏa mãn nhiều yêu cầu đề bài đặt ra. Tên lệnh: STT - Đánh số thứ tự hàng loạt (áp dụng cho Text, Att, Dim) C1 - Copy tăng dần (áp dụng cho Text, Att) C2 - Copy giảm dần (áp dụng cho Text, Att) 1C - Copy tăng dần N đơn vị (áp dụng cho Text, Att) Mô tả: - STT : + Đánh số thứ tự theo các quy tắc tùy chọn, ví dụ: trên xuống dưới, trái sang phải, theo chiều pline hoặc theo thứ tự người dùng pick chọn + Có thể thêm tiền tố, hậu tố, nhập stt bắt đầu, số chữ số 0. + Kết quả có thể đè lên text cũ hoặc thêm vào đầu, cuối + 1 số ví dụ: (hình minh họa) Đánh số từ trên xuống dưới, trái sang phải: Đánh số theo thứ tự pick chọn: Đánh số theo chiều Pline: - C1, C2, 1C : Đánh số thứ tự thủ công + Hoạt động như lệnh Copy nhưng tăng/giảm dần giá trị cuối cùng trong Text/Att + Có thể chọn 1 nhóm đối tượng, ví dụ: 1 hình tròn và 1 Text, ... + Lệnh 1C chỉ dùng cho các Text/Att số thực Lưu ý: Lisp không bao gồm các lệnh như thêm tiền tố, hậu tố; đánh số layout, ... Thực tế có rất nhiều thao tác khác đối với Text/Att/Dim ví dụ tính toán, tìm kiếm, thay thế, chỉnh sửa, ... Có thể trong tương lai mình sẽ có lisp hoàn chỉnh, và cũng có thể mất phí. Hiện tại các bạn vui lòng tìm kiếm những lisp trên ở trong diễn đàn hoặc các nguồn khác. File lisp: 18/01/2024: Danh STT Text, Att, Dim v1.00.lsp 04/04/2024: Danh STT Text, Att, Dim v1.01.lsp (Thêm option đánh stt theo 2 chiều, ví dụ: trái qua phải, trên xuống dưới) Chúc các bạn thành công :))) không biết sao chứ em dùng thì lại bị lỗi khi xử dụng lệnh STT anh ạ ; error: bad argument type: fixnump: nil 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 4 8 41 phút trước, makhorungxanh đã nói: không biết sao chứ em dùng thì lại bị lỗi khi xử dụng lệnh STT anh ạ ; error: bad argument type: fixnump: nil Bạn chụp lại cả thao tác lệnh của bạn mình xem 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
quanghapham 0 Báo cáo bài đăng Đã đăng Tháng 4 14 Vào lúc 18/1/2024 tại 18:44, Duong Nhat Duy đã nói: Chia sẻ đến các bạn 1 lisp đánh số thứ tự hàng loạt, áp dụng cho Text (cũng như Mtext), Block Att (Block thuộc tính), Dim. Lisp có nhiều tính năng lựa chọn ví dụ thêm tiền tố, hậu tố, ... thỏa mãn nhiều yêu cầu đề bài đặt ra. Tên lệnh: STT - Đánh số thứ tự hàng loạt (áp dụng cho Text, Att, Dim) C1 - Copy tăng dần (áp dụng cho Text, Att) C2 - Copy giảm dần (áp dụng cho Text, Att) 1C - Copy tăng dần N đơn vị (áp dụng cho Text, Att) Mô tả: - STT : + Đánh số thứ tự theo các quy tắc tùy chọn, ví dụ: trên xuống dưới, trái sang phải, theo chiều pline hoặc theo thứ tự người dùng pick chọn + Có thể thêm tiền tố, hậu tố, nhập stt bắt đầu, số chữ số 0. + Kết quả có thể đè lên text cũ hoặc thêm vào đầu, cuối + 1 số ví dụ: (hình minh họa) Đánh số từ trên xuống dưới, trái sang phải: Đánh số theo thứ tự pick chọn: Đánh số theo chiều Pline: - C1, C2, 1C : Đánh số thứ tự thủ công + Hoạt động như lệnh Copy nhưng tăng/giảm dần giá trị cuối cùng trong Text/Att + Có thể chọn 1 nhóm đối tượng, ví dụ: 1 hình tròn và 1 Text, ... + Lệnh 1C chỉ dùng cho các Text/Att số thực Lưu ý: Lisp không bao gồm các lệnh như thêm tiền tố, hậu tố; đánh số layout, ... Thực tế có rất nhiều thao tác khác đối với Text/Att/Dim ví dụ tính toán, tìm kiếm, thay thế, chỉnh sửa, ... Có thể trong tương lai mình sẽ có lisp hoàn chỉnh, và cũng có thể mất phí. Hiện tại các bạn vui lòng tìm kiếm những lisp trên ở trong diễn đàn hoặc các nguồn khác. File lisp: 18/01/2024: Danh STT Text, Att, Dim v1.00.lsp 04/04/2024: Danh STT Text, Att, Dim v1.01.lsp (Thêm option đánh stt theo 2 chiều, ví dụ: trái qua phải, trên xuống dưới) Chúc các bạn thành công :))) Lệnh STT không dùng được cho block ATT của KATA khi dùng option từ trái qua phải từ trên xuống dưới b @Duong Nhat Duyơi 20240414_152057.rar file test.dwg 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 4 14 6 giờ trước, quanghapham đã nói: Lệnh STT không dùng được cho block ATT của KATA khi dùng option từ trái qua phải từ trên xuống dưới b @Duong Nhat Duyơi 20240414_152057.rar file test.dwg Mình test file bạn thì ko thấy có vấn đề gì, b thử test lệnh 1C xem có sao ko thì mình mới phán tiếp được. 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
quanghapham 0 Báo cáo bài đăng Đã đăng Tháng 4 15 10 giờ trước, Duong Nhat Duy đã nói: Mình test file bạn thì ko thấy có vấn đề gì, b thử test lệnh 1C xem có sao ko thì mình mới phán tiếp được. các trường hợp khác thì vẫn dùng ok bạn ơi, ý mình đang nói đến trường hợp update option đánh stt theo 2 chiều ấy b, mình không thấy block nhảy số hiệu như video mình gửi b video test.rar 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 4 15 4 giờ trước, quanghapham đã nói: các trường hợp khác thì vẫn dùng ok bạn ơi, ý mình đang nói đến trường hợp update option đánh stt theo 2 chiều ấy b, mình không thấy block nhảy số hiệu như video mình gửi b video test.rar Mình bảo bạn làm ntn thì b cứ làm nt đi, option đánh số theo 2 chiều nó còn 1 bước nhập sai số khoảng cách ở cuối nữa (lệnh của bạn ko đến được đó). Lệnh 1C có thao tác nhập sai số tương tự b thử lệnh xem có lỗi như trên ko ? 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
quanghapham 0 Báo cáo bài đăng Đã đăng Tháng 4 15 2 giờ trước, Duong Nhat Duy đã nói: Mình bảo bạn làm ntn thì b cứ làm nt đi, option đánh số theo 2 chiều nó còn 1 bước nhập sai số khoảng cách ở cuối nữa (lệnh của bạn ko đến được đó). Lệnh 1C có thao tác nhập sai số tương tự b thử lệnh xem có lỗi như trên ko ? của mình nó ra như này b ơi, dùng lệnh 1c nó thêm 4 số 0 phía sau nữa b. như video mình gửi b VIDEO TEST.rar 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
Duong Nhat Duy 397 Báo cáo bài đăng Đã đăng Tháng 4 15 53 phút trước, quanghapham đã nói: của mình nó ra như này b ơi, dùng lệnh 1c nó thêm 4 số 0 phía sau nữa b. như video mình gửi b VIDEO TEST.rar Ca này khó rồi bạn, mình test trên các cad 07 18 20 ở máy mình thì ko có lỗi gì cả, nếu bạn dùng cad cao thì thử đổi sang đời thấp hơn xem, hoặc thử gỡ hết các lisp load sẵn vào bản vẽ xem. 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
quanghapham 0 Báo cáo bài đăng Đã đăng Tháng 4 15 13 phút trước, Duong Nhat Duy đã nói: Ca này khó rồi bạn, mình test trên các cad 07 18 20 ở máy mình thì ko có lỗi gì cả, nếu bạn dùng cad cao thì thử đổi sang đời thấp hơn xem, hoặc thử gỡ hết các lisp load sẵn vào bản vẽ xem. ok bạn ơi, mình đang dùng cad 22 với 24 đều không được, thôi dùng cái đánh stt theo thứ tự tự chọn cũng được nhưng hơi lâu chút :V 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
duy782006 1592 Báo cáo bài đăng Đã đăng Tháng 4 15 Mình có cài cad2022 nên có thử thì lệnh C1 vẫn bình thường. https://youtu.be/5hGLmTvZdSo 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
Doan Van Ha 3208 Báo cáo bài đăng Đã đăng Tháng 4 15 4 giờ trước, quanghapham đã nói: dùng lệnh 1c nó thêm 4 số 0 phía sau nữa b. như video mình gửi b Format đơn vị là số 0 thì được thôi. 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
amateurday 16 Báo cáo bài đăng Đã đăng Tháng 4 15 Tôi cũng tham gia test thử. Nếu: - LISPSYS = 0 thì code chạy ngon lành. - LISPSYS = 1 thì lỗi không chạy được. Hôm nọ có bài nào cũng bàn về cái này. Phức tạp thật. Đổi biến này thì nguyên tắc phải tắt cad, chạy lại. Nghe thiên hạ đồn chứ cũng không hiểu chân tóc kẽ tơ. 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
Doan Van Ha 3208 Báo cáo bài đăng Đã đăng Tháng 4 15 13 phút trước, amateurday đã nói: Tôi cũng tham gia test thử. Nếu: - LISPSYS = 0 thì code chạy ngon lành. - LISPSYS = 1 thì lỗi không chạy được. Hôm nọ có bài nào cũng bàn về cái này. Phức tạp thật. Đổi biến này thì nguyên tắc phải tắt cad, chạy lại. Nghe thiên hạ đồn chứ cũng không hiểu chân tóc kẽ tơ. Do từ Cad2021 về sau nó hỗ trợ Unicode mà không cần viết bằng mã Hexa nữa. Cách xử: copy dòng dưới đây đặt vào đầu hoặc cuối lisp là ok con dê thôi. (if (and (getvar "lispsys") (/= (getvar "lispsys") 0)) (setvar "lispsys" 0)) 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
amateurday 16 Báo cáo bài đăng Đã đăng Tháng 4 15 3 phút trước, Doan Van Ha đã nói: Do từ Cad2021 về sau nó hỗ trợ Unicode mà không cần viết bằng mã Hexa nữa. Cách xử: copy dòng dưới đây đặt vào đầu hoặc cuối lisp là ok con dê thôi. (if (and (getvar "lispsys") (/= (getvar "lispsys") 0)) (setvar "lispsys" 0)) Không được bác ạ, phải tắt cad, mở lại nữa mà. ; error: bad argument type: fixnump: nil Còn món viết chữ bằng mã Hexa thì em không biết, vì cũng chả viết bao giờ, cũng chả hiểu nó là gì. 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
Doan Van Ha 3208 Báo cáo bài đăng Đã đăng Tháng 4 15 26 phút trước, amateurday đã nói: Không được bác ạ, phải tắt cad, mở lại nữa mà. ; error: bad argument type: fixnump: nil Còn món viết chữ bằng mã Hexa thì em không biết, vì cũng chả viết bao giờ, cũng chả hiểu nó là gì. Tắt Cad mở lại duy nhất 1 lần trong đời mà không làm được sao? 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
duy782006 1592 Báo cáo bài đăng Đã đăng Tháng 4 15 Máy mình win11, cad2022. Biến LISPSYS =1 vẫn chạy ầm ầm như trên. 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