Counting Blocks

Hello there,

I wonder why this routine is not counting my blocks ,

(defun c:Bcount (/ Blk)
 (setq Blk (ssget "_x" '((0 . "BLOCK"))))
 (alert (strcat "You have :" (sslength Blk) "Blocks .."))
 (princ)
 )

Any help.

Thanks

Hint: You need to be counting INSERTS, not blocks... a block is the definition, the insert is the 'block reference' a representation of the definition in the drawing.

Also, you will need to allow for this:

(sslength nil)

YES. great hint Lee.

I modified it, but it gives me an error,

; error: bad argument type: stringp 12

Why is that please ?

This may be what you need:

(defun c:Bcount (/ Blk)
(setq Blk (ssget "_x" '((0 . "[color=red]INSERT[/color]"))))
(alert (strcat "You have :" [color=red](itoa [/color](sslength Blk)[color=red])[/color] "Blocks .."))
(princ)
)

Or this, perhaps?

(defun c:Bcount ()
(alert (strcat "You have :" [color=red](itoa [/color](sslength 
 (ssget "_x" '((0 . "[color=red]INSERT[/color]"))))[color=red])[/color] "Blocks .."))
(princ)
)

That's perfect RenderMan.

But don't forget to change the ((0 . "BLOCK")) TO '((0 . "INSERT")) as Lee indicated to Please.

Many thanks.

Or this, perhaps?

(defun c:Bcount ()
(alert (strcat "You have :" [color=red](itoa [/color](sslength 
 (ssget "_x" '((0 . "[color=red]INSERT[/color]"))))[color=red])[/color] "Blocks .."))
(princ)
)

All right, Nice one.

Thank you so much.

Oooo... Sorry, sorry. It appears you're too late, as that has already been done, my friend!

I noticed it right after posting, and quickly fixed accordingly.

Cheers!

All right, Nice one.

 

Thank you so much.

Glad I could contribute a small tid-bit.

Or this, perhaps?

 

(defun c:Bcount ()
(alert (strcat "You have :" [color=red](itoa [/color](sslength 
 (ssget "_x" '((0 . "[color=red]INSERT[/color]"))))[color=red])[/color] "Blocks .."))
(princ)
)

Type

(sslength nil)

at the command line.

Type

 

(sslength nil)

 

at the command line.

Okay... I must be missing something, Lee???

Command: (sslength nil)
; error: bad argument type: lselsetp nil

Hint: You need to be counting INSERTS, not blocks... a block is the definition, the insert is the 'block reference' a representation of the definition in the drawing.

 

Also, you will need to allow for this:

(sslength nil)

 

 

Okay... I must be missing something, Lee???

 

Command: (sslength nil)
; error: bad argument type: lselsetp nil

Ohhh! I get it, now!!!

Will re-write accordingly.....

Ohhh! I get it, now!!!

 

Will re-write accordingly.....

But I did not get yet.

Could you rise it up please.

Think about what it means for no blocks to be found.

Ohhh! I get it, now!!!

 

Will re-write accordingly.....

Sorry, Michaels. In my haste, I may have led you astray with the combined alert-ssget combo.

Doing so, precludes any error checking - limited as an IF statement may be, it is better than nothing!

There still may be a better solution (Lee?), but this is certainly preferable over my earlier post:

(defun c:Bcount (/ blockCount)
 [color=red](if [/color](setq blockCount (itoa (sslength (ssget "_x" '((0 . "INSERT"))))))
   (alert (strcat "You have : " blockCount " Blocks ..."))
   [color=red](alert "No Blocks Detected In Active Drawing. "))[/color]
(princ)) ;_end defun

Again I urge you to consider

(sslength nil)

Either used routine when Blocks not found, or (sslength nil), the same outcome would come up.

Command: bcount ; error: bad argument type: lselsetp nil

Command:

Command: (sslength nil)

; error: bad argument type: lselsetp nil

Again I urge you to consider

 

(sslength nil)

Wow - I have been silly today. I know better!

Of course, if there is no selection set (ss), then (sslength ss) = nil, which throws an error.

(defun c:Bcount (/ ss)
 (if (setq ss (ssget "_x" '((0 . "INSERT"))))
   (alert (strcat "You have : " (itoa (sslength ss)) " Blocks ..."))
   (alert "No Blocks Detected In Active Drawing. "))
(princ)) ;_end defun

Exactly - so we must allow for no blocks: i.e. ssget returning nil.

EDIT: You got it

Exactly - so we must allow for no blocks: i.e. ssget returning nil.

 

EDIT: You got it

Thanks for making me think it through, Lee!