Get the count of items inside a drawing in autocad using VBA

Question

I am trying to get the number of items present inside the model space. If i am not mistaken the Count does that trick, but I am not able to make it work (I might be wrong).

For example, Set entity = ThisDrawing.ModelSpace.Item(0) gets only the first item. and Set entity = ThisDrawing.ModelSpace.Item(0) gets the second. But how to know how many we have ?

I tried ThisDrawing.ModelSpace.Count but it gives the below error when running it.

enter image description here

What about a `For Each Item in ThisDrawing.ModelSpace.Item`? Possibly wrong syntax. — Chrismas007, Jan 07 '15 at 20:19
Guys The solution for this was to use ThisDrawing.ModelSpace.Count but set it inside an Integer variable. it worked now using----- Dim X As Integer ; X = ThisDrawing.ModelSpace.Count — tony9099, Jan 07 '15 at 20:29

tony9099 · Answer 1 · 2015-01-12T21:13:21.423

0

Guys The solution for this was to use ThisDrawing.ModelSpace.Count but set it inside an Integer variable. it worked now using the below

Dim X As Long
X = ThisDrawing.ModelSpace.Count

edited Jan 12 '15 at 21:13

answered Jan 08 '15 at 08:39

tony9099

4,567
9
44
73

You might consider upping that to a Long instead of an Integer, otherwise you might regularly run into overflows. – Parrish Husband Jan 10 '15 at 01:17

Get the count of items inside a drawing in autocad using VBA

1 Answers1