Chuyển đến nội dung
Diễn đàn CADViet
Duong Nhat Duy

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

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

6 phút trước, duy782006 đã nói:

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

Có ra tiếng Việt không ạ?

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
2 giờ trước, Doan Van Ha đã nói:

Format đơn vị là số 0 thì được thôi.

cảm ơn bạn, thật ra lisp trên thì máy mình vẫn nhận được các lệnh c1, c2, 1c, stt. nhưng khi dùng lệnh stt dùng đến chức năng đánh stt 2 chiều từ trái qua phải, từ trên xuống dưới hoặc chọn từ trên xuống dưới hay từ dưới lên trên thì lisp sẽ không chạy được 

 

 

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
43 phút trước, Doan Van Ha đã nói:

Có ra tiếng Việt không ạ?

Vẫn chạy bình thường mà bác. em chưa bao giờ gặp lỗi chuyển lispsys mà lisp không hoạt động.

ngoại trừ các lệnh chr, ascii , vl-string->list , vl-list->string dành cho mã lớn hơn 256

image.thumb.png.57aea69d66372d206eea56f972b22298.png

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
10 giờ trước, Doan Van Ha đã nói:

Có ra tiếng Việt không ạ?

Vẫn ra tiếng Việt có dấu bác ạ. 

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
15 giờ trước, quanghapham đã nói:

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

Theo các tiền bối mách bảo thì bạn hãy thử dùng lệnh LISPSYS, nhập 0, r khởi động lại cad xem có chạy được ko nhé. Cảm ơn các tiền bối nhé !

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
10 giờ trước, Doan Van Ha đã nói:

Tắt Cad mở lại duy nhất 1 lần trong đời mà không làm được sao?

Hic, em tắt mở lại suốt. Nhưng như thế vẫn chưa hoàn hảo lắm. Kể ra có lệnh đổi biến này, ấn lệnh → tự động tắt cad và mở lại thì xịn xò hơn.

  • 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
2 giờ trước, Duong Nhat Duy đã nói:

Theo các tiền bối mách bảo thì bạn hãy thử dùng lệnh LISPSYS, nhập 0, r khởi động lại cad xem có chạy được ko nhé. Cảm ơn các tiền bối nhé !

mình nghĩ không phải do cái này, tại mặc định ban đầu lệnh này máy mình đang để biến là 0 rồi  :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

AutoCAD đời cao như AutoCAD 2024, AutoCAD 2025 thì phải sửa lisp sao cho danh sách vlax-ldata-list có dữ liệu vì hiện tại nó tự xoá dữ liệu về 0 và sẽ bị lỗi bị lỗi bad argument type: fixnump: nil. Còn trên AutoCAD đời thấp như AutoCAD 2007 không bị lỗi bad argument type: fixnump: nil 

image.png

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 16/4/2024 tại 11:27, quanghapham đã nói:

mình nghĩ không phải do cái này, tại mặc định ban đầu lệnh này máy mình đang để biến là 0 rồi  :v

Thử 2 file này xem có chạy được không nào? 

Danh STT Text, Att, Dim v1.01.VLX
Danh STT Text, Att, Dim v1.01.fas

Danh STT Text, Att, Dim v1.01.rar

  • 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
1 giờ} trướ}c, amateurday đã nói:

Thử 2 file này xem có chạy được không nào? 

Danh STT Text, Att, Dim v1.01.VLX
Danh STT Text, Att, Dim v1.01.fas

Danh STT Text, Att, Dim v1.01.rar

cảm ơn b nhé, như lisp b sửa lại mình có test trên 2 bản cad. 

+ Cad 22 đang có lisp cũ mình đang sử dụng thì đến bước 2 option từ trái qua phải từ trên xuống dưới thì lisp không đến bước nhập sai số (mình nghĩ đang xung đột với lisp nào đó đang có trên máy của minh :V )

+ Cad 24 mình xóa hết toàn bộ lisp thì dùng lisp của b ok không bị sao cả )

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

Khả năng cad 22 cài bị lỗi thôi, không lỗi này thì lỗi kia.

Như tớ đang dùng 22 đây, chạy lisp này ngon lành (đổi lispsys = 0), nhưng VBA tải về không tài nào cài được, cứ bảo liên hệ Autodesk, nhọ.

  • 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

Bây giờ có 2 trường phái: 1 là những con người của quá khứ trung thành với cad07, 2 là những người đến từ tương lai, đầu năm 23 24 nhưng đã dùng cad 24 25 rồi :))).

Mình thì ở giữa, từ khi cad nó lên đời xong tự nhiên thêm mấy cái biến ngớ ngẩn ví như TRIMSEXTENDMODE (mặc định là 1 chứ ko phải 0) thì mình ko còn quá hào hứng với cad nữa rồi, vẫn trung thành với cad18 và 20.

  • 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 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, 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:

1.gif.5bb21bb8fa8bf3a403bedd2b9b2199b1.gif

 

Đánh số theo thứ tự pick chọn:

2.gif.4253c87f7f2036ae00cf178f05eb7f06.gif

 

Đánh số theo chiều Pline:

3.gif.4c92828f54c0f2743e033c9e6832a2b6.gif

 

- 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

4.gif.02af25dc713539b0f3e94d5a8cc74b2c.gif

 

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

Cái này thêm số 0 đằng trước những số từ 1-9 nữa thì hay anh ah

 

  • 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
17 phút trước, tuk45bn đã nói:

Cái này thêm số 0 đằng trước những số từ 1-9 nữa thì hay anh ah

 

Option này nằm ở mục "Số chữ số tối thiểu" b nhé, b chịu khó đọc kỹ mấy dòng hướng dẫn nhé, mình đã đề cập đến rồi, b nhập 2 là ra 01 02 03, ... 09 10 11 12

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 17/4/2024 tại 13:18, amateurday đã nói:

Thử 2 file này xem có chạy được không nào? 

Danh STT Text, Att, Dim v1.01.VLX
Danh STT Text, Att, Dim v1.01.fas

Danh STT Text, Att, Dim v1.01.rar

Xin phép bác Duong Nhat Duy chỉnh lại phiên bản v1.02 đi bạn. Lisp sau khi chỉnh thì dùng ok, vẫn để Lispsys=1 (Nếu để Lispsys=0 để dùng được bản v1.02 của bác Duong Nhat Duy thì bị lỗi tiếng Việt khi dùng những lisp khác).

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

×