src/XSDRAWSTEP/XSDRAWSTEP.cxx

   1 // Copyright (c) 1999-2012 OPEN CASCADE SAS
   2 //
   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.
   7 //
   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.
  10 //
  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.
  17
  18 //:k8 abv 6 Jan 98: using parameter "step.group" for writing assemblies/shapes
  19 #include <XSDRAWSTEP.ixx>
  20 #include <STEPControl_Controller.hxx>
  21 #include <STEPControl_ActorWrite.hxx>
  22 #include <STEPControl_Reader.hxx>
  23 #include <STEPControl_Writer.hxx>
  24 #include <STEPControl_StepModelType.hxx>
  25 #include <XSDRAW.hxx>
  26 #include <StepSelect_Activator.hxx>
  27
  28 #include <Draw_Appli.hxx>
  29 #include <Draw_Interpretor.hxx>
  30 #include <Draw_Printer.hxx>
  31 #include <Message_Messenger.hxx>
  32
  33 #include <DBRep.hxx>
  34
  35 #include <TCollection_HAsciiString.hxx>
  36 #include <Interface_Macros.hxx>
  37 #include <Interface_InterfaceModel.hxx>
  38
  39 //  Pour le transfert (write)
  40 //  Pour NewModel et Write : definition de produit (temporaire ...)
  41 #include <Transfer_FinderProcess.hxx>
  42 #include <TransferBRep_ShapeMapper.hxx>
  43 #include <StepShape_ShapeRepresentation.hxx>
  44 #include <TColStd_HSequenceOfTransient.hxx>
  45
  46 #include <XSControl_Controller.hxx>
  47 #include <XSControl_WorkSession.hxx>
  48 #include <StepData_StepModel.hxx>
  49
  50 #include <TopoDS.hxx>
  51
  52 // steptrans
  53 #include <StepToTopoDS_MakeTransformed.hxx>
  54 #include <StepGeom_Axis2Placement3d.hxx>
  55
  56 #include <stdio.h>
  57 #include <Interface_Static.hxx>
  58 #include <IFSelect_SessionPilot.hxx>
  59 #include <STEPSelections_Counter.hxx>
  60 #include <STEPSelections_AssemblyExplorer.hxx>
  61
  62 #include <Draw_ProgressIndicator.hxx>
  63 #include <Transfer_TransientProcess.hxx>
  64
  65 #include <TopExp_Explorer.hxx>
  66 #include <XSControl_TransferWriter.hxx>
  67 #include <Message_ProgressSentry.hxx>
  68
  69
  70 extern "C" {
  71 static void cleanpilot ()
  72 {
  73   XSDRAW::Session()->ClearData(1);
  74 }
  75 }
  76
  77
  78 //=======================================================================
  79 //function : Init
  80 //purpose  :
  81 //=======================================================================
  82
  83 void XSDRAWSTEP::Init ()
  84 {
  85   Handle(StepSelect_Activator)   stepact = new StepSelect_Activator;
  86   if (STEPControl_Controller::Init()) // XSDRAW::SetNorm("STEP AP-214"); trop tot
  87     XSDRAW::SetController(XSControl_Controller::Recorded("STEP"));
  88
  89   atexit (cleanpilot);
  90 }
  91
  92 //  ########  COMMANDE stepread  : teste le Reader  #########
  93
  94 //=======================================================================
  95 //function : stepread
  96 //purpose  :
  97 //=======================================================================
  98
  99 static Standard_Integer stepread (Draw_Interpretor& di/*theCommands*/, Standard_Integer argc, const char** argv)
 100 {
 101   if (argc < 3) {
 102     di << "Use: stepread  [file] [f or r (type of model full or reduced)]\n";
 103     return 1;
 104   }
 105   //  On admet le controller AP214 ou une variante
 106   DeclareAndCast(STEPControl_Controller,ctl,XSDRAW::Controller());
 107   if (ctl.IsNull()) XSDRAW::SetNorm("STEP");
 108
 109
 110   // Progress indicator
 111   Handle(Draw_ProgressIndicator) progress = new Draw_ProgressIndicator ( di, 1 );
 112   progress->SetScale ( 0, 100, 1 );
 113   progress->Show();
 114
 115   STEPControl_Reader sr (XSDRAW::Session(),Standard_False);
 116   TCollection_AsciiString fnom,rnom;
 117   Standard_Boolean modfic = XSDRAW::FileAndVar
 118     (argv[1],argv[2],"STEP",fnom,rnom);
 119   if (modfic) di<<" File STEP to read : "<<fnom.ToCString()<<"\n";
 120   else        di<<" Model taken from the session : "<<fnom.ToCString()<<"\n";
 121   di<<" -- Names of variables BREP-DRAW prefixed by : "<<rnom.ToCString()<<"\n";
 122   IFSelect_ReturnStatus readstat = IFSelect_RetVoid;
 123
 124   progress->NewScope ( 20, "Loading" ); // On average loading takes 20%
 125   progress->Show();
 126
 127   Standard_Boolean fromtcl = Standard_False;
 128   Standard_Boolean aFullMode = Standard_False;
 129   Standard_Integer k = 3;
 130   if(argc > k )
 131   {
 132     if(argv[k][0] == 'f' || argv[3][0] == 'F')
 133     {
 134       aFullMode = Standard_True;
 135       k++;
 136     }
 137     else if(argv[k][0] == 'r' || argv[3][0] == 'R')
 138     {
 139       aFullMode = Standard_False;
 140       k++;
 141     }
 142     else
 143       fromtcl = Standard_True;
 144
 145   }
 146   if(!fromtcl)
 147     fromtcl = argc > k;
 148   if(aFullMode)
 149     cout<<"Full model for translation with additional info will be used \n"<<flush;
 150   else
 151     cout<<"Reduced model for translation without additional info will be used \n"<<flush;
 152
 153   sr.WS()->SetModeStat(aFullMode);
 154
 155
 156   if (modfic) readstat = sr.ReadFile (fnom.ToCString());
 157   else  if (XSDRAW::Session()->NbStartingEntities() > 0) readstat = IFSelect_RetDone;
 158
 159   progress->EndScope();
 160   progress->Show();
 161
 162   if (readstat != IFSelect_RetDone) {
 163     if (modfic) di<<"Could not read file "<<fnom.ToCString()<<" , abandon"<<"\n";
 164     else di<<"No model loaded"<<"\n";
 165     return 1;
 166   }
 167
 168
 169   //   nom = "." -> fichier deja lu
 170   Standard_Integer i, num, nbs, modepri = 1;
 171   if (fromtcl) modepri = 4;
 172   Handle(Message_Messenger) aDIMessenger =
 173     new Message_Messenger (new Draw_Printer(di));
 174   while (modepri) {
 175     num = sr.NbRootsForTransfer();
 176     if (!fromtcl) {
 177       di<<"NbRootsForTransfer="<<num<<" :\n";
 178       for (i = 1; i <= num; i ++) {
 179         di<<"Root."<<i<<", Ent. ";
 180         sr.Model()->Print(sr.RootForTransfer(i),aDIMessenger);
 181         di<<" Type:"<<sr.RootForTransfer(i)->DynamicType()->Name()<<"\n";
 182       }
 183
 184       cout<<"Mode (0 End, 1 root n0 1, 2 one root/n0, 3 one entity/n0, 4 Selection) : "<<flush;
 185       cin>>modepri;
 186     }
 187
 188     if (modepri == 0) { di<<"End Reading STEP"<<"\n"; return 0; }
 189     if (modepri <= 2) {
 190       num = 1;
 191       if (modepri == 2) {
 192         cout<<"Root N0 : "<<flush;  cin>>num;
 193       }
 194
 195       progress->NewScope ( 80, "Translation" );
 196       progress->Show();
 197       sr.WS()->MapReader()->SetProgress ( progress );
 198
 199       if (!sr.TransferRoot (num)) di<<"Transfer root n0 "<<num<<" : no result"<<"\n";
 200       else {
 201         nbs = sr.NbShapes();
 202         char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),nbs);
 203         di<<"Transfer root n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
 204         di<<"Now, "<<nbs<<" Shapes produced"<<"\n";
 205         TopoDS_Shape sh = sr.Shape(nbs);
 206         DBRep::Set (shname,sh);
 207       }
 208
 209       sr.WS()->MapReader()->SetProgress ( 0 );
 210       progress->EndScope();
 211       progress->Show();
 212     }
 213     else if (modepri == 3) {
 214       cout<<"Entity : "<<flush;  num = XSDRAW::GetEntityNumber();
 215       if (!sr.TransferOne (num)) di<<"Transfer entity n0 "<<num<<" : no result"<<"\n";
 216       else {
 217         nbs = sr.NbShapes();
 218         char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),num);
 219         di<<"Transfer entity n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
 220         di<<"Now, "<<nbs<<" Shapes produced"<<"\n";
 221         TopoDS_Shape sh = sr.Shape(nbs);
 222         DBRep::Set (shname,sh);
 223       }
 224     }
 225     else if (modepri == 4) {
 226       //      char snm[100];  Standard_Integer answer = 1;
 227       Handle(TColStd_HSequenceOfTransient)  list;
 228
 229       //  Selection, nommee ou via tcl. tcl : raccourcis admis
 230       //   * donne xst-transferrable-roots
 231       if (fromtcl) {
 232         modepri = 0;    // d ioffice une seule passe
 233         if (argv[k][0] == '*' && argv[k][1] == '\0') {
 234           di<<"Transferrable Roots : ";
 235           list = XSDRAW::GetList("xst-transferrable-roots");
 236           //list = new TColStd_HSequenceOfTransient;
 237           //for(Standard_Integer j=1; j<=num; j++)
 238           //  list->Append(sr.RootForTransfer(j));
 239         }
 240         else {
 241           di<<"List given by "<<argv[k];
 242           if (argc > k+1) di<<" "<<argv[k+1];
 243           di<<" : ";
 244           list = XSDRAW::GetList (argv[k], ( argc > (k+1) ? argv[k+1] : 0 ) );
 245         }
 246         if (list.IsNull()) { di<<"No list defined. Give a selection name or * for all transferrable roots"<<"\n"; continue; }
 247       } else {
 248         cout<<"Name of Selection :"<<flush;
 249         list = XSDRAW::GetList();
 250         if (list.IsNull()) { di<<"No list defined"<<"\n"; continue; }
 251       }
 252
 253       Standard_Integer ill, nbl = list->Length();
 254       di<<"Nb entities selected : "<<nbl<<"\n";
 255       if (nbl == 0) continue;
 256
 257       progress->NewScope ( 80, "Translation" );
 258       progress->Show();
 259       sr.WS()->MapReader()->SetProgress ( progress );
 260
 261       Message_ProgressSentry PSentry ( progress, "Root", 0, nbl, 1 );
 262       for (ill = 1; ill <= nbl && PSentry.More(); ill ++, PSentry.Next()) {
 263         num = sr.Model()->Number(list->Value(ill));
 264         if (num == 0) continue;
 265         if (!sr.TransferOne(num)) di<<"Transfer entity n0 "<<num<<" : no result"<<"\n";
 266         else {
 267           nbs = sr.NbShapes();
 268           char shname[30];  Sprintf (shname,"%s_%d",rnom.ToCString(),nbs);
 269           di<<"Transfer entity n0 "<<num<<" OK  -> DRAW Shape: "<<shname<<"\n";
 270           di<<"Now, "<<nbs<<" Shapes produced"<<"\n";
 271           TopoDS_Shape sh = sr.Shape(nbs);
 272           DBRep::Set (shname,sh);
 273         }
 274       }
 275       sr.WS()->MapReader()->SetProgress ( 0 );
 276       progress->EndScope();
 277       progress->Show();
 278     }
 279     else di<<"Unknown mode n0 "<<modepri<<"\n";
 280   }
 281   return 0;
 282 }
 283
 284 //=======================================================================
 285 //function : testreadstep
 286 //purpose  :
 287 //=======================================================================
 288 static Standard_Integer testread (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 289 {
 290   if (argc != 3)
 291     {
 292       di << "ERROR in " << argv[0] << "Wrong Number of Arguments."<<"\n";
 293       di << " Usage : " << argv[0] <<" file_name shape_name"<< "\n";
 294       return 1;
 295     }
 296   STEPControl_Reader Reader;
 297   Standard_CString filename = argv[1];
 298   IFSelect_ReturnStatus readstat = Reader.ReadFile(filename);
 299   di<<"Status from reading STEP file "<<filename<<" : ";
 300   switch(readstat) {
 301     case IFSelect_RetVoid  : { di<<"empty file"<<"\n"; return 1; }
 302     case IFSelect_RetDone  : { di<<"file read"<<"\n";    break; }
 303     case IFSelect_RetError : { di<<"file not found"<<"\n";   return 1; }
 304     case IFSelect_RetFail  : { di<<"error during read"<<"\n";  return 1; }
 305     default  :  { di<<"failure"<<"\n";   return 1; }
 306   }
 307   Reader.TransferRoots();
 308   TopoDS_Shape shape = Reader.OneShape();
 309   DBRep::Set(argv[2],shape);
 310   di<<"Count of shapes produced : "<<Reader.NbShapes()<<"\n";
 311   return 0;
 312 }
 313
 314 //=======================================================================
 315 //function : readstep
 316 //purpose  :
 317 //=======================================================================
 318
 319 static Standard_Integer readstep (Draw_Interpretor& di, Standard_Integer /*argc*/, const char** argv)
 320 {
 321 //  On admet le controller AP214 ou une variante
 322
 323
 324   STEPControl_Reader sr;
 325
 326   IFSelect_ReturnStatus readstat = IFSelect_RetVoid;
 327
 328    readstat = sr.ReadFile (argv[1]);
 329
 330   if (readstat != IFSelect_RetDone) {
 331
 332     di<<"No model loaded"<<"\n";
 333     return 1;
 334   }
 335
 336
 337   Standard_Integer  num = sr.NbRootsForTransfer();
 338   Standard_Integer  modepri;
 339   di<<"NbRootsForTransfer="<<num<<" :\n";
 340
 341   cout<<"Mode (0 End, 1 root n0 1, 2 one root/n0, 3 one entity/n0, 4 Selection) : "<<flush;
 342   cin>>modepri;
 343   if (modepri == 0) { di<<"End Reading STEP"<<"\n"; return 0; }
 344
 345
 346   if (!sr.TransferRoot (num)) di<<"Transfer root n0 "<<num<<" : no result"<<"\n";
 347   else {
 348     TopoDS_Shape sh = sr.OneShape();
 349     DBRep::Set (argv[2],sh);
 350   }
 351   cin>>modepri;
 352   return 0;
 353 }
 354
 355 //  ########  COMMANDE steptrans  : teste les transformations  #########
 356 //=======================================================================
 357 //function : steptrans
 358 //purpose  :
 359 //=======================================================================
 360
 361 static Standard_Integer steptrans (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 362 {
 363   if (argc < 5) { di<<"give shape-name new-shape + entity-n0 entity-n0: AXIS2"<<"\n";
 364                   return 1; }
 365   TopoDS_Shape shape = DBRep::Get(argv[1]);
 366   if (shape.IsNull()) { di<<"Not a shape : "<<argv[1]<<"\n"; return 1; }
 367   Handle(StepGeom_Axis2Placement3d) ax1,ax2;
 368   Standard_Integer n1 = 0, n2 = 0;
 369   n1 = XSDRAW::GetEntityNumber(argv[3]);
 370   if (argc > 4) n2 = XSDRAW::GetEntityNumber(argv[4]);
 371   if (n1 > 0) ax1 = Handle(StepGeom_Axis2Placement3d)::DownCast
 372     (XSDRAW::Entity(n1));
 373   if (n2 > 0) ax2 = Handle(StepGeom_Axis2Placement3d)::DownCast
 374     (XSDRAW::Entity(n2));
 375   StepToTopoDS_MakeTransformed mktrans;
 376   if (mktrans.Compute (ax1,ax2)) {
 377     TopLoc_Location loc (mktrans.Transformation());
 378     shape.Move (loc);
 379 //    mktrans.Transform (shape);
 380     DBRep::Set (argv[2],shape);
 381     di<<"Transformed Shape as "<<argv[2]<<"\n";
 382   }
 383   else di<<"No transformation computed"<<"\n";
 384   return 0;
 385 }
 386
 387 //  ########  COMMANDE stepwrite : teste le Writer  #########
 388
 389 //=======================================================================
 390 //function : stepwrite
 391 //purpose  :
 392 //=======================================================================
 393
 394 static Standard_Integer stepwrite (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 395 {
 396 //  On admet le controller AP214 ou une variante
 397   DeclareAndCast(STEPControl_Controller,ctl,XSDRAW::Controller());
 398   if (ctl.IsNull()) {
 399     XSDRAW::SetNorm("STEP");
 400     //sln 14.01.2002 OCC51: assign new value to ctl in order to avoid exception during using one in the function
 401     ctl = Handle(STEPControl_Controller)::DownCast(XSDRAW::Controller());
 402   }
 403
 404   if (argc < 3) {
 405     di<<"Give mode[1-4] and Shape name + optional file. Mode possible"<<"\n";
 406     di<<"f ou 1 : FacettedBRep        s ou 2 : ShellBasedSurfaceModel\n"
 407         <<"m ou 3 : ManifoldSolidBrep   w ou 4 : GeometricCurveSet/WireFrame"<<"\n";
 408     return 1; }
 409   char modeshape = argv[1][0];
 410   STEPControl_StepModelType mode;
 411   switch (modeshape) {
 412     case 'a' :
 413     case '0' : mode = STEPControl_AsIs;                    break;
 414     case 'f' :
 415     case '1' : mode = STEPControl_FacetedBrep;             break;
 416     case 's' :
 417     case '2' : mode = STEPControl_ShellBasedSurfaceModel;  break;
 418     case 'm' :
 419     case '3' : mode = STEPControl_ManifoldSolidBrep;       break;
 420     case 'w' :
 421     case '4' : mode = STEPControl_GeometricCurveSet;       break;
 422     default :  di<<"1st arg = mode, incorrect [give fsmw]"<<"\n"; return 1;
 423   }
 424
 425   //:k8 abv 6 Jan 98: using parameter for writing mode (assemblies/shapes)
 426   Handle(STEPControl_ActorWrite) ActWrite =
 427     Handle(STEPControl_ActorWrite)::DownCast ( ctl->ActorWrite() );
 428   if ( ! ActWrite.IsNull() )
 429     ActWrite->SetGroupMode (Interface_Static::IVal("write.step.assembly"));
 430
 431   TopoDS_Shape shape = DBRep::Get(argv[2]);
 432   STEPControl_Writer sw (XSDRAW::Session(),Standard_False);
 433   Handle(Interface_InterfaceModel) stepmodel = sw.Model();
 434   Standard_Integer nbavant = (stepmodel.IsNull() ? 0 : stepmodel->NbEntities());
 435
 436   Handle(Draw_ProgressIndicator) progress = new Draw_ProgressIndicator ( di, 1 );
 437   progress->NewScope(90,"Translating");
 438   progress->Show();
 439   sw.WS()->TransferWriter()->FinderProcess()->SetProgress(progress);
 440
 441   Standard_Integer stat = sw.Transfer (shape,mode);
 442   if (stat == IFSelect_RetDone)
 443   {
 444     di << "Translation: OK\n";
 445   }
 446   else
 447   {
 448     di << "Error: translation failed, status = " << stat << "\n";
 449   }
 450
 451   sw.WS()->TransferWriter()->FinderProcess()->SetProgress(0);
 452   progress->EndScope();
 453   progress->Show();
 454   progress->NewScope(10,"Writing");
 455   progress->Show();
 456
 457 //   Que s est-il passe
 458   stepmodel = sw.Model();
 459   Standard_Integer nbapres = (stepmodel.IsNull() ? 0 : stepmodel->NbEntities());
 460   if (nbavant > 0) di<<"Beware : Model not empty before transferring"<<"\n";
 461   if (nbapres <= nbavant) di<<"Beware : No data produced by this transfer"<<"\n";
 462   if (nbapres == 0) { di<<"No data to write"<<"\n"; return 0; }
 463
 464   if (argc <= 3) {
 465     di<<" Now, to write a file, command : writeall filename"<<"\n";
 466     return 0;
 467   }
 468
 469   const char *nomfic = argv[3];
 470   stat = sw.Write(nomfic);
 471   switch (stat) {
 472   case IFSelect_RetVoid : di<<"Error: No file written"<<"\n"; break;
 473     case IFSelect_RetDone : di<<"File "<<nomfic<<" written"<<"\n"; break;
 474     case IFSelect_RetStop : di<<"Error on writing file: no space on disk or destination is write protected"<<"\n"; break;
 475     default : di<<"Error: File "<<nomfic<<" written with fail messages"<<"\n"; break;
 476   }
 477
 478   progress->EndScope();
 479   progress->Show();
 480
 481   return 0;
 482 }
 483 //=======================================================================
 484 //function : testwritestep
 485 //purpose  :
 486 //=======================================================================
 487 static Standard_Integer testwrite (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 488 {
 489   if (argc != 3)
 490     {
 491       di << "ERROR in " << argv[0] << "Wrong Number of Arguments."<<"\n";
 492       di << " Usage : " << argv[0] <<" file_name shape_name "<< "\n";
 493       return 1;
 494     }
 495   STEPControl_Writer Writer;
 496   Standard_CString filename = argv[1];
 497   TopoDS_Shape shape = DBRep::Get(argv[2]);
 498   IFSelect_ReturnStatus stat = Writer.Transfer(shape,STEPControl_AsIs);
 499   stat = Writer.Write(filename);
 500   if(stat != IFSelect_RetDone){
 501     di<<"Error on writing file"<<"\n";
 502     return 1;
 503   }
 504   di<<"File Is Written"<<"\n";
 505   return 0;
 506 }
 507
 508 //=======================================================================
 509 //function : countexpected
 510 //purpose  :
 511 //=======================================================================
 512
 513 static Standard_Integer countexpected
 514   (Draw_Interpretor& di, Standard_Integer /*argc*/, const char** /*argv*/)
 515 {
 516   Handle(IFSelect_SessionPilot) pilot = XSDRAW::Pilot();
 517   Handle(IFSelect_WorkSession) WS = pilot->Session();
 518    const Interface_Graph& graph = WS->Graph();
 519
 520   Handle(TColStd_HSequenceOfTransient) roots = WS->GiveList("xst-transferrable-roots", "");
 521   STEPSelections_Counter cnt;
 522
 523   for (Standard_Integer i =1 ; i <= roots->Length(); i++) {
 524     cnt.Count(graph,roots->Value(i));
 525   }
 526
 527   di<< "Instances of Faces \t: "<<cnt.NbInstancesOfFaces()<<"\n";
 528   di<< "Instances of Shells\t: "<<cnt.NbInstancesOfShells()<<"\n";
 529   di<< "Instances of Solids\t: "<<cnt.NbInstancesOfSolids()<<"\n";
 530   di<< "Instances of Wires in GS\t: "<<cnt.NbInstancesOfWires()<<"\n";
 531   di<< "Instances of Edges in GS\t: "<<cnt.NbInstancesOfEdges()<<"\n";
 532
 533   di<< "Source Faces \t: "<<cnt.NbSourceFaces()<<"\n";
 534   di<< "Source Shells\t: "<<cnt.NbSourceShells()<<"\n";
 535   di<< "Source Solids\t: "<<cnt.NbSourceSolids()<<"\n";
 536   di<< "Source Wires in GS\t: "<<cnt.NbSourceWires()<<"\n";
 537   di<< "Source Edges in GS\t: "<<cnt.NbSourceEdges()<<"\n";
 538
 539   return 1;
 540 }
 541
 542 static Standard_Integer dumpassembly
 543   (Draw_Interpretor& /*di*/, Standard_Integer /*argc*/, const char** /*argv*/)
 544 {
 545   Handle(IFSelect_SessionPilot) pilot = XSDRAW::Pilot();
 546   Handle(IFSelect_WorkSession) WS = pilot->Session();
 547   const Interface_Graph& graph = WS->Graph();
 548
 549   STEPSelections_AssemblyExplorer exp(graph);
 550   exp.Dump(cout);
 551   return 0;
 552 }
 553
 554 static Standard_Integer stepfileunits (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 555 {
 556
 557   if(  argc < 2)
 558   {
 559     cout<<"Error: Invalid number of parameters. Should be: getfileunits name_file"<<endl;
 560     return 1;
 561   }
 562   STEPControl_Reader aStepReader;
 563
 564   IFSelect_ReturnStatus readstat = IFSelect_RetVoid;
 565   readstat = aStepReader.ReadFile (argv[1]);
 566
 567   if (readstat != IFSelect_RetDone) {
 568
 569     di<<"No model loaded"<<"\n";
 570     return 1;
 571   }
 572
 573   TColStd_SequenceOfAsciiString anUnitLengthNames;
 574   TColStd_SequenceOfAsciiString anUnitAngleNames;
 575   TColStd_SequenceOfAsciiString anUnitSolidAngleNames;
 576   aStepReader.FileUnits( anUnitLengthNames,anUnitAngleNames,anUnitSolidAngleNames);
 577
 578   Standard_Integer i =1;
 579   di<<"=====================================================\n";
 580   di<<"LENTH Unit"<<"\n";
 581   for( ; i <= anUnitLengthNames.Length() ; i++)
 582     di<<anUnitLengthNames(i).ToCString()<<"\n";
 583
 584   di<<"=====================================================\n";
 585   di<<"Angle Unit"<<"\n";
 586   for( i =1 ; i <= anUnitAngleNames.Length() ; i++)
 587     di<<anUnitAngleNames(i).ToCString()<<"\n";
 588
 589   di<<"=====================================================\n";
 590   di<<"Solid Angle Unit"<<"\n";
 591   for( i =1 ; i <= anUnitSolidAngleNames.Length() ; i++)
 592     di<<anUnitSolidAngleNames(i).ToCString()<<"\n";
 593
 594   return 0;
 595 }
 596 //  ########  COMMANDE stepwrite : teste le Writer  #########
 597
 598 void XSDRAWSTEP::InitCommands (Draw_Interpretor& theCommands)
 599 {
 600   const char* g = "DE: STEP";  // Step transfer file commands
 601   XSDRAWSTEP::Init();
 602   XSDRAW::LoadDraw(theCommands);
 603   theCommands.Add("stepwrite" ,    "stepwrite mode[0-4 afsmw] shape",  __FILE__, stepwrite,     g);
 604   theCommands.Add("testwritestep", "testwritestep filename.stp shape", __FILE__, testwrite,     g);
 605   theCommands.Add("stepread",      "stepread  [file] [f or r (type of model full or reduced)]",__FILE__, stepread,      g);
 606   theCommands.Add("testreadstep",  "testreadstep [file] [name DRAW]",  __FILE__, testread,      g);
 607   theCommands.Add("steptrans",     "steptrans shape stepax1 stepax2",  __FILE__, steptrans,     g);
 608   theCommands.Add("countexpected","TEST",                              __FILE__, countexpected, g);
 609   theCommands.Add("dumpassembly", "TEST",                              __FILE__, dumpassembly,  g);
 610   theCommands.Add("readstep",      "readstep  [file]",                 __FILE__, readstep,      g);
 611   theCommands.Add("stepfileunits" , "stepfileunits name_file", __FILE__, stepfileunits,      g);
 612 }