Lisp đánh số thứ tự, thêm tiền tố, hậu tố Text, Block Att, Dim hàng loạt

[Duong Nhat Duy 316]

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

 

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)

09/05/2024: Danh STT, them bot noi dung Text, Att, Dim v1.02.lsp (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)

 

Chúc các bạn thành công :)))

[ronaldo2002 7]

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

[tien2005 242]

@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

[Duong Nhat Duy 316]

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.

[nancy9x 1]

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

[ronaldo2002 7]

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

[abiabu9x 1]

20 giờ trước, ronaldo2002 đã nói:

. hong

Bác có thể dễ tính xíu được hông? :))

[ronaldo2002 7]

HÓNG Á 

[Duong Nhat Duy 316]

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é !

[makhorungxanh 0]

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

[Duong Nhat Duy 316]

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

[quanghapham 0]

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

[Duong Nhat Duy 316]

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.

[quanghapham 0]

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

[Duong Nhat Duy 316]

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 ?

[quanghapham 0]

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

 

[Duong Nhat Duy 316]

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.

[quanghapham 0]

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

[duy782006 1.551]

Mình có cài cad2022 nên có thử thì lệnh C1 vẫn bình thường. 

https://youtu.be/5hGLmTvZdSo

[Doan Van Ha 3.202]

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.

[amateurday 16]

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ơ.

[Doan Van Ha 3.202]

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

[amateurday 16]

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ì.

[Doan Van Ha 3.202]

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?

[duy782006 1.551]

Máy mình win11, cad2022. Biến LISPSYS =1 vẫn chạy ầm ầm như trên.