STEPCAFControl_Writer will not export shape with Identity Location if there are other partner shapes with diff Location.

const Handle(ADVOCCT_OCAFApplication)& aApplication = getGlobalApplication();
Handle(TDocStd_Document) aXCAFDocument;
aApplication->NewDocument("BinXCAF", aXCAFDocument);
XCAFDoc_DocumentTool::Set(aXCAFDocument->Main());
Handle(XCAFDoc_ShapeTool) aShapeTool = XCAFDoc_DocumentTool::ShapeTool(aXCAFDocument->Main());
Handle(XCAFDoc_ColorTool) aColorTool = XCAFDoc_DocumentTool::ColorTool(aXCAFDocument->Main());

for(auto aIter= theGlobalObjectList; aIter->More(); aIter->Next())
{
     TDF_Label aNewShape = aShapeTool->AddShape(aIter->Shape(), Standard_False, Standard_False);
     Quantity_Color aColor(Quantity_NameOfColor(aIter->ColorLive()));
     aColorTool->SetColor(aNewShape, aColor, XCAFDoc_ColorGen);
     TDataStd_Name::Set(aNewShape, aIter->Name());
}

// Write out
STEPCAFControl_Writer aXCAFWriter;
aXCAFWriter.SetNameMode(Standard_True);
aXCAFWriter.SetColorMode(Standard_True);
aXCAFWriter.Transfer(aXCAFDocument);
aXCAFWriter.Write(theFilePath);
aApplication->Close(aXCAFDocument);