Topic: Counting Blocks

[Guest]

Luke: you can turn off the borders of the table so you don't see the individual cells.

[ML]

I may be repeating something that has already been mentioned in this post but I tried bcount and it is really cool but I noticed that it only seems to address Block (inserted) references but it does seem to break them down between paper and Model. It does not seem to address Block Definitions.

I have a VBA module I would be glad to share if it would help anyone.

It gives you Block references in Model, Paper and Block Table Definitions in the drawing.

Mark

[Luke]

Mark,

The code:
cnt (1- (itoa (sslength ss)))

Results in the following:
ERROR: bad argument type: numberp: "3"

Any thoughts?

[ML]

Not sure Luke, sorry 

[Luke]

Sorry, I was hoping Mark Thomas who gave me the code might be able to help. 

Thanks,
Luke

[ML]

What is the code suppose to do?

Mark

[Luke]

ML, not sure if you read any of the posting above this but it pretty much explains it all in great detail.

[ronjonp]

Mark,

The code:
cnt (1- (itoa (sslength ss)))

Results in the following:
ERROR: bad argument type: numberp: "3"

Any thoughts?

Try this:
(itoa (1- (sslength ss)))

[Luke]

Nailed it!  Thanks a ton!

[Crank]

You can also do this in diesel:

Code: [Select]

$(-,$(getenv, blk_count),1)


[Luke]

So just to be clear here Crank, you would continue using the original code but your Diesel Expression would subtract 1?

[ML]

I'm sorry
I would use VBA to get the same results but it would probably result in more code

Mark

[ML]

If you put this code in a Sub Module and run it, you will get the count for Blocks and Block References
Mark

Code: [Select]

Sub Blocks_Count()

Dim Blks As AcadBlocks
Dim BLCollect As AcadSelectionSet
Dim GCode(0) As Integer
Dim GData(0) As Variant
Dim GPCode As Variant
Dim GPData As Variant

Set Blks = ThisDrawing.Blocks

GCode(0) = 0
GData(0) = "Insert"
GPCode = GCode
GPData = GData
 Set BLCollect = ThisDrawing.SelectionSets.Add("BLOCKREFS")
BLCollect.Select acSelectionSetAll, , , GPCode, GPData
 MsgBox "There are " & Blks.Count & " blocks in this drawing and", vbInformation, "Blocks"
 MsgBox BLCollect.Count & " Block References", vbInformation, "Block References"
 'MsgBox "There are " & ThisDrawing.Blocks.Count & " block(s) in the block table and " & BLCollect.Count & " blocks inserted (Blockref) in the drawing", vbInformation, "Block Information"
BLCollect.Delete
 Set BLCollect = Nothing
 
End Sub


Thanks to Keith for the help in writing this

[Crank]

So just to be clear here Crank, you would continue using the original code but your Diesel Expression would subtract 1?

That's what it does. But lisp is also ok.

With diesel you can minipulate the routine for each situation. Now you want to substract 1, but the next time you perhaps need the exact amount.

[Luke]

Yes I see, I like that better.  I likt the idea of only having 1 lisp, afterall I have to have a different diesel for each block / field I want to update.

Thank you all for you help!