Counting Blocks

[Michaels]

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

[Lee Mac]

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)

[Michaels]

YES. great hint Lee.

 

I modified it, but it gives me an error,

 

; error: bad argument type: stringp 12

 

Why is that please ?

[BlackBox]

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)
)

Edited August 23, 2010 by BlackBox
Changed "BLOCK" to "INSERT"

[BlackBox]

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)
)

[Michaels]

That's perfect RenderMan.

 

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

 

Many thanks.

[Michaels]

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.

[BlackBox]

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!

[BlackBox]

All right, Nice one.

 

Thank you so much.

 

Glad I could contribute a small tid-bit.

[Lee Mac]

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.

[BlackBox]

Type

 

(sslength nil)

 

at the command line.

 

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

 

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

[BlackBox]

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.....

[Michaels]

Ohhh! I get it, now!!!

 

Will re-write accordingly.....

 

But I did not get yet.

 

Could you rise it up please.

[Lee Mac]

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

[BlackBox]

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

[Lee Mac]

Again I urge you to consider

 

(sslength nil)

[Michaels]

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

[BlackBox]

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

[Lee Mac]

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

 

EDIT: You got it

[BlackBox]

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!