CAD Forum discussion (EN) : Audit Blocks https://www.cadforum.cz/forum_en/ Thu, 23 Apr 2026 03:28:08 +0000 Tue, 07 Apr 2009 15:30:46 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=1866 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[Audit Blocks : bcount works great. Thanks for...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5212&title=audit-blocks#5212 Author: ISElation
Subject: 1866
Posted: 07.Apr.2009 at 15:30

bcount works great. Thanks for all the help

]]> Tue, 07 Apr 2009 15:30:46 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5212&title=audit-blocks#5212 <![CDATA[Audit Blocks : I never new about bcount.. Works...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5204&title=audit-blocks#5204 Author: msplcdykee69
Subject: 1866
Posted: 07.Apr.2009 at 04:27

I never new about bcount.. Works great Thanks i will know for next time and i have added that to my Company standards.

]]> Tue, 07 Apr 2009 04:27:46 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5204&title=audit-blocks#5204 <![CDATA[Audit Blocks : try the comand &#034;bcount&#034;...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5199&title=audit-blocks#5199 Author: zhb7
Subject: 1866
Posted: 06.Apr.2009 at 16:22

try  the comand "bcount"]]> Mon, 06 Apr 2009 16:22:56 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5199&title=audit-blocks#5199 <![CDATA[Audit Blocks : I found this to work perfect. (defun...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5170&title=audit-blocks#5170 Author: ISElation
Subject: 1866
Posted: 01.Apr.2009 at 18:01

I found this to work perfect.

(defun c:blkcount (/ ss lst itm result)
  (and (setq ss (ssget "x" (list (cons 0 "INSERT"))))
       (setq lst (mapcar '(lambda (x) (cdr (assoc 2 (entget x))))
                         (mapcar 'cadr (ssnamex ss)))
       )
       (setq lst (vl-sort lst '>))
       (while (setq itm (car lst))
         (setq len (length lst))
         (setq lst    (vl-remove itm lst)
               cnt    (- len (length lst))
               result (cons (cons itm cnt) result)
         )
       )
  )
  result
)

]]> Wed, 01 Apr 2009 18:01:30 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5170&title=audit-blocks#5170 <![CDATA[Audit Blocks : You can try to do a web search...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5169&title=audit-blocks#5169 Author: msplcdykee69
Subject: 1866
Posted: 01.Apr.2009 at 16:43

You can try to do a web search for lisp routines. someone out there may have written one to do exactly what your looking for.  If I should happen to find one I will post it here.]]> Wed, 01 Apr 2009 16:43:06 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5169&title=audit-blocks#5169 <![CDATA[Audit Blocks : That lsp works great, but it would...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5168&title=audit-blocks#5168 Author: ISElation
Subject: 1866
Posted: 01.Apr.2009 at 16:27

That lsp works great, but it would be nice to be able to select all the blocks in a drawing and display how many their are. With this lsp i dont really know if i get every block unless i get a list of all the blocks in the drawing first, and if i am doing this i might as well use the quick select command to find out the total for each. Thanks for all the help. ]]> Wed, 01 Apr 2009 16:27:19 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5168&title=audit-blocks#5168 <![CDATA[Audit Blocks : here is a lisp program use this...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5161&title=audit-blocks#5161 Author: msplcdykee69
Subject: 1866
Posted: 01.Apr.2009 at 04:25

here is a lisp program use this to count your blocks.  when you type BLK in the command prompt select one of the blocks you wish to know the number of, then window over the area it will give you a count of total number of that particular block in that dwg.
 
 
(defun c:BLK ()
  (SETQ LAY (CDR (ASSOC 2 (ENTGET (CAR (ENTSEL))))))
  (setq sel (ssget (list (cons 0 "insert") (cons 2 lay))))
  (setq sle (itoa (sslength sel)))
  (alert (strcat LAY " : " sle))
)
]]> Wed, 01 Apr 2009 04:25:54 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5161&title=audit-blocks#5161 <![CDATA[Audit Blocks : I do not have that &#034;similar...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5155&title=audit-blocks#5155 Author: ISElation
Subject: 1866
Posted: 31.Mar.2009 at 22:27

I do not have that "similar selection" option. Running the "ssx" command is way faster, but then i have the problems with the blocks being on different layers and having to add them up. I was just wondering if there is a way to export all the block names in a dwg and give me the number of each? AS QUICK AS POSSIBLE]]> Tue, 31 Mar 2009 22:27:19 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5155&title=audit-blocks#5155 <![CDATA[Audit Blocks : Easiest way is to select one of...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5153&title=audit-blocks#5153 Author: msplcdykee69
Subject: 1866
Posted: 31.Mar.2009 at 22:12

Easiest way is to select one of the blocks right click your mouse select similar and then look at your properties window and it will tell you how many selected.]]> Tue, 31 Mar 2009 22:12:42 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5153&title=audit-blocks#5153 <![CDATA[Audit Blocks : Is there a way to find out exactly...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5152&title=audit-blocks#5152 Author: ISElation
Subject: 1866
Posted: 31.Mar.2009 at 21:59

Is there a way to find out exactly what blocks are in a drawing and how many of each block there are? ]]> Tue, 31 Mar 2009 21:59:40 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1866&PID=5152&title=audit-blocks#5152