ni.com is currently experiencing issues.
Support teams are actively working on the resolution.
ni.com is currently experiencing issues.
Support teams are actively working on the resolution.
03-11-2016 12:34 AM
Hello
I am trying to run a filter on data by using a loop that goes through all the groups, finds the relevant channel and perform the filter.
the debuger send the following massage:
invalid channel in command ChnFiltCalc.
I will apprechiate your assistance solving this issue
thanks
Oded
the code is:
Option Explicit 'Forces the explicit declaration of all the variables in a script.
Dim i, j, oMyChn, oMyUnit, oMyName, oMyGroup
For i = 1 to GroupCount
For j = 1 to GroupChnCount(i)
' Set oMyChn = Data.Root.ChannelGroups(i).Channels(S1PELV0000H2ACZA)
Set oMyChn = Data.Root.ChannelGroups(i).Channels(j)
Set oMyUnit = oMyChn.Properties("unit_string")
set oMyName = oMyChn.Properties("name")
set oMyGroup= oMyChn.Properties("groupname")
If oMyUnit.Value = "gn" Then
Call ChnUnitConvert(oMyChn,oMyChn,"m/s^2")
End If
if oMyName.value = "S1PELV0000H2ACZA" then
Call ChnFiltCalc("","[oMyGroup.Value]/oMyName.Value","/PELVIS_AC_FILTERED","IIR","Butterworth","Low pass",4,100,0,0,1.2,25,"Hamming",1,1)
Data.Root.ChannelGroups(i).Channels("FilteredSignal").Name = "PELVIS_AC_FILTERED"
end if
If oMyUnit.Value = "m/s^2" Then
Call ChnUnitConvert(oMyChn,oMyChn,"gn")
End If
Next
Next
03-11-2016 01:12 AM
Hello odedmi,
The reason for your problem is that oMyGroup.Value and oMyName.Value are interpreted as string. The correct syntax for this would be:
"""[" & oMyGroup.Value & "]/" & oMyName.Value & """". That's a bit complex, but the correct VBS syntax
Alternatively your script code can look like this (in addition I use the quantity based calculation):
CalcQuantityBased = true Dim i, j, oCurrChn, oResChn, oGroups, oCurrGroupChns set oGroups = Data.Root.ChannelGroups for i = 1 to oGroups.Count set oCurrGroupChns = oGroups(i).Channels for j = 1 to oCurrGroupChns.Count set oCurrChn = oCurrGroupChns(j) if oCurrChn.Name = "S1PELV0000H2ACZA" then set oResChn = oCurrGroupChns.Add("PELVIS_AC_FILTERED", DataTypeChnFloat64) Call ChnFiltCalc("", oCurrChn, oResChn, "IIR", "Butterworth", "Low pass", 4, 100, 0, 0, 1.2, 25, "Hamming", 1, 1) end if next next
Greetings
Walter
03-11-2016 12:19 PM
Thanks, Walter
Oded
11-13-2016 08:15 AM
Hello
I raising this subject again althought it is concerning a different function but the problem is the loop.
I am trying to substract two channels and create a results channel. The problem is how to do it automatily for all the groups in the file. The substracted channel have the same name in all the groups.
When I record the macro for one group I received the following script:
Call Data.Root.ChannelGroups(1).Activate()
Call ChnSub("[1]/SEAT PAN VEL","[1]/BASE PLATE VEL","/Subtracted")
Data.Root.ChannelGroups(1).Channels("Subtracted").Name = "BUCKET RELATIVE VEL"
I am trying to replae the [1] with a variable that can be used through a loop. I tried this without success:
Dim i, oMyGrp
Dim sMyResult
For i = 1 to GroupCount
Call Data.Root.ChannelGroups(i).Activate()
sMyResult = Str(oMyGrp)
Call ChnSub("sMyResult/SEAT PAN VEL","sMyResult/BASE PLATE VEL","/Subtracted")
Data.Root.ChannelGroups(i).Channels("Subtracted").Name = "BUKET RELATIVE VEL"
Next
I will apprichiate your help on this subject.
Thanks
Oded
11-14-2016 04:38 AM
Hello odedmi,
Please try this:
dim i, oGroups, oChnA, oChnB, oChnRes set oGroups = Data.Root.ChannelGroups For i = 1 to oGroups.Count set oChnA = oGroups(i).Channels("SEAT PAN VEL") set oChnB = oGroups(i).Channels("BASE PLATE VEL") set oChnRes = oGroups(i).Channels.Add("BUKET RELATIVE VEL",DataTypeChnFloat64) Call ChnSub(oChnA, oChnB, oChnRes) Next
Greetings
Walter
11-16-2016 12:36 PM
Hello Walter
I tried the code and received the following error:
"The index SEAT PAN VEL does not much any any of the elements in the list"
When I change the name to another channel that as an ISO code name the is working.
the SEAT PAN VEL channel as well as the BASE PLATE VEL were created through Diadem analysis and I only changed there names.
Is there a different reference name for this chanels that I m not aware of?
Thanks for your support
Oded
11-16-2016 05:44 PM
Hello Walter
Dissregard above post it was my mistake. The code works just fine. The problem was in my file.
I really appriciate your effort
Oded