Оптимизация указанного слоя.

Применяется к:

ZuluTools

Синтаксис:

Visual Basic:LayerOptimize(Path As String) As Boolean

Path - полный путь к файлу слоя.

Описание:

Метод возвращает 1, если операция прошла успешно, в противном случае метод возвращает 0 .

Метод аналогичен команде Слой/Оптимизация. При вызове данного метода происходит упорядочение графической базы и ее автоматическая переиндексация. В процессе упорядочения базы данных попутно выполняется и процесс ее сжатия.

Пример:

Private Sub Command8_Click()

    Dim tools As ZuluTools
    Set tools = New ZuluTools
   'оптимизировать слой
    If tools.LayerOptimize("d:\nastya\new\doma.b00") = 1 Then
        MsgBox "Оптимизация проведена удачно"
    Else: MsgBox "Ошибка оптимизации слоя"
    End If

End Sub