AFElement.LoadAttributes Method (PISystem, IList(Guid), IList(AFAttributeTemplate), Object)

Public Shared Function LoadAttributes ( 
	system As PISystem,
	ids As IList(Of Guid),
	templates As IList(Of AFAttributeTemplate),
	Optional queryDate As Object = Nothing
) As AFNamedCollectionList(Of AFElement)

Dim system As PISystem
Dim ids As IList(Of Guid)
Dim templates As IList(Of AFAttributeTemplate)
Dim queryDate As Object
Dim returnValue As AFNamedCollectionList(Of AFElement)

returnValue = AFElement.LoadAttributes(system, 
	ids, templates, queryDate)

public:
static AFNamedCollectionList<AFElement^>^ LoadAttributes(
	PISystem^ system, 
	IList<Guid>^ ids, 
	IList<AFAttributeTemplate^>^ templates, 
	Object^ queryDate = nullptr
)

static member LoadAttributes : 
        system : PISystem * 
        ids : IList<Guid> * 
        templates : IList<AFAttributeTemplate> * 
        ?queryDate : Object 
(* Defaults:
        let _queryDate = defaultArg queryDate null
*)
-> AFNamedCollectionList<AFElement> 

' Get the Database
Dim myPISystems As New PISystems()
Dim myPISystem As PISystem = myPISystems.DefaultPISystem
If myPISystem Is Nothing Then
    Throw New InvalidOperationException("Default PISystem was not found.")
End If
Dim myDB As AFDatabase = myPISystem.Databases(dbName)
If myDB Is Nothing Then
    Throw New InvalidOperationException("Database was not found.")
End If

' Use attribute value query to find a list of tanks that are 
' In Service (tanks which are out-of-service have their 
' Status attribute set to "OS").
Dim totalCount As Integer = 0
Using search As New AFElementSearch(myDB, "FindTanks", "Template:'TankAdvanced' |Status:<>'OS'")

    search.CacheTimeout = TimeSpan.FromMinutes(10)

    ' Because we are only going to use a few of the attributes for each
    ' of the elements found, we can reduce the load time and memory space
    ' by just loading the attributes we need.  Note that if we inadvertently
    ' use attributes other than these, we will incur a load penalty.
    Dim tankTemplate As AFElementTemplate = myDB.ElementTemplates("Tank")
    Dim myAttributes As New AFNamedCollectionList(Of AFAttributeTemplate)()
    myAttributes.Add(tankTemplate.AttributeTemplates("Volume"))
    myAttributes.Add(tankTemplate.AttributeTemplates("Level"))
    myAttributes.Add(tankTemplate.AttributeTemplates("Level|HighLimit"))
    myAttributes.Add(tankTemplate.AttributeTemplates("Level|LowLimit"))

    ' Get today's date and UOMs to be used for converting values.
    Dim today As New AFTime("T", CultureInfo.CurrentCulture)
    Dim bbl As UOM = myDB.PISystem.UOMDatabase.UOMs("bbl")
    Dim meter As UOM = myDB.PISystem.UOMDatabase.UOMs("m")

    Const pageSize As Integer = 1000
    Dim startIndex As Integer = 0
    Dim myElementIds As IList(Of Guid) = New List(Of Guid)(pageSize)
    Do
        ' Find the elements and load the attributes we will be using.
        Dim results As IEnumerable(Of Guid) = search.FindObjectIds(startIndex, pageSize:=pageSize)
        myElementIds.Clear()
        Dim c As Integer = 0
        For Each id As Guid In results
            totalCount += 1
            myElementIds.Add(id)
            c += 1
            If c >= pageSize Then
                Exit For
            End If
        Next

        If myElementIds.Count = 0 Then
            Exit Do
        End If
        Dim elements As AFNamedCollectionList(Of AFElement) =
            AFElement.LoadAttributes(myPISystem, myElementIds, myAttributes)

        ' Once the elements are loaded, we can process them.
        For Each element As AFElement In elements
            Try
                Dim attributes As New AFAttributeList()
                attributes.Add(element.Attributes("Volume"))
                attributes.Add(element.Attributes("Level"))
                attributes.Add(element.Attributes("Level|HighLimit"))
                attributes.Add(element.Attributes("Level|LowLimit"))
                Dim values As AFValues = attributes.GetValue(today)

                If values(0).IsGood AndAlso values(1).IsGood AndAlso values(2).IsGood AndAlso values(3).IsGood Then
                    Dim volume As Double = CDbl(values(0).Convert(bbl).Value)
                    Dim level As Double = CDbl(values(1).Convert(meter).Value)
                    Dim high As Double = CDbl(values(2).Convert(meter).Value)
                    Dim low As Double = CDbl(values(3).Convert(meter).Value)

                    Console.WriteLine("Tank Inventory for '{0}' is {1} bbl.  %Full={2}", element.Name, volume, 100 * (high - low) / level)
                Else
                    Console.WriteLine("Bad data in Tank '{0}'", element.Name)
                End If
            Catch generatedExceptionName As FormatException
                Console.WriteLine("Error in Tank '{0}'", element.Name)
            End Try
        Next

        ' Advance to next page.
        startIndex += myElementIds.Count
    Loop While myElementIds.Count > 0 AndAlso myElementIds.Count >= pageSize
End Using

Console.WriteLine("Processed {0} Elements.", totalCount)

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.