OpenCASCADE: Set the name of a TopoDS_Shape in a .step file

setname.cpp

#include <STEPControl_Writer.hxx>
#include <STEPConstruct.hxx>
#include <XSControl_WorkSession.hxx>
#include <XSControl_TransferWriter.hxx>
#include <StepRepr_RepresentationItem.hxx>
#include <TCollection_HAsciiString.hxx>

/** Set the name of a TopoDS_Shape in a .step file */
void setName(STEPControl_Writer & writer, const TopoDS_Shape & shape, const char * name) {
  auto fp = writer.WS()->TransferWriter()->FinderProcess();
  auto repr = STEPConstruct::FindEntity(fp, shape);
  repr->SetName(new TCollection_HAsciiString(name));
}