src / XCAFDoc / XCAFDoc_ShapeTool.hxx
//! Sets new location to the shape

 src / XCAFDoc / XCAFDoc_ShapeTool.cxx
+  Standard_EXPORT Standard_Boolean SetLocation (const TDF_Label& theShapeLabel, const TopLoc_Location& theLoc, TDF_Label& theRefLabel);
 src / XCAFDoc / XCAFDoc_ShapeTool.cxx
+Standard_Boolean XCAFDoc_ShapeTool::SetLocation (const TDF_Label& theShapeLabel, const TopLoc_Location& theLoc, TDF_Label& theRefLabel)

+//=======================================================================
+// function : SetLocation
+// purpose  :
+//=======================================================================
+
+Standard_Boolean XCAFDoc_ShapeTool::SetLocation (const TDF_Label& theShapeLabel, const TopLoc_Location& theLoc, TDF_Label& theRefLabel)

src / XCAFDoc / XCAFDoc_ShapeTool.cxx
+  // if input label is reference -> just change the location attribute
+  // if input label is shape, and it is free -> create reference to the shape

src / XDEDRAW / XDEDRAW_Shapes.cxx
+static Standard_Boolean parseXYZ (const char** theArgVec, gp_XYZ& thePnt)
+
+static Standard_Integer setLocation (Draw_Interpretor& theDI, Standard_Integer theArgNb, const char** theArgVec)

+
+  di.Add ("XSetLocation", R"(
+Doc Label transformation [transformation ... ]
+Applies given complex transformation to the shape at Label from Document.
+The label may contain a reference to a shape, an assembly or simple shape.
+The assembly or simple shape should not be referred by any reference.
+Transformations:
+  '-move x y z'                     - move shape
+  '-rotate x y z dx dy dz angle'    - rotate shape
+  '-scale [x y z] factor'           - scale shape
+Transformations are applied from left to right.
+There can be more than one transformation of the same type.
+At least one transformation must be specified.
+)"
+          __FILE__, setLocation, g);

+)"
+          __FILE__,

const TCollection_AsciiString anXYZ

+  if (!anXYZ[0].IsRealValue (Standard_True)
+  || !anXYZ[1].IsRealValue (Standard_True)
+  || !anXYZ[2].IsRealValue (Standard_True))
+  {
+    return Standard_False;
+  }

+    Message::SendFail() << "Error: not enough arguments, see help " << theArgVec[0] << " for details\n";
+    Message::SendFail() << "Error: " << theArgVec[1] << " is not a document\n";
+    Message::SendFail() << "Error: no such Label: " << theArgVec[2] << "\n";

+    if (aShapeLabel == aRefLabel)
+    {
+      Message::SendInfo() << "New location was set";
+    }
+    else
+    {
+      TCollection_AsciiString aLabelStr;
+      TDF_Tool::Entry(aRefLabel, aLabelStr);
+      Message::SendInfo() << "Reference to the shape at label " << aLabelStr << " was created and location was set";
+    }