[Linkor]

Есть ли функция, которая обнуляеть все используемые переменные? Ситуация такая: есть куча динамич. массивов, описанных как Public. При вызове процедур из-под автокада все эти массивы сохраняются, нужно чтобы они обнулялись, приходится каждый раз заходить в редактор VBA и нажимать кнопку Stop

[Кулик Алексей aka kpblc]

Прекрасно. А теперь с самого начала - язык, образец кода, версия и разрядность AutoCAD...

[Linkor]

Язык VBA вроде написано в сообщении, а от версии и разрядности AutoCad вряд ли что то завист. AutoCad 2008-2015
Пример кода:

Код:

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

 Public Supports() As TSupport

[Кулик Алексей aka kpblc]

Ну, вообще-то есть рекомендации: http://forum.dwg.ru/showthread.php?t=57821
Далее. VBA в версии, кажется, 2014, претерпел значительные изменения (я на нем не пишу, поэтому ситуацию не отслеживаю).
Никто не мешает дописать специальную "дебажную" процедуру, которая будет присваивать всем таким переменным необходимые значения. А для предоставления кода "на сторону" ее убрать
P.S. Я бы вообще VBA уже не рассматривал. .NET намного интереснее.

[Linkor]

Моими процедурами пользуются на разных версиях AutoCad, нужна универсальная вещь.
В начале выполнения кода значение переменной светится в отладчике как Nothing. После этого пошли назначения Redim Preserve ...
Как в конце обнулить эту переменную опять в Nothing. Redim Supports(0 to 0) использовать не хочу, так как Ubound(Supports) будет давать 0, а должен давать ошибку

Сообщение от Кулик Алексей aka kpblc P.S. Я бы вообще VBA уже не рассматривал. .NET намного интереснее.

Столько всего написано на VBA, сама мысль о переписании на другой язык уже утомляет

[trir]

Supports = Nothing

[Linkor]

Сообщение от trir Supports = Nothing

Compile error:
Invalid use object

[trir]

Erase Supports

[Linkor]

Сообщение от trir Erase Supports

ОГРОМНОЕ СПАСИБО! То что надо
А нет ли случайно функции, которая сразу все переменные уничтожает?

[trir]

C:\format C

[AlexV]

End в конце модуля, и карма всех переменных очистится.. Это если не надо часть переменных сохранять..

"End Terminates execution immediately. Never required by itself but may be placed anywhere in a procedure to end code execution, close files opened with the Open statement and to clear variables. "

[Linkor]

Просто так End написать не даёт компилятор
может не там пишу?

[Сергей812]

Сообщение от Linkor Есть ли функция, которая обнуляеть все используемые переменные? Ситуация такая: есть куча динамич. массивов, описанных как Public. При вызове процедур из-под автокада все эти массивы сохраняются, нужно чтобы они обнулялись, приходится каждый раз заходить в редактор VBA и нажимать кнопку Stop

А зачем объявлять динамические массивы глобальными, если не нужно сохранять данные между вызовами методов? И в VBA тоже есть классы, урезанные, но есть - это если через массивы нужно обмениваться данными между процедурами)

[Linkor]

Сообщение от Сергей812 зачем объявлять динамические массивы глобальными,

Чтоб другие модули видели

----- добавлено через 41 сек. -----

Сообщение от Сергей812 в VBA тоже есть классы, урезанные, но есть - это если через массивы нужно обмениваться данными между процедурами)

где про это можно почитать?

[Кулик Алексей aka kpblc]

Сообщение от Linkor Чтоб другие модули видели

Передавай в качестве параметров.

[Linkor]

Сообщение от Кулик Алексей aka kpblc Передавай в качестве параметров.

В данном случае не удобно, слишком много аргументов для большого числа процедур и функций

[Сергей812]

Сообщение от Linkor где про это можно почитать?

Ну для ознакомления можно тут, в основе VBA для офиса и автокада лежит одно и тоже, только объектные модели разные.

[Linkor]

Сергей812 спасибо за ссыль!

[Кулик Алексей aka kpblc]

Сообщение от Linkor В данном случае не удобно, слишком много аргументов для большого числа процедур и функций

Я не помню, в VBA есть понятие перегрузки или нет...

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Я не помню, в VBA есть понятие перегрузки или нет...

Попробовал простейший код

Код:

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

Public Sub test1(ByVal arg1 As Integer)
    MsgBox "Integer"
End Sub

Public Sub test1(ByVal arg1 As Single)
    MsgBox "Single"
End Sub

Public Sub Test()
    Dim a1 As Single
    test1 (a1)
    Dim a2 As Integer
    test1 (a2)
End Sub

В подсказке показывает только аргументы первой функции с Integer, при попытке выполнить Test ругается: ambiguous name detected - т.е., похоже, не поддерживается) Или какой то извращенный синтаксис...