mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-16 22:48:54 +08:00
6e33d3ced2
Redundant keyword 'mutable' removed in CDL files. In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed. Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
109 lines
4.0 KiB
Plaintext
109 lines
4.0 KiB
Plaintext
-- Created on: 1994-09-01
|
|
-- Created by: Marie Jose MARTZ
|
|
-- Copyright (c) 1994-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
--
|
|
-- This file is part of Open CASCADE Technology software library.
|
|
--
|
|
-- This library is free software; you can redistribute it and/or modify it under
|
|
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
|
-- by the Free Software Foundation, with special exception defined in the file
|
|
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
-- distribution for complete text of the license and disclaimer of any warranty.
|
|
--
|
|
-- Alternatively, this file may be used under the terms of Open CASCADE
|
|
-- commercial license or contractual agreement.
|
|
|
|
class Reader from IGESToBRep
|
|
|
|
---Purpose : A simple way to read geometric IGES data.
|
|
-- Encapsulates reading file and calling transfer tools
|
|
|
|
uses
|
|
IGESModel from IGESData,
|
|
ShareFlags from Interface,
|
|
TransientProcess from Transfer,
|
|
Shape from TopoDS,
|
|
SequenceOfShape from TopTools,
|
|
Actor from IGESToBRep
|
|
|
|
is
|
|
|
|
Create returns Reader;
|
|
---Purpose : Creates a Reader
|
|
|
|
LoadFile (me : in out; filename : CString) returns Integer;
|
|
---Purpose : Loads a Model from a file.Returns 0 if success.
|
|
-- returns 1 if the file could not be opened,
|
|
-- returns -1 if an error occurred while the file was being loaded.
|
|
|
|
SetModel (me : in out; model : IGESModel);
|
|
---Purpose : Specifies a Model to work on
|
|
-- Also clears the result and Done status, sets TransientProcess
|
|
|
|
Model (me) returns IGESModel;
|
|
---Purpose : Returns the Model to be worked on.
|
|
|
|
SetTransientProcess (me : in out; TP : TransientProcess);
|
|
---Purpose : Allows to set an already defined TransientProcess
|
|
-- (to be called after LoadFile or SetModel)
|
|
|
|
TransientProcess (me) returns TransientProcess;
|
|
---Purpose : Returns the TransientProcess
|
|
|
|
Actor (me) returns Actor from IGESToBRep;
|
|
---Purpose : Returns "theActor"
|
|
|
|
Clear (me : in out);
|
|
---Purpose : Clears the results between two translation operations.
|
|
|
|
Check (me; withprint : Boolean) returns Boolean;
|
|
---Purpose : Checks the IGES file that was
|
|
-- loaded into memory. Displays error messages in the default
|
|
-- message file if withprint is true. Returns True if no fail
|
|
-- message was found and False if there was at least one fail message.
|
|
|
|
TransferRoots (me : in out; onlyvisible : Boolean = Standard_True);
|
|
---Purpose : Translates root entities in an
|
|
-- IGES file. Standard_True is the default value and means that only
|
|
-- visible root entities are translated. Standard_False
|
|
-- translates all of the roots (visible and invisible).
|
|
|
|
Transfer (me : in out; num : Integer) returns Boolean;
|
|
---Purpose : Transfers an Entity given its rank in the Model (Root or not)
|
|
-- Returns True if it is recognized as Geom-Topol.
|
|
-- (But it can have failed : see IsDone)
|
|
|
|
IsDone (me) returns Boolean;
|
|
---Purpose : Returns True if the LAST Transfer/TransferRoots was a success
|
|
|
|
UsedTolerance (me) returns Real;
|
|
---Purpose : Returns the Tolerance which has been actually used, converted
|
|
-- in millimeters
|
|
-- (either that from File or that from Session, according the mode)
|
|
|
|
NbShapes (me) returns Integer;
|
|
---Purpose : Returns the number of shapes produced by the translation.
|
|
|
|
Shape (me; num : Integer = 1) returns Shape from TopoDS;
|
|
---Purpose : Returns the num the resulting shape in a translation operation.
|
|
|
|
OneShape (me) returns Shape from TopoDS;
|
|
---Purpose : Returns all of the results in a
|
|
-- single shape which is:
|
|
-- - a null shape if there are no results,
|
|
-- - a shape if there is one result,
|
|
-- - a compound containing the resulting shapes if there are several.
|
|
|
|
|
|
|
|
fields
|
|
|
|
theModel : IGESModel from IGESData;
|
|
theDone : Boolean;
|
|
theShapes : SequenceOfShape from TopTools;
|
|
theActor : Actor from IGESToBRep;
|
|
theProc : TransientProcess from Transfer;
|
|
|
|
end Reader;
|