;;For nested blk
;;(tttt <objectname>)
;;(tttt "AcDbCircle")
;;By LUCAS
(defun TTTT (OBJECTNAME / BLK BLKS COUNT ENT)
(vl-load-com)
(defun TTT1 (BLK / ENT)
(vlax-for ENT (vla-item BLKS (vla-get-name BLK))
(cond
((= (vla-get-objectname ENT) OBJECTNAME)
(setq COUNT (1+ COUNT))
)
((= (vla-get-objectname ENT) "AcDbBlockReference")
(TTT1 ENT)
)
)
)
)
(setq BLK (car (entsel "\nSelect Block: "))
COUNT 0
BLKS (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
BLK (vlax-ename->vla-object BLK)
)
(TTT1 BLK)
(vlax-release-object BLKS)
COUNT
)
If there are 525 circles, than it should count them as 525... I guess you missed one hidden to you somewhere in your DWG...
I would suggest:Code - Auto/Visual Lisp: [Select]
c 0 ) ) ) ) ) ) ) ) )