1 // Copyright (c) 1999-2012 OPEN CASCADE SAS
3 // The content of this file is subject to the Open CASCADE Technology Public
4 // License Version 6.5 (the "License"). You may not use the content of this file
5 // except in compliance with the License. Please obtain a copy of the License
6 // at http://www.opencascade.org and read it completely before using this file.
8 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
9 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
11 // The Original Code and all software distributed under the License is
12 // distributed on an "AS IS" basis, without warranty of any kind, and the
13 // Initial Developer hereby disclaims all such warranties, including without
14 // limitation, any warranties of merchantability, fitness for a particular
15 // purpose or non-infringement. Please see the License for the specific terms
16 // and conditions governing the rights and limitations under the License.
18 //#58 rln 28.12.98 changing default values for Global Section
19 //sln 14.01.2002 OCC51 : verifying whether entry model of method ActorRead is IGESDatat_IGESModel
21 #include <IGESControl_Controller.ixx>
22 #include <IGESSelect_WorkLibrary.hxx>
23 #include <IGESToBRep_Actor.hxx>
24 #include <IGESData_IGESModel.hxx>
25 #include <IGESSolid.hxx>
26 #include <IGESAppli.hxx>
28 #include <Interface_Static.hxx>
29 #include <IGESSelect_AutoCorrect.hxx>
30 #include <IGESSelect_ComputeStatus.hxx>
31 #include <IGESSelect_UpdateFileName.hxx>
32 #include <IGESSelect_SetGlobalParameter.hxx>
33 #include <IGESSelect_FloatFormat.hxx>
34 #include <IGESSelect_SelectBypassGroup.hxx>
35 #include <IGESSelect_SelectBypassSubfigure.hxx>
36 #include <IGESSelect_SelectBasicGeom.hxx>
37 #include <IGESSelect_SelectFaces.hxx>
38 #include <IGESSelect_SelectPCurves.hxx>
39 #include <IGESSelect_SelectVisibleStatus.hxx>
40 #include <IGESSelect_SelectSubordinate.hxx>
41 #include <IFSelect_SelectType.hxx>
42 #include <IGESBasic_SubfigureDef.hxx>
43 #include <IGESSelect_IGESTypeForm.hxx>
44 #include <IGESSelect_SignStatus.hxx>
45 #include <IGESSelect_SignLevelNumber.hxx>
46 #include <IGESSelect_SignColor.hxx>
47 #include <IGESSelect_IGESName.hxx>
48 #include <IFSelect_SignType.hxx>
49 #include <IFSelect_SignMultiple.hxx>
50 #include <IGESSelect_CounterOfLevelNumber.hxx>
51 #include <IFSelect_SignCounter.hxx>
52 #include <IGESSelect_EditHeader.hxx>
53 #include <IGESSelect_EditDirPart.hxx>
54 #include <IFSelect_EditForm.hxx>
55 #include <IGESSelect_RemoveCurves.hxx>
56 #include <IGESSelect_SetLabel.hxx>
58 #include <TCollection_HAsciiString.hxx>
60 #include <IGESControl_ActorWrite.hxx>
61 #include <IGESControl_AlgoContainer.hxx>
64 #include <Interface_Macros.hxx>
65 #include <IGESToBRep.hxx>
66 #include <IFSelect_SelectModelEntities.hxx>
67 #include <IFSelect_SelectModelEntities.hxx>
68 #include <IFSelect_SelectModelRoots.hxx>
69 #include <XSControl_SelectForTransfer.hxx>
71 //szv#4:S4163:12Mar99 never referenced
72 //static const Standard_CString thelong = "IGES";
73 //static const Standard_CString theshort = "iges";
75 //=======================================================================
76 //function : IGESControl_Controller
78 //=======================================================================
80 IGESControl_Controller::IGESControl_Controller (const Standard_Boolean mod)
82 : XSControl_Controller ((Standard_CString ) (mod ? "FNES" : "IGES") , (Standard_CString ) (mod ? "fnes" : "iges") ) ,
83 // : XSControl_Controller ( (mod ? "FNES" : "iges") , (mod ? "fnes" : "iges") ) ,
86 static Standard_Boolean init = Standard_False;
92 AddSessionItem (new IGESSelect_RemoveCurves(Standard_True) ,"iges-remove-pcurves");
93 AddSessionItem (new IGESSelect_RemoveCurves(Standard_False),"iges-remove-curves-3d");
94 AddSessionItem (new IGESSelect_SetLabel (0,Standard_True) ,"iges-clear-label");
95 AddSessionItem (new IGESSelect_SetLabel (1,Standard_False),"iges-set-label-dnum");
97 AddSessionItem (new IGESSelect_AutoCorrect,"iges-auto-correct","send");
98 AddSessionItem (new IGESSelect_ComputeStatus,"iges-compute-status","send");
99 Handle(IGESSelect_FloatFormat) flf = new IGESSelect_FloatFormat;
100 flf->SetDefault (12);
101 AddSessionItem (flf,"iges-float-digits-12","send");
103 // -- Sender Product Identification -- (pas un statique ...)
104 Handle(IGESSelect_SetGlobalParameter) set3 = new IGESSelect_SetGlobalParameter(3);
105 //#58 rln Handle(TCollection_HAsciiString) pa3 = new TCollection_HAsciiString("MDTV X-STEP");
106 Handle(TCollection_HAsciiString) pa3 =
107 Interface_Static::Static("write.iges.header.product")->HStringValue();
109 AddSessionItem (pa3, "iges-header-val-sender");
110 AddSessionItem (set3,"iges-header-set-sender","send");
112 AddSessionItem (new IGESSelect_UpdateFileName,"iges-update-file-name","send");
114 // -- Receiver -- Acces par Static, ajustable
115 Handle(IGESSelect_SetGlobalParameter) set12 = new IGESSelect_SetGlobalParameter(12);
116 // Handle(TCollection_HAsciiString) pa12 = new TCollection_HAsciiString("Unknown");
117 Handle(TCollection_HAsciiString) pa12 =
118 Interface_Static::Static("write.iges.header.receiver")->HStringValue();
119 set12->SetValue(pa12);
120 AddSessionItem (pa12, "iges-header-val-receiver");
121 AddSessionItem (set12,"iges-header-set-receiver","send");
123 // -- Auteur -- acces par Static (demarre par whoami), ajustable
124 Handle(IGESSelect_SetGlobalParameter) set21 = new IGESSelect_SetGlobalParameter(21);
125 // Handle(TCollection_HAsciiString) pa21 = new TCollection_HAsciiString("Unknown");
126 Handle(TCollection_HAsciiString) pa21 =
127 Interface_Static::Static("write.iges.header.author")->HStringValue();
128 set21->SetValue(pa21);
129 AddSessionItem (pa21, "iges-header-val-author");
130 AddSessionItem (set21,"iges-header-set-author","send");
132 // -- Compagnie (de l auteur) -- acces par Static, ajustable
133 Handle(IGESSelect_SetGlobalParameter) set22 = new IGESSelect_SetGlobalParameter(22);
134 // Handle(TCollection_HAsciiString) pa22 = new TCollection_HAsciiString("MATRA-DATAVISION");
135 Handle(TCollection_HAsciiString) pa22 =
136 Interface_Static::Static("write.iges.header.company")->HStringValue();
137 set22->SetValue(pa22);
138 AddSessionItem (pa22, "iges-header-val-company");
139 AddSessionItem (set22,"iges-header-set-company","send");
142 TraceStatic ("read.iges.bspline.approxd1.mode",5);
143 TraceStatic ("read.iges.bspline.continuity",5);
145 TraceStatic ("write.iges.header.receiver",2);
146 TraceStatic ("write.iges.header.author",2);
147 TraceStatic ("write.iges.header.company",2);
148 TraceStatic ("write.iges.unit",6);
149 TraceStatic ("write.iges.brep.mode",6);
151 theAdaptorLibrary = new IGESSelect_WorkLibrary(themode);
152 theAdaptorProtocol = IGESSelect_WorkLibrary::DefineProtocol();
154 Handle(IGESToBRep_Actor) anactiges = new IGESToBRep_Actor;
155 anactiges->SetContinuity(0);
156 theAdaptorRead = anactiges;
158 theAdaptorWrite = new IGESControl_ActorWrite;
160 SetModeWriteHelp (0,"Faces");
161 SetModeWriteHelp (1,"BRep");
163 void IGESControl_Controller::Customise(Handle(XSControl_WorkSession)& WS)
165 XSControl_Controller::Customise(WS);
168 // --- SELECTIONS, SIGNATURES, COMPTEURS, EDITEURS
169 // -- BypassGroup / xst-model-roots
172 //DeclareAndCast(IFSelect_Selection,xma,SessionItem("xst-model-all"));
173 Handle(IFSelect_SelectModelEntities) xma;
174 Handle(Standard_Transient) xma1 = WS->NamedItem("xst-model-all");
175 if(xma1.IsNull()) xma = new IFSelect_SelectModelEntities;
177 xma =Handle(IFSelect_SelectModelEntities)::DownCast(xma1);
178 WS->AddNamedItem ("xst-model-all",xma);
181 //DeclareAndCast(IFSelect_Selection,xmr,SessionItem("xst-model-roots"));
182 Handle(IFSelect_SelectModelRoots) xmr;
183 Handle(Standard_Transient) xmr1 = WS->NamedItem("xst-model-roots");
185 xmr = Handle(IFSelect_SelectModelRoots)::DownCast(xmr1);
187 xmr = new IFSelect_SelectModelRoots;
188 WS->AddNamedItem ("xst-model-roots",xmr);
190 // DeclareAndCast(IFSelect_Selection,xtr,SessionItem("xst-transferrable-roots"));
191 Handle(XSControl_SelectForTransfer) xtr;
192 Handle(Standard_Transient) xtr1 = WS->NamedItem("xst-transferrable-roots");
194 xtr = Handle(XSControl_SelectForTransfer)::DownCast(xtr1);
195 //st1->SetInput (slr);
197 xtr= new XSControl_SelectForTransfer;
198 xtr->SetReader (WS->TransferReader());
199 WS->AddNamedItem ("xst-transferrable-roots",xtr);
202 Handle(IGESSelect_SelectVisibleStatus) visa = new IGESSelect_SelectVisibleStatus;
204 WS->AddNamedItem ("iges-visible-roots",visa);
205 Handle(IGESSelect_SelectVisibleStatus) vist = new IGESSelect_SelectVisibleStatus;
207 WS->AddNamedItem ("iges-visible-transf-roots",vist);
208 Handle(IGESSelect_SelectVisibleStatus) blka = new IGESSelect_SelectVisibleStatus;
209 blka->SetDirect (Standard_False);
211 WS->AddNamedItem ("iges-blanked-roots",blka);
212 Handle(IGESSelect_SelectVisibleStatus) blkt = new IGESSelect_SelectVisibleStatus;
213 blkt->SetDirect (Standard_False);
215 WS->AddNamedItem ("iges-blanked-transf-roots",blkt);
216 Handle(IGESSelect_SelectSubordinate) indp = new IGESSelect_SelectSubordinate (0);
217 indp->SetInput (xma);
218 WS->AddNamedItem ("iges-status-independant",indp);
220 Handle(IGESSelect_SelectBypassGroup) sb = new IGESSelect_SelectBypassGroup;
222 WS->AddNamedItem ("iges-bypass-group",sb);
223 Handle(IGESSelect_SelectBypassSubfigure) sfi = new IGESSelect_SelectBypassSubfigure;
225 WS->AddNamedItem ("iges-bypass-subfigure",sfi);
226 Handle(IGESSelect_SelectBypassGroup) sfb = new IGESSelect_SelectBypassGroup;
228 WS->AddNamedItem ("iges-bypass-group-subfigure",sfb);
229 Handle(IGESSelect_SelectBasicGeom) sc3d = new IGESSelect_SelectBasicGeom(1);
231 WS->AddNamedItem ("iges-curves-3d",sc3d);
232 Handle(IGESSelect_SelectBasicGeom) sb3d = new IGESSelect_SelectBasicGeom(2);
234 WS->AddNamedItem ("iges-basic-curves-3d",sb3d);
235 Handle(IGESSelect_SelectBasicGeom) sbg = new IGESSelect_SelectBasicGeom(0);
237 WS->AddNamedItem ("iges-basic-geom",sbg);
238 Handle(IGESSelect_SelectBasicGeom) srf = new IGESSelect_SelectBasicGeom(-1);
240 WS->AddNamedItem ("iges-surfaces",srf);
241 Handle(IGESSelect_SelectFaces) sfa = new IGESSelect_SelectFaces;
243 WS->AddNamedItem ("iges-faces",sfa );
244 Handle(IGESSelect_SelectPCurves) spc = new IGESSelect_SelectPCurves(Standard_True);
246 WS->AddNamedItem ("iges-pcurves",spc);
248 Handle(IFSelect_SelectType) snosub = new IFSelect_SelectType
249 (STANDARD_TYPE(IGESBasic_SubfigureDef));
250 snosub->SetDirect(Standard_False);
251 snosub->SetInput(xmr);
252 WS->AddNamedItem ("iges-no-indep-subfigure-def",snosub);
254 Handle(IGESSelect_IGESTypeForm) itf = new IGESSelect_IGESTypeForm(Standard_True);
255 WS->AddNamedItem ("iges-type",itf);
257 Handle(IGESSelect_SignStatus) sigst = new IGESSelect_SignStatus;
258 Handle(IFSelect_SignMultiple) typsta = new IFSelect_SignMultiple
259 ("IGES Type Form Status");
260 typsta->Add (itf,15);
262 WS->AddNamedItem ("iges-type-status",typsta);
264 Handle(IFSelect_SignMultiple) typnam = new IFSelect_SignMultiple
265 ("IGES Type Form TypeName");
267 typnam->Add (new IFSelect_SignType(Standard_True));
268 WS->AddNamedItem ("iges-type-name",typnam);
270 Handle(IFSelect_SignCounter) itfs = new IFSelect_SignCounter
271 (itf,Standard_False,Standard_True);
272 WS->AddNamedItem ("iges-types",itfs);
273 Handle(IGESSelect_CounterOfLevelNumber) levs =
274 new IGESSelect_CounterOfLevelNumber;
275 WS->AddNamedItem ("iges-levels",levs);
277 Handle(IGESSelect_SignLevelNumber) slev = new IGESSelect_SignLevelNumber(Standard_False);
278 WS->AddNamedItem ("iges-level-number",slev);
279 Handle(IGESSelect_IGESName) igna = new IGESSelect_IGESName;
280 WS->AddNamedItem ("iges-name",igna);
282 Handle(IGESSelect_SignColor) scol1 = new IGESSelect_SignColor (1);
283 WS->AddNamedItem ("iges-color-number",scol1);
284 Handle(IGESSelect_SignColor) scol2 = new IGESSelect_SignColor (2);
285 WS->AddNamedItem ("iges-color-name",scol2);
286 Handle(IGESSelect_SignColor) scol3 = new IGESSelect_SignColor (3);
287 WS->AddNamedItem ("iges-color-rgb",scol3);
288 Handle(IGESSelect_SignColor) scol4 = new IGESSelect_SignColor (4);
289 WS->AddNamedItem ("iges-color-red",scol4);
290 Handle(IGESSelect_SignColor) scol5 = new IGESSelect_SignColor (5);
291 WS->AddNamedItem ("iges-color-green",scol5);
292 Handle(IGESSelect_SignColor) scol6 = new IGESSelect_SignColor (6);
293 WS->AddNamedItem ("iges-color-blue",scol6);
295 Handle(IGESSelect_EditHeader) edhead = new IGESSelect_EditHeader;
296 WS->AddNamedItem ("iges-header-edit",edhead);
297 Handle(IFSelect_EditForm) edheadf = edhead->Form(Standard_False);
298 WS->AddNamedItem ("iges-header",edheadf);
300 Handle(IGESSelect_EditDirPart) eddirp = new IGESSelect_EditDirPart;
301 WS->AddNamedItem ("iges-dir-part-edit",eddirp);
302 Handle(IFSelect_EditForm) eddirpf = eddirp->Form(Standard_False);
303 WS->AddNamedItem ("iges-dir-part",eddirpf);
305 theSignType = typnam;
312 //=======================================================================
313 //function : NewModel
315 //=======================================================================
317 Handle(Interface_InterfaceModel) IGESControl_Controller::NewModel () const
319 // On prend un modele qu on prepare avec les statiques enregistres
320 DeclareAndCast(IGESData_IGESModel,igm,Interface_InterfaceModel::Template("iges"));
321 IGESData_GlobalSection GS = igm->GlobalSection();
323 GS.SetReceiveName (Interface_Static::Static("write.iges.header.receiver")->HStringValue());
324 GS.SetUnitFlag (Interface_Static::IVal("write.iges.unit"));
325 GS.SetUnitName (new TCollection_HAsciiString(Interface_Static::CVal("write.iges.unit")));
326 GS.SetAuthorName (Interface_Static::Static("write.iges.header.author")->HStringValue());
327 GS.SetCompanyName (Interface_Static::Static("write.iges.header.company")->HStringValue());
328 igm->SetGlobalSection (GS);
332 //=======================================================================
333 //function : ActorRead
335 //=======================================================================
337 Handle(Transfer_ActorOfTransientProcess) IGESControl_Controller::ActorRead
338 (const Handle(Interface_InterfaceModel)& model) const
340 DeclareAndCast(IGESToBRep_Actor,anactiges,theAdaptorRead);
341 if (anactiges.IsNull()) return theAdaptorRead;
342 //sln 14.01.2002 OCC51 : verifying whether entry model is IGESDatat_IGESModel,
343 // if this condition is false new model is created
344 Handle(Interface_InterfaceModel) aModel;
345 if(model->IsKind(STANDARD_TYPE(IGESData_IGESModel)))
349 anactiges->SetModel(GetCasted(IGESData_IGESModel,aModel));
350 anactiges->SetContinuity(Interface_Static::IVal("read.iges.bspline.continuity"));
354 // #### TRANSFERT (ECRITURE SHAPE) ####
355 // modetrans : 0 <5.1 (groupe de faces), 1 BREP-5.1
357 //=======================================================================
358 //function : TransferWriteShape
360 //=======================================================================
362 IFSelect_ReturnStatus IGESControl_Controller::TransferWriteShape (const TopoDS_Shape& shape,
363 const Handle(Transfer_FinderProcess)& FP,
364 const Handle(Interface_InterfaceModel)& model,
365 const Standard_Integer modetrans) const
367 return XSControl_Controller::TransferWriteShape (shape,FP,model,modetrans);
370 //=======================================================================
373 //=======================================================================
375 Standard_Boolean IGESControl_Controller::Init ()
377 static Standard_Boolean inic = Standard_False;
379 Handle(IGESControl_Controller) ADIGES = new IGESControl_Controller(Standard_False);
380 ADIGES->AutoRecord();
383 IGESToBRep::SetAlgoContainer (new IGESControl_AlgoContainer());
384 inic = Standard_True;
386 return Standard_True;