ASAM-ODS Unit definition

Question

Hello,
I'm creating a file converter that should fit the ASAM-ODS standard.
I'm using the advanced "Storage/Data plugin" vis, From the File I/O palette. For now my test are based on creating an ATF file on my computer. Later on the Oracle Server with the asam-ods database.
The *.atf files I create can be read from "Diadem" and "AVL Concerto" too. 
The problem i'm having is the association of a unit (rUnit) to my "MeasurementQuanties". I've understand that i have to pass a reference to the unit 
INSTELEM MeasurementQuantity
Id = 67;
iName = "P_CV_CEE";
rMeasurement = 3;
rUnit = UNDEFINED;
rQuantity = UNDEFINED;
iDataType = "DT_FLOAT";
iDescription = UNDEFINED;
iSize = UNDEFINED;
iSystemName = UNDEFINED;
iChannelMode = UNDEFINED;
iInterpolationMode = UNDEFINED;
iDelayTime = UNDEFINED;
iDeadband = UNDEFINED;
iLocalName = UNDEFINED;
LocalColumn = 67;
ENDINSTELEM;
INSTELEM Unit
Id = 45;
iName = "hhmmss";
rPhysicalDimension = 35;
iGain = 1.;
iOffset = 0.;
iSystemName = "hhmmss";
iUser = "AlmaAutomotive";
iProject = "Common";
iLastUpdate = "20100304183325000000000";
MeasurementQuantity = UNDEFINED;
quantities = UNDEFINED;
ENDINSTELEM;
I have to change the rUnit = UNDEFINED to something similar to rUnit = UnitID
Any help is appreciated! 
Solved!
Go to Solution.

Answer 1

Hi Davide,
There are two cases to consider:
1) The unit you want to assign does not yet exist and has to be added to the unit catalog
2) The unit you want to assign already exists in the unit catalog
Here is some VBScript code that shows the main actions that need to happen.  In your case you already have the "Channel" references as your light green MeasurementQuantity reference array.
' determine subtypes of aounit and aophysicaldimension
dim unitEntity : set unitEntity = store.Model.Entities("aounit").SubTypes(1)
dim physdimEntity : set physdimEntity = store.Model.Entities("aophysicaldimension").SubTypes(1)
' I: unit does not exist and we have to create it in the unit catalog
dim channel : set channel = store.GetElementList("tdm_channel", "name=ch1", 1).Item(1)
dim mPhysDim : set mPhysDim = store.CreateElement(physdimEntity, "m")
mPhysDim.Properties("length_exp").Value = 1
mPhysDim.Properties("mass_exp").Value = 0
mPhysDim.Properties("time_exp").Value = 0
mPhysDim.Properties("current_exp").Value = 0
mPhysDim.Properties("temperature_exp").Value = 0
mPhysDim.Properties("molar_amount_exp").Value = 0
mPhysDim.Properties("luminous_intensity_exp").Value = 0
dim cmUnit : set cmUnit = store.CreateElement(unitEntity, "mm")
cmUnit.Properties("factor").Value = 0.001
cmUnit.Properties("offset").Value = 0
cmUnit.References("phys_dimension").Elements.AddReference(mPhysDim)
' now we have created the unit and can add it to the channel
channel.References("unit").Elements.AddReference(cmUnit)
store.Save
' II: Query the unit already added in case I
dim channel2 : set channel2 = store.GetElementList("tdm_channel", "name=ch2", 1).Item(1)
dim unitEntityName : unitEntityName = store.Model.Entities("aounit").SubTypes(1).Name
dim myUnit : set myUnit = store.GetElementList(unitEntityName, "name=mm",1).Item(1)
channel2.References("unit").Elements.AddReference(myUnit)
store.Save
Brad Turpin
DIAdem Product Support Engineer
National Instruments