HYTOS

Imports Llama

Imports Plaice

Public Class AutoSPPID

    Dim objPlacement = New Placement

    Public Sub TestPipe()

        Dim datasource As LMADataSource

        datasource = objPlacement.PIDDataSource

        Dim PipeRunLocation As String

        Dim objItem As LMAItem

        Dim objConnector As LMConnector

        Dim objInputs As PlaceRunInputs

        Dim objSymbol As LMSymbol

        Dim ValveLocation As String

        PipeRunLocation = "\Piping\Routing\Process Lines\Primary Piping.sym"

        objInputs = New PlaceRunInputs

        objInputs.AddPoint(0.1, 0.1)

        objInputs.AddPoint(0.2, 0.1)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        Dim objPipeRun As LMPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("OperFluidCode").Value = "AFS"

        objPipeRun.Attributes("InsulThick").Value = "25"

        objPipeRun.Attributes("NominalDiameter").Value = "6"""

        objPipeRun.Attributes("PipeRunClass").Value = "Piping"

        objPipeRun.Attributes("pipingmaterialsclass").Value = "NA1S"

        objPipeRun.Commit()

        ValveLocation = "\Piping\Valves\2 Way Common\Ball Valve.sym"

        objSymbol = objPlacement.PIDPlaceSymbol(ValveLocation, 0.15, 0.3, , 1.57)

        objInputs = New PlaceRunInputs

        objInputs.AddConnectorTarget(objConnector, 0.15, 0.1)

        objInputs.AddPoint(0.15, 0.15)

        objInputs.AddPoint(0.12, 0.15)

        objInputs.AddPoint(0.12, 0.2)

        objInputs.AddPoint(0.15, 0.2)

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.3)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("flowdirection").Value = "End 1 is downstream (Outlet)"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15"

        objPipeRun.Attributes("SP_JAltDesignMaxTemp").Value = "-273.15"

        objPipeRun.Commit()

        objInputs = New PlaceRunInputs

        objInputs.AddSymbolTarget(objSymbol, 0.15, 0.304)

        '  objInputs.AddPoint(0.15, 0.304)

        objInputs.AddPoint(0.15, 0.33)

        objInputs.AddPoint(0.2, 0.33)

        objInputs.AddPoint(0.2, 0.25)

        objInputs.AddSymbolTarget(objSymbol, 0.2765, 0.25)

        objItem = objPlacement.PIDCreateItem(PipeRunLocation)

        objConnector = objPlacement.PIDPlaceRun(objItem, objInputs)

        objPipeRun = datasource.GetPipeRun(objConnector.ModelItemID)

        objPipeRun.Attributes("flowdirection").Value = "End 1 is downstream (Outlet)"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JAltDesignMaxTemp").Value = "-273.15 C"

        '   objPipeRun.Attributes("SP_SP_JAltDesignMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JAltOperMaxTemp").Value = "-273.15 C"

        ' objPipeRun.Attributes("SP_SP_JAltOperMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JDesignMaxTemp").Value = "-273.15 C"

        ' objPipeRun.Attributes("SP_SP_JDesignMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JOperMaxTemp").Value = "-273.15 C"

        '  objPipeRun.Attributes("SP_SP_JOperMaxTempSI").Value = "-273.15 C"

        objPipeRun.Attributes("SP_JTestMaxTemp").Value = "-273.15 C"

        '  objPipeRun.Attributes("SP_SP_JTestMaxTempSI").Value = "-273.15 C"

        objPipeRun.Commit()

    End Sub

End Class