Вземете броя на елементите в чертеж в autocad с помощта на VBA

Опитвам се да получа броя на елементите, присъстващи в пространството на модела. Ако не греша, Count прави този трик, но не мога да го накарам да работи (може и да греша).

Например Set entity = ThisDrawing.ModelSpace.Item(0) получава само първия елемент. и Set entity = ThisDrawing.ModelSpace.Item(0) получава второто. Но как да разберем колко имаме?

Опитах ThisDrawing.ModelSpace.Count, но дава грешката по-долу, когато го стартирам.

въведете описание на изображението тук


vba autocad
person tony9099    schedule 07.01.2015    source източник
comment
Глупав въпрос: опитахте ли ThisDrawing.ModelSpace.Count?   -  person Jason Faulkner    schedule 07.01.2015
comment
Какво ще кажете за For Each Item in ThisDrawing.ModelSpace.Item? Вероятно грешен синтаксис.   -  person Chrismas007    schedule 07.01.2015
comment
@JasonFaulkner вижте актуализирания въпрос   -  person tony9099    schedule 07.01.2015
comment
Момчета Решението за това беше да се използва ThisDrawing.ModelSpace.Count, но да се зададе вътре в променлива Integer. сега работи, използвайки----- Dim X As Integer; X = ThisDrawing.ModelSpace.Count   -  person tony9099    schedule 07.01.2015
comment
@tony9099 Добавете го като отговор тогава.   -  person Chrismas007    schedule 07.01.2015
comment
@Chrismas007 готово :)   -  person tony9099    schedule 08.01.2015

Отговори (1)


arrow_upward
0
arrow_downward

Момчета Решението за това беше да се използва ThisDrawing.ModelSpace.Count, но да се зададе вътре в променлива Integer. сега работи, използвайки по-долу

Dim X As Long
X = ThisDrawing.ModelSpace.Count
person tony9099    schedule 08.01.2015
comment
Може да помислите за повишаване на това до Long вместо Integer, в противен случай може редовно да се натъквате на препълване. - person Parrish Husband; 10.01.2015