Не работает EnumElements Версия 8.0.08105 В чем причина?
Dim En As IZEnumElements
Set En = LGM.EnumElements
En.MoveFirst
cnt = 0
Do
If En.IsEOF = True Then Exit Do
cnt = cnt + 1
En.MoveNext
Loop
MsgBox cnt
Пишет 0 хотя в слое LGM более 3000 объектов
Dim En As IZEnumElements
Set En = LGM.EnumElements
En.MoveFirst
cnt = 0
Do
If En.IsEOF = True Then Exit Do
cnt = cnt + 1
En.MoveNext
Loop
MsgBox cnt
Пишет 0 хотя в слое LGM более 3000 объектов