<Nhờ Giúp Đỡ> Đếm Dynamic Block Blkqty (Bác Gia_Bach)

[OceanLegend 1]

Hi các bác,

 

Em đang sử dụng lisp BLKQTY của bác Gia Bach để đếm dynamic block, tuy nhiên khi dùng lisp này đếm dynamic block thì nó hiểu sai.

Với mỗi loại kích thước, chiều quay riêng của block, nó đều đếm là 1 block mới, và tên block thì mặc định thay đổi.

http://www.cadviet.com/upfiles/5/121360_blkqty.dwg

Có cách nào để nó vẫn hiểu đó vẫn chỉ là 1 block và tên block vẫn không đổi không các bác.

Mong được các bác giúp đỡ.

[Đình Thụ 43]

dùng select similar ==> delete 1 phát ra luôn

[quocmanh04tt 635]

>>> Trong lisp:

Bạn tìm dòng này:

(setq blk_name (vla-get-name (vlax-Ename->Vla-Object ent)))

Thay thế bằng cả cụm này:

(if (not (setq blk_name (vlax-get (vlax-Ename->Vla-Object ent) 'Effectivename))) (setq blk_name (vla-get-name (vlax-Ename->Vla-Object ent))))

[OceanLegend 1]

Cám ơn bác quocmanh04tt nhiều nhé. Mình làm được rồi