Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
Người theo dõi 0
ptd1987

[Nhờ Sửa Lisp] Nhờ Các Bác Chỉnh Sửa Dùm Lisp Đánh Số Bv Tự Động Block Att

Bởi ptd1987 , trong AutoLisp

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

ptd1987    5

ptd1987
Đã đăng

Em kiếm dc cái đánh STT bản vẽ của block ATT này của bác Gia_Bach hay quá nhưng chỉ nhập prefix dạng KC01

Các bác có thể sửa dùm em nhập thêm suffix, vd: KC01/03 dc không ạ ^^

Em muốn nhập thêm hậu tố /03 để còn quản lý được bản vẽ đó nằm thứ mấy trong tổng bản vẽ

Người ta gọi là được voi đòi Hai Bà Trưng ^^

http://www.cadviet.c.../112169_stt.lsp

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

quocmanh04tt    634

quocmanh04tt
Đã đăng

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

  • Like 3
  • Vote tăng 8

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

ths    1

ths
Đã đăng

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

thanks bạn nhé, rất là hữu ích :)

  • Vote tăng 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

conghoa    122

conghoa
Đã đăng

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

 

Thank bạn quocmanh04tt!

 

Bạn có thể nâng cấp nó để áp dụng được cho text thường nữa được 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

quocmanh04tt    634

quocmanh04tt
Đã đăng

Thử test thấy đang bị lỗi ở phần sort mọi người kiểm tra lại thế nào??? để chủ thớt hoàn chỉnh

đây là file test 

http://www.cadviet.com/upfiles/5/66960_test_kt.dwg

 

1. Bạn thử với khung tên thật của bạn xem sao!

2. Trong lsp mình để độ chính xác là 10 (units) để sắp xếp cùng hàng, cột.

3. File của bạn sẽ sort không như ý vì các block có kích thước 6x3 units.

*** Với file của bạn, bạn có thể scale all, tăng kích thước lên nhiều lần, rồi test xem...

4. Không biết block khung tên nhỏ nhất thông thường của mọi người là bao nhiêu???

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

ad.pham234    20

ad.pham234
Đã đăng

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

Ad ơi ad có thể đổi tên lệnh là bv hộ em được không chứ đề khbv thì dài dòng quá ad giúp em nhé.

thank ad trước ạ

  • 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

cuongtk2    336

cuongtk2
Đã đăng

Người ta viết file fas để không sửa được. Bạn nên tạo 1 lisp có nội dung như sau:

(defun c:bv () (c:tkbv))

load nó vào là ok. Dùng lệnh mới và cũ đều được.

  • Like 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

ad.pham234    20

ad.pham234
Đã đăng

Người ta viết file fas để không sửa được. Bạn nên tạo 1 lisp có nội dung như sau:

(defun c:bv () (c:tkbv))

load nó vào là ok. Dùng lệnh mới và cũ đều được.

em cảm ơn bác rất rất nhiều ạ 

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

cuongtk2    336

cuongtk2
Đã đăng

Bạn bỏ đi dòng (command ".move.........(list 0 0 0))
vì dòng lệnh này coi như regen cho mỗi block

thay cụm dưới bằng cụm này.

(defun c:dlb ( / ss )
(setq ss (ssget '((0 . "INSERT"))))
(foreach n (ssnamex ss)
(if (= 'ename (type (cadr n)))
(progn
(block_s_dxf (cadr n) 8 "0")
(block_s_dxf (cadr n) 62 256)
)
)
)
(command "regen")
)

  • Like 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

ad.pham234    20

ad.pham234
Đã đăng

Bạn bỏ đi dòng (command ".move.........(list 0 0 0))

vì dòng lệnh này coi như regen cho mỗi block

thay cụm dưới bằng cụm này.

(defun c:dlb ( / ss )

(setq ss (ssget '((0 . "INSERT"))))

(foreach n (ssnamex ss)

(if (= 'ename (type (cadr n)))

(progn

(block_s_dxf (cadr n) 8 "0")

(block_s_dxf (cadr n) 62 256)

)

)

)

(command "regen")

)

Cảm ơn 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

Thanh Chuong    0

Thanh Chuong
Đã đăng
Vào lúc 18/4/2016 tại 21:53, quocmanh04tt đã nói:

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

 

Anh có thể làm 1 Lisp tương tự mà sử dụng đối với đối tượng là 1 text thông thường không ạ. Em rất cần. Mong anh giúp. Cảm ơn 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

truongla    0

truongla
Đã đăng

Lisp này cải tiến, bổ sung thêm chức năng sau nữa thì thật tuyệt vời.

Chọn Block Att được tạo trong file Xref (ví dụ khung tên bản vẽ) sau đó quét chọn các file Xref cần tạo ký hiệu bản vẽ.

Các Block Att trong file Xref ở layer khác nhưng khi đánh ký hiệu bản vẽ trong file hiện hành sẽ lấy layer hiện hành.

Mong bạn quocmanh04tt hỗ trợ giúp. Tks bạn nhiều.!

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

vanhuyou    25

vanhuyou
Đã đăng
Vào lúc 18/4/2016 tại 21:53, quocmanh04tt đã nói:

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

Bạn ơi cho mình hỏi là lúc pick để lấy Tag của Block Att thì được, nhưng khi bấm Ok để quét các đối tượng block thì nó lại không nhận đối tượng là sao 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

quocmanh04tt    634

quocmanh04tt
Đã đăng
Vào lúc 31/5/2021 tại 18:45, vanhuyou đã nói:

Bạn ơi cho mình hỏi là lúc pick để lấy Tag của Block Att thì được, nhưng khi bấm Ok để quét các đối tượng block thì nó lại không nhận đối tượng là sao nhỉ

Hình như bản này không dùng cho block động (Dynamic block).

  • 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

singfeng    1

singfeng
Đã đăng
Vào lúc 11/6/2021 tại 14:11, quocmanh04tt đã nói:

Hình như bản này không dùng cho block động (Dynamic block).

Bác quocmanh04tt giúp em lisp này dc ko ạ. Em cảm ơ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

mr.thanh2610    1

mr.thanh2610
Đã đăng
Vào lúc 11/6/2021 tại 14:11, quocmanh04tt đã nói:

Hình như bản này không dùng cho block động (Dynamic block).

Bác giúp anh em thêm quả Block động đi ạ.... em cũng đang sài lisp của bác rất tuyệt nhưng cũng bị vướng cái Block động ạ, xin cảm ơ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

nancy9x    2

nancy9x
Đã đăng
Vào lúc 18/4/2016 tại 21:53, quocmanh04tt đã nói:

Tặng bạn cái này cùng với ACE nào cần (Còn mới nóng): :D

http://www.cadviet.com/upfiles/5/141736_khbv.rar

141736_khbv.jpg

Trong đó: (Lệnh KHBV)

+ Pick : để lấy tên Tag của block thuộc tính.

+ Auto: Số thứ tự tự động (Tác dung với trường hợp bạn thay đổi STT bắt đầu, muốn khôi phục lại) - Mặc định là tự động.

+ Chức năng sort:

 0 - None ... Cái nào chọn trước thì được trước ...

 1,2,3,4 Có ghi rõ ràng ... (Nguyên tắc luôn từ trái qua phải).

P/s Có thể ứng dụng cho các loại att-block khác, không nhất thiết phải là khung tên.

anh quocmanh04tt anh có thể sửa  tùy biến thêm thành:từ trái qua phải và từ trên xuống dưới được không ạ. Em cảm ơn anh 

  • 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  
Người theo dõi 0
Về Đầu Trang AutoLisp
×