Sub Example_PurgeAll()
    ' Этот пример удаляет все неиспользованные справочники из базы данных
    
    ThisDrawing.PurgeAll
    
End Sub