Объект Application представляет саму программу ELCUT. Объект Application содержит:
Ссылки на все другие объекты, такие как задачи, геометрические модели, документы описания физических свойств, MDI окна и другие.
Настройки приложения, такие как DefaultFilePath или UserControl.
Вообще-то первое, что надо сделать в программе - это запустить сервер ELCUT. Это можно сделать одним из следующих способов:
Функция CreateObject
Dim ELC As ELCUT.Application
Set ELC = CreateObject("ELCUT.Application")
Функция CreateObject запускает ELCUT и возвращает ссылку на объект Application. Результат присваивается переменной ELC для дальнейшего использования. Если пользовательское приложение запускает ELCUT, то оно также должно закрывать ELCUT после использования. Чтобы сделать это, необходимо убрать все ссылки на объекты ELCUT и применить метод Quit:
ELC.Quit
Функция GetObject.
Функция GetObject позволяет получить ссылку на программу ELCUT, если она уже запущена.
Dim ELC1 as Object
Set ELC1 = GetObject(,"ELCUT.Application")
После завершения работы с ELCUT необходимо убрать ссылку на ELCUT следующим образом:
Set ELC1 = Nothing
Ключевое слово New.
New - это ключевое слово, которое вызывает неявное создание объекта.
Dim ELC2 As New ELCUT.Application
Если используется ключевое слово New, то нет необходимости использовать оператор Set для инициализации переменной ELC2.
Обычно первый раз объект Application получается при использовании функций CreateObject или GetObject. В дальнейшем при работе некоторые объекты ELCUT имеют свойство Application, которое возвращает новую ссылку на родительский объект Application. Закончив работу с переменной, которая содержала ссылку на объект Application, необходимо убрать эту ссылку:
dim prb as ELCUT.Problem
.........
dim ELC1 As ELCUT.Application
set ELC1 = prb.Application
..........
set ELC1 = Nothing