×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

HYSYS pipeline backdoor monikers

thread142-169881

HYSYS pipeline backdoor monikers

HYSYS pipeline backdoor monikers

(OP)
Anybody know of a complete list of backdoor variable moniker names for the pipeline unit in HYSYS?

I searched ther knowledge base and my comments to one of their proposed solutions seems to have initiated some action - but so far not list smile

So if somebody has compiled a list that the would like to share then i would be happy (im currently mostly trying to find the moniker for heat trasfer data: ambient medium=water, water velocity so if yu know that noe it will also do smile )

Best regards

Morten
Replies continue below

Recommended for you

RE: HYSYS pipeline backdoor monikers

What I have tried with mixed success is to copy the value of interest, and then paste as link in Excel. If you look at the formula in Excel, you can derive the moniker. Another approach is to record a script and examine the resulting text (script) file.
Here is a blurb from the code that I use, based on some example from the Hysys KB:

CODE

                'For the pipe segment Internal diameter data is stored at the following Moniker
                '   :SmallLength.550.#
                'Where # is an integer starting from 0 and refers to the segment
                'number within the pipe segment operation
                'If the segment refered to isn't set up yet then the empty value -32767 is returned
                'Other relevant Monikers:
                'Outside Dia-       :SmallLength.551.#
                'Elevation Change-  :Length.550.#
                'Length-            :Length.551.#
                'Num Increments-    :Index.551.#
                Set hyBDvar = hyBD.BackDoorVariable(":PressureDrop.500").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":HeatFlow.501.0").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":HeatFlow.531").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":Temperature.500").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":HeatTranCoeff.500").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":Selection.502").Variable
                wksOps.Cells(myRow, myCol).Value = hyBDvar.Description
                Select Case hyBDvar.Value
                Case 0
                    wksOps.Cells(myRow, myCol + 2).Value = "Petukov"
                Case 1
                    wksOps.Cells(myRow, myCol + 2).Value = "Dittus"
                Case 2
                    wksOps.Cells(myRow, myCol + 2).Value = "Sieder"
                Case 3
                    wksOps.Cells(myRow, myCol + 2).Value = "Profes"
                Case 4
                    wksOps.Cells(myRow, myCol + 2).Value = "HTFS"
                Case Else
                    wksOps.Cells(myRow, myCol + 2).Value = hyBDvar.GetValue("")
                End Select
                wksOps.Cells(myRow, myCol + 2).Interior.ColorIndex = ColorSpecified
                wksOps.Cells(myRow, myCol + 2).Font.ColorIndex = FontColorSpecified
                Set hyBDvar = hyBD.BackDoorVariable(":Selection.506").Variable
                wksOps.Cells(myRow, myCol).Value = hyBDvar.Description
                Select Case hyBDvar.Value
                Case hyEmpty
                    wksOps.Cells(myRow, myCol + 2).Value = "No Insulation"
                Case 0
                    wksOps.Cells(myRow, myCol + 2).Value = "User specified"
                Case 1
                    wksOps.Cells(myRow, myCol + 2).Value = "Evacuated Annulus"  '1
                Case 2
                    wksOps.Cells(myRow, myCol + 2).Value = "Urethane Foam"  '2
                Case 3
                    wksOps.Cells(myRow, myCol + 2).Value = "Glass block"    '3
                Case 4
                    wksOps.Cells(myRow, myCol + 2).Value = "Fiberglass block"    '4
                Case 5
                    wksOps.Cells(myRow, myCol + 2).Value = "Fiber blanket"  '5
                Case 6
                    wksOps.Cells(myRow, myCol + 2).Value = "Fiber blanket - Vap barrier"    '6
                Case 7
                    wksOps.Cells(myRow, myCol + 2).Value = "Plastic block"  '7
                Case 8
                    wksOps.Cells(myRow, myCol + 2).Value = "Asphalt"    '8
                Case 9
                    wksOps.Cells(myRow, myCol + 2).Value = "Concrete"   '9
                Case 10
                    wksOps.Cells(myRow, myCol + 2).Value = "Concrete Insulated"    '10
                Case 11
                    wksOps.Cells(myRow, myCol + 2).Value = "Neoprene"   '11
                Case 12
                    wksOps.Cells(myRow, myCol + 2).Value = "PVC Foam"   '12
                Case 13
                    wksOps.Cells(myRow, myCol + 2).Value = "PVC block"  '13
                Case 14
                    wksOps.Cells(myRow, myCol + 2).Value = "Polystyrene foam"   '14
                Case Else
                    wksOps.Cells(myRow, myCol + 2).Value = hyBDvar.GetValue("")
                End Select
                wksOps.Cells(myRow, myCol + 2).Interior.ColorIndex = ColorSpecified
                wksOps.Cells(myRow, myCol + 2).Font.ColorIndex = FontColorSpecified
                Set hyBDvar = hyBD.BackDoorVariable(":ThermCond.500").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":Length.508").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":Selection.505").Variable
                wksOps.Cells(myRow, myCol).Value = hyBDvar.Description
                Select Case hyBDvar.Value
                Case 0
                    wksOps.Cells(myRow, myCol + 2).Value = "Air"
                Case 1
                    wksOps.Cells(myRow, myCol + 2).Value = "Water"
                Case 2
                    wksOps.Cells(myRow, myCol + 2).Value = "Sand"
                Case Else
                    wksOps.Cells(myRow, myCol + 2).Value = hyBDvar.GetValue("")
                End Select
                wksOps.Cells(myRow, myCol + 2).Interior.ColorIndex = ColorSpecified
                wksOps.Cells(myRow, myCol + 2).Font.ColorIndex = FontColorSpecified
                Set hyBDvar = hyBD.BackDoorVariable(":Selection.508").Variable
                Select Case hyBDvar.Value
                Case hyEmpty
                    wksOps.Cells(myRow, myCol + 2).Value = "None"
                Case 0
                    wksOps.Cells(myRow, myCol + 2).Value = "User Specified"
                Case 1
                    wksOps.Cells(myRow, myCol + 2).Value = "Dry Peat"
                Case 2
                    wksOps.Cells(myRow, myCol + 2).Value = "Wet Peat"
                Case 3
                    wksOps.Cells(myRow, myCol + 2).Value = "Icy Peat"
                Case 4
                    wksOps.Cells(myRow, myCol + 2).Value = "Dry Sand"
                Case 5
                    wksOps.Cells(myRow, myCol + 2).Value = "Moist Sand"
                Case 6
                    wksOps.Cells(myRow, myCol + 2).Value = "Wet Sand"
                Case 7
                    wksOps.Cells(myRow, myCol + 2).Value = "Dry Clay"
                Case 8
                    wksOps.Cells(myRow, myCol + 2).Value = "Moist Clay"
                Case 9
                    wksOps.Cells(myRow, myCol + 2).Value = "Wet Clay"
                Case 10
                    wksOps.Cells(myRow, myCol + 2).Value = "Frozen Clay"
                Case 11
                    wksOps.Cells(myRow, myCol + 2).Value = "Gravel"
                Case 12
                    wksOps.Cells(myRow, myCol + 2).Value = "Sandy Gravel"
                Case 13
                    wksOps.Cells(myRow, myCol + 2).Value = "Limestone"
                Case 14
                    wksOps.Cells(myRow, myCol + 2).Value = "Sandstone"
                Case 15
                    wksOps.Cells(myRow, myCol + 2).Value = "Ice"
                Case 16
                    wksOps.Cells(myRow, myCol + 2).Value = "Cold Ice"
                Case 17
                    wksOps.Cells(myRow, myCol + 2).Value = "Loose Snow"
                Case 18
                    wksOps.Cells(myRow, myCol + 2).Value = "Hard Snow"
                Case Else
                    wksOps.Cells(myRow, myCol + 2).Value = hyBDvar.GetValue("")
                End Select
                wksOps.Cells(myRow, myCol + 2).Interior.ColorIndex = ColorSpecified
                wksOps.Cells(myRow, myCol + 2).Font.ColorIndex = FontColorSpecified
                Set hyBDvar = hyBD.BackDoorVariable(":ThermCond.501").Variable
                DisplayBdVar hyBDvar
                Set hyBDvar = hyBD.BackDoorVariable(":Length.510").Variable
                DisplayBdVar hyBDvar
                'First get an array carrying the types of segment/fittings
                FittingTypes = hyBD.BackDoorVariable("FittingType.500.[]:Name.0").Variable.Values
                For j = 0 To UBound(FittingTypes)
                    wksOps.Cells(myRow, myCol).Value = j + 1
                    wksOps.Cells(myRow, myCol + 1).Value = FittingTypes(j)
                    'Do common stuff = Inner Dia only
                    Set hyBDvar = hyBD.BackDoorVariable(":SmallLength.550." & CStr(j)).Variable
                    DisplayBdVar hyBDvar
                    If FittingTypes(j) = "Pipe" Then
                        'Do all the pipe specific stuff
                        'Outer Dia - may sometimes be empty call a procedure to deal with this
                        Set hyBDvar = hyBD.BackDoorVariable(":SmallLength.551." & CStr(j)).Variable
                        DisplayBdVar hyBDvar
                        'Length
                        Set hyBDvar = hyBD.BackDoorVariable(":Length.551." & CStr(j)).Variable
                        DisplayBdVar hyBDvar
                        'Elevation Change
                        Set hyBDvar = hyBD.BackDoorVariable(":Length.550." & CStr(j)).Variable
                        DisplayBdVar hyBDvar
                        'Num Increments
                        Set hyBDvar = hyBD.BackDoorVariable(":Index.551." & CStr(j)).Variable
                        DisplayBdVar hyBDvar
                        'Roughness - the monikers used to access this changed for Hysys 2.4 (build 3868)
                        Set hyBDvar = hyBD.BackDoorVariable(":Length.552." & CStr(j)).Variable
                        DisplayBdVar hyBDvar
                    Else
                        'Do fitting specific stuff - K factor
                        'This moniker did not change for 2.4 so still need to open and close the view
                        hyBD.SendBackDoorMessage (":ViewSegment 1 " & CStr(j))
                        Set hyBDvar = hyBD.BackDoorVariable(":ExtraData.503").Variable
                        DisplayBdVar hyBDvar
                        Set hyBDvar = hyBD.BackDoorVariable(":ExtraData.507").Variable
                        DisplayBdVar hyBDvar
                        hyBD.SendBackDoorMessage (":CloseView")
                        ':ExtraData.503 moniker retrieves the VH factor
                        ':ExtraData.507 corresponds to the FT factor
                    End If
                Next j
Sorry for the undocumented stuff, but I suppose it'll give you some handle on how to proceed.

Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.

RE: HYSYS pipeline backdoor monikers

(OP)
Really great.

Thanks for the tips about using the script recorder!

Best regards

Morten

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login


News
Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close