+#if OCC_VERSION_LARGE >= 0x07070000
+ Interface_Static::SetCVal("write.iges.unit", "M");
+ XSAlgo::AlgoContainer()->PrepareForTransfer(); // update unit info
+ Standard_Real aScaleFactorMM = UnitsMethods::GetCasCadeLengthUnit();
+ ICW.Model()->ChangeGlobalSection().SetCascadeUnit(aScaleFactorMM);
+#endif
+