Очищает указанный слой, т. е. удаляет все графические объекты слоя.

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

ZuluTools

Синтаксис:

Visual Basic:

LayerEmpty(Path As String) As Boolean

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

Описание:

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

Метод аналогичен команде Слой/Очистить. При вызове данного метода удаляются все объекты слоя (т. е. обнуляется графическая база данных), при этом сами файлы слоя (*.b00, *.b01 и т. д.) не удаляются с диска.

Пример:

Private Sub Command7_Click()
        
Dim tools As ZuluTools
    Set tools = New ZuluTools
'очистить слой doma
    If tools.LayerEmpty("d:\nastya\new\doma.b00") = 1 Then
        MsgBox "Слой очищен"
    Else: MsgBox "Ощибка очистки слоя"
    End If

End Sub