Counting blocks in a dwg

Hey all,

I'm trying to write a very simple LISP to count the number of a certain
block insertion in a drawing....and I'm not sure how to extract the block
name from a selectionset.

Anyone out there know how to do this?

Thanks,

Xolo

 

Since you know what the block name is you want to count, just use the filter
on the selection set

(setq bname "blockname")
(setq ss (ssget "x" (list '(0 . "INSERT)(cons 2 bname))))
(setq #blocks (sslength ss))

HTH,
Jeff

 

Jeff,

That helped, but my quick LISP isn't finishing. Could you take a look at it
and suggest why it's not finishing?

Thanks again

Xolo
------------------------------------

;;;-----------------------------------------------------------------------;
;;; June 13, 2004 WRITTEN BY THOMAS M. STORZUK EX12.lsp ;
;;;-----------------------------------------------------------------------;
;;; This program asks for a block name, and tells the user how ;
;;; many instances of that block occurs within the drawing ;
;;;-----------------------------------------------------------------------;
(defun DTR (deg) (* pi (/ deg 180.0)))
;;;-----------------------------------------------------------------------;
(defun C:EX12 (/ svce svom)
(setq svce (getvar "cmdecho"))
(setq svom (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)

(setq BLKN (getstring "\nEnter a block name: "))

(setq SS1 (ssget "x" (list '(0 . "INSERT") (cons 2 BLKN))))
(setq NUMB (sslength SS1))
(if (not SS1)
(princ "\nThere are no blocks in this drawing: ")
(progn
(princ "\nThere are ")
(princ NUMB)
(princ " blocks with the name ")
(princ (rtos BLKN))
(princ ".")
)
)

(setvar "cmdecho" svce)
(setvar "osmode" svom)
(princ)
)
;;;-----------------------------END OF THE FILE---------------------------;

------------------------------

 

Jeff,

Sorry, but I figured it out myself.....thanks though.

Xolo

 

Xolo

Express Tools -> BCOUNT

Cheers