bcount autolisp

[Anonymous]

HI THERE,

I am trying to count the # of all blocks in my drawing. Normally bcount works in my autocad but it is not working in autolisp. Am i doing something wrong below

(defun c:COUNTLO()

;(ssget "_X" '((0 . "INSERT")(2 . "Block_Name")))
(SETQ SSLO '(ssget "_X" '((0 . "INSERT"))))

(COMMAND "BCOUNT" "SSLO" "")

)

[dlanorh · Accepted solution]

---

@Anonymous wrote:

HI THERE,

I am trying to count the # of all blocks in my drawing. Normally bcount works in my autocad but it is not working in autolisp. Am i doing something wrong below

(defun c:COUNTLO()

;(ssget "_X" '((0 . "INSERT")(2 . "Block_Name")))
(SETQ SSLO '(ssget "_X" '((0 . "INSERT"))))

(COMMAND "BCOUNT" "SSLO" "")


)

Try the lisp HERE

[Anonymous]

that code require a user prompt. i am looking for something that select all blocks in a drawing or set of drawings then apply something similar to bcount on them. such that every block show its name then the count for all blocks. 

[Anonymous · Accepted solution]

@Anonymous Try this:

http://www.lee-mac.com/dynamicblockcounter.html