Dim oThickness As Double = Round(Thickness, 1)
Dim oLength As Double = Round(SheetMetal.FlatExtentsLength, 0)
Dim oWidth As Double = Round(SheetMetal.FlatExtentsWidth, 0)
iProperties.Value("Custom", "Thickness") = oThickness
iProperties.Value("Custom", "Panjang") = oLength
iProperties.Value("Custom", "Lebar") = oWidth
iProperties.Value("Custom", "Description") = iProperties.Material & ", " & oThickness & " x " & oLength & " x " & oWidth & " mm"
iProperties.Value("Project", "Description") = "=<Material>, <Thickness> x <Panjang> x <Lebar> mm"