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 <XCAFDimTolObjects_GeomToleranceObject.hxx>
33 ChildLab_ValueOfZoneModif,
35 ChildLab_aMaxValueModif,
41 //=======================================================================
42 //function : XCAFDoc_GeomTolerance
44 //=======================================================================
46 XCAFDoc_GeomTolerance::XCAFDoc_GeomTolerance()
51 //=======================================================================
54 //=======================================================================
56 const Standard_GUID& XCAFDoc_GeomTolerance::GetID()
58 static Standard_GUID DGTID ("58ed092f-44de-11d8-8776-001083004c77");
59 //static Standard_GUID ID("efd212e9-6dfd-11d4-b9c8-0060b0ee281b");
64 //=======================================================================
67 //=======================================================================
69 Handle(XCAFDoc_GeomTolerance) XCAFDoc_GeomTolerance::Set (const TDF_Label& theLabel)
71 Handle(XCAFDoc_GeomTolerance) A;
72 if (!theLabel.FindAttribute(XCAFDoc_GeomTolerance::GetID(), A)) {
73 A = new XCAFDoc_GeomTolerance();
74 theLabel.AddAttribute(A);
79 //=======================================================================
80 //function : SetObject
82 //=======================================================================
84 void XCAFDoc_GeomTolerance::SetObject (const Handle(XCAFDimTolObjects_GeomToleranceObject)& theObject)
88 //Label().ForForgetAllAttributes();
89 TDF_ChildIterator anIter(Label());
90 for(;anIter.More(); anIter.Next())
92 anIter.Value().ForgetAllAttributes();
95 Handle(TDataStd_Integer) aType = new TDataStd_Integer();
96 aType->Set(theObject->GetType());
97 Label().FindChild(ChildLab_Type).AddAttribute(aType);
99 if(theObject->GetTypeOfValue() != XCAFDimTolObjects_GeomToleranceTypeValue_None)
101 Handle(TDataStd_Integer) aTypeOfValue = new TDataStd_Integer();
102 aTypeOfValue->Set(theObject->GetTypeOfValue());
103 Label().FindChild(ChildLab_TypeOfValue).AddAttribute(aTypeOfValue);
106 Handle(TDataStd_Real) aValue = new TDataStd_Real();
107 aValue->Set(theObject->GetValue());
108 Label().FindChild(ChildLab_Value).AddAttribute(aValue);
110 Handle(TDataStd_Integer) aMatReqModif;
111 if(theObject->GetMaterialRequirementModifier() != XCAFDimTolObjects_GeomToleranceMatReqModif_None)
113 Label().FindChild(ChildLab_MatReqModif).FindAttribute(TDataStd_Integer::GetID(), aMatReqModif);
114 aMatReqModif = new TDataStd_Integer();
115 Label().FindChild(ChildLab_MatReqModif).AddAttribute(aMatReqModif);
116 aMatReqModif->Set(theObject->GetMaterialRequirementModifier());
119 if(theObject->GetZoneModifier() != XCAFDimTolObjects_GeomToleranceZoneModif_None)
121 Handle(TDataStd_Integer) aZoneModif = new TDataStd_Integer();
122 aZoneModif->Set(theObject->GetZoneModifier());
123 Label().FindChild(ChildLab_ZoneModif).AddAttribute(aZoneModif);
126 if(theObject->GetValueOfZoneModifier() > 0)
128 Handle(TDataStd_Real) aValueOfZoneModif = new TDataStd_Real();
129 aValueOfZoneModif->Set(theObject->GetValueOfZoneModifier());
130 Label().FindChild(ChildLab_ValueOfZoneModif).AddAttribute(aValueOfZoneModif);
133 if(theObject->GetModifiers().Length() > 0)
135 Handle(TDataStd_IntegerArray) aModifiers = new TDataStd_IntegerArray();
136 Handle(TColStd_HArray1OfInteger) anArr = new TColStd_HArray1OfInteger(1,theObject->GetModifiers().Length());
137 for(Standard_Integer i = 1; i <= theObject->GetModifiers().Length(); i++)
138 anArr->SetValue(i,theObject->GetModifiers().Value(i));
139 aModifiers->ChangeArray(anArr);
140 Label().FindChild(ChildLab_Modifiers).AddAttribute(aModifiers);
143 if(theObject->GetMaxValueModifier() > 0)
145 Handle(TDataStd_Real) aMaxValueModif = new TDataStd_Real();
146 aMaxValueModif->Set(theObject->GetMaxValueModifier());
147 Label().FindChild(ChildLab_aMaxValueModif).AddAttribute(aMaxValueModif);
150 if(theObject->HasAxis())
152 Handle(TDataStd_RealArray) aLoc = new TDataStd_RealArray();
153 Handle(TDataStd_RealArray) aN = new TDataStd_RealArray();
154 Handle(TDataStd_RealArray) aR = new TDataStd_RealArray();
155 gp_Ax2 anAx = theObject->GetAxis();
157 Handle(TColStd_HArray1OfReal) aLocArr = new TColStd_HArray1OfReal(1, 3);
158 for (Standard_Integer i = 1; i <= 3; i++)
159 aLocArr->SetValue(i, anAx.Location().Coord(i));
160 aLoc->ChangeArray(aLocArr);
162 Handle(TColStd_HArray1OfReal) aNArr = new TColStd_HArray1OfReal(1, 3);
163 for (Standard_Integer i = 1; i <= 3; i++)
164 aNArr->SetValue(i, anAx.Direction().Coord(i));
165 aN->ChangeArray(aNArr);
167 Handle(TColStd_HArray1OfReal) aRArr = new TColStd_HArray1OfReal(1, 3);
168 for (Standard_Integer i = 1; i <= 3; i++)
169 aRArr->SetValue(i, anAx.XDirection().Coord(i));
170 aR->ChangeArray(aRArr);
172 Label().FindChild(ChildLab_AxisLoc).AddAttribute(aLoc);
173 Label().FindChild(ChildLab_AxisN).AddAttribute(aN);
174 Label().FindChild(ChildLab_AxisRef).AddAttribute(aR);
178 //=======================================================================
179 //function :GetObject
181 //=======================================================================
183 Handle(XCAFDimTolObjects_GeomToleranceObject) XCAFDoc_GeomTolerance::GetObject() const
185 Handle(XCAFDimTolObjects_GeomToleranceObject) anObj = new XCAFDimTolObjects_GeomToleranceObject();
187 Handle(TDataStd_Integer) aType;
188 if(Label().FindChild(ChildLab_Type).FindAttribute(TDataStd_Integer::GetID(), aType))
190 anObj->SetType((XCAFDimTolObjects_GeomToleranceType)aType->Get());
193 Handle(TDataStd_Integer) aTypeOfValue;
194 if(Label().FindChild(ChildLab_TypeOfValue).FindAttribute(TDataStd_Integer::GetID(), aTypeOfValue))
196 anObj->SetTypeOfValue((XCAFDimTolObjects_GeomToleranceTypeValue)aTypeOfValue->Get());
199 Handle(TDataStd_Real) aValue;
200 if(Label().FindChild(ChildLab_Value).FindAttribute(TDataStd_Real::GetID(), aValue))
202 anObj->SetValue(aValue->Get());
205 Handle(TDataStd_Integer) aMatReqModif;
206 if(Label().FindChild(ChildLab_MatReqModif).FindAttribute(TDataStd_Integer::GetID(), aMatReqModif))
208 anObj->SetMaterialRequirementModifier((XCAFDimTolObjects_GeomToleranceMatReqModif)aMatReqModif->Get());
211 Handle(TDataStd_Integer) aZoneModif;
212 if(Label().FindChild(ChildLab_ZoneModif).FindAttribute(TDataStd_Integer::GetID(), aZoneModif))
214 anObj->SetZoneModifier((XCAFDimTolObjects_GeomToleranceZoneModif)aZoneModif->Get());
217 Handle(TDataStd_Real) aValueOfZoneModif;
218 if(Label().FindChild(ChildLab_ValueOfZoneModif).FindAttribute(TDataStd_Real::GetID(), aValueOfZoneModif))
220 anObj->SetValueOfZoneModifier(aValueOfZoneModif->Get());
223 Handle(TDataStd_IntegerArray) anArr;
224 if(Label().FindChild(ChildLab_Modifiers).FindAttribute(TDataStd_IntegerArray::GetID(), anArr)
225 && !anArr->Array().IsNull())
227 XCAFDimTolObjects_GeomToleranceModifiersSequence aModifiers;
228 for(Standard_Integer i = 1; i <= anArr->Length(); i++)
229 aModifiers.Append((XCAFDimTolObjects_GeomToleranceModif)anArr->Value(i));
230 anObj->SetModifiers(aModifiers);
233 Handle(TDataStd_Real) aMaxValueModif;
234 if(Label().FindChild(ChildLab_aMaxValueModif).FindAttribute(TDataStd_Real::GetID(), aMaxValueModif))
236 anObj->SetMaxValueModifier(aMaxValueModif->Get());
239 Handle(TDataStd_RealArray) aLoc;
240 Handle(TDataStd_RealArray) aN;
241 Handle(TDataStd_RealArray) aR;
242 if(Label().FindChild(ChildLab_AxisLoc).FindAttribute(TDataStd_RealArray::GetID(), aLoc) && aLoc->Length() == 3 &&
243 Label().FindChild(ChildLab_AxisN).FindAttribute(TDataStd_RealArray::GetID(), aN) && aN->Length() == 3 &&
244 Label().FindChild(ChildLab_AxisRef).FindAttribute(TDataStd_RealArray::GetID(), aR) && aR->Length() == 3 )
246 gp_Pnt aL(aLoc->Value(aLoc->Lower()), aLoc->Value(aLoc->Lower()+1), aLoc->Value(aLoc->Lower()+2));
247 gp_Dir aD(aN->Value(aN->Lower()), aN->Value(aN->Lower()+1), aN->Value(aN->Lower()+2));
248 gp_Dir aDR(aR->Value(aR->Lower()), aR->Value(aR->Lower()+1), aR->Value(aR->Lower()+2));
249 gp_Ax2 anAx(aL, aD, aDR);
250 anObj->SetAxis(anAx);
255 //=======================================================================
258 //=======================================================================
260 const Standard_GUID& XCAFDoc_GeomTolerance::ID() const
265 //=======================================================================
268 //=======================================================================
270 void XCAFDoc_GeomTolerance::Restore(const Handle(TDF_Attribute)& /*With*/)
275 //=======================================================================
276 //function : NewEmpty
278 //=======================================================================
280 Handle(TDF_Attribute) XCAFDoc_GeomTolerance::NewEmpty() const
282 return new XCAFDoc_GeomTolerance();
286 //=======================================================================
289 //=======================================================================
291 void XCAFDoc_GeomTolerance::Paste(const Handle(TDF_Attribute)& /*Into*/,
292 const Handle(TDF_RelocationTable)& /*RT*/) const