projects / occt.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[occt.git] / src / XSControl / XSControl_FuncShape.cxx
CommitLineData
973c2be1 1// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 2//
973c2be1 3// This file is part of Open CASCADE Technology software library.
b311480e 4//
d5f74e42 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
973c2be1 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.
b311480e 10//
973c2be1 11// Alternatively, this file may be used under the terms of Open CASCADE
12// commercial license or contractual agreement.
b311480e 13
7fd59977 14
42cf5bc1 15#include <BRep_Builder.hxx>
16#include <BRepTools.hxx>
17#include <Geom2d_Curve.hxx>
18#include <Geom_Geometry.hxx>
7fd59977 19#include <IFSelect_Act.hxx>
42cf5bc1 20#include <IFSelect_CheckCounter.hxx>
7fd59977 21#include <IFSelect_Functions.hxx>
42cf5bc1 22#include <IFSelect_SessionPilot.hxx>
23#include <Interface_CheckIterator.hxx>
7fd59977 24#include <Interface_InterfaceModel.hxx>
42cf5bc1 25#include <Interface_Macros.hxx>
26#include <Message.hxx>
27#include <Message_Messenger.hxx>
28#include <ShapeExtend_Explorer.hxx>
29#include <Standard_ErrorHandler.hxx>
30#include <Standard_Failure.hxx>
31#include <TCollection_AsciiString.hxx>
32#include <TColStd_HSequenceOfTransient.hxx>
33#include <TColStd_SequenceOfInteger.hxx>
34#include <TopExp_Explorer.hxx>
35#include <TopoDS.hxx>
36#include <TopoDS_Compound.hxx>
37#include <TopoDS_Iterator.hxx>
38#include <TopTools_HSequenceOfShape.hxx>
7fd59977 39#include <Transfer_Binder.hxx>
42cf5bc1 40#include <Transfer_Finder.hxx>
41#include <Transfer_FinderProcess.hxx>
42#include <Transfer_ResultFromModel.hxx>
43#include <Transfer_SimpleBinderOfTransient.hxx>
44#include <Transfer_TransientListBinder.hxx>
45#include <Transfer_TransientProcess.hxx>
46#include <TransferBRep.hxx>
7fd59977 47#include <TransferBRep_ShapeBinder.hxx>
48#include <TransferBRep_ShapeListBinder.hxx>
42cf5bc1 49#include <TransferBRep_ShapeMapper.hxx>
50#include <XSControl.hxx>
7fd59977 51#include <XSControl_ConnectedShapes.hxx>
42cf5bc1 52#include <XSControl_Controller.hxx>
53#include <XSControl_FuncShape.hxx>
7fd59977 54#include <XSControl_TransferReader.hxx>
42cf5bc1 55#include <XSControl_TransferWriter.hxx>
56#include <XSControl_Vars.hxx>
57#include <XSControl_WorkSession.hxx>
7fd59977 58
7fd59977 59#include <stdio.h>
42cf5bc1 60//#include <TransferBRep_Analyzer.hxx>
7fd59977 61// ######################################################################
62// #### ####
63// #### COMMANDS ####
64// #### ####
65// ######################################################################
7fd59977 66//=======================================================================
67//function : XSControl_tpdraw
68//purpose :
69//=======================================================================
70static IFSelect_ReturnStatus XSControl_tpdraw
71 (const Handle(IFSelect_SessionPilot)& pilot)
72{
73 Standard_Integer argc = pilot->NbWords();
74 const Standard_CString arg1 = pilot->Arg(1);
75 const Standard_CString arg2 = pilot->Arg(2);
76 const Standard_CString arg3 = pilot->Arg(3);
7f56eba8 77 const Handle(Transfer_TransientProcess) &TP = XSControl::Session(pilot)->TransferReader()->TransientProcess();
0ebe5b0a 78 Message_Messenger::StreamBuffer sout = Message::SendInfo();
79 if (TP.IsNull()) { sout<<"No Transfer Read"<<std::endl; return IFSelect_RetError;}
7fd59977 80 // **** tpdraw ****
81 if (argc < 2) {
0ebe5b0a 82 sout<<"Donner [mode facultatif : item ou root] , NUMERO , nom DRAW facultatif"<<std::endl;
83 sout<<" mode si present : item ou root, sinon n0 d entite modele"<<std::endl;
7fd59977 84 sout<<" NUMERO entier : d entite, d item transfert ou de root transfert\n"
0ebe5b0a 85 << " ou * pour dire tous"<<std::endl;
7fd59977 86 return IFSelect_RetError;
87 }
88 Standard_Integer mode = 0, num=0;
89 if (arg1[0] == 'i') mode = 1;
90 else if (arg1[0] == 'r') mode = 2;
91 Standard_Boolean tout = Standard_False;
92 if (mode == 0) {
0ebe5b0a 93 if (argc < 2) { sout<<"Donner au moins un NUMERO ou *"<<std::endl; return IFSelect_RetError; }
7fd59977 94 if (arg1[0] == '*') tout = Standard_True;
95 else num = IFSelect_Functions::GiveEntityNumber(XSControl::Session(pilot),arg1);
96 } else {
97 if (arg2[0] == '*') tout = Standard_True;
98 else num = IFSelect_Functions::GiveEntityNumber(XSControl::Session(pilot),arg2);
99 }
100
101 Standard_Integer nbvar = 0;
102 Handle(Transfer_Binder) binder;
103 Handle(Standard_Transient) ent;
104 TopoDS_Shape sh; char nomvar[40];
105 // Standard_Boolean moderoot = (pilot->Word(0).Value(3) == 'r');
106
107 Standard_Integer n1, n2, i, max=0, index=0;
108 Handle(Interface_InterfaceModel) model = TP->Model();
109 if (model.IsNull()) {
110 if (mode == 0) {
0ebe5b0a 111 sout<<"Pas de modele, preciser n0 d item de transfert"<<std::endl;
7fd59977 112 return IFSelect_RetError;
113 }
114 }
115 if (mode == 0) { sout<<"Entite de modele"; max = model->NbEntities(); }
116 if (mode == 1) { sout<<"Item de transfert"; max = TP->NbMapped(); }
117 if (mode == 2) { sout<<"Racine de transfert"; max = TP->NbRoots(); }
118 if (tout) {
119 n1 = 1; n2 = max;
0ebe5b0a 120 sout<<", listage de 1 a "<<max<<std::endl;
7fd59977 121 }
122 else if (num <= 0 || num > max) {
0ebe5b0a 123 sout<<" - Num="<<num<<" hors limite (de 1 a "<<max<<")"<<std::endl;
7fd59977 124 return IFSelect_RetError;
125 } else {
126 n1 = n2 = num; nbvar = -1; // nbvar : 1ere shape simple = pas de n0
0ebe5b0a 127 sout<<", n0 "<<num<<std::endl;
7fd59977 128 }
129
130 for (i = n1; i <= n2; i ++) {
131 if (mode == 0) {
132 ent = model->Value(i);
133 num = i;
134 index = TP->MapIndex(ent);
135 } else if (mode == 1) {
136 ent = TP->Mapped(i);
137 if (model.IsNull()) num = 0;
138 else num = model->Number(ent);
139 index = i;
140 } else if (mode == 2) {
141 ent = TP->Root(i);
142 if (model.IsNull()) num = 0;
143 else num = model->Number(ent);
144 index = TP->MapIndex(ent);
145 }
146
147 if (index > 0) binder = TP->MapItem (index);
148 if (binder.IsNull()) index = 0;
149 if (index == 0) {
0ebe5b0a 150 if (!tout) sout<<"Entite n0 "<<num<<" : non repertoriee"<<std::endl;
7fd59977 151 continue;
152 }
153 if (!binder->HasResult()) {
0ebe5b0a 154 if (!tout) sout<<"Entite n0 "<<num<<" : pas de resultat"<<std::endl;
7fd59977 155 continue;
156 }
157 sh = TransferBRep::ShapeResult (binder);
158 //DeclareAndCast(TransferBRep_ShapeBinder,shb,binder);
159 if (!sh.IsNull()) {
160 //sh = shb->Result();
161 nbvar ++;
0ebe5b0a 162 if (sh.IsNull()) { sout<<" (no Shape recorded)"<<std::endl; continue; }
7fd59977 163 if (tout) sout<<"[ "<<i<<" ]:";
164 if (num == 0) sout<<" pas dans le modele";
165 else sout<<" ent.n0 "<<num;
166 sout<<", item transfert n0 "<<index;
167 if (nbvar == 0) {
168 if (argc > 3 && mode > 0) sprintf (nomvar,"%s",arg3);
169 else if (argc > 2 && mode == 0) sprintf (nomvar,"%s",arg2);
170 else sprintf (nomvar,"tp_%d",i);
171 } else {
172 if (argc > 3 && mode > 0) sprintf (nomvar,"%s_%d",arg3,nbvar);
173 else if (argc > 2 && mode == 0) sprintf (nomvar,"%s_%d",arg2,nbvar);
174 else sprintf (nomvar,"tp_%d",i);
175 }
0ebe5b0a 176 sout<<" -> 1 DRAW Shape: "<<nomvar<<std::endl;
7fd59977 177 XSControl::Vars(pilot)->SetShape(nomvar,sh);
178 continue;
179 }
180 DeclareAndCast(TransferBRep_ShapeListBinder,slb,binder);
181 if (!slb.IsNull()) {
182 Standard_Integer nbs = slb->NbShapes();
183 if (tout) sout<<"[ "<<i<<" ]:";
184 if (num == 0) sout<<" pas dans le modele";
185 else sout<<" ent.n0 "<<num;
186 sout<<", item transfert n0 "<<index;
187 sout<<" -> "<<nbs<<" DRAW Shapes :";
188 for (Standard_Integer j = 1; j <= nbs; j ++) {
189 sh = slb->Shape(j); if (nbvar < 0) nbvar = 0; nbvar ++;
0ebe5b0a 190 if (sh.IsNull()) { sout<<" (no Shape recorded)"<<std::endl; continue; }
7fd59977 191 if (argc > 3 && mode > 0) sprintf (nomvar,"%s_%d",arg3,nbvar);
192 else if (argc > 2 && mode == 0) sprintf (nomvar,"%s_%d",arg2,nbvar);
193 else sprintf (nomvar,"tp_%d_%d",i,nbvar);
194 sout<<" "<<nomvar;
195 XSControl::Vars(pilot)->SetShape(nomvar,sh);
196 }
0ebe5b0a 197 sout<<std::endl;
7fd59977 198 continue;
199 }
200 DeclareAndCast(Transfer_SimpleBinderOfTransient,trb,binder);
201 if (!trb.IsNull()) {
202 Handle(Standard_Transient) resu = trb->Result();
203 if (resu.IsNull()) {
0ebe5b0a 204 sout<<"Entite n0 "<<num<<" : pas de resultat"<<std::endl;
7fd59977 205 continue;
206 }
207 DeclareAndCast(Geom_Geometry,geom,resu);
208 sout<<"Entite n0 "<<num<<" : resultat "<<resu->DynamicType()->Name();
0ebe5b0a 209 if (geom.IsNull()) { sout<<std::endl; continue; }
7fd59977 210 nbvar ++;
211 if (nbvar == 0) {
212 if (argc > 3 && mode > 0) sprintf (nomvar,"%s",arg3);
213 else if (argc > 2 && mode == 0) sprintf (nomvar,"%s",arg2);
214 else sprintf (nomvar,"tp_%d",i);
215 } else {
216 if (argc > 3 && mode > 0) sprintf (nomvar,"%s_%d",arg3,nbvar);
217 else if (argc > 2 && mode == 0) sprintf (nomvar,"%s_%d",arg2,nbvar);
218 else sprintf (nomvar,"tp_%d",i);
219 }
220 char* nomv = nomvar;
221 XSControl::Vars(pilot)->Set (nomv,geom);
0ebe5b0a 222 sout<<" -> DRAW Geom : "<<nomvar<<std::endl;
7fd59977 223 continue;
224 }
225
226 if (sh.IsNull() && trb.IsNull())
0ebe5b0a 227 if (!tout) sout<<"Entite n0 "<<num<<" : resultat pas une Shape mais "<<binder->ResultTypeName()<<std::endl;
7fd59977 228 }
229
0ebe5b0a 230 if (sh.IsNull()) sout<<" (No Shape)"<<std::endl;
7fd59977 231 return IFSelect_RetDone;
232}
233
234//=======================================================================
235//function : XSControl_tpcompound
236//purpose :
237//=======================================================================
238static IFSelect_ReturnStatus XSControl_tpcompound
239 (const Handle(IFSelect_SessionPilot)& pilot)
240{
241 Standard_Integer argc = pilot->NbWords();
242 const Standard_CString arg1 = pilot->Arg(1);
7f56eba8 243 const Handle(Transfer_TransientProcess) &TP = XSControl::Session(pilot)->TransferReader()->TransientProcess();
0ebe5b0a 244 Message_Messenger::StreamBuffer sout = Message::SendInfo();
245 if (TP.IsNull()) { sout<<"No Transfer Read"<<std::endl; return IFSelect_RetError;}
7fd59977 246 // **** tpcompound ****
0ebe5b0a 247 if (argc < 2) { sout<<"Give a NAME for the Compound + optional givelist, else roots are taken"<<std::endl; return IFSelect_RetError; }
7fd59977 248 Handle(TopTools_HSequenceOfShape) list;
249 if (argc == 2) list = TransferBRep::Shapes(TP);
250 else {
251 Handle(TColStd_HSequenceOfTransient) lise = IFSelect_Functions::GiveList(pilot->Session(),pilot->CommandPart(2));
0ebe5b0a 252 if (lise.IsNull()) { sout<<"Not a valid entity list : "<<pilot->CommandPart(2)<<std::endl; return IFSelect_RetError; }
7fd59977 253 list = TransferBRep::Shapes (TP,lise);
254 sout<<lise->Length()<<" Entities, ";
255 }
0ebe5b0a 256 if (list.IsNull()) { sout<<"No Shape listed"<<std::endl; return IFSelect_RetError; }
7fd59977 257 Standard_Integer nb = list->Length();
0ebe5b0a 258 sout<<nb<<" Shape(s) listed"<<std::endl;
7fd59977 259 TopoDS_Compound C;
260 BRep_Builder B;
261 B.MakeCompound(C);
262 for (Standard_Integer i = 1; i <= nb; i ++) B.Add (C,list->Value(i));
263 XSControl::Vars(pilot)->SetShape (arg1,C);
264 return IFSelect_RetDone;
265}
266
267
268
269//=======================================================================
270//function : XSControl_traccess
271//purpose :
272//=======================================================================
273static IFSelect_ReturnStatus XSControl_traccess
274 (const Handle(IFSelect_SessionPilot)& pilot)
275{
276 Standard_Integer argc = pilot->NbWords();
277 const Standard_CString arg1 = pilot->Arg(1);
278 const Standard_CString arg2 = pilot->Arg(2);
279 // **** trdraw : TransferReader **** 26
280 // **** trsave : TransferReader **** 27
281 // **** trcomp (comp -> DRAW) **** 28
282 // **** trscomp (comp -> save) **** 29
283 Standard_Boolean cascomp = (pilot->Word(0).Location(1,'o',1,5) > 0);
284 Standard_Boolean cassave = (pilot->Word(0).Location(1,'s',1,5) > 0);
1ac10599 285 TCollection_AsciiString nomsh, noms;
7f56eba8 286 const Handle(XSControl_TransferReader) &TR = XSControl::Session(pilot)->TransferReader();
0ebe5b0a 287 Message_Messenger::StreamBuffer sout = Message::SendInfo();
288 if (TR.IsNull()) { sout<<" manque init"<<std::endl; return IFSelect_RetError; }
7f56eba8 289 const Handle(Interface_InterfaceModel) &mdl = TR->Model();
0ebe5b0a 290 if (mdl.IsNull()) { sout<<" modele absent"<<std::endl; return IFSelect_RetError; }
7fd59977 291 Standard_Integer num = (argc > 1 ? IFSelect_Functions::GiveEntityNumber(XSControl::Session(pilot),arg1) : 0);
292
1ac10599 293 if (argc > 1) nomsh = arg1;
294 else nomsh = cascomp ? "TREAD_COMP" : "TREAD_LIST";
0ebe5b0a 295 if (cassave) sout<<" save shapes -> current directory"<<std::endl;
7fd59977 296
297 if (num == 0 || cascomp) {
298 TopoDS_Compound C; // pour cas compound
299 BRep_Builder B;
300 B.MakeCompound(C);
301
7f56eba8 302 const Handle(TopTools_HSequenceOfShape) &list = TR->ShapeResultList(Standard_True);
0ebe5b0a 303 sout<<" TOUS RESULTATS par ShapeResultList, soit "<<list->Length()<<std::endl;
1ac10599 304 for (Standard_Integer i = 1, nb = list->Length(); i <= nb; ++i)
305 {
306 noms = nomsh + "_" + i;
0ebe5b0a 307 if ( (i%1000) == 0) sout<<"("<<i<<")"<<std::endl;
7fd59977 308 else if ( (i%100) == 0) sout<<"*";
309 else if ( (i%10) == 0) sout<<"0";
310 else sout<<".";
311 if (list->Value(i).IsNull()) continue;
1ac10599 312 if (!cascomp && !cassave) XSControl::Vars(pilot)->SetShape (noms.ToCString(), list->Value(i));
313 else if (!cascomp && cassave) BRepTools::Write (list->Value(i), noms.ToCString());
7fd59977 314 else if (cascomp) B.Add (C,list->Value(i));
315 }
0ebe5b0a 316 sout<<std::endl;
1ac10599 317 if (cascomp && !cassave) XSControl::Vars(pilot)->SetShape (nomsh.ToCString(), C);
318 else if (cascomp && cassave) BRepTools::Write (C, nomsh.ToCString());
7fd59977 319 } else {
0ebe5b0a 320 if (num < 1 || num > mdl->NbEntities()) { sout<<" incorrect:"<<arg1<<std::endl; return IFSelect_RetError; }
7fd59977 321 TopoDS_Shape sh = TR->ShapeResult(mdl->Value(num));
0ebe5b0a 322 if (sh.IsNull()) { sout<<" Pas de resultat pour "<<arg1<<std::endl; return IFSelect_RetError; }
1ac10599 323 if (argc > 2) nomsh = arg2;
324 else nomsh = TCollection_AsciiString ("TREAD_") + num;
325 if (!cascomp && !cassave) XSControl::Vars(pilot)->SetShape (nomsh.ToCString(), sh);
326 else if (!cascomp && cassave) BRepTools::Write (sh, nomsh.ToCString());
0ebe5b0a 327 else sout<<"Option non comprise"<<std::endl;
7fd59977 328 }
329 return IFSelect_RetDone;
330}
331
332//=======================================================================
333//function : XSControl_IsEqualSubShape
334//purpose :
335//=======================================================================
336// PTV 23.08.2000 Added for checking where are an entity from.
337static Standard_Boolean XSControl_IsEqualSubShape (const TopoDS_Shape& Shape,
338 TopoDS_Shape& sh, Standard_Integer aLevel)
339{
340 if ( sh.IsSame(Shape) ) return Standard_True;
341 if (aLevel > 0) {
342 TopoDS_Shape varShape;
343 aLevel--;
344 TopoDS_Iterator it(sh);
345 for (; it.More(); it.Next() ) {
346 varShape = it.Value();
347 if ( XSControl_IsEqualSubShape(Shape, varShape, aLevel) ) return Standard_True;
348 }
349 }
350 return Standard_False;
351}
352
353//=======================================================================
354//function : XSControl_fromshape
355//purpose :
356//=======================================================================
357static IFSelect_ReturnStatus XSControl_fromshape
358 (const Handle(IFSelect_SessionPilot)& pilot)
359{
360 Standard_Integer argc = pilot->NbWords();
361 const Standard_CString arg1 = pilot->Arg(1);
362 // **** fromshape (tread) ****
0ebe5b0a 363 Message_Messenger::StreamBuffer sout = Message::SendInfo();
7fd59977 364 if (argc < 2) {
0ebe5b0a 365 sout<<"Give name of a DRAW Shape"<<std::endl;
7fd59977 366 return IFSelect_RetError;
367 }
368 const char* a1 = (char *)arg1;
369 TopoDS_Shape Shape = XSControl::Vars(pilot)->GetShape(a1);
370 if (Shape.IsNull()) {
0ebe5b0a 371 sout<<"Not a DRAW Shape:"<<arg1<<std::endl;
7fd59977 372 return IFSelect_RetError;
373 }
374 Standard_Boolean yena = Standard_False;
375 Standard_Integer aLevel = 1;
376 if (argc >=3 )
377 aLevel = atoi(pilot->Arg(2));
378 Standard_Boolean silent = Standard_False;
379 if (aLevel <0 ) {
380 silent = Standard_True;
381 aLevel = -aLevel;
382 }
383
384 // IMPORT
7f56eba8 385 const Handle(XSControl_TransferReader) &TR = XSControl::Session(pilot)->TransferReader();
04232180 386 if (TR.IsNull()) { } // sout<<"No read transfer (import) recorded"<<std::endl;
7fd59977 387 else {
388 yena = Standard_True;
389 if ( ! silent ) sout<<"Shape "<<arg1<<" : ";
390 Standard_Integer modrec = 1;
391 Handle(Standard_Transient) ent = TR->EntityFromShapeResult (Shape,modrec);
392 if (ent.IsNull()) {
393 modrec = -1;
394 ent = TR->EntityFromShapeResult (Shape,modrec);
395 }
396 if (ent.IsNull()) {
397 modrec = 2;
398 Handle(Transfer_TransientProcess) TP = TR->TransientProcess();
399 if (TP.IsNull()) {
400 if ( silent )
401 sout << "Shape "<<arg1<<" : ";
0ebe5b0a 402 sout<<"no map"<<std::endl;
7fd59977 403 }
404 else {
405 TopoDS_Shape S0 = Shape;
406 TopLoc_Location L;
407 S0.Location ( L );
408 Standard_Integer i, nb = TP->NbMapped();
409 if ( ! silent ) sout<<"searching in map among "<<nb<<" ...";
410 for (i = 1; i <= nb; i ++) {
411 ent = TP->Mapped(i);
412 TopoDS_Shape sh = TransferBRep::ShapeResult(TP,ent);
413 if (sh.IsNull()) {
414 ent.Nullify();
415 continue;
416 }
417 if (XSControl_IsEqualSubShape(Shape, sh, aLevel)) break;
418 modrec = -2;
419 sh.Location ( L );
420 if (XSControl_IsEqualSubShape(S0, sh, aLevel)) break;
421 ent.Nullify();
422 modrec = 2;
423 }
424 }
425 }
426 if ( ! ent.IsNull() ) {
427 if ( silent ) sout << "Shape " << arg1 << ": ";
428 if (modrec <0) sout<<"(moved from origin) ";
429 //else sout<<"(origin) ";
430 }
431 // on affiche
432 if (ent.IsNull()) {
433 if ( ! silent ) sout<<" unknown as imported";
434 // skl 11.05.2004
435 // if Shape is a compound try to make "fromshape" for its subshapes
436 if(Shape.ShapeType()==TopAbs_COMPOUND) {
0ebe5b0a 437 sout<<std::endl<<"Subshapes imported from entities:";
7fd59977 438 TopoDS_Iterator Iter(Shape);
439 for (; Iter.More(); Iter.Next()) {
440 TopoDS_Shape subsh = Iter.Value();
441 Standard_Integer submodrec = 1;
442 Handle(Standard_Transient) subent = TR->EntityFromShapeResult(subsh,submodrec);
443 if (subent.IsNull()) {
444 submodrec = -1;
445 subent = TR->EntityFromShapeResult(subsh,submodrec);
446 }
447 if (!subent.IsNull()) {
448 sout<<" "<<XSControl::Session(pilot)->Model()->Number(subent);
449 }
450 }
451 }
452 }
453 else {
0ebe5b0a 454 sout<<"imported from entity ";
455 XSControl::Session(pilot)->Model()->Print (ent, sout);
456 if ( silent ) sout << " in file " << XSControl::Session(pilot)->LoadedFile() << std::endl;
7fd59977 457 }
0ebe5b0a 458 if ( ! silent ) sout<<std::endl;
7fd59977 459 }
460
461 // ET EN EXPORT ?
7f56eba8 462 const Handle(Transfer_FinderProcess) &FP = XSControl::Session(pilot)->TransferWriter()->FinderProcess();
463 if (FP.IsNull()) { }
7fd59977 464 else {
465 yena = Standard_True;
466 Handle(Transfer_Finder) fnd = TransferBRep::ShapeMapper (FP,Shape);
467 Handle(Standard_Transient) ent;
468 if (!fnd.IsNull()) ent = FP->FindTransient (fnd);
469 if (!ent.IsNull()) {
470 sout<<"Shape "<<arg1<<": exported to entity ";
0ebe5b0a 471 XSControl::Session(pilot)->Model()->Print (ent, sout);
7fd59977 472 if ( silent ) sout << " in file " << XSControl::Session(pilot)->LoadedFile();
0ebe5b0a 473 sout<<std::endl;
7fd59977 474 }
475 // abv 31.08.00: treat case of splitted shape (several results)
476 // it is supposed that results are of the same type and lie in one-level comp
477 else {
478 Handle(Transfer_Binder) bnd = FP->Find ( fnd );
479 if ( ! bnd.IsNull() ) {
480 Handle(Transfer_TransientListBinder) TransientListBinder =
481 //Handle(Transfer_TransientListBinder)::DownCast( bnd->Next(Standard_True) ); //skl
482 Handle(Transfer_TransientListBinder)::DownCast( bnd ); //skl
483 if (! TransientListBinder.IsNull() ) {
484 Standard_Integer i = 1, nb = TransientListBinder->NbTransients();
485 if (nb > 0) sout<<"Shape "<<arg1<<": exported to entities ";
486 for (; i<=nb; i++) {
0ebe5b0a 487 XSControl::Session(pilot)->Model()->Print( TransientListBinder->Transient(i), sout);
7fd59977 488 if (i < nb) sout<<", ";
489 }
490 if (nb > 0) {
491 if ( silent ) sout << " in file " << XSControl::Session(pilot)->LoadedFile();
0ebe5b0a 492 sout<<std::endl;
7fd59977 493 }
494 }
495/* else {
496 TopoDS_Shape comp = TransferBRep::ShapeResult(bnd);
497 if ( ! comp.IsNull() && comp.ShapeType() < Shape.ShapeType() ) {
498 Standard_Boolean start = Standard_True;
499 for ( TopoDS_Iterator it(comp); it.More(); it.Next() ) {
500 Handle(Transfer_Finder) cfnd = TransferBRep::ShapeMapper (FP,it.Value());
501 if ( cfnd.IsNull() ) continue;
502 Handle(Standard_Transient) cent = FP->FindTransient (cfnd);
503 if ( cent.IsNull() ) continue;
504 if ( start )
505 sout<<"Shape "<<arg1<<" : exported to entities ";
506 else sout << ", ";
507 start = Standard_False;
508 XSControl::Session(pilot)->Model()->Print(cent,sout);
509 }
04232180 510 if ( ! start ) sout<<std::endl;
7fd59977 511 }
512 } */
513 }
514 }
515 }
0ebe5b0a 516 if (!yena) sout<<"No transfer (either import or export) recorded"<<std::endl;
7fd59977 517
518 return IFSelect_RetVoid;
519}
520
521//=======================================================================
522//function : XSControl_trconnexentities
523//purpose :
524//=======================================================================
525static IFSelect_ReturnStatus XSControl_trconnexentities
526 (const Handle(IFSelect_SessionPilot)& pilot)
527{
528 Standard_Integer argc = pilot->NbWords();
529 const Standard_CString arg1 = pilot->Arg(1);
530 // **** connected entities (last transfer) ****
7f56eba8 531 const Handle(XSControl_TransferReader) &TR = XSControl::Session(pilot)->TransferReader();
7fd59977 532 Handle(Transfer_TransientProcess) TP;
533 if (!TR.IsNull()) TP = TR->TransientProcess();
0ebe5b0a 534 Message_Messenger::StreamBuffer sout = Message::SendInfo();
535 if (TP.IsNull()) { sout<<"no transfer map"<<std::endl; return IFSelect_RetVoid; }
7fd59977 536 if (argc < 2) {
0ebe5b0a 537 sout<<"Give name of a DRAW Shape + optional shape type v-e-w-f(D)-s"<<std::endl;
7fd59977 538 return IFSelect_RetError;
539 }
540 const char* a1 = (const char *)arg1;
541 TopoDS_Shape Shape = XSControl::Vars(pilot)->GetShape(a1);
0ebe5b0a 542 if (Shape.IsNull()) { sout<<"Not a DRAW Shape:"<<arg1<<std::endl; return IFSelect_RetError; }
7fd59977 543 sout<<"Shape "<<arg1<<" : ";
544
545 Handle(TColStd_HSequenceOfTransient) list =
546 XSControl_ConnectedShapes::AdjacentEntities (Shape,TP,TopAbs_FACE);
547 Standard_Integer i, nb = list->Length();
0ebe5b0a 548 sout<<nb<<" Entities produced Connected Shapes :"<<std::endl;
7f56eba8 549 const Handle(Interface_InterfaceModel) &model = XSControl::Session(pilot)->Model();
7fd59977 550 sout<<"(";
551 for (i = 1; i <= nb; i ++) {
552 if (i > 1) sout<<",";
553 sout<<model->Number(list->Value(i));
554 }
0ebe5b0a 555 sout<<")"<<std::endl;
7fd59977 556 return IFSelect_RetDone;
557}
558
559//=======================================================================
560//function : XSControl_trimport
561//purpose :
562//=======================================================================
563static IFSelect_ReturnStatus XSControl_trimport
564 (const Handle(IFSelect_SessionPilot)& pilot)
565{
566 // FileName ou . (pour courant) VarName GiveList (obligatoire)
567 // GiveList : * pour xst-transferrable-roots
568 Handle(XSControl_WorkSession) WS = XSControl::Session(pilot);
569
570 Standard_Integer argc = pilot->NbWords();
0ebe5b0a 571 Message_Messenger::StreamBuffer sout = Message::SendInfo();
7fd59977 572 if (argc < 4) {
0ebe5b0a 573 sout<<"Give : filename or . for current model; varname or . to take fileroot\n GiveList, * for all transferrable roots"<<std::endl;
7fd59977 574 return IFSelect_RetError;
575 }
576 const Standard_CString arg1 = pilot->Arg(1);
577 const Standard_CString arg2 = pilot->Arg(2);
578 const Standard_CString arg3 = pilot->Arg(3);
579
580 // File Name and Variable (root) Name
581
582 TCollection_AsciiString fnom,rnom;
583 Standard_Boolean modfic = XSControl_FuncShape::FileAndVar
584 (WS,arg1,arg2,"IMPORT",fnom,rnom);
0ebe5b0a 585 if (modfic) sout<<" File to read : "<<fnom<<std::endl;
586 else sout<<" Model taken from the session : "<<fnom<<std::endl;
587 sout<<" -- Names of variables BREP-DRAW prefixed by : "<<rnom<<std::endl;
7fd59977 588
589 // keep the current command, because sub-commands will be called
590 TCollection_AsciiString compart = pilot->CommandPart (3);
591
592 // Reading file if required
593
594 if (modfic) {
595 TCollection_AsciiString comload ("xload ");
596 comload.AssignCat(arg1);
597 IFSelect_ReturnStatus status = pilot->Execute(comload);
598 if (status != IFSelect_RetDone)
0ebe5b0a 599 { sout<<"Abandon import"<<std::endl; return status; }
7fd59977 600 } else {
0ebe5b0a 601 sout<<"Currently Loaded Model"<<std::endl;
7fd59977 602 }
603
604 // Selecting Entities
605
606 Handle(TColStd_HSequenceOfTransient) list;
607 if (arg3[0] == '*' && arg3[1] == '\0') {
608 list = WS->GiveList ("xst-transferrable-roots");
609 sout<<"All Transferrable Roots : ";
610 } else {
611 sout<<"List given by "<<compart.ToCString()<<" : ";
612 list = WS->GiveList (compart.ToCString());
613 }
0ebe5b0a 614 if (list.IsNull()) { sout<<"No list defined. Abandon"<<std::endl; return IFSelect_RetError; }
7fd59977 615 Standard_Integer nbl = list->Length();
0ebe5b0a 616 sout<<"Nb entities selected : "<<nbl<<std::endl;
7fd59977 617
618 // Starting Transfer
619
620 WS->InitTransferReader (0);
7f56eba8 621 const Handle(XSControl_TransferReader) &TR = WS->TransferReader();
0ebe5b0a 622 if (TR.IsNull()) { sout<<" init not done or failed"<<std::endl; return IFSelect_RetError; }
7fd59977 623
624 TR->BeginTransfer();
625
626 // Transferring
627 Standard_Integer nbt = TR->TransferList(list);
0ebe5b0a 628 sout<<"Nb Entities Selected : "<<nbl<<" have given "<<nbt<<" results"<<std::endl;
7fd59977 629
630 // Filling VARS. one compound (trimpcomp) or one shape per ent (trimport)
631 Standard_Boolean iscomp = (pilot->Arg(0)[5] == 'c');
632 Standard_Integer nbs = 0;
633 TopoDS_Shape sh;
634 TopoDS_Compound C;
635 BRep_Builder B;
636 B.MakeCompound (C);
637 Handle(Interface_InterfaceModel) mdl = TR->Model();
0ebe5b0a 638 if (mdl.IsNull()) { sout<<" modele absent"<<std::endl; return IFSelect_RetError; }
7fd59977 639 for (Standard_Integer il= 1; il <= nbl; il ++) {
640 Handle(Standard_Transient) ent = list->Value(il);
641 sh = TR->ShapeResult(ent);
642 if (sh.IsNull()) continue;
643 nbs ++;
644 if (iscomp) B.Add (C,sh);
645 else {
646 char nomsh[50];
647 sprintf (nomsh,"%s_%d",rnom.ToCString(),nbs);
648 XSControl::Vars(pilot)->SetShape(nomsh,sh);
649 }
650 }
0ebe5b0a 651 if (nbs == 0) sout<<"No Shape produced"<<std::endl;
7fd59977 652 else if (nbs == 1) {
0ebe5b0a 653 sout<<"One Shape produced, named "<<rnom.ToCString()<<std::endl;
7fd59977 654 XSControl::Vars(pilot)->SetShape(rnom.ToCString(),sh);
655 } else if (iscomp) {
0ebe5b0a 656 sout<<"One compound made of "<<nbs<<" Shapes, named "<<rnom.ToCString()<<std::endl;
7fd59977 657 XSControl::Vars(pilot)->SetShape(rnom.ToCString(),C);
658 } else { // several individual shapes
0ebe5b0a 659 sout<<nbs<<" Shapes, named "<<rnom.ToCString()<<"_1 to "<<rnom.ToCString()<<"_"<<nbs<<std::endl;
7fd59977 660 }
661
662 return IFSelect_RetDone;
663}
664
665//=======================================================================
666//function : XSControl_twrite
667//purpose :
668//=======================================================================
669static IFSelect_ReturnStatus XSControl_twrite
670 (const Handle(IFSelect_SessionPilot)& pilot)
671{
672 Standard_Integer argc = pilot->NbWords();
673 const Standard_CString arg1 = pilot->Arg(1);
674 // **** twrite ****
0ebe5b0a 675 Message_Messenger::StreamBuffer sout = Message::SendInfo();
7fd59977 676 Handle(XSControl_TransferWriter) TW = XSControl::Session(pilot)->TransferWriter();
0ebe5b0a 677 if (argc < 2) { sout<<" donner nom de shape draw"<<std::endl; return IFSelect_RetError; }
678 sout<<"Attention, on alimente le modele courant ..."<<std::endl;
7fd59977 679
680 // Shape
681 for (Standard_Integer i = 1; i < argc; i ++) {
682 const char* ai = (const char *)pilot->Arg(i);
683 TopoDS_Shape Shape = XSControl::Vars(pilot)->GetShape(ai);
0ebe5b0a 684 if (Shape.IsNull()) { sout<<"pas un nom de shape draw:"<<arg1<<std::endl; continue; }
7fd59977 685 sout<<"Pour Shape : "<<ai;
686 Standard_Integer stat = TW->TransferWriteShape (XSControl::Session(pilot)->Model(),Shape);
0ebe5b0a 687 sout<<" Transfer Write Status = "<<stat<<std::endl;
7fd59977 688 }
689 pilot->Session()->ComputeGraph();
690 // Transient ? (Geom) : ignore
691 return IFSelect_RetDone;
692}
693
694// ######################################################################
695// #### TIMERS ####
696// ######################################################################
697
698
699// ######################################################################
700// #### ####
701// #### Initialising Commands ####
702// #### ####
703// ######################################################################
704
c48e2889 705static int THE_XSControl_FuncShape_initactor = 0;
7fd59977 706
707//=======================================================================
708//function : Init
c48e2889 709//purpose :
7fd59977 710//=======================================================================
711
712void XSControl_FuncShape::Init ()
713{
c48e2889 714 if (THE_XSControl_FuncShape_initactor)
715 {
716 return;
717 }
718
719 THE_XSControl_FuncShape_initactor = 1;
7fd59977 720
721 IFSelect_Act::SetGroup("DE: General");
722
723 IFSelect_Act::AddFunc ("tpdraw","[mode:item or root] num|* [nomvar] Passes an ITEM to Shape Draw (Start or Result)",XSControl_tpdraw);
724
725 IFSelect_Act::AddFunc ("tpcompound","name:cstring [givelist] : -> compound with Shapes Root or from givelist",XSControl_tpcompound);
726
727 IFSelect_Act::AddFunc ("trdraw","results ->DRAW : all; or num [name] : from ent.num -> DRAW [name/tread_num]",XSControl_traccess);
728 IFSelect_Act::AddFunc ("trsave","results ->files : all; or num [name] : from ent.num -> DRAW [name/tread_num]",XSControl_traccess);
729 IFSelect_Act::AddFunc ("trcomp","results -> 1 compound -> DRAW + name optional",XSControl_traccess);
730 IFSelect_Act::AddFunc ("trscomp","results -> 1 compound -> file + name optional",XSControl_traccess);
731
732 IFSelect_Act::AddFunc ("fromshape","shape [level=1]: imported/exported entity (when known)",XSControl_fromshape);
733 IFSelect_Act::AddFunc ("trconnexent","name of draw shape : entities -> connected shapes (when known)",XSControl_trconnexentities);
734
735 IFSelect_Act::AddFunc ("trimport","filename or . varname givelist -> 1 shape per entity",XSControl_trimport);
736 IFSelect_Act::AddFunc ("trimpcomp","filename or . varname givelist -> one xcompound",XSControl_trimport);
737
738 IFSelect_Act::AddFunc ("twrite","shape : transfer write for this shape, AFTER newmodel !",XSControl_twrite);
739
740 //skl IFSelect_Act::AddFunc ("checkbrep","shapename or * [+ rootname for expurged and faulties [+ mode f-s]]",XSHAPE_checkbrep);
741 //skl IFSelect_Act::AddFunc ("dblist","option : clear nb index set n1 data n1 n2",XSHAPE_dblist);
742}
743
744// ######################################################################
745// #### ####
746// #### Additional Methods ####
747// #### ####
748// ######################################################################
749
750
751//=======================================================================
752//function : MoreShapes
753//purpose :
754//=======================================================================
755
756Standard_Integer XSControl_FuncShape::MoreShapes
757 (const Handle(XSControl_WorkSession)& session,
758 Handle(TopTools_HSequenceOfShape)& list, const Standard_CString name)
759{
760 // name = un nom -> Draw
761 // name = "*" -> tous les transferts RACINES du TP
762 // name = "**" -> tous les transferts du TP : VRAIMENT TOUS
763 // name = "." -> reperage graphique (not yet impl)
764 // name = nom(n1-n2) avec n1,n2 entiers : les variables de nom nomn1 a nomn2
0ebe5b0a 765 Message_Messenger::StreamBuffer sout = Message::SendInfo();
7fd59977 766 if (list.IsNull()) list = new TopTools_HSequenceOfShape();
767 if (name[0] == '*' && (name[1] == '\0' || (name[1] == '*' && name[2] == '\0'))) {
7f56eba8 768 const Handle(Transfer_TransientProcess) &TP = session->TransferReader()->TransientProcess();
0ebe5b0a 769 if (TP.IsNull()) { sout<<"last transfer : unknown"<<std::endl;return 0; }
7fd59977 770 Handle(TopTools_HSequenceOfShape) li = TransferBRep::Shapes(TP,(name[1] == '\0'));
771 if (li.IsNull()) return 0;
772 list->Append (li);
773 return li->Length();
774 }
775 Standard_Integer i, paro = 0, parf = 0, moins = 0, n1 = 0, n2 = 0;
776 for (i = 0; name[i] != '\0'; i ++) {
777 if (name[i] == '(') paro = i;
778 if (name[i] == '-') moins = i;
779 if (name[i] == ')') parf = i;
780 }
781 if (paro && moins && parf) {
782 n2 = atoi (&name[moins+1]);
783 n1 = atoi (&name[paro +1]); if (n1 < 0) n1 += n2; // sinon on a n1-n2
784 }
785 // liste
786 if (n1 <= n2 && n1 > 0) {
787 char nom[50], nomsh[60]; Standard_Integer nbsh = 0;
c48e2889 788 for (i = 0; i < paro; i ++)
789 {
790 nom[i]=name[i];
791 }
792 nom[paro] = '\0';
7fd59977 793 sout<<"Shapes DRAW named : "<<nom<<n1<<" to "<<nom<<n2;
794 for (i = n1; i <= n2 ; i ++) {
795 const char* nomshh = &nomsh[0];
796 sprintf (nomsh,"%s%d",nom,i);
797 TopoDS_Shape Shape = session->Vars()->GetShape(nomshh);
798 if (Shape.IsNull()) continue;
799 list->Append(Shape);
800 nbsh ++;
801 }
0ebe5b0a 802 sout<<" -> taken "<<nbsh<<" Shapes"<<std::endl;
7fd59977 803 return nbsh;
804 }
805 const char* a1 = (const char *)name;
806 TopoDS_Shape Shape = session->Vars()->GetShape(a1);
0ebe5b0a 807 if (Shape.IsNull()) { sout<<"not a shape draw:"<<a1<<std::endl; return 0; }
7fd59977 808 list->Append(Shape);
809 return 1;
810}
811
812
813//=======================================================================
814//function : FileAndVar
815//purpose :
816//=======================================================================
817
818Standard_Boolean XSControl_FuncShape::FileAndVar
819 (const Handle(XSControl_WorkSession)& session,
820 const Standard_CString file, const Standard_CString var,
821 const Standard_CString def,
822 TCollection_AsciiString& resfile, TCollection_AsciiString& resvar)
823{
824 Standard_Boolean iafic = Standard_True;
825 resfile.Clear(); resvar.Clear();
826 if (file)
827 if ( file[0] == '\0' ||
828 (file[0] == '.' && file[1] == '\0')) iafic = Standard_False;
829 if (!iafic) resfile.AssignCat (session->LoadedFile());
830 else resfile.AssignCat (file);
831
832 if (var && var[0] != '\0' && (var[0] != '.' || var[1] != '\0') )
833 resvar.AssignCat (var);
834 else if (resfile.Length() == 0) resvar.AssignCat (def);
835 else {
836 Standard_Integer nomdeb, nomfin;
837 nomdeb = resfile.SearchFromEnd ("/");
838 if (nomdeb <= 0) nomdeb = resfile.SearchFromEnd("\\"); // pour NT
839 if (nomdeb < 0) nomdeb = 0;
840 nomfin = resfile.SearchFromEnd (".");
841 if (nomfin < nomdeb) nomfin = resfile.Length() + 1;
842 resvar = resfile.SubString(nomdeb+1,nomfin-1);
843 }
844 return iafic;
845}
Open CASCADE Technology repository