List of layers of a given page id

Dim pageobj As Schema.Class.pageObj = EditorialLogin.Get().PageGet(objectId)

Dim laylist As New List(Of Integer)

For Each l As Schema.Class.pageObj.layersEntry In pageobj.layersAttr

  laylist.Add(l.refId)

  lcounter += 1

Next

Getting layers only of specified type

Dim pageobj As Schema.Class.pageObj = EditorialLogin.Get().PageGet(objectId)

Dim laylist As New List(Of Integer)

For Each layer As pageObj.layersEntry In Pageobj.layersAttr

 Dim sLayerTypeId As Integer = LCase(UtilsBase.GetObjAttrValue(layer.refId, "layerTypeRef"))

 Dim sLayerTypeName As String = LCase(UtilsBase.GetObjAttrValue(sLayerTypeId, "name"))

 If InStr(sLayerTypeName, "editorial") > 0 Then

                 laylist.Add(layer.refId)

 End If

Next