VBA 2010 медленно работает цикл по сравнению с 2008

sergtranes · 09.08.2011, 10:32

возможно кто-нибудь из спецов уже встречался с етой проблемой ?

цикл (9121 повторов)

Код:

       
        TEMPI = 0
        
        '-----Blocks-----------------------------
            For Each objBlock In objSelSet3
              TEMPI = TEMPI + 1
            Next objBlock
            MsgBox "TEMPI = " & TEMPI

в 2008 работает 1 сек --- в 2010 работает 10 сек
если я в етот цикл вставлю неоходимые действия, то время выполнениния будет ---
2008 == 5 сек (нормально)
2010 == 1м45сек (ужас)

помогите!
спасибо

sergtranes · 09.08.2011, 16:53

а как же логические операторы ? :

Код:

[Выделить все]

    intType(1) = -4
    varData(1) = "<OR"
 ...............
    intType(3) = -4
    varData(3) = "OR>"

они что не нужны ?

Кулик Алексей aka kpblc · 09.08.2011, 17:06

В данном случае можно обойтись без них.

sergtranes · 09.08.2011, 17:50

спасибо - попробую - сообщу

sergtranes · 04.09.2011, 17:37

Цитата:

Сообщение от Кулик Алексей aka kpblc

Как вариант (с VBA черт-те сколько не работал):

вам ето не помешало!
спасибо большое - отлично работает :
выборка сократилась до 230 - время до 3 сек!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
AutoCAD 2010 rus. Некорректно работает команда 3DСОРБИТА (свободная орбита).	Lestnic-master)	AutoCAD	17	27.08.2012 13:33
Акад 2008 неустойчиво работает (зависает периодически). Как определить причину зависания (лог ошибок, конфликты)	Baldares	AutoCAD	13	19.03.2009 10:22
doPDF конвертер в PDF - медленно работает	Pilot	Прочее. Программное обеспечение	8	21.03.2008 13:45
VBA для AutoCAD2005 не работает PlotToDevice	Garrick	Программирование	1	17.02.2006 17:30

09.08.2011, 10:32
VBA 2010 медленно работает цикл по сравнению с 2008 sergtranes проектирование "чистых комнат" Хайфа Регистрация: 07.02.2011 Сообщений: 51 возможно кто-нибудь из спецов уже встречался с етой проблемой ? цикл (9121 повторов) Код: [Выделить все] TEMPI = 0 '-----Blocks----------------------------- For Each objBlock In objSelSet3 TEMPI = TEMPI + 1 Next objBlock MsgBox "TEMPI = " & TEMPI в 2008 работает 1 сек --- в 2010 работает 10 сек если я в етот цикл вставлю неоходимые действия, то время выполнениния будет --- 2008 == 5 сек (нормально) 2010 == 1м45сек (ужас) помогите! спасибо
Просмотров: 6697