Границы

GRNNamesList — получить список имен наборов границ.

возвращаемое значение: VARIANT — массив строк с именами доступных наборов границ. В случае неудачи тип переменной равен vbEmpty. Для диагностики используйте конструкцию

If VarType(names)=vbEmpty Then ‘переход к обработке ошибки

параметры: нет

Способ использования точно такой же, как для аналогичной функции CRVNamesList (см. выше)

GRNGet — получить двумерный массив набора границ с указанным именем.

возвращаемое значение: VARIANT — массив

параметры: String — имя набора границ. В случае неудачи тип переменной равен vbEmpty.

Каждый набор границ хранится в программе в виде двумерного массива, состоящего из N строк, по два числа в каждой строке. Первое число (ГРАНИЦА(n,1)) это глубина границы, второе число (ГРАНИЦА(n,2)) это значение, распространяющееся на интервал от ГРАНИЦА(n,1) до ГРАНИЦА(n+1,1). Значение представлено числом, имеющим следующий смысл: если правый бит числа установлен, то программа отображает пласт как выделенный. Выделенными могут быть несколько пластов — например опорные или продуктивные. Если второй справа бит установлен, то пласт отображается программой как активный. Активным может быть только один пласт в интервале независимо от того, является он выделенным или нет. Обычно активным делают тот пласт, который обрабатывается в данный момент для того, чтобы обратить на него внимание пользователя. Для того чтобы проверить состояние n-ого пласта используйте следующие конструкции:

If CLng(Gran(n, 2)) And &H1 Then	Пласт выделенный
If CLng(Gran(n, 2)) And &H2 Then	Пласт активный

Для того чтобы изменить состояние n-ого пласта используйте следующие конструкции:

Gran(n, 2) = CDbl(CLng(Gran(n, 2)) Or &H2)	Пометить как активный
Gran(n, 2) = CDbl(CLng(Gran(n, 2)) Or &H1)	Пометить как выделенный
Gran(n, 2) = CDbl(CLng(Gran(n, 2)) And &HFFFFFFFD)	Пометить как неактивный
Gran(n, 2) = CDbl(CLng(Gran(n, 2)) And &HFFFFFFFE)	Пометить как невыделенный

GRNPut — записать набор границ под указанным именем.

параметры — String имя набора границ. Если набора границ с указанным именем не существует, то он создается. VARIANT — собственно двумерный массив данных. Способ использования точно такой же, как для аналогичной функции CRVPut (см. выше). дальше>>