Cancel
Showing results for 
Search instead for 
Did you mean: 

Help with feOutputProcessRSSCombination API

Experimenter
Experimenter

I am trying to use the API to form RSS combinations for each output set. Currently, we have 181 output sets and would like to combine acceleration vectors 22 to 24 from frequency responce results. 

 

This is our attempt at a macro:
 

Sub Main
 Dim App As femap.model
 Set App = feFemap()
 Dim fsOut As femap.Set
 Dim fOS As femap.OutputSet
 Set fsOut = App.feSet
 Set fOS = App.feOutputSet
 App.feSelectOutputSets( "Select output sets to list", fsOut )

If fsOut.Count < 1 Then
 Exit Sub
 End If

 fsOut.Reset()

Dim list
Set list = CreateObject("System.Collections.ArrayList")
list.Add 22
list.Add 23
list.Add 24

While fOS.Next()

v = App.feOutputProcessRSSCombination(False,FOPC_ALL,fOs.ID,1,fos.ID, list,0)

With fOs
.ID = fOs.NextEmptyID
.title = "OUTPUT" & " " & fOS.ID
.Value = v
.Put(fOS.ID)

End With

Wend

End Sub

The value keeps returning 8, not sure what is going on. We're trying to acheive the same results that we would get using the GUI like below: 

 

SAND.png

 

Any ideas or examples of how to correctly use feOutputProcessRSSCombination??? 

 

1 REPLY

Re: Help with feOutputProcessRSSCombination API

Legend
Legend

Hi Dniemczyk,

 

 

The returned 8 means that you have passed parameter to the function with bad type.

From Global constants in API manual (chapter 1.4):

FE_BAD_TYPE 8

 

I suspect that parameter from_vectorID should be array of integers but not ArrayList.

Try to change in your code

Dim list(2) as Long '(or Integer)

list(0) = 22

list(1) = 23

list(2) = 24

 

Yarko