From: vro <vro@opencascade.com>
Date: Thu, 17 Feb 2022 05:35:26 +0000 (+0300)
Subject: 0032840: Application Framework, copying of a scaled shape fails
X-Git-Tag: V7_7_0_beta~169
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=8dee83b0f34237ace6e0d45caab468751a37b148;p=occt.git

0032840: Application Framework, copying of a scaled shape fails

A flag not to raise an exception is set for a copying shape. A reason: if a shape is already in the model, the user should have an opportunity to copy it.

Modified files:
TNaming_CopyShape.cxx, the method Translate(). A false-flag is used on copying of location of the shape.
---

diff --git a/src/TNaming/TNaming_CopyShape.cxx b/src/TNaming/TNaming_CopyShape.cxx
index 75da8c2afc..4ebb16a607 100644
--- a/src/TNaming/TNaming_CopyShape.cxx
+++ b/src/TNaming/TNaming_CopyShape.cxx
@@ -128,7 +128,7 @@ void TNaming_CopyShape::Translate( const TopoDS_Shape& aShape,
   }
   
   aResult.Orientation(aShape.Orientation());
-  aResult.Location(TNaming_CopyShape::Translate(aShape.Location(), aMap));
+  aResult.Location(TNaming_CopyShape::Translate(aShape.Location(), aMap), false);
   TrTool->UpdateShape(aShape,aResult);
 // #ifdef OCCT_DEBUG
 //     if(fShar) {