Set 3D Pipe Description attribute from Parent LineID

Compute pipe description from Parent LineID description (linear price)  + Pipe length computation

/* PipeOcc   : Piping_Pipe_Occurence  */

let inst(VPMInstance)
let ref(VPMReference)

let pip(Piping_Pipe)
let PipeLength(LENGTH)
let EquipedPipeMass(Real)
let PipeDescString(String)

let LineIDInst(Piping_Line_Inst)
let LineID(Piping_Line)
let LineIDDesc(String)
let PipeLineMass(Real)


//set PipingPartOcc = ThisObject
ref = PipeOcc.Reference


//Retreive PipeLength
set pip=ref
PipeLength=pip.V_Length  
//retreive Linear Price on Parent lineID description attribute
LineIDInst=PipeOcc.GetLineIDObject()
set LineID=LineIDInst.Reference
LineIDDesc=LineID.V_description
//PipeLineMass=LineIDDesc.ToReal()*1kg
PipeLineMass=LineIDDesc.ToReal()
//compute mass
If (LineIDDesc<>"")
{
                set EquipedPipeMass=PipeLineMass*PipeLength*1000mm
                set PipeDescString=ToString(EquipedPipeMass)
                pip.V_description=PipeDescString + " Kg"
}