Sub MacroDisplacement()
'
' Macro1 Macro
'
'
Dim FrewObj                     'declare FrewCom object
Dim iRet As Integer                 'declare integers for return variables
Dim iNumNodes As Integer
Dim iNumStages As Integer
Dim sFilePath As String                 'declare a string for the file path
 
Dim i, j As Integer
 
Dim i1 As Double
Dim i2 As Integer
Dim delevation As Double
Dim ielevation As Integer
 
Set FrewObj = CreateObject("frew.FrewCom")      'Set FrewObj as FrewCom interface and link
sFilePath = "C:\Program Files (x86)\Oasys\Frew 19.3\Samples\FREWman.fwd"         'Set the relevant file path
FrewObj.Open sFilePath, iRet            'Call the function to open the file
FrewObj.GetNumNodes iNumNodes   'Call the function to get number of nodes
FrewObj.GetNumStages iNumStages 'Call the function to get number of stages
FrewObj.Analyse iNumStages, iRet
 
Cells(2, 2) = iNumNodes
Cells(3, 2) = iNumStages
 
For i = 0 To iNumNodes - 1
    Cells(5 + i, 2) = i + 1
    FrewObj.GetNodeLevel i, delevation, ielevation
    Cells(5 + i, 3) = delevation
    For j = 1 To iNumStages - 1
        FrewObj.GetNodeDisp i, j, i1, i2
        Cells(5 + i, 3 + j) = i1
    Next j
 
Next i
 
End Sub