Đếm đối tượng trong bản vẽ cad!

[=Ký Danh= 0]

Chào các bạn!

Các bạn cao thủ cho mình hỏi một vấn đề trong cad:

Trong một bản cad mình có rất nhiều đối tượng giống nhau (block chẳng hạn), mình muốn đếm số lượng đối tượng đó. Các bác nào có phương pháp nào chỉ giúp tôi với.

Mình xin cảm ơn!

[Tue_NV 3.912]

Chào các bạn!

Các bạn cao thủ cho mình hỏi một vấn đề trong cad:

Trong một bản cad mình có rất nhiều đối tượng giống nhau (block chẳng hạn), mình muốn đếm số lượng đối tượng đó. Các bác nào có phương pháp nào chỉ giúp tôi với.

Mình xin cảm ơn!

Bạn dùng thử cái này :

Ví dụ đếm số đối tượng Text :

(alert(strcat "Tong so doi tuong Text la :" (itoa(sslength(ssget'((0 . "TEXT")))))))

 

Ví dụ đếm số đối tượng Block :

(alert(strcat "Tong so doi tuong Block la :" (itoa(sslength(ssget'((0 . "INSERT")))))))

[michaelchutan 0]

Chào các bạn!

Các bạn cao thủ cho mình hỏi một vấn đề trong cad:

Trong một bản cad mình có rất nhiều đối tượng giống nhau (block chẳng hạn), mình muốn đếm số lượng đối tượng đó. Các bác nào có phương pháp nào chỉ giúp tôi với.

Mình xin cảm ơn!

 

cái này thì quá dễ, bạn hãy chon tất cả các đối tượng trên file bằng cách chọn select all, rồi chọn filter,để chọn loại đối tượng cần đếm, chảng hạn là block reference, rồi bạn chọn tên, vì mỗi block có một tên riêng, enter, nó sẽ ra kết quả là bao nhiêu đối tượng đó.

[tuannt991 0]

b1. Gõ lệnh Fi -> Selec Fillter -> chọn đối tượng cần tìm. VD: Block, Circle - Vòng tròn.... -> Apply -> chọn ở bản vẽ

b2. gõ lệnh LI

[tkien_kt87 4]

Bạn dùng lệnh Filter: Fi -> Select filter (chọn layer) -> Select Layer(s) -> OK -> Add to list -> Apply -> gõ All -> Enter -> Number found

Good luck :-d

[nemo2004 100]

còn một cách nữa là dùng quick select trong properties.

Trên diễn đàn có một vài chủ để về vấn đề này rồi mời bạn tham khảo nhé : http://www.cadviet.com/cadtips/1906_Quick_...c_chi_giao/139/

[rongcuoimay 3]

sao mình lấy trong thư viện cad ra mẫu cây (trees - metric) , array ra 90 đối tượng, xong có xóa đi 1 vài đối tượng.

rồi dùng lệnh filter đếm block name: trees - metric, mà cad ko đếm ra được 1 đối tượng nào hết? các bác có biết nguyên nhân ko giúp mình với?

[lyky 126]

Bạn có thể phản xạ cho các trường hợp khác bằng một đoạn code đơn giản sau:

 
(defun C:DSL (/ loaio) (if (not loai) (setq loai 0))   ;;; Dem So Luong ;;;
(setq loaio loai loai (getint (strcat "\nLoai 1:Line;2:Text;3:Dimension;4:Block;5:Circle;6:Polyline;7:Arc:[" (itoa loai) "]")))
(cond
  ((= loai 1) (prompt (strcat "\nTong so LINE la:"      (itoa (sslength (ssget '((0 . "LINE"))))) "\n")))
  ((= loai 2) (prompt (strcat "\nTong so TEXT la:"      (itoa (sslength (ssget '((0 . "TEXT"))))) "\n")))
  ((= loai 3) (prompt (strcat "\nTong so DIMENSION la:" (itoa (sslength (ssget '((0 . "DIMENSION"))))) "\n")))
  ((= loai 4) (prompt (strcat "\nTong so INSERT la:"    (itoa (sslength (ssget '((0 . "INSERT"))))) "\n")))
  ((= loai 5) (prompt (strcat "\nTong so CIRCLE la:"    (itoa (sslength (ssget '((0 . "CIRCLE"))))) "\n")))
  ((= loai 6) (prompt (strcat "\nTong so POLYLINE la:"  (itoa (sslength (ssget '((0 . "LWPOLYLINE"))))) "\n")))
  ((= loai 7) (prompt (strcat "\nTong so ARC la:"       (itoa (sslength (ssget '((0 . "ARC"))))) "\n")))))
;;; Neu muon mac dinh "ALL" bo xung them "X" sau ssget ;;;

 

Goodluck!

 

P/S: úi chà, mình nhầm!!!

sao mình lấy trong thư viện cad ra mẫu cây (trees - metric) , array ra 90 đối tượng, xong có xóa đi 1 vài đối tượng.

rồi dùng lệnh filter đếm block name: trees - metric, mà cad ko đếm ra được 1 đối tượng nào hết? các bác có biết nguyên nhân ko giúp mình với?

Bạn nên up file CAD lên trực tiếp cho dễ hiểu bạn à!

[PHAMVANTRANG001 0]

mới có cách này. cái này là đếm đối tượng nha ( mình đang có 128 đối tượng)

đầu tiên explode các block ra

chọn lệnh SL (slice) 

quét hết bản vễ nó ra ntn ở dòng command: Select objects to slice: Specify opposite corner: 128 found (nó tìm thấy 128 đối tượng cắt) 

xong

[hoan2182 842]

mới có cách này. cái này là đếm đối tượng nha ( mình đang có 128 đối tượng)

đầu tiên explode các block ra

chọn lệnh SL (slice) 

quét hết bản vễ nó ra ntn ở dòng command: Select objects to slice: Specify opposite corner: 128 found (nó tìm thấy 128 đối tượng cắt) 

xong

 

Phải chăng,  bản vẽ của anh chỉ có đúng 128 đối tượng block 3D mà mỗi block chỉ có 1 đối tượng thì khi quét hết bản vẽ nó mới ra như thế??? Nếu ngoài 128 đối tượng bock còn có nhiều chi tiết  khác nữa  và block được tạo thành từ nhiều đối tượng 3D dời dạc , anh tính sao??? :) :) :)

[Khang Nguyễn 0]

Mình đang học AutoCAD MEP nhưng k biết đếm khối lượng ntn! Có ai biết chỉ giáo mình với!

[nguytini 4]

Có 3 cách bạn ạ

1 dùng QSELECT

2 dùng bcount

3 dùng lisp count (bạn tìm trên này nhé)

[saigonnew 0]

Vào lúc 10/5/2013 tại 13:28, lyky đã nói:

Bạn có thể phản xạ cho các trường hợp khác bằng một đoạn code đơn giản sau:

• dsl.lsp
  
• [✎]
   

 
(defun C:DSL (/ loaio) (if (not loai) (setq loai 0))   ;;; Dem So Luong ;;;
(setq loaio loai loai (getint (strcat "\nLoai 1:Line;2:Text;3:Dimension;4:Block;5:Circle;6:Polyline;7:Arc:[" (itoa loai) "]")))
(cond
  ((= loai 1) (prompt (strcat "\nTong so LINE la:"      (itoa (sslength (ssget '((0 . "LINE"))))) "\n")))
  ((= loai 2) (prompt (strcat "\nTong so TEXT la:"      (itoa (sslength (ssget '((0 . "TEXT"))))) "\n")))
  ((= loai 3) (prompt (strcat "\nTong so DIMENSION la:" (itoa (sslength (ssget '((0 . "DIMENSION"))))) "\n")))
  ((= loai 4) (prompt (strcat "\nTong so INSERT la:"    (itoa (sslength (ssget '((0 . "INSERT"))))) "\n")))
  ((= loai 5) (prompt (strcat "\nTong so CIRCLE la:"    (itoa (sslength (ssget '((0 . "CIRCLE"))))) "\n")))
  ((= loai 6) (prompt (strcat "\nTong so POLYLINE la:"  (itoa (sslength (ssget '((0 . "LWPOLYLINE"))))) "\n")))
  ((= loai 7) (prompt (strcat "\nTong so ARC la:"       (itoa (sslength (ssget '((0 . "ARC"))))) "\n")))))
;;; Neu muon mac dinh "ALL" bo xung them "X" sau ssget ;;;

 

Goodluck!

 

P/S: úi chà, mình nhầm!!!

Bạn nên up file CAD lên trực tiếp cho dễ hiểu bạn à!

sao lisp này không xài được nhỉ, Load vào máy báo error: syntax error