AFModel Class

<SerializableAttribute>
Public NotInheritable Class AFModel
	Inherits AFElement
	Implements IComparable(Of AFModel)

Dim instance As AFModel

[SerializableAttribute]
public ref class AFModel sealed : public AFElement, 
	IComparable<AFModel^>

[<SealedAttribute>]
[<SerializableAttribute>]
type AFModel =  
    class
        inherit AFElement
        interface IComparable<AFModel>
    end

' This example demonstrates how to create a model, add elements, connect the elements,
' display model information, disconnect the elements, and finally remove the model.

' Get the Database
Dim myPISystems As New PISystems
Dim myDB As AFDatabase = myPISystems.DefaultPISystem.Databases.DefaultDatabase

' Create Elements
Dim srcElement As AFElement = myDB.Elements.Add("srcElement")
srcElement.Ports.Add("Out", "source output port", AFPortType.Output, True)

Dim flowElement As AFElement = myDB.Elements.Add("flowElement")
flowElement.Ports.Add("In", "flow input port", AFPortType.Input, True)
flowElement.Ports.Add("Out", "flow output port", AFPortType.Output, True)

Dim destElement As AFElement = myDB.Elements.Add("destElement")
destElement.Ports.Add("In", "destination input port", AFPortType.Input, True)

' Create a Model
Dim modelTempl As AFElementTemplate = myDB.ElementTemplates.Add("ModelTemplate")
modelTempl.InstanceType = GetType(AFModel)
Dim myModel As AFModel = CType(myDB.Elements.Add("MyModel", modelTempl), AFModel)
myModel.Description = "This Model represents a manufacturing facility"
myDB.ApplyChanges()

' Add Elements to Model
myModel.Elements.Add(srcElement)
myModel.Elements.Add(flowElement)
myModel.Elements.Add(destElement)

' Connect the Elements
Dim conn1 As AFConnection = myModel.Connections.Add(srcElement.DefaultOutputPort,
    flowElement.DefaultInputPort)
Dim conn2 As AFConnection = myModel.Connections.Add(flowElement.DefaultOutputPort,
    destElement.DefaultInputPort)

' Display Model Information
Console.WriteLine("Model Name = {0}", myModel.Name)
Console.WriteLine("Description = {0}", myModel.Description)
Console.WriteLine("Number of Elements = {0}", myModel.Elements.Count)

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.