使用VBA获取autocad中图形内的项目数

Question

我正在尝试获取模型空间中存在的项目数。 如果我没有弄错的话，Count会做出这个伎俩，但我无法让它发挥作用（我可能错了）。

例如，Set entity = ThisDrawing.ModelSpace.Item(0)只获取第一个项目。而Set entity = ThisDrawing.ModelSpace.Item(0)获得第二名。但是如何知道我们有多少？

我尝试ThisDrawing.ModelSpace.Count，但在运行时出现以下错误。

Answer 1

伙计这个问题的解决方案是使用ThisDrawing.ModelSpace.Count，但将其设置在Integer变量中。它现在使用下面的

Dim X As Long
X = ThisDrawing.ModelSpace.Count