4 replies to this topic

[Matylda]

Hi everyone,

 

I am struggling to add Inlet stream to compressor using VBA. 

 

So like Set Compressor.Property("InletStream") = "MyStream"

 

Does anyone know how to fix this? 

 

Thank you in advance!

[Matylda]

Hello!

 

I've managed to figure out so in case anyone needs the answer: 

 

Dim Compressor As HYSYS.CompressOp

Set Compressor = hyCase.Flowsheet.Operations.Add("compressor_name", "compressor")

Set Compressor = hyCase.Flowsheet.Operations().Item("compressor_name")

 

Dim InletStream As HYSYS.ProcessStream

Set InletStream = hyCase.Flowsheet.MaterialStreams.Add("InletStream")

Set InletStream = hyCase.Flowsheet.MaterialStreams("InletStream")

 

Compressor.FeedStream = InletStream 

 

ProductStream is Outlet Stream and Energy stream is energy stream

Edited by Matylda, 06 August 2024 - 03:14 AM.

[Dacs]

What are you trying to accomplish? Are you trying to define streams on the fly?

[Matylda]

I was creating a stream that later goes as an inlet to compressor 

[Dacs]

Is it not possible to add it via normal means at the flowsheet?

 

Why is there a need to use VBA to create a stream?