HYTOS

    Private Sub Btn_TestNozzle_Click(sender As Object, e As EventArgs) Handles Btn_TestNozzle.Click

        Dim sVessel_ID As String = "841D5E640AE5421B9A017DDC2E87FF11"

        Dim objVessel As LMVessel

        objVessel = _Placement.PIDDataSource.GetVessel(sVessel_ID)

        Dim oVesselLocation As LMLocations = objVessel.Locations

        Dim symVessel As LMSymbol = _Placement.PIDDataSource.GetSymbol(objVessel.Representations.Nth(1).Id)

        Dim XCoordinate As String = symVessel.Attributes("XCoordinate").Value

        Dim YCoordinate As String = symVessel.Attributes("YCoordinate").Value

        symVessel.Attributes("XCoordinate").Value = XCoordinate + 0.01

        symVessel.Attributes("YCoordinate").Value = YCoordinate + 0.01

        symVessel.Commit()

        Dim sValve_ID As String = "DB7B0CA8A2664A6BA7A9615764BA62B0"

        Dim objValve As LMSymbol

        Dim objValves As LMPipingComp = _Placement.PIDDataSource.GetPipingComp(sValve_ID)

        objValve = _Placement.PIDDataSource.GetSymbol(objValves.Representations.Nth(1).Id)

        objValve.Commit()

        Dim dVesselX As Double = XCoordinate

        Dim dVesselY As Double = YCoordinate

        Dim X1 As Double, Y1 As Double, X2 As Double, Y2 As Double

        _Placement.PIDConnectPointLocation(objValve, 1, X1, Y1)

        _Placement.PIDConnectPointLocation(objValve, 2, X2, Y2)

        Dim nozzlename As String = "\Equipment Components\Nozzles\Flanged Nozzle.sym"

        Dim dCalc_x As Double = 0

        Dim dCalc_y As Double = 0

        If dVesselX - X2 > 0 Then

            dCalc_x = dVesselX - (dVesselX - X2)

        Else

            dCalc_x = dVesselX + (X2 - dVesselX)

        End If

        If dVesselY - Y2 > 0 Then

            dCalc_y = dVesselY - (dVesselY - Y2)

        Else

            dCalc_y = dVesselY + (Y2 - dVesselY)

        End If

        Dim objNozzle As LMSymbol = _Placement.PIDPlaceSymbol(nozzlename, dCalc_x, dCalc_y,

            TargetItem:=symVessel.AsLMRepresentation)

        Dim blnSuccess As Boolean = _Placement.PIDConnectPointLocation(objNozzle, 1, X1, Y1)

        blnSuccess = _Placement.PIDConnectPointLocation(objNozzle, 2, X1, Y1)

        objValve = _Placement.PIDPlaceSymbol(objValve.FileName, X1, Y1, ExistingItem:=objValve.AsLMAItem,

          TargetItem:=objNozzle.AsLMRepresentation)

    End Sub