3 replies to this topic

[satsat]

I need to use Binary Interaction Parameters for Wilson property package in Hysys Micro Language Editor.

I need your help for my classroom project.
Some thing like:
------ 276.756
975.486 ----

Aij for H2O-Ethanol

Source code like :
?? = ?? WilsonPropPkg.Aij .??

Waiting for your kind help
Please help me

[Padmakar Katre]

Dear,
Could you give the further details of your problem as it is hard to interprete from your post.

[joerd]

I don't know the Hysys macro language editor very well - it is not very userfriendly IMHO - but here is the VBA code to retrieve the Aij values. You can probably adapt it to suit your situation.

CODE

Sub GetAij()
Const hyEMPTY As Integer = -32767
Dim h As HYSYS.Application
Dim s As SimulationCase
Dim fp As FluidPackage
Dim wp As WilsonPropPkg
Dim a As Variant
Dim nc As Integer, i As Integer, j As Integer

'Link to the open HYSYS case
Set h = GetObject(, "HYSYS.Application")
Set s = h.ActiveDocument
'Link to the desired fluid package (here named "Basis-1)
Set fp = s.BasisManager.FluidPackages("Basis-1")
Set wp = fp.PropertyPackage
'Get the number of components
nc = fp.Components.Count
'Get the Aij parameter values as a two-dimensional array of dimension nc,nc
a = wp.Aij.GetValues("")

'Print the values, display nice --- instead of <empty> value (-32767)
For i = 0 To nc - 1
For j = 0 To nc - 1
If CInt(a(i, j)) = hyEMPTY Then
Debug.Print "---",
Else
Debug.Print a(i, j),
End If
Next j
Debug.Print
Next i

End Sub

[satsat]

Dear joerd
Thank you
it solved my problem