1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 // This file is part of Open CASCADE Technology software library.
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
14 #include <XCAFDoc_GeomTolerance.hxx>
16 #include <TDF_RelocationTable.hxx>
17 #include <TDF_ChildIterator.hxx>
18 #include <XCAFDoc.hxx>
19 #include <TDataStd_TreeNode.hxx>
20 #include <TDataStd_Integer.hxx>
21 #include <TDataStd_IntegerArray.hxx>
22 #include <TDataStd_RealArray.hxx>
23 #include <TDataStd_Real.hxx>
24 #include <TDataXtd_Geometry.hxx>
25 #include <TDataXtd_Plane.hxx>
26 #include <TDataXtd_Point.hxx>
27 #include <XCAFDimTolObjects_GeomToleranceObject.hxx>
28 #include <TNaming_Tool.hxx>
29 #include <TNaming_Builder.hxx>
30 #include <TCollection_ExtendedString.hxx>
31 #include <TDataStd_Name.hxx>
33 IMPLEMENT_STANDARD_RTTIEXT(XCAFDoc_GeomTolerance,TDF_Attribute)
42 ChildLab_ValueOfZoneModif,
44 ChildLab_aMaxValueModif,
49 ChildLab_Presentation,
50 ChildLab_AffectedPlane
53 //=======================================================================
54 //function : XCAFDoc_GeomTolerance
56 //=======================================================================
58 XCAFDoc_GeomTolerance::XCAFDoc_GeomTolerance()
63 //=======================================================================
66 //=======================================================================
68 const Standard_GUID& XCAFDoc_GeomTolerance::GetID()
70 static Standard_GUID DGTID ("58ed092f-44de-11d8-8776-001083004c77");
71 //static Standard_GUID ID("efd212e9-6dfd-11d4-b9c8-0060b0ee281b");
76 //=======================================================================
79 //=======================================================================
81 Handle(XCAFDoc_GeomTolerance) XCAFDoc_GeomTolerance::Set (const TDF_Label& theLabel)
83 Handle(XCAFDoc_GeomTolerance) A;
84 if (!theLabel.FindAttribute(XCAFDoc_GeomTolerance::GetID(), A)) {
85 A = new XCAFDoc_GeomTolerance();
86 theLabel.AddAttribute(A);
91 //=======================================================================
92 //function : SetObject
94 //=======================================================================
96 void XCAFDoc_GeomTolerance::SetObject (const Handle(XCAFDimTolObjects_GeomToleranceObject)& theObject)
100 //Label().ForForgetAllAttributes();
101 TDF_ChildIterator anIter(Label());
102 for(;anIter.More(); anIter.Next())
104 anIter.Value().ForgetAllAttributes();
107 Handle(TDataStd_Integer) aType = TDataStd_Integer::Set(Label().FindChild(ChildLab_Type), theObject->GetType());
109 if(theObject->GetTypeOfValue() != XCAFDimTolObjects_GeomToleranceTypeValue_None)
110 Handle(TDataStd_Integer) aTypeOfValue = TDataStd_Integer::Set(Label().FindChild(ChildLab_TypeOfValue),
111 theObject->GetTypeOfValue());
113 Handle(TDataStd_Real) aValue = TDataStd_Real::Set(Label().FindChild(ChildLab_Value), theObject->GetValue());
115 Handle(TDataStd_Integer) aMatReqModif;
116 if(theObject->GetMaterialRequirementModifier() != XCAFDimTolObjects_GeomToleranceMatReqModif_None)
117 aMatReqModif = TDataStd_Integer::Set(Label().FindChild(ChildLab_MatReqModif),
118 theObject->GetMaterialRequirementModifier());
120 if(theObject->GetZoneModifier() != XCAFDimTolObjects_GeomToleranceZoneModif_None)
121 Handle(TDataStd_Integer) aZoneModif = TDataStd_Integer::Set(Label().FindChild(ChildLab_ZoneModif),
122 theObject->GetZoneModifier());
124 if(theObject->GetValueOfZoneModifier() > 0)
125 Handle(TDataStd_Real) aValueOfZoneModif = TDataStd_Real::Set(Label().FindChild(ChildLab_ValueOfZoneModif),
126 theObject->GetValueOfZoneModifier());
128 if(theObject->GetModifiers().Length() > 0)
130 Handle(TColStd_HArray1OfInteger) anArr = new TColStd_HArray1OfInteger(1,theObject->GetModifiers().Length());
131 for(Standard_Integer i = 1; i <= theObject->GetModifiers().Length(); i++)
132 anArr->SetValue(i,theObject->GetModifiers().Value(i));
133 Handle(TDataStd_IntegerArray) aModifiers = TDataStd_IntegerArray::Set(Label().FindChild(ChildLab_Modifiers),
134 1, theObject->GetModifiers().Length());
135 if(!aModifiers.IsNull())
136 aModifiers->ChangeArray(anArr);
139 if(theObject->GetMaxValueModifier() > 0)
140 Handle(TDataStd_Real) aMaxValueModif = TDataStd_Real::Set(Label().FindChild(ChildLab_aMaxValueModif),
141 theObject->GetMaxValueModifier());
143 if (theObject->HasAxis())
145 TDataXtd_Plane::Set(Label().FindChild(ChildLab_Axis), gp_Pln(gp_Ax3(theObject->GetPlane())));
148 if (theObject->HasPlane())
150 TDataXtd_Plane::Set(Label().FindChild(ChildLab_Plane), gp_Pln(gp_Ax3(theObject->GetPlane())));
153 if (theObject->HasPoint())
155 TDataXtd_Point::Set(Label().FindChild(ChildLab_Pnt), theObject->GetPoint());
158 if (theObject->HasPointText())
160 TDataXtd_Point::Set(Label().FindChild(ChildLab_PntText), theObject->GetPointTextAttach());
163 TopoDS_Shape aPresentation = theObject->GetPresentation();
164 if( !aPresentation.IsNull())
166 TDF_Label aLPres = Label().FindChild( ChildLab_Presentation);
167 TNaming_Builder tnBuild(aLPres);
168 tnBuild.Generated(aPresentation);
169 Handle(TCollection_HAsciiString) aName = theObject->GetPresentationName();
170 if( !aName.IsNull() )
172 TCollection_ExtendedString str ( aName->String() );
173 TDataStd_Name::Set ( aLPres, str );
177 if (theObject->HasAffectedPlane())
179 TDF_Label aLAffectedPlane = Label().FindChild(ChildLab_AffectedPlane);
180 TDataStd_Integer::Set(aLAffectedPlane, (Standard_Integer)theObject->GetAffectedPlaneType());
181 TDataXtd_Plane::Set(aLAffectedPlane, theObject->GetAffectedPlane());
185 //=======================================================================
186 //function :GetObject
188 //=======================================================================
190 Handle(XCAFDimTolObjects_GeomToleranceObject) XCAFDoc_GeomTolerance::GetObject() const
192 Handle(XCAFDimTolObjects_GeomToleranceObject) anObj = new XCAFDimTolObjects_GeomToleranceObject();
194 Handle(TDataStd_Integer) aType;
195 if(Label().FindChild(ChildLab_Type).FindAttribute(TDataStd_Integer::GetID(), aType))
197 anObj->SetType((XCAFDimTolObjects_GeomToleranceType)aType->Get());
200 Handle(TDataStd_Integer) aTypeOfValue;
201 if(Label().FindChild(ChildLab_TypeOfValue).FindAttribute(TDataStd_Integer::GetID(), aTypeOfValue))
203 anObj->SetTypeOfValue((XCAFDimTolObjects_GeomToleranceTypeValue)aTypeOfValue->Get());
206 Handle(TDataStd_Real) aValue;
207 if(Label().FindChild(ChildLab_Value).FindAttribute(TDataStd_Real::GetID(), aValue))
209 anObj->SetValue(aValue->Get());
212 Handle(TDataStd_Integer) aMatReqModif;
213 if(Label().FindChild(ChildLab_MatReqModif).FindAttribute(TDataStd_Integer::GetID(), aMatReqModif))
215 anObj->SetMaterialRequirementModifier((XCAFDimTolObjects_GeomToleranceMatReqModif)aMatReqModif->Get());
218 Handle(TDataStd_Integer) aZoneModif;
219 if(Label().FindChild(ChildLab_ZoneModif).FindAttribute(TDataStd_Integer::GetID(), aZoneModif))
221 anObj->SetZoneModifier((XCAFDimTolObjects_GeomToleranceZoneModif)aZoneModif->Get());
224 Handle(TDataStd_Real) aValueOfZoneModif;
225 if(Label().FindChild(ChildLab_ValueOfZoneModif).FindAttribute(TDataStd_Real::GetID(), aValueOfZoneModif))
227 anObj->SetValueOfZoneModifier(aValueOfZoneModif->Get());
230 Handle(TDataStd_IntegerArray) anArr;
231 if(Label().FindChild(ChildLab_Modifiers).FindAttribute(TDataStd_IntegerArray::GetID(), anArr)
232 && !anArr->Array().IsNull())
234 XCAFDimTolObjects_GeomToleranceModifiersSequence aModifiers;
235 for(Standard_Integer i = 1; i <= anArr->Length(); i++)
236 aModifiers.Append((XCAFDimTolObjects_GeomToleranceModif)anArr->Value(i));
237 anObj->SetModifiers(aModifiers);
240 Handle(TDataStd_Real) aMaxValueModif;
241 if(Label().FindChild(ChildLab_aMaxValueModif).FindAttribute(TDataStd_Real::GetID(), aMaxValueModif))
243 anObj->SetMaxValueModifier(aMaxValueModif->Get());
246 Handle(TDataXtd_Plane) anAxisAttr;
247 if (Label().FindChild(ChildLab_Axis).FindAttribute(TDataXtd_Plane::GetID(), anAxisAttr))
250 TDataXtd_Geometry::Plane(anAxisAttr->Label(), aPlane);
251 gp_Ax2 anAx(aPlane.Location(), aPlane.Axis().Direction(), aPlane.XAxis().Direction());
252 anObj->SetAxis(anAx);
255 Handle(TDataXtd_Plane) aPlaneAttr;
256 if (Label().FindChild(ChildLab_Plane).FindAttribute(TDataXtd_Plane::GetID(), aPlaneAttr))
259 TDataXtd_Geometry::Plane(aPlaneAttr->Label(), aPlane);
260 gp_Ax2 anAx(aPlane.Location(), aPlane.Axis().Direction(), aPlane.XAxis().Direction());
261 anObj->SetPlane(anAx);
264 Handle(TDataXtd_Point) aPntAttr;
265 if (Label().FindChild(ChildLab_Pnt).FindAttribute(TDataXtd_Point::GetID(), aPntAttr))
268 TDataXtd_Geometry::Point(aPntAttr->Label(), aPoint);
269 anObj->SetPoint(aPoint);
272 Handle(TDataXtd_Point) aPntTextAttr;
273 if (Label().FindChild(ChildLab_PntText).FindAttribute(TDataXtd_Point::GetID(), aPntTextAttr))
276 TDataXtd_Geometry::Point(aPntTextAttr->Label(), aPoint);
277 anObj->SetPointTextAttach(aPoint);
280 Handle(TNaming_NamedShape) aNS;
281 TDF_Label aLPres = Label().FindChild( ChildLab_Presentation);
282 if ( aLPres.FindAttribute(TNaming_NamedShape::GetID(), aNS) )
285 TopoDS_Shape aPresentation = TNaming_Tool::GetShape(aNS);
286 if( !aPresentation.IsNull())
288 Handle(TDataStd_Name) aNameAtrr;
289 Handle(TCollection_HAsciiString) aPresentName;
290 if (aLPres.FindAttribute(TDataStd_Name::GetID(),aNameAtrr))
292 const TCollection_ExtendedString& aName = aNameAtrr->Get();
294 if( !aName.IsEmpty())
295 aPresentName = new TCollection_HAsciiString(aName);
298 anObj->SetPresentation(aPresentation, aPresentName);
302 Handle(TDataXtd_Plane) anAffectedPlaneAttr;
303 if (Label().FindChild(ChildLab_AffectedPlane).FindAttribute(TDataXtd_Plane::GetID(), anAffectedPlaneAttr))
306 TDataXtd_Geometry::Plane(anAffectedPlaneAttr->Label(), aPlane);
307 Handle(TDataStd_Integer) aTypeAttr;
308 Label().FindChild(ChildLab_AffectedPlane).FindAttribute(TDataStd_Integer::GetID(), aTypeAttr);
309 anObj->SetAffectedPlane(aPlane, (XCAFDimTolObjects_ToleranceZoneAffectedPlane)aTypeAttr->Get());
315 //=======================================================================
318 //=======================================================================
320 const Standard_GUID& XCAFDoc_GeomTolerance::ID() const
325 //=======================================================================
328 //=======================================================================
330 void XCAFDoc_GeomTolerance::Restore(const Handle(TDF_Attribute)& /*With*/)
335 //=======================================================================
336 //function : NewEmpty
338 //=======================================================================
340 Handle(TDF_Attribute) XCAFDoc_GeomTolerance::NewEmpty() const
342 return new XCAFDoc_GeomTolerance();
346 //=======================================================================
349 //=======================================================================
351 void XCAFDoc_GeomTolerance::Paste(const Handle(TDF_Attribute)& /*Into*/,
352 const Handle(TDF_RelocationTable)& /*RT*/) const