OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
Code Packages Releases Activity
occt/src/STEPCAFControl/STEPCAFControl_Writer.cxx
nbv 9e20ed5793 0023547: Tests failures in debug mode 
1. DRAW-commands for curve/surface continuity returning were changed.
2. Output of "distmini" DRAW-command is amended.
3. Function MinMax() was moved from Standard_Real to IntPatch_ImpImpIntersection_4.gxx.
4. Incorrect computing of nbcurveC1 in Geom2dConvert::C0BSplineToC1BSplineCurve(...) function was liquidated.

Test cases were changed.
2014-10-16 16:45:13 +04:00

2674 lines
104 KiB
C++
Raw Blame History

// Created on: 2000-08-15
// Created by: Andrey BETENEV
// Copyright (c) 2000-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.
// CURRENT LIMITATIONS:
// when val props and names assigned to instance of
// component in assembly, it is in fact supposed that only one CDSR corresponds
// to such shape. This can be wrong and should be handled more carefully
// (analysis of SDRs which the CDSR links should be done)
// Names and validation props are supported for top-level shapes only
#include <STEPCAFControl_Writer.ixx>
#include <STEPControl_StepModelType.hxx>
#include <XCAFDoc_ShapeTool.hxx>
#include <TDF_LabelSequence.hxx>
#include <TopoDS_Shape.hxx>
#include <XCAFPrs_DataMapOfShapeStyle.hxx>
#include <XCAFPrs.hxx>
#include <XCAFPrs_DataMapOfStyleShape.hxx>
#include <XCAFPrs_Style.hxx>
#include <XCAFPrs_DataMapIteratorOfDataMapOfStyleShape.hxx>
#include <TopTools_SequenceOfShape.hxx>
#include <TopoDS_Iterator.hxx>
#include <STEPConstruct_Styles.hxx>
#include <XCAFDoc_ColorTool.hxx>
#include <STEPConstruct.hxx>
#include <TopTools_MapOfShape.hxx>
#include <XSControl_TransferWriter.hxx>
#include <TDataStd_Name.hxx>
#include <StepShape_ShapeDefinitionRepresentation.hxx>
#include <TransferBRep_ShapeMapper.hxx>
#include <TransferBRep.hxx>
#include <StepRepr_PropertyDefinition.hxx>
#include <StepBasic_ProductDefinition.hxx>
#include <StepBasic_Product.hxx>
#include <TCollection_HAsciiString.hxx>
#include <TCollection_AsciiString.hxx>
#include <Transfer_FinderProcess.hxx>
#include <StepBasic_ProductDefinitionFormation.hxx>
#include <XCAFDoc_DocumentTool.hxx>
#include <TDF_Label.hxx>
#include <STEPCAFControl_Controller.hxx>
#include <STEPCAFControl_IteratorOfDictionaryOfExternFile.hxx>
#include <STEPConstruct_ExternRefs.hxx>
#include <Interface_Static.hxx>
#include <TopoDS_Compound.hxx>
#include <BRep_Builder.hxx>
#include <Transfer_ActorOfFinderProcess.hxx>
#include <STEPCAFControl_ActorWrite.hxx>
#include <STEPConstruct_ValidationProps.hxx>
#include <XCAFDoc_Area.hxx>
#include <XCAFDoc_Volume.hxx>
#include <XCAFDoc_Centroid.hxx>
#include <StepShape_ContextDependentShapeRepresentation.hxx>
#include <StepRepr_ProductDefinitionShape.hxx>
#include <StepBasic_ProductDefinitionRelationship.hxx>
#include <XCAFDoc_GraphNode.hxx>
#include <XCAFDoc_LayerTool.hxx>
#include <StepVisual_PresentationLayerAssignment.hxx>
#include <XCAFDoc.hxx>
#include <StepVisual_HArray1OfLayeredItem.hxx>
#include <TColStd_HSequenceOfTransient.hxx>
#include <TDF_Tool.hxx>
#include <Message_Messenger.hxx>
#include <TDF_ChildIterator.hxx>
#include <Transfer_Binder.hxx>
#include <Transfer_TransientListBinder.hxx>
#include <StepVisual_InvisibleItem.hxx>
#include <TDataStd_UAttribute.hxx>
#include <StepVisual_Invisibility.hxx>
#include <StepVisual_HArray1OfInvisibleItem.hxx>
#include <HeaderSection_FileSchema.hxx>
#include <StepData_StepModel.hxx>
#include <StepAP214_Protocol.hxx>
#include <OSD_Path.hxx>
#include <XSControl_WorkSession.hxx>
#include <StepRepr_HArray1OfRepresentationItem.hxx>
#include <MoniTool_DataMapIteratorOfDataMapOfShapeTransient.hxx>
#include <StepRepr_Representation.hxx>
#include <StepVisual_MechanicalDesignGeometricPresentationRepresentation.hxx>
#include <Quantity_TypeOfColor.hxx>
#include <StepVisual_HArray1OfPresentationStyleAssignment.hxx>
#include <StepVisual_PresentationStyleAssignment.hxx>
#include <StepVisual_StyledItem.hxx>
#include <StepVisual_PresentationStyleByContext.hxx>
#include <StepVisual_HArray1OfPresentationStyleSelect.hxx>
#include <TDF_AttributeSequence.hxx>
#include <TColStd_MapOfTransient.hxx>
// #include <TColStd_IndexedDataMapOfTransientTransient.hxx>
#include <StepRepr_NextAssemblyUsageOccurrence.hxx>
#include <Interface_EntityIterator.hxx>
#include <StepRepr_SpecifiedHigherUsageOccurrence.hxx>
// added by skl 15.01.2004 for D&GT writing
#include <XCAFDoc_DimTolTool.hxx>
#include <XCAFDoc_DimTol.hxx>
#include <XCAFDoc_Datum.hxx>
#include <STEPConstruct_DataMapOfAsciiStringTransient.hxx>
#include <STEPConstruct_DataMapOfPointTransient.hxx>
#include <StepBasic_MeasureValueMember.hxx>
#include <StepBasic_SiUnitAndLengthUnit.hxx>
#include <StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext.hxx>
#include <StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx.hxx>
#include <StepBasic_LengthMeasureWithUnit.hxx>
#include <StepShape_EdgeCurve.hxx>
#include <StepShape_AdvancedFace.hxx>
#include <StepShape_OrientedEdge.hxx>
#include <StepShape_EdgeLoop.hxx>
#include <StepShape_FaceBound.hxx>
#include <StepShape_ConnectedFaceSet.hxx>
#include <StepShape_ShapeRepresentation.hxx>
#include <StepShape_DimensionalSize.hxx>
#include <StepShape_ShapeDimensionRepresentation.hxx>
#include <StepShape_DimensionalCharacteristicRepresentation.hxx>
#include <StepRepr_ShapeAspect.hxx>
#include <StepRepr_ShapeAspectRelationship.hxx>
#include <StepRepr_ReprItemAndLengthMeasureWithUnit.hxx>
//#include <StepRepr_CompoundItemDefinition.hxx>
//#include <StepRepr_CompoundItemDefinitionMember.hxx>
#include <StepRepr_ValueRange.hxx>
#include <StepData_Logical.hxx>
#include <StepDimTol_DatumFeature.hxx>
#include <StepDimTol_Datum.hxx>
#include <StepDimTol_DatumReference.hxx>
#include <StepDimTol_HArray1OfDatumReference.hxx>
#include <StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol.hxx>
#include <StepDimTol_ModifiedGeometricTolerance.hxx>
#include <StepDimTol_GeometricToleranceWithDatumReference.hxx>
#include <StepDimTol_AngularityTolerance.hxx>
#include <StepDimTol_CircularRunoutTolerance.hxx>
#include <StepDimTol_CoaxialityTolerance.hxx>
#include <StepDimTol_ConcentricityTolerance.hxx>
#include <StepDimTol_ParallelismTolerance.hxx>
#include <StepDimTol_PerpendicularityTolerance.hxx>
#include <StepDimTol_SymmetryTolerance.hxx>
#include <StepDimTol_TotalRunoutTolerance.hxx>
#include <StepDimTol_CylindricityTolerance.hxx>
#include <StepDimTol_FlatnessTolerance.hxx>
#include <StepDimTol_LineProfileTolerance.hxx>
#include <StepDimTol_PositionTolerance.hxx>
#include <StepDimTol_RoundnessTolerance.hxx>
#include <StepDimTol_StraightnessTolerance.hxx>
#include <StepDimTol_SurfaceProfileTolerance.hxx>
#include <TColStd_HArray1OfReal.hxx>
#include <TColStd_HArray1OfTransient.hxx>
// added by skl 12.02.2004 for writing materials
#include <XCAFDoc_MaterialTool.hxx>
#include <XCAFDoc_Material.hxx>
#include <TDataStd_TreeNode.hxx>
#include <StepRepr_DescriptiveRepresentationItem.hxx>
#include <StepBasic_SiUnitAndMassUnit.hxx>
#include <StepBasic_DerivedUnitElement.hxx>
#include <StepBasic_HArray1OfDerivedUnitElement.hxx>
#include <StepBasic_DerivedUnit.hxx>
#include <StepRepr_MeasureRepresentationItem.hxx>
#include <StepBasic_ProductDefinition.hxx>
//=======================================================================
//function : GetLabelName
//purpose : auxilary function: take name of label and append it to str
//=======================================================================
static Standard_Boolean GetLabelName (const TDF_Label &L, Handle(TCollection_HAsciiString) &str)
{
Handle(TDataStd_Name) N;
if ( ! L.FindAttribute ( TDataStd_Name::GetID(), N ) ) return Standard_False;
TCollection_ExtendedString name = N->Get();
if ( name.Length() <=0 ) return Standard_False;
// set name, converting it to Ascii and removing spaces
TCollection_AsciiString buf ( name, '?' );
buf.LeftAdjust();
buf.RightAdjust();
buf.ChangeAll(' ','_');
str->AssignCat ( buf.ToCString() );
return Standard_True;
}
//=======================================================================
//function : STEPCAFControl_Writer
//purpose :
//=======================================================================
STEPCAFControl_Writer::STEPCAFControl_Writer () :
myColorMode( Standard_True ),
myNameMode ( Standard_True ),
myLayerMode( Standard_True ),
myPropsMode( Standard_True ),
mySHUOMode ( Standard_True ),
myDGTMode ( Standard_True ),
myMatMode ( Standard_True )
{
STEPCAFControl_Controller::Init();
Handle(XSControl_WorkSession) WS = new XSControl_WorkSession;
Init ( WS );
}
//=======================================================================
//function : STEPCAFControl_Writer
//purpose :
//=======================================================================
STEPCAFControl_Writer::STEPCAFControl_Writer (const Handle(XSControl_WorkSession)& WS,
const Standard_Boolean scratch)
{
STEPCAFControl_Controller::Init();
Init ( WS, scratch );
myColorMode = Standard_True;
myNameMode = Standard_True;
myLayerMode = Standard_True;
myPropsMode = Standard_True;
mySHUOMode = Standard_True;
}
//=======================================================================
//function : Init
//purpose :
//=======================================================================
void STEPCAFControl_Writer::Init (const Handle(XSControl_WorkSession)& WS,
const Standard_Boolean scratch)
{
WS->SelectNorm ( "STEP" );
myWriter.SetWS (WS,scratch);
myFiles = new STEPCAFControl_DictionaryOfExternFile;
myLabEF.Clear();
myLabels.Clear();
}
//=======================================================================
//function : Write
//purpose :
//=======================================================================
IFSelect_ReturnStatus STEPCAFControl_Writer::Write (const Standard_CString filename)
{
IFSelect_ReturnStatus status = myWriter.Write ( filename );
// get directory name of the main file
OSD_Path mainfile ( filename );
mainfile.SetName ( "" );
mainfile.SetExtension ( "" );
TCollection_AsciiString dpath;
mainfile.SystemName ( dpath );
STEPCAFControl_IteratorOfDictionaryOfExternFile it ( myFiles );
for ( ; it.More(); it.Next() ) {
Handle(STEPCAFControl_ExternFile) EF = it.Value();
if ( EF->GetWriteStatus() != IFSelect_RetVoid ) continue;
// construct extern file name
TCollection_AsciiString fname = OSD_Path::AbsolutePath ( dpath, EF->GetName()->String() );
if ( fname.Length() <= 0 ) fname = EF->GetName()->String();
#ifdef STEPCAFCONTROL_DEB
cout << "Writing external file: " << fname.ToCString() << endl;
#endif
EF->SetWriteStatus ( EF->GetWS()->SendAll ( fname.ToCString() ) );
}
return status;
}
//=======================================================================
//function : Transfer
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::Transfer (const Handle(TDocStd_Document) &doc,
const STEPControl_StepModelType mode,
const Standard_CString multi)
{
Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( doc->Main() );
if ( STool.IsNull() ) return Standard_False;
TDF_LabelSequence labels;
STool->GetFreeShapes ( labels );
return Transfer ( myWriter, labels, mode, multi );
}
//=======================================================================
//function : Transfer
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::Transfer (const TDF_Label &L,
const STEPControl_StepModelType mode,
const Standard_CString multi)
{
TDF_LabelSequence labels;
labels.Append ( L );
return Transfer ( myWriter, labels, mode, multi );
}
//=======================================================================
//function : Perform
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
const Standard_CString filename)
{
if ( ! Transfer ( doc ) ) return Standard_False;
return Write ( filename ) == IFSelect_RetDone;
}
//=======================================================================
//function : Perform
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
const TCollection_AsciiString &filename)
{
if ( ! Transfer ( doc ) ) return Standard_False;
return Write ( filename.ToCString() ) == IFSelect_RetDone;
}
//=======================================================================
//function : ExternFiles
//purpose :
//=======================================================================
const Handle(STEPCAFControl_DictionaryOfExternFile) &STEPCAFControl_Writer::ExternFiles () const
{
return myFiles;
}
//=======================================================================
//function : ExternFile
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::ExternFile (const TDF_Label &L,
Handle(STEPCAFControl_ExternFile) &ef) const
{
ef.Nullify();
if ( ! myLabEF.IsBound ( L ) ) return Standard_False;
ef = myLabEF.Find ( L );
return Standard_True;
}
//=======================================================================
//function : ExternFile
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::ExternFile (const Standard_CString name,
Handle(STEPCAFControl_ExternFile) &ef) const
{
ef.Nullify();
if ( ! myFiles.IsNull() || ! myFiles->HasItem ( name ) )
return Standard_False;
ef = myFiles->Item ( name );
return Standard_True;
}
//=======================================================================
//function : Writer
//purpose :
//=======================================================================
STEPControl_Writer &STEPCAFControl_Writer::ChangeWriter ()
{
return myWriter;
}
//=======================================================================
//function : Writer
//purpose :
//=======================================================================
const STEPControl_Writer &STEPCAFControl_Writer::Writer () const
{
return myWriter;
}
//=======================================================================
//function : Transfer
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::Transfer (STEPControl_Writer &writer,
const TDF_LabelSequence &labels,
const STEPControl_StepModelType mode,
const Standard_CString multi,
const Standard_Boolean isExternFile)
{
if ( labels.Length() <=0 ) return Standard_False;
Handle(STEPCAFControl_ActorWrite) Actor =
Handle(STEPCAFControl_ActorWrite)::DownCast ( writer.WS()->NormAdaptor()->ActorWrite() );
// translate free top-level shapes of the DECAF document
Standard_Integer ap = Interface_Static::IVal ("write.step.schema");
TDF_LabelSequence sublabels;
for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
TDF_Label L = labels.Value(i);
TopoDS_Shape dummy;
if ( myLabels.IsBound ( L ) ) continue; // already processed
TopoDS_Shape shape = XCAFDoc_ShapeTool::GetShape ( L );
if ( shape.IsNull() ) continue;
// write shape either as a whole, or as multifile (with extern refs)
if ( ! multi /* || ! XCAFDoc_ShapeTool::IsAssembly ( L ) */ ) {
Actor->SetStdMode ( Standard_False );
// fill sequence of (sub) shapes for which attributes should be written
// and set actor to handle assemblies in a proper way
TDF_LabelSequence comp;
XCAFDoc_ShapeTool::GetComponents ( L, comp, Standard_True );
for ( Standard_Integer k=1; k <= comp.Length(); k++ ) {
TDF_Label ref;
if ( ! XCAFDoc_ShapeTool::GetReferredShape ( comp(k), ref ) ) continue;
if ( ! myLabels.IsBound ( ref ) ) {
TopoDS_Shape refS = XCAFDoc_ShapeTool::GetShape ( ref );
myLabels.Bind ( ref, refS );
sublabels.Append ( ref );
if ( XCAFDoc_ShapeTool::IsAssembly ( ref ) )
Actor->RegisterAssembly ( refS );
}
}
myLabels.Bind ( L, shape );
sublabels.Append ( L );
if ( XCAFDoc_ShapeTool::IsAssembly ( L ) )
Actor->RegisterAssembly ( shape );
writer.Transfer(shape,mode,Standard_False);
Actor->SetStdMode ( Standard_True ); // restore default behaviour
}
else {
// translate final solids
TopoDS_Shape Sass = TransferExternFiles ( L, mode, sublabels, multi );
// translate main assembly structure
/*
if ( ap == 3 ) { // if AP203, switch to AP214
Interface_Static::SetCVal ("write.step.schema", "AP214DIS");
Handle(StepData_StepModel) model =
Handle(StepData_StepModel)::DownCast ( writer.WS()->Model() );
if ( model->HasHeaderEntity(STANDARD_TYPE(HeaderSection_FileSchema)) ) {
Handle(HeaderSection_FileSchema) fs =
Handle(HeaderSection_FileSchema)::DownCast ( model->HeaderEntity(STANDARD_TYPE(HeaderSection_FileSchema)) );
Handle(TCollection_HAsciiString) str = fs->SchemaIdentifiersValue ( 1 );
Handle(TCollection_HAsciiString) ap214 = new TCollection_HAsciiString ( "AUTOMOTIVE_DESIGN" );
if ( str->Search ( ap214 ) <0 ) {
str->Clear();
str->AssignCat ( ap214 );
}
}
}
*/
Standard_Integer assemblymode = Interface_Static::IVal ("write.step.assembly");
Interface_Static::SetCVal ("write.step.assembly", "On");
writer.Transfer ( Sass, STEPControl_AsIs );
Interface_Static::SetIVal ("write.step.assembly", assemblymode);
Interface_Static::SetIVal ("write.step.schema", ap);
}
}
writer.WS()->ComputeGraph(Standard_True );// added by skl 03.11.2003 since we use
// writer.Transfer() wihtout compute graph
// write names
if ( GetNameMode() )
WriteNames ( writer.WS(), sublabels );
if ( !multi ) {
// write colors
if ( GetColorMode() )
WriteColors ( writer.WS(), sublabels );
// write layers
if ( GetLayerMode() )
WriteLayers ( writer.WS(), sublabels );
// write SHUO entities
if ( GetSHUOMode() && !isExternFile )
// do not store SHUO for extern reference for the moment
WriteSHUOs ( writer.WS(), sublabels );
// write G&DTs
if(GetDimTolMode())
WriteDGTs(writer.WS(),sublabels);
// write Materials
if(GetMaterialMode())
WriteMaterials(writer.WS(),sublabels);
// register all MDGPRs in model
MoniTool_DataMapIteratorOfDataMapOfShapeTransient anItr(myMapCompMDGPR);
for (; anItr.More(); anItr.Next()) {
Handle(Interface_InterfaceModel) Model = writer.WS()->Model();
Model->AddWithRefs( anItr.Value() );
}
}
if ( multi ) { // external refs
WriteExternRefs ( writer.WS(), sublabels );
}
// write validation props
// if ( multi && ap ==3 ) {
// Interface_Static::SetCVal ("write.step.schema", "AP214DIS");
// }
if ( GetPropsMode() )
WriteValProps ( writer.WS(), sublabels, multi );
Interface_Static::SetIVal ("write.step.schema", ap);
// refresh graph
writer.WS()->ComputeGraph ( Standard_True );
/* ================================
* Write names for the sub-shapes
* ================================ */
if ( Interface_Static::IVal("write.stepcaf.subshapes.name") )
{
Handle(XSControl_TransferWriter) TW = this->ChangeWriter().WS()->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
for ( int i = 1; i <= labels.Length(); i++ )
{
TDF_Label L = labels.Value(i);
for ( TDF_ChildIterator it(L, Standard_True); it.More(); it.Next() )
{
TDF_Label SubL = it.Value();
// Access name recorded in OCAF TDataStd_Name attribute
Handle(TCollection_HAsciiString) hSubName = new TCollection_HAsciiString;
if ( !GetLabelName(SubL, hSubName) )
continue;
// Access topological data
TopoDS_Shape SubS = XCAFDoc_ShapeTool::GetShape(SubL);
if ( SubS.IsNull() )
continue;
// Access the correspondent STEP Representation Item
Handle(StepRepr_RepresentationItem) RI;
Handle(TransferBRep_ShapeMapper) aShMapper = TransferBRep::ShapeMapper(FP, SubS);
if ( !FP->FindTypedTransient(aShMapper, STANDARD_TYPE(StepRepr_RepresentationItem), RI) )
continue;
// Record the name
RI->SetName(hSubName);
}
}
}
return Standard_True;
}
//=======================================================================
//function : TransferExternFiles
//purpose :
//=======================================================================
TopoDS_Shape STEPCAFControl_Writer::TransferExternFiles (const TDF_Label &L,
const STEPControl_StepModelType mode,
TDF_LabelSequence &labels,
const Standard_CString prefix)
{
// if label already translated, just return the shape
if ( myLabels.IsBound ( L ) ) {
return myLabels.Find ( L );
}
TopoDS_Compound C;
BRep_Builder B;
B.MakeCompound ( C );
labels.Append ( L );
// if not assembly, write to separate file
if ( ! XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
// prepare for transfer
Handle(XSControl_WorkSession) newWS = new XSControl_WorkSession;
newWS->SelectNorm ( "STEP" );
STEPControl_Writer sw ( newWS, Standard_True );
TDF_LabelSequence Lseq;
Lseq.Append ( L );
// construct the name for extern file
Handle(TCollection_HAsciiString) basename = new TCollection_HAsciiString;
if ( prefix && prefix[0] ) basename->AssignCat ( prefix );
GetLabelName ( L, basename );
Handle(TCollection_HAsciiString) name = new TCollection_HAsciiString ( basename );
name->AssignCat ( ".stp" );
if ( myFiles->HasItem ( name->ToCString() ) ) { // avoid confusions
for ( Standard_Integer k=1; k < 32000; k++ ) {
name = new TCollection_HAsciiString ( basename );
name->AssignCat ( "_" );
name->AssignCat ( TCollection_AsciiString ( k ).ToCString() );
name->AssignCat ( ".stp" );
if ( ! myFiles->HasItem ( name->ToCString() ) ) break;
}
}
// translate and record extern file
Handle(STEPCAFControl_ExternFile) EF = new STEPCAFControl_ExternFile;
EF->SetWS ( newWS );
EF->SetName ( name );
EF->SetLabel ( L );
Standard_Integer assemblymode = Interface_Static::IVal ("write.step.assembly");
Interface_Static::SetCVal ("write.step.assembly", "Off");
const Standard_CString multi = 0;
EF->SetTransferStatus ( Transfer ( sw, Lseq, mode, multi, Standard_True ) );
Interface_Static::SetIVal ("write.step.assembly", assemblymode);
myLabEF.Bind ( L, EF );
myFiles->SetItem ( name->ToCString(), EF );
// return empty compound as replacement for the shape
myLabels.Bind ( L, C );
return C;
}
// else iterate on components add create structure of empty compounds
// representing the assembly
TDF_LabelSequence comp;
XCAFDoc_ShapeTool::GetComponents ( L, comp, Standard_False );
for ( Standard_Integer k=1; k <= comp.Length(); k++ ) {
TDF_Label lab = comp(k);
TDF_Label ref;
if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, ref ) ) continue;
TopoDS_Shape Scomp = TransferExternFiles ( ref, mode, labels, prefix );
Scomp.Location ( XCAFDoc_ShapeTool::GetLocation ( lab ) );
B.Add ( C, Scomp );
}
myLabels.Bind ( L, C );
return C;
}
//=======================================================================
//function : WriteExternRefs
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteExternRefs (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels) const
{
if ( labels.Length() <=0 ) return Standard_False;
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
STEPConstruct_ExternRefs EFTool ( WS );
Standard_Integer schema = Interface_Static::IVal("write.step.schema");
for ( Standard_Integer k=1; k <= labels.Length(); k++ ) {
TDF_Label lab = labels(k);
if ( XCAFDoc_ShapeTool::IsAssembly ( lab ) ) continue; // skip assemblies
// get extern file
Handle(STEPCAFControl_ExternFile) EF;
if ( ! ExternFile ( lab, EF ) ) continue; // should never be
// find SDR
if ( ! myLabels.IsBound ( lab ) ) continue; // not recorded as translated, skip
TopoDS_Shape S = myLabels.Find ( lab );
Handle(StepShape_ShapeDefinitionRepresentation) SDR;
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
if ( ! FP->FindTypedTransient ( mapper, STANDARD_TYPE(StepShape_ShapeDefinitionRepresentation), SDR ) ) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: Cannot find SDR for " << S.TShape()->DynamicType()->Name() << endl;
#endif
continue;
}
// add extern ref
const Standard_CString format = (const Standard_CString) ( schema == 3 ? "STEP AP203" : "STEP AP214" );
// try to get PD from SDR
StepRepr_RepresentedDefinition RD = SDR->Definition();
Handle(StepRepr_PropertyDefinition) aPropDef = RD.PropertyDefinition();
if (aPropDef.IsNull()) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: STEPCAFControl_Writer::WriteExternRefs StepRepr_PropertyDefinition is null for " << S.TShape()->DynamicType()->Name() << endl;
#endif
continue;
}
StepRepr_CharacterizedDefinition CharDef = aPropDef->Definition();
Handle(StepBasic_ProductDefinition) PD = CharDef.ProductDefinition();
if (PD.IsNull()) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: STEPCAFControl_Writer::WriteExternRefs StepBasic_ProductDefinition is null for " << S.TShape()->DynamicType()->Name() << endl;
#endif
continue;
}
EFTool.AddExternRef ( EF->GetName()->ToCString(), PD, format );
}
EFTool.WriteExternRefs(schema);
return Standard_True;
}
//=======================================================================
//function : FindEntities
//purpose : auxilary
//=======================================================================
static Standard_Integer FindEntities (const Handle(Transfer_FinderProcess) &FP,
const TopoDS_Shape &S,
TopLoc_Location &L,
TColStd_SequenceOfTransient &seqRI)
{
Handle(StepRepr_RepresentationItem) item = STEPConstruct::FindEntity ( FP, S, L );
if ( ! item.IsNull() ) {
seqRI.Append ( item );
return 1;
}
// may be S was splited during shape processing
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
Handle(Transfer_Binder) bnd = FP->Find ( mapper );
if ( bnd.IsNull() ) return 0;
Handle(Transfer_TransientListBinder) TransientListBinder =
//Handle(Transfer_TransientListBinder)::DownCast( bnd->Next(Standard_True) );
Handle(Transfer_TransientListBinder)::DownCast( bnd );
Standard_Integer nres=0;
if ( TransientListBinder.IsNull() && S.ShapeType() == TopAbs_COMPOUND)
{
for ( TopoDS_Iterator it(S); it.More(); it.Next() ) {
Handle(StepRepr_RepresentationItem) item = STEPConstruct::FindEntity ( FP, it.Value(), L );
if ( item.IsNull() ) continue;
nres++;
seqRI.Append ( item );
}
}
else
{
const Standard_Integer nb = TransientListBinder->NbTransients();
for (Standard_Integer i=1; i<=nb; i++) {
Handle(Standard_Transient) t = TransientListBinder->Transient(i);
item = Handle(StepRepr_RepresentationItem)::DownCast(t);
if ( item.IsNull() ) continue;
nres++;
seqRI.Append ( item );
}
}
/* works but is obsolete: another approach
if (i<=nb) {
TopoDS_Shape comp = TransferBRep::ShapeResult(bnd);
if ( ! comp.IsNull() && comp.ShapeType() < S.ShapeType() ) {
for ( TopoDS_Iterator it(comp); it.More(); it.Next() ) {
MakeSTEPStyles(Styles, it.Value(), settings, STEPstyle,
Map, ( hasOwn ? &style : 0 ) );
}
}
}
*/
return nres;
}
//=======================================================================
//function : getStyledItem
//purpose : auxilary
//=======================================================================
static Standard_Boolean getStyledItem(const TopoDS_Shape& S,
const Handle(XCAFDoc_ShapeTool)& STool,
const STEPConstruct_Styles &Styles,
Handle(StepVisual_StyledItem) &resSelItem,
const MoniTool_DataMapOfShapeTransient& myMapCompMDGPR)
{
TDF_Label aTopShL = STool->FindShape(S, Standard_False);
TopoDS_Shape aTopLevSh = STool->GetShape( aTopShL );
Standard_Boolean found = Standard_False;
if ( !aTopLevSh.IsNull() && myMapCompMDGPR.IsBound( aTopLevSh ) ) {
Handle(StepVisual_PresentationRepresentation) aMDGPR =
Handle(StepVisual_PresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopLevSh ) );
Handle(StepRepr_HArray1OfRepresentationItem) anSelItmHArr = aMDGPR->Items();
// search for PSA of Monifold solid
if ( !anSelItmHArr.IsNull() )
{
for (Standard_Integer si = 1; si <= anSelItmHArr->Length(); si++) {
Handle(StepVisual_StyledItem) aSelItm =
Handle(StepVisual_StyledItem)::DownCast(anSelItmHArr->Value(si));
if ( aSelItm.IsNull() )
continue;
// check that it is a stiled item for monifold solid brep
TopLoc_Location Loc;
TColStd_SequenceOfTransient aNewseqRI;
FindEntities ( Styles.FinderProcess(), aTopLevSh, Loc, aNewseqRI );
if ( aNewseqRI.Length() > 0 )
{
Handle(StepRepr_RepresentationItem) anItem = aSelItm->Item();
Standard_Boolean isSameMonSolBR = Standard_False;
for (Standard_Integer mi = 1; mi <= aNewseqRI.Length(); mi++) {
if ( !anItem.IsNull() && anItem == aNewseqRI.Value( mi ) ) {
isSameMonSolBR = Standard_True;
break;
}
}
if (!isSameMonSolBR)
continue;
}
for (Standard_Integer jsi = 1; jsi <= aSelItm->NbStyles() && !found; jsi++) {
Handle(StepVisual_PresentationStyleAssignment) aFatherPSA =
Handle(StepVisual_PresentationStyleAssignment)::DownCast(aSelItm->StylesValue(jsi));
// check for PSA for top-level (not Presentation style by contex for NAUO)
if (aFatherPSA.IsNull() || aFatherPSA->IsKind(STANDARD_TYPE(StepVisual_PresentationStyleByContext)))
continue;
resSelItem = aSelItm;
found = Standard_True;
}
}
}
}
return found;
}
//=======================================================================
//function : setDefaultInstanceColor
//purpose : auxilary
//=======================================================================
static Standard_Boolean setDefaultInstanceColor (const Handle(StepVisual_StyledItem) &aSelItm,
Handle(StepVisual_PresentationStyleAssignment)& PSA)
{
Standard_Boolean found = Standard_False;
for (Standard_Integer jsi = 1; jsi <= aSelItm->NbStyles() && !found; jsi++) {
Handle(StepVisual_PresentationStyleAssignment) aFatherPSA =
Handle(StepVisual_PresentationStyleAssignment)::DownCast(aSelItm->StylesValue(jsi));
// check for PSA for top-level (not Presentation style by contex for NAUO)
if (aFatherPSA.IsNull() || aFatherPSA->IsKind(STANDARD_TYPE(StepVisual_PresentationStyleByContext)))
return Standard_False;
// get style select from father PSA
if (aFatherPSA->NbStyles() > 0) {
Handle(StepVisual_HArray1OfPresentationStyleSelect) aFatherStyles =
new StepVisual_HArray1OfPresentationStyleSelect(1, aFatherPSA->NbStyles());
for (Standard_Integer k = 1; k <= aFatherPSA->NbStyles(); k++) {
StepVisual_PresentationStyleSelect PSS;
StepVisual_PresentationStyleSelect olDPSS = aFatherPSA->StylesValue(k);
if (!olDPSS.PointStyle().IsNull())
PSS.SetValue (olDPSS.PointStyle());
else if (!olDPSS.CurveStyle().IsNull())
PSS.SetValue (olDPSS.CurveStyle());
else if (!olDPSS.SurfaceStyleUsage().IsNull())
PSS.SetValue (olDPSS.SurfaceStyleUsage());
else {
found = Standard_False;
break;
}
//aFatherStyles->SetValue( k, PSS );
aFatherStyles->SetValue( k, olDPSS );
found = Standard_True;
}
// init PSA of NAUO
if (found) {
PSA->Init( aFatherStyles );
}
}
}
return found;
}
//=======================================================================
//function : MakeSTEPStyles
//purpose : auxilary
//=======================================================================
static void MakeSTEPStyles (STEPConstruct_Styles &Styles,
const TopoDS_Shape &S,
const XCAFPrs_DataMapOfShapeStyle &settings,
Handle(StepVisual_StyledItem) &override,
TopTools_MapOfShape &Map,
const MoniTool_DataMapOfShapeTransient& myMapCompMDGPR,
STEPConstruct_DataMapOfAsciiStringTransient &DPDCs,
STEPConstruct_DataMapOfPointTransient &ColRGBs,
const Handle(XCAFDoc_ColorTool)& CTool,
const XCAFPrs_Style *inherit = 0,
const Standard_Boolean isComponent = Standard_False)
{
// skip already processed shapes
if ( ! Map.Add ( S ) ) return;
// check if shape has its own style (r inherits from ancestor)
XCAFPrs_Style style;
if ( inherit ) style = *inherit;
if ( settings.IsBound(S) ) {
XCAFPrs_Style own = settings.Find(S);
if ( !own.IsVisible() ) style.SetVisibility ( Standard_False );
if ( own.IsSetColorCurv() ) style.SetColorCurv ( own.GetColorCurv() );
if ( own.IsSetColorSurf() ) style.SetColorSurf ( own.GetColorSurf() );
}
// translate colors to STEP
Handle(StepVisual_Colour) surfColor, curvColor;
if ( style.IsSetColorSurf() )
surfColor = Styles.EncodeColor(style.GetColorSurf(),DPDCs,ColRGBs);
if ( style.IsSetColorCurv() )
curvColor = Styles.EncodeColor(style.GetColorCurv(),DPDCs,ColRGBs);
Standard_Boolean hasOwn = ( ! surfColor.IsNull() ||
! curvColor.IsNull() ||
! style.IsVisible() );
// find target item and assign style to it
Handle(StepVisual_StyledItem) STEPstyle = override;
if ( hasOwn ) {
if ( S.ShapeType() != TopAbs_COMPOUND || isComponent ) { // skip compounds, let subshapes inherit its colors
TopLoc_Location L;
TColStd_SequenceOfTransient seqRI;
Standard_Integer nb = FindEntities ( Styles.FinderProcess(), S, L, seqRI );
#ifdef STEPCAFCONTROL_DEB
if ( nb <=0 ) cout << "Warning: Cannot find RI for " << S.TShape()->DynamicType()->Name() << endl;
#endif
//Get overridden style gka 10.06.03
if ( isComponent && nb)
getStyledItem(S, CTool->ShapeTool(), Styles, override,myMapCompMDGPR);
for ( Standard_Integer i=1; i <= nb; i++ ) {
Handle(StepRepr_RepresentationItem) item =
Handle(StepRepr_RepresentationItem)::DownCast(seqRI(i));
Handle(StepVisual_PresentationStyleAssignment) PSA;
if ( style.IsVisible() || !surfColor.IsNull() || !curvColor.IsNull() ) {
PSA = Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
}
else {
// default white color
surfColor = Styles.EncodeColor(Quantity_Color(1,1,1,Quantity_TOC_RGB),DPDCs,ColRGBs);
PSA = Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
if ( isComponent )
setDefaultInstanceColor( override, PSA);
} // end of component case
STEPstyle = Styles.AddStyle ( item, PSA, override );
hasOwn = Standard_False;
}
}
}
// iterate on subshapes (except vertices :)
if ( S.ShapeType() == TopAbs_EDGE ) return;
if ( !isComponent ) // PTV 10.02.2003
for ( TopoDS_Iterator it(S); it.More(); it.Next() ) {
MakeSTEPStyles ( Styles, it.Value(), settings, STEPstyle,
Map, myMapCompMDGPR, DPDCs, ColRGBs, CTool,
( hasOwn ? &style : 0 ) );
}
}
/*
static Standard_Boolean getFatherColor (const TDF_Label& L,
const Handle(XCAFDoc_ColorTool)& CTool,
XCAFPrs_Style& style)
{
Standard_Boolean done = Standard_False;
TopoDS_Shape aSh = CTool->ShapeTool()->GetShape( L );
TDF_Label aFL = CTool->ShapeTool()->FindShape( aSh );
if (aFL.IsNull() || aFL == L)
return done;
Quantity_Color C;
if ( CTool->GetColor ( aFL, XCAFDoc_ColorGen, C ) ) {
style.SetColorCurv ( C );
style.SetColorSurf ( C );
done = Standard_True;
}
if ( CTool->GetColor ( aFL, XCAFDoc_ColorSurf, C ) ) {
style.SetColorSurf ( C );
done = Standard_True;
}
if ( CTool->GetColor ( aFL, XCAFDoc_ColorCurv, C ) ) {
style.SetColorCurv ( C );
done = Standard_True;
}
return done;
}
*/
//=======================================================================
//function : WriteColors
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteColors (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels)
{
if ( labels.Length() <=0 ) return Standard_False;
// Iterate on shapes in the document
Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool( labels(1) );
if ( CTool.IsNull() ) return Standard_False;
STEPConstruct_Styles Styles ( WS );
STEPConstruct_DataMapOfAsciiStringTransient DPDCs;
STEPConstruct_DataMapOfPointTransient ColRGBs;
for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
TDF_Label L = labels.Value(i);
Handle(XCAFDoc_ShapeTool) aSTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
// Skip assemblies: colors assigned to assemblies and their instances
// are not supported (it is not clear how to encode that in STEP)
if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: Cannot write color for Assembly" << endl;
cout << "Info: Check for colors assigned to components in assembly" << endl;
#endif
// PTV 22.01.2003 Write color for instances.
TDF_LabelSequence compLabels;
if ( aSTool.IsNull() )
continue;
if (!aSTool->GetComponents(L, compLabels))
continue;
WriteColors(WS, compLabels);
continue;
}
Styles.ClearStyles();
// get a target shape and try to find corresponding context
// (all the colors set under that label will be put into that context)
TopoDS_Shape S;
if ( ! XCAFDoc_ShapeTool::GetShape ( L, S ) ) continue;
Standard_Boolean isComponent = aSTool->IsComponent( L );
TopoDS_Shape aTopSh = S;
Handle(StepRepr_RepresentationContext) Context = Styles.FindContext ( S );
if ( isComponent ) {
TDF_Label aTopShL = aSTool->FindShape(S, Standard_False);
if (aTopShL.IsNull())
continue;
aTopSh = aSTool->GetShape( aTopShL );
Context = Styles.FindContext ( aTopSh );
}
if ( Context.IsNull() )
continue;
// collect settings set on that label
XCAFPrs_DataMapOfShapeStyle settings;
TDF_LabelSequence seq;
seq.Append ( L );
XCAFDoc_ShapeTool::GetSubShapes ( L, seq );
Standard_Boolean isVisible = Standard_True;
for ( Standard_Integer j = 1; j <= seq.Length(); j++ ) {
TDF_Label lab = seq.Value(j);
XCAFPrs_Style style;
Quantity_Color C;
if ( lab == L ) {
// check for invisible status of object on label
if ( !CTool->IsVisible( lab ) ) {
isVisible = Standard_False;
style.SetVisibility( Standard_False );
}
}
if ( CTool->GetColor ( lab, XCAFDoc_ColorGen, C ) ) {
style.SetColorCurv ( C );
style.SetColorSurf ( C );
}
if ( CTool->GetColor ( lab, XCAFDoc_ColorSurf, C ) )
style.SetColorSurf ( C );
if ( CTool->GetColor ( lab, XCAFDoc_ColorCurv, C ) )
style.SetColorCurv ( C );
// commented, cause we are need to take reference from
// if ( isComponent && lab == L && !isVisible)
// if ( !style.IsSetColorSurf() && !style.IsSetColorCurv() ) {
// getFatherColor ( L, CTool, style);
// }
if ( ! style.IsSetColorCurv() && ! style.IsSetColorSurf() && isVisible ) continue;
TopoDS_Shape sub = XCAFDoc_ShapeTool::GetShape ( lab );
settings.Bind ( sub, style );
}
if ( settings.Extent() <=0 ) continue;
// iterate on subshapes and create STEP styles
Handle(StepVisual_StyledItem) override;
TopTools_MapOfShape Map;
MakeSTEPStyles(Styles,S,settings,override,Map,myMapCompMDGPR,DPDCs,ColRGBs,CTool,0,isComponent);
// create MDGPR and record it in model
Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation) aMDGPR;
if (!isComponent) {
if ( myMapCompMDGPR.IsBound( aTopSh )) {
#ifdef STEPCAFCONTROL_DEB
cerr << "Error: Current Top-Level shape have MDGPR already " << endl;
#endif
}
Styles.CreateMDGPR ( Context, aMDGPR );
if (!aMDGPR.IsNull())
myMapCompMDGPR.Bind( aTopSh, aMDGPR );
}
else {
// create SDR and add to model.
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
if ( FP->FindTypedTransient(mapper,
STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
CDSR) ) {
// create SDR for NAUO
Handle(StepRepr_ProductDefinitionShape) nullPDS; // important to be NULL
Styles.CreateNAUOSRD( Context, CDSR, nullPDS );
// search for MDGPR of the component top-level shape
if ( myMapCompMDGPR.IsBound( aTopSh )) {
aMDGPR = Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopSh ) );
} else {
aMDGPR = new StepVisual_MechanicalDesignGeometricPresentationRepresentation;
Handle(TCollection_HAsciiString) ReprName = new TCollection_HAsciiString ( "" );
aMDGPR->SetName( ReprName );
aMDGPR->SetContextOfItems( Context );
myMapCompMDGPR.Bind ( aTopSh, aMDGPR );
}
Handle(StepRepr_HArray1OfRepresentationItem) oldItems = aMDGPR->Items();
Standard_Integer oldLengthlen = 0;
if (!oldItems.IsNull())
oldLengthlen = oldItems->Length();
const Standard_Integer nbIt = oldLengthlen + Styles.NbStyles();
if(!nbIt)
continue;
Handle(StepRepr_HArray1OfRepresentationItem) newItems =
new StepRepr_HArray1OfRepresentationItem(1, nbIt);
Standard_Integer si;
Standard_Integer el = 1;
for ( si=1; si <= oldLengthlen; si++ )
newItems->SetValue( el++, oldItems->Value( si ) );
for ( si=1; si <= Styles.NbStyles(); si++ ) {
newItems->SetValue( el++, Handle(StepRepr_RepresentationItem)::DownCast(Styles.Style(si)));
// WP->Model()->AddWithRefs ( Handle(StepRepr_RepresentationItem)::DownCast (Styles.Style(si)));
}
if (newItems->Length() > 0)
aMDGPR->SetItems( newItems );
} //end of work with CDSR
}
if ( !isVisible ) {
// create invisibility item and refer for stiledItem
Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm =
new StepVisual_HArray1OfInvisibleItem (1,Styles.NbStyles());
// put all style item into the harray
for ( Standard_Integer si=1; si <= Styles.NbStyles(); si++ ) {
Handle(StepRepr_RepresentationItem) styledItm =
Handle(StepRepr_RepresentationItem)::DownCast(Styles.Style(si));
StepVisual_InvisibleItem anInvItem;
anInvItem.SetValue( styledItm );
HInvsblItm->SetValue( si, anInvItem );
}
// set the invisibility of items
Invsblt->Init( HInvsblItm );
WS->Model()->AddWithRefs( Invsblt );
}
}
return Standard_True;
}
//=======================================================================
//function : WriteNames
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteNames (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels) const
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
Handle(Interface_InterfaceModel) Model = WS->Model();
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
// Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
// if ( STool.IsNull() ) return Standard_False;
// Iterate on requested shapes
for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
TDF_Label L = labels.Value(i);
// get name
Handle(TCollection_HAsciiString) hName = new TCollection_HAsciiString;
if ( ! GetLabelName (L, hName) ) continue;
// Handle(TDataStd_Name) N;
// if ( ! L.FindAttribute ( TDataStd_Name::GetID(), N ) ) continue;
// TCollection_ExtendedString name = N->Get();
// if ( name.Length() <=0 ) continue;
// find target STEP entity for the current shape
// TopoDS_Shape S;
// if ( ! XCAFDoc_ShapeTool::GetShape ( L, S ) ) continue;
if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
TopoDS_Shape S = myLabels.Find ( L );
Handle(StepShape_ShapeDefinitionRepresentation) SDR;
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
if ( ! FP->FindTypedTransient ( mapper, STANDARD_TYPE(StepShape_ShapeDefinitionRepresentation), SDR ) ) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: Cannot find SDR for " << S.TShape()->DynamicType()->Name() << endl;
#endif
continue;
}
// set the name to the PRODUCT
Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
if ( PropD.IsNull() ) continue;
Handle(StepBasic_ProductDefinition) PD = PropD->Definition().ProductDefinition();
if ( PD.IsNull() ) continue;
Handle(StepBasic_Product) Prod = PD->Formation()->OfProduct();
Prod->SetId ( hName );
Prod->SetName ( hName );
// write names for components of assemblies
if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
TDF_LabelSequence seq;
XCAFDoc_ShapeTool::GetComponents ( L, seq );
for (Standard_Integer k=1; k <= seq.Length(); k++) {
TDF_Label lab = seq(k);
// get shape with correct location
TDF_Label Lref;
if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, Lref ) ||
! myLabels.IsBound ( Lref ) ) continue;
S = myLabels.Find ( Lref );
S.Move ( XCAFDoc_ShapeTool::GetLocation ( lab ) );
hName = new TCollection_HAsciiString;
if ( ! GetLabelName (lab, hName) ) continue;
// find the target CDSR corresponding to a shape
mapper = TransferBRep::ShapeMapper ( FP, S );
Handle(Transfer_Binder) binder = FP->Find ( mapper );
Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
if ( ! FP->FindTypedTransient (mapper,STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation), CDSR) )
continue;
Handle(StepRepr_ProductDefinitionShape) PDS = CDSR->RepresentedProductRelation();
Handle(StepBasic_ProductDefinitionRelationship) NAUO = PDS->Definition().ProductDefinitionRelationship();
if ( ! NAUO.IsNull() ) NAUO->SetName ( hName );
}
}
}
return Standard_True;
}
//=======================================================================
//function : WritePropsForLabel
//purpose :
//=======================================================================
static Standard_Boolean WritePropsForLabel(const Handle(XSControl_WorkSession) &WS,
const Handle(XCAFDoc_ShapeTool) &aSTool,
const STEPCAFControl_DataMapOfLabelShape &myLabels,
const TDF_Label &L,
const Standard_CString multi)
{
if(L.IsNull()) return Standard_False;
STEPConstruct_ValidationProps Props ( WS );
TopoDS_Shape S = aSTool->GetShape(L);
if(S.IsNull()) return Standard_False;
if ( ! multi || XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
// write area
Handle(XCAFDoc_Area) A;
L.FindAttribute ( XCAFDoc_Area::GetID(), A );
if ( ! A.IsNull() ) {
Props.AddArea ( S, A->Get() );
}
// write volume
Handle(XCAFDoc_Volume) V;
L.FindAttribute ( XCAFDoc_Volume::GetID(), V );
if ( ! V.IsNull() ) {
Props.AddVolume ( S, V->Get() );
}
}
// write centroid
Handle(XCAFDoc_Centroid) C;
L.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
if ( ! C.IsNull() ) {
Props.AddCentroid ( S, C->Get() );
}
if( XCAFDoc_ShapeTool::IsCompound(L) || XCAFDoc_ShapeTool::IsAssembly(L) ) {
if(L.HasChild()) {
for(Standard_Integer ich=1; ich<=L.NbChildren(); ich++) {
WritePropsForLabel(WS,aSTool,myLabels,L.FindChild(ich),multi);
}
}
}
return Standard_True;
}
//=======================================================================
//function : WriteValProps
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteValProps (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels,
const Standard_CString multi) const
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
// STEPConstruct_ValidationProps Props ( WS );
Handle(XCAFDoc_ShapeTool) aSTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
// Iterate on requested shapes
for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
TDF_Label L = labels.Value(i);
WritePropsForLabel(WS,aSTool,myLabels,L,multi);
/*
// find target STEP entity for the current shape
if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
TopoDS_Shape S = myLabels.Find ( L );
// write area and volume (except for components in multifile mode)
if ( ! multi || XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
Handle(XCAFDoc_Area) A;
L.FindAttribute ( XCAFDoc_Area::GetID(), A );
if ( ! A.IsNull() ) Props.AddArea ( S, A->Get() );
Handle(XCAFDoc_Volume) V;
L.FindAttribute ( XCAFDoc_Volume::GetID(), V );
if ( ! V.IsNull() ) Props.AddVolume ( S, V->Get() );
}
// write centroid
Handle(XCAFDoc_Centroid) C;
L.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
if ( ! C.IsNull() ) Props.AddCentroid ( S, C->Get() );
// write centroid for components of assemblies
if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
TDF_LabelSequence seq;
XCAFDoc_ShapeTool::GetComponents ( L, seq );
for (Standard_Integer k=1; k <= seq.Length(); k++) {
TDF_Label lab = seq(k);
// get shape with correct location
TDF_Label Lref;
if ( ! XCAFDoc_ShapeTool::GetReferredShape ( lab, Lref ) ||
! myLabels.IsBound ( Lref ) ) continue;
TopLoc_Location Loc = XCAFDoc_ShapeTool::GetLocation ( lab );
S = myLabels.Find ( Lref );
S.Move ( Loc );
C.Nullify();
lab.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
// if centroid is not assigned to an instance,
// use (shifted) centroid of original shape
gp_Pnt center;
if ( C.IsNull() ) {
Lref.FindAttribute ( XCAFDoc_Centroid::GetID(), C );
if ( C.IsNull() ) continue;
center = C->Get().Transformed ( Loc.Transformation() );
}
else center = C->Get();
Props.AddCentroid ( S, center, Standard_True );
}
}
*/
}
return Standard_True;
}
//=======================================================================
//function : WriteLayers
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteLayers (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels ) const
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
Handle(Interface_InterfaceModel) Model = WS->Model();
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool( labels(1) );
if (LTool.IsNull() ) return Standard_False;
TDF_LabelSequence LayerLS;
LTool->GetLayerLabels(LayerLS);
if ( LayerLS.Length() <=0 ) return Standard_False;
// Iterate on requested layers and for each layer take set of shapes.
for ( Standard_Integer i=1; i <= LayerLS.Length(); i++ ) {
TDF_Label L = LayerLS.Value(i);
// get labels of shapes in that layer
TDF_LabelSequence ShapeLs;
LTool->GetShapesOfLayer(L, ShapeLs);
if ( ShapeLs.Length() <=0 ) continue;
// name of layer: if not set, is considered as being empty
Handle(TCollection_HAsciiString) hName = new TCollection_HAsciiString;
GetLabelName ( L, hName );
// Find target STEP entity for each shape and add to StepVisual_PresentationLayerAssignment items.
TColStd_SequenceOfTransient seqRI;
for ( Standard_Integer j=1; j <= ShapeLs.Length(); j++) {
TDF_Label shLabel = ShapeLs.Value(j);
if ( shLabel.IsNull() ) continue;
// there is no way to assign layer to instance in STEP
if ( XCAFDoc_ShapeTool::IsAssembly ( shLabel ) ||
XCAFDoc_ShapeTool::IsReference ( shLabel ) )
continue;
// check that the shape is one of (uub)labels written during current transfer
Standard_Integer k = 1;
for ( ; k <= labels.Length(); k++ )
if ( shLabel.IsDescendant ( labels(k) ) ) break;
if ( k > labels.Length() ) continue;
// get target STEP entity
TopoDS_Shape oneShape = XCAFDoc_ShapeTool::GetShape(shLabel);
TopLoc_Location Loc;
Standard_Integer nb =
FindEntities ( FP, oneShape, Loc, seqRI );
if ( nb <=0 )
FP->Messenger() << "Warning: Cannot find RI for " << oneShape.TShape()->DynamicType()->Name() << endl;
}
if ( seqRI.Length() <= 0 ) continue;
// analyze visibility
Handle(StepVisual_PresentationLayerAssignment) StepLayerAs = new StepVisual_PresentationLayerAssignment;
Handle(TCollection_HAsciiString) descr;
Handle(TDataStd_UAttribute) aUAttr;
Standard_Boolean isLinv = Standard_False;
if (L.FindAttribute(XCAFDoc::InvisibleGUID(), aUAttr)) {
descr = new TCollection_HAsciiString ("invisible");
#ifdef STEPCAFCONTROL_DEB
FP->Messenger() << "\tLayer \"" << hName->String().ToCString() << "\" is invisible"<<endl;
#endif
isLinv = Standard_True;
}
else descr = new TCollection_HAsciiString ("visible");
// create layer entity
Handle(StepVisual_HArray1OfLayeredItem) HArrayOfLItem =
new StepVisual_HArray1OfLayeredItem ( 1, seqRI.Length() );
for (Standard_Integer i1 = 1; i1<=seqRI.Length(); i1++) {
StepVisual_LayeredItem LI;
LI.SetValue ( seqRI.Value(i1) );
HArrayOfLItem->SetValue( i1, LI );
}
StepLayerAs->Init(hName, descr, HArrayOfLItem);
Model->AddWithRefs( StepLayerAs );
// PTV 23.01.2003 add the invisibility AFTER adding layer into the model.
// add the invisibility for the layer
if (isLinv) {
// Invisibility Item for containig invisible layers.
Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm = new StepVisual_HArray1OfInvisibleItem (1,1);
StepVisual_InvisibleItem InvIt;
InvIt.SetValue( StepLayerAs );
HInvsblItm->SetValue( 1, InvIt);
Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
Invsblt->Init( HInvsblItm );
Model->AddWithRefs( Invsblt );
}
}
return Standard_True;
}
//=======================================================================
//function : getSHUOstyle
//purpose : auxilary
//=======================================================================
static Standard_Boolean getSHUOstyle(const TDF_Label& aSHUOlab,
const Handle(XCAFDoc_ColorTool)& CTool,
XCAFPrs_Style& SHUOstyle)
{
Quantity_Color C;
if (!CTool->IsVisible( aSHUOlab ) )
SHUOstyle.SetVisibility(Standard_False);
else {
if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorGen, C ) ) {
SHUOstyle.SetColorCurv ( C );
SHUOstyle.SetColorSurf ( C );
}
if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorSurf, C ) )
SHUOstyle.SetColorSurf ( C );
if ( CTool->GetColor ( aSHUOlab, XCAFDoc_ColorCurv, C ) )
SHUOstyle.SetColorCurv ( C );
}
if ( !SHUOstyle.IsSetColorCurv() &&
!SHUOstyle.IsSetColorSurf() &&
SHUOstyle.IsVisible() )
return Standard_False;
return Standard_True;
}
//=======================================================================
//function : getProDefinitionOfNAUO
//purpose : auxilary
//=======================================================================
static Standard_Boolean getProDefinitionOfNAUO(const Handle(XSControl_WorkSession)& WS,
const TopoDS_Shape& theShape,
Handle(StepBasic_ProductDefinition)& PD,
Handle(StepRepr_NextAssemblyUsageOccurrence)& NAUO,
Standard_Boolean IsRelating)
{
if ( theShape.IsNull() )
return Standard_False;
// get CDSR
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, theShape );
if (!FP->FindTypedTransient(mapper,
STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
CDSR))
return Standard_False;
// get PDS of NAUO
Handle(StepRepr_ProductDefinitionShape) PDS = CDSR->RepresentedProductRelation();
if (PDS.IsNull())
return Standard_False;
// get the NAUO entity
Interface_Graph aGraph = WS->HGraph()->Graph();
Interface_EntityIterator subs = aGraph.Shareds(PDS);
for ( subs.Start(); subs.More(); subs.Next() ) {
if (!subs.Value()->IsKind(STANDARD_TYPE(StepRepr_NextAssemblyUsageOccurrence)))
continue;
NAUO = Handle(StepRepr_NextAssemblyUsageOccurrence)::DownCast(subs.Value());
break;
}
if ( NAUO.IsNull() )
return Standard_False;
// get Relatinf or Related product definition
if ( !IsRelating )
PD = NAUO->RelatedProductDefinition();
else
PD = NAUO->RelatingProductDefinition();
if ( PD.IsNull() )
return Standard_False;
return Standard_True;
}
//=======================================================================
//function : writeSHUO
//purpose : auxilary
//=======================================================================
static Standard_Boolean writeSHUO (const Handle(XCAFDoc_GraphNode)& theSHUO,
const Handle(XCAFDoc_ShapeTool)& theSTool,
const Handle(XSControl_WorkSession)& WS,
Handle(StepRepr_SpecifiedHigherUsageOccurrence)& theTopSHUO,
TopoDS_Shape& NAUOShape,
Handle(StepBasic_ProductDefinition)& theRelatingPD,
Standard_Boolean& isDeepest)
{
// set the ProductDefinitionRelationship descriptin information as empty strings.
Handle(TCollection_HAsciiString) EmptyString = new TCollection_HAsciiString("");
TDF_LabelSequence aNextUsageLabs;
theSTool->GetSHUONextUsage( theSHUO->Label(), aNextUsageLabs );
Handle(XCAFDoc_GraphNode) NuSHUO;
if ( theTopSHUO.IsNull() ) {
// the top SHUO
if (aNextUsageLabs.Length() < 1)
return Standard_False;
theSTool->GetSHUO( aNextUsageLabs.Value(1), NuSHUO );
if (NuSHUO.IsNull())
return Standard_False;
// get relating product definition
TopoDS_Shape aTopCompShape = theSTool->GetShape( theSHUO->Label().Father() );
Handle(StepRepr_NextAssemblyUsageOccurrence) UUNAUO;
if (!getProDefinitionOfNAUO( WS, aTopCompShape,
theRelatingPD, UUNAUO, Standard_True ))
return Standard_False;
// get related product definition
TopoDS_Shape aNUShape = theSTool->GetShape( NuSHUO->Label().Father() );
Handle(StepBasic_ProductDefinition) aRelatedPD;
Handle(StepRepr_NextAssemblyUsageOccurrence) NUNAUO;
if (!getProDefinitionOfNAUO( WS, aNUShape,
aRelatedPD, NUNAUO, Standard_False ))
return Standard_False;
theTopSHUO = new StepRepr_SpecifiedHigherUsageOccurrence;
// create deepest shuo EmptyString
theTopSHUO->Init(/*id*/EmptyString, /*name*/EmptyString,
/*no description*/Standard_False,/*description*/EmptyString,
theRelatingPD, aRelatedPD,
/*no ACURefDesignator*/Standard_False,/*ACURefDesignator*/EmptyString,
/*upper_usage*/UUNAUO, /*next_usage*/NUNAUO);
// write the other SHUO.
if(!writeSHUO( NuSHUO, theSTool, WS, theTopSHUO, NAUOShape, theRelatingPD, isDeepest )) {
theTopSHUO.Nullify();
return Standard_False;
}
return Standard_True;
}
// Handle(XCAFDoc_GraphNode) NuSHUO;
if ( aNextUsageLabs.Length() > 0) {
// store SHUO recursive
#ifdef STEPCAFCONTROL_DEB
if ( aNextUsageLabs.Length() > 1 )
cout << "Warning: store only one next_usage of current SHUO" << endl;
#endif
theSTool->GetSHUO( aNextUsageLabs.Value(1), NuSHUO );
Handle(StepRepr_SpecifiedHigherUsageOccurrence) aNUEntSHUO =
new StepRepr_SpecifiedHigherUsageOccurrence;
if (!writeSHUO( NuSHUO, theSTool, WS, aNUEntSHUO, NAUOShape, theRelatingPD, isDeepest ))
return Standard_False;
// store the deepest SHUO to the dociment
TopoDS_Shape aNUSh, aUUSh;
aNUSh = theSTool->GetShape( NuSHUO->Label().Father() );
aUUSh = theSTool->GetShape( theSHUO->Label().Father() );
// get relating PD with upper_usage and related PD with next_usage
Handle(StepBasic_ProductDefinition) nullPD;// no need to use,case have shared <theRelatingPD>
Handle(StepBasic_ProductDefinition) aRelatedPD;
Handle(StepRepr_NextAssemblyUsageOccurrence) UUNAUO, NUNAUO;
if (!getProDefinitionOfNAUO( WS, aUUSh, nullPD, UUNAUO, Standard_True ) ||
!getProDefinitionOfNAUO( WS, aNUSh, aRelatedPD, NUNAUO, Standard_False )) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: cannot get related or relating PD" << endl;
#endif
return Standard_False;
}
aNUEntSHUO->Init(/*id*/EmptyString, /*name*/EmptyString,
/*no description*/Standard_False,/*description*/EmptyString,
theRelatingPD, aRelatedPD,
/*no ACURefDesignator*/Standard_False,/*ACURefDesignator*/EmptyString,
/*upper_usage*/theTopSHUO, /*next_usage*/NUNAUO);
if ( isDeepest ) {
isDeepest = Standard_False;
}
WS->Model()->AddWithRefs ( aNUEntSHUO );
return Standard_True;
} // end of recurse storing
// get shape
TDF_Label aShapeL = theSHUO->Label().Father();
NAUOShape = theSTool->GetShape( aShapeL );
// return to the deepest level from SHUO shape level
// it is because SHUO is attribute on deep level and shape level.
isDeepest = Standard_True;
return Standard_True;
}
//=======================================================================
//function : createSHUOStyledItem
//purpose : auxilary
//=======================================================================
static Standard_Boolean createSHUOStyledItem (const XCAFPrs_Style& style,
const Handle(StepRepr_ProductDefinitionShape)& PDS,
const Handle(XSControl_WorkSession) &WS,
const TopoDS_Shape& Sh,
const Handle(XCAFDoc_ShapeTool)& STool,
MoniTool_DataMapOfShapeTransient& myMapCompMDGPR)
{
// create styled item for the indicated SHUO and store to the model
STEPConstruct_Styles Styles( WS );
// translate colors to STEP
Handle(StepVisual_Colour) surfColor, curvColor;
if ( style.IsSetColorSurf() )
surfColor = Styles.EncodeColor ( style.GetColorSurf() );
if ( style.IsSetColorCurv() )
curvColor = Styles.EncodeColor ( style.GetColorCurv() );
Standard_Boolean isComponent = Standard_True;// cause need to get PSBC
Handle(StepRepr_RepresentationItem) item;
// set default color for invisible SHUO.
Standard_Boolean isSetDefaultColor = Standard_False;
if (surfColor.IsNull() && curvColor.IsNull() && !style.IsVisible() ) {
surfColor = Styles.EncodeColor ( Quantity_Color( 1, 1, 1, Quantity_TOC_RGB ) );
isSetDefaultColor = Standard_True;
}
Handle(StepVisual_PresentationStyleAssignment) PSA =
Styles.MakeColorPSA ( item, surfColor, curvColor, isComponent );
Handle(StepVisual_StyledItem) override; //null styled item
// find the repr item of the shape
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, Sh );
Handle(StepShape_ContextDependentShapeRepresentation) CDSR;
FP->FindTypedTransient(mapper,
STANDARD_TYPE(StepShape_ContextDependentShapeRepresentation),
CDSR);
if ( CDSR.IsNull() )
return Standard_False;
// find context
Handle(StepRepr_RepresentationContext) Context = Styles.FindContext( Sh );
TopoDS_Shape aTopSh = Sh;
if (Context.IsNull()) {
TDF_Label aTopShL = STool->FindShape(Sh, Standard_False);
if (aTopShL.IsNull())
return Standard_False;
aTopSh = STool->GetShape( aTopShL );
Context = Styles.FindContext ( aTopSh );
}
if (Context.IsNull())
return Standard_False;
// get representation item of the shape
TopLoc_Location L;
TColStd_SequenceOfTransient seqRI;
FindEntities ( FP, Sh, L, seqRI );
#ifdef STEPCAFCONTROL_DEB
if ( seqRI.Length() <=0 )
FP->Messenger() << "Warning: Cannot find RI for " << Sh.TShape()->DynamicType()->Name() << endl;
#endif
item = Handle(StepRepr_RepresentationItem)::DownCast(seqRI(1));
//get overridden styled item
getStyledItem(Sh,STool, Styles, override,myMapCompMDGPR);
// get STEP STYLED ITEM
Handle(StepVisual_StyledItem) STEPstyle = Styles.AddStyle ( item, PSA, override );
// create SR, SDR and all necessary references between them and ST, PDS, PSBC, GRC
Styles.CreateNAUOSRD( Context, CDSR, PDS );
// add step styled item of SHUO to the model
// do it by additing styled item to the MDGPR
if ( !aTopSh.IsNull() && !myMapCompMDGPR.IsBound( aTopSh ) ) {
// create MDGPR and record it in model
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: " << __FILE__ << ": Create new MDGPR for SHUO instance" << endl;
#endif
Handle(StepVisual_MechanicalDesignGeometricPresentationRepresentation) aMDGPR;
Styles.CreateMDGPR ( Context, aMDGPR );
if (!aMDGPR.IsNull())
myMapCompMDGPR.Bind( aTopSh, aMDGPR );
}
else if ( !aTopSh.IsNull() && myMapCompMDGPR.IsBound( aTopSh ) ) {
// get MDGPR of the top-level shape
Handle(StepVisual_PresentationRepresentation) aMDGPR =
Handle(StepVisual_PresentationRepresentation)::DownCast( myMapCompMDGPR.Find( aTopSh ) );
// get old styled items to not lose it
Handle(StepRepr_HArray1OfRepresentationItem) oldItems = aMDGPR->Items();
Standard_Integer oldLengthlen = 0;
if (!oldItems.IsNull())
oldLengthlen = oldItems->Length();
// create new array of styled items by an olds and new one
Handle(StepRepr_HArray1OfRepresentationItem) newItems =
new StepRepr_HArray1OfRepresentationItem(1, oldLengthlen + 1);
Standard_Integer si;
Standard_Integer el = 1;
for ( si=1; si <= oldLengthlen; si++ )
newItems->SetValue( el++, oldItems->Value( si ) );
newItems->SetValue( el++, Handle(StepRepr_RepresentationItem)::DownCast(STEPstyle) );
// init MDGPR be new array of styled items
if (newItems->Length() > 0)
aMDGPR->SetItems( newItems );
}
else {
WS->Model()->AddWithRefs ( STEPstyle ); // add as root to the model, but it is not good
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: " << __FILE__ << ": adds styled item of SHUO as root, casue cannot find MDGPR" << endl;
#endif
}
// create invisibility item for the styled item
if ( !style.IsVisible() ) {
if (isSetDefaultColor) {
// try to set default color from top-level shape
setDefaultInstanceColor(override, PSA);
}
// create invisibility item and refer for stiledItem
Handle(StepVisual_Invisibility) Invsblt = new StepVisual_Invisibility();
Handle(StepVisual_HArray1OfInvisibleItem) HInvsblItm =
new StepVisual_HArray1OfInvisibleItem (1,1);
// put all style item into the harray
StepVisual_InvisibleItem anInvItem;
anInvItem.SetValue( STEPstyle );
HInvsblItm->SetValue( 1, anInvItem );
Invsblt->Init( HInvsblItm );
WS->Model()->AddWithRefs( Invsblt );
}
return Standard_True;
}
//=======================================================================
//function : WriteSHUOs
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteSHUOs (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels )
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
Handle(Interface_InterfaceModel) Model = WS->Model();
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool( labels(1) );
if (CTool.IsNull() )
return Standard_False;
// map of transfered SHUO
TColStd_MapOfTransient aMapOfMainSHUO;
// TColStd_IndexedDataMapOfTransientTransient aIndxMapOfSHUOEnt;
// Iterate on requested shapes
for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
TDF_Label L = labels.Value(i);
if ( ! myLabels.IsBound ( L ) ) continue; // not recorded as translated, skip
// TopoDS_Shape S = myLabels.Find ( L );
if ( XCAFDoc_ShapeTool::IsAssembly ( L ) ) {
TDF_LabelSequence seq;
XCAFDoc_ShapeTool::GetComponents ( L, seq );
// iterates on components of assembly
for (Standard_Integer k=1; k <= seq.Length(); k++) {
TDF_Label lab = seq(k);
TDF_AttributeSequence anAttrSeq;
CTool->ShapeTool()->GetAllComponentSHUO( lab, anAttrSeq );
// work with SHUO
for (Standard_Integer j = 1; j <= anAttrSeq.Length(); j++) {
Handle(XCAFDoc_GraphNode) aSHUO =
Handle(XCAFDoc_GraphNode)::DownCast(anAttrSeq.Value( j ));
// take label of SHUO
TDF_Label aSHUOlab = aSHUO->Label();
TDF_LabelSequence aUpLabels;
// check is it SHUO of upper_usage
CTool->ShapeTool()->GetSHUOUpperUsage( aSHUOlab, aUpLabels );
if ( aUpLabels.Length() > 0 )
continue; // transfer only main SHUO
if ( aMapOfMainSHUO.Contains( aSHUO ) )
continue; // do not try to transfer SHUO twice
aMapOfMainSHUO.Add( aSHUO );
// check if it is styled SHUO
XCAFPrs_Style SHUOstyle;
if ( !getSHUOstyle ( aSHUOlab, CTool, SHUOstyle ) ) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: " << __FILE__ << ": do not store SHUO without any style to the STEP model" << endl;
#endif
continue;
}
// write SHUO to the model amd then add structure type.
TopoDS_Shape NAUOShape; // shape of the deepest NAUO in the SHUO structure
Standard_Boolean isDeepest = Standard_False;
Handle(StepRepr_SpecifiedHigherUsageOccurrence) anEntOfSHUO;
Handle(StepBasic_ProductDefinition) aRelatingPD;
// create the top SHUO and all other.
writeSHUO( aSHUO, CTool->ShapeTool(), WS, anEntOfSHUO, NAUOShape, aRelatingPD, isDeepest );
if ( anEntOfSHUO.IsNull() || NAUOShape.IsNull() ) {
#ifdef STEPCAFCONTROL_DEB
cout << "Warning: " << __FILE__ << ": Cannot store SHUO" << endl;
#endif
continue;
}
// create new Product Definition Shape for TOP SHUO
#ifdef STEPCAFCONTROL_DEB
cout << "Info: " << __FILE__ << ": Create NEW PDS for current SHUO " << endl;
#endif
Handle(StepRepr_ProductDefinitionShape) PDS = new StepRepr_ProductDefinitionShape;
Handle(TCollection_HAsciiString) aPDSname = new TCollection_HAsciiString("SHUO");
Handle(TCollection_HAsciiString) descrStr = new TCollection_HAsciiString("");
StepRepr_CharacterizedDefinition aCharDef;
aCharDef.SetValue( anEntOfSHUO );
PDS->Init( aPDSname, Standard_False, descrStr, aCharDef );
// create styled item for SHUO and add to the model
createSHUOStyledItem ( SHUOstyle, PDS, WS, NAUOShape, CTool->ShapeTool(), myMapCompMDGPR );
} // end work with SHUO
} // end of an assembly components
} // end of IsAssembly case
// nothing to do if it is not assembly
continue;
} // end of iterates on indicated labels
return Standard_True;
}
//=======================================================================
//function : FindPDSforDGT
//purpose : auxilary: find PDS for AdvancedFace or EdgeCurve for creation
// needed ShapeAspect in D&GT structure
//=======================================================================
static Standard_Boolean FindPDSforDGT(const Interface_Graph &aGraph,
const Handle(Standard_Transient) &ent,
Handle(StepRepr_ProductDefinitionShape) &PDS,
Handle(StepRepr_RepresentationContext) &RC,
Handle(StepShape_AdvancedFace) &AF,
Handle(StepShape_EdgeCurve) &EC)
{
if( !ent->IsKind(STANDARD_TYPE(StepShape_EdgeCurve)) &&
!ent->IsKind(STANDARD_TYPE(StepShape_AdvancedFace)) )
return Standard_False;
AF = Handle(StepShape_AdvancedFace)::DownCast(ent);
if( ent->IsKind(STANDARD_TYPE(StepShape_EdgeCurve)) ) {
EC = Handle(StepShape_EdgeCurve)::DownCast(ent);
Interface_EntityIterator subs = aGraph.Sharings(EC);
for(subs.Start(); subs.More() && AF.IsNull(); subs.Next()) {
Handle(StepShape_OrientedEdge) OE = Handle(StepShape_OrientedEdge)::DownCast(subs.Value());
if(OE.IsNull()) continue;
Interface_EntityIterator subs1 = aGraph.Sharings(OE);
for(subs1.Start(); subs1.More() && AF.IsNull(); subs1.Next()) {
Handle(StepShape_EdgeLoop) EL = Handle(StepShape_EdgeLoop)::DownCast(subs1.Value());
if(EL.IsNull()) continue;
Interface_EntityIterator subs2 = aGraph.Sharings(EL);
for(subs2.Start(); subs2.More() && AF.IsNull(); subs2.Next()) {
Handle(StepShape_FaceBound) FB = Handle(StepShape_FaceBound)::DownCast(subs2.Value());
if(FB.IsNull()) continue;
Interface_EntityIterator subs3 = aGraph.Sharings(FB);
for(subs3.Start(); subs3.More() && AF.IsNull(); subs3.Next()) {
AF = Handle(StepShape_AdvancedFace)::DownCast(subs3.Value());
}
}
}
}
}
if(AF.IsNull()) return Standard_False;
Interface_EntityIterator subs = aGraph.Sharings(AF);
for(subs.Start(); subs.More() && PDS.IsNull(); subs.Next()) {
Handle(StepShape_ConnectedFaceSet) CFS =
Handle(StepShape_ConnectedFaceSet)::DownCast(subs.Value());
if(CFS.IsNull()) continue;
Interface_EntityIterator subs1 = aGraph.Sharings(CFS);
for(subs1.Start(); subs1.More() && PDS.IsNull(); subs1.Next()) {
Handle(StepRepr_RepresentationItem) RI =
Handle(StepRepr_RepresentationItem)::DownCast(subs1.Value());
if(RI.IsNull()) continue;
Interface_EntityIterator subs2 = aGraph.Sharings(RI);
for(subs2.Start(); subs2.More() && PDS.IsNull(); subs2.Next()) {
Handle(StepShape_ShapeRepresentation) SR =
Handle(StepShape_ShapeRepresentation)::DownCast(subs2.Value());
if(SR.IsNull()) continue;
RC = SR->ContextOfItems();
Interface_EntityIterator subs3 = aGraph.Sharings(SR);
for(subs3.Start(); subs3.More() && PDS.IsNull(); subs3.Next()) {
Handle(StepShape_ShapeDefinitionRepresentation) SDR =
Handle(StepShape_ShapeDefinitionRepresentation)::DownCast(subs3.Value());
if(SDR.IsNull()) continue;
Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
if(PropD.IsNull()) continue;
PDS = Handle(StepRepr_ProductDefinitionShape)::DownCast(PropD);
}
}
}
}
return Standard_True;
}
//=======================================================================
//function : WriteDGTs
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteDGTs (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels ) const
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
Handle(Interface_InterfaceModel) Model = WS->Model();
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
const Handle(Interface_HGraph) aHGraph = WS->HGraph();
if(aHGraph.IsNull())
return Standard_False;
Interface_Graph aGraph = aHGraph->Graph();
Handle(XCAFDoc_DimTolTool) DGTTool = XCAFDoc_DocumentTool::DimTolTool( labels(1) );
if(DGTTool.IsNull() ) return Standard_False;
TDF_LabelSequence DGTLabels;
STEPConstruct_DataMapOfAsciiStringTransient DatumMap;
// write Datums
DGTTool->GetDatumLabels(DGTLabels);
if(DGTLabels.Length()<=0) return Standard_False;
Standard_Integer i;
for(i=1; i<=DGTLabels.Length(); i++) {
TDF_Label DatumL = DGTLabels.Value(i);
TDF_Label ShapeL;
if(!DGTTool->GetRefShapeLabel(DatumL,ShapeL)) continue;
// find target shape
TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShapeL);
TopLoc_Location Loc;
TColStd_SequenceOfTransient seqRI;
FindEntities( FP, aShape, Loc, seqRI );
if ( seqRI.Length() <= 0 ) {
FP->Messenger() << "Warning: Cannot find RI for "<<aShape.TShape()->DynamicType()->Name()<<endl;
continue;
}
Handle(StepRepr_ProductDefinitionShape) PDS;
Handle(StepRepr_RepresentationContext) RC;
Handle(Standard_Transient) ent = seqRI.Value(1);
Handle(StepShape_AdvancedFace) AF;
Handle(StepShape_EdgeCurve) EC;
FindPDSforDGT(aGraph,ent,PDS,RC,AF,EC);
if(PDS.IsNull()) continue;
//cout<<"Model->Number(PDS)="<<Model->Number(PDS)<<endl;
Handle(XCAFDoc_Datum) DatumAttr;
if(!DatumL.FindAttribute(XCAFDoc_Datum::GetID(),DatumAttr)) continue;
Handle(TCollection_HAsciiString) aName = DatumAttr->GetName();
Handle(TCollection_HAsciiString) aDescription = DatumAttr->GetDescription();
Handle(TCollection_HAsciiString) anIdentification = DatumAttr->GetIdentification();
Handle(StepDimTol_DatumFeature) DF = new StepDimTol_DatumFeature;
Handle(StepDimTol_Datum) aDatum = new StepDimTol_Datum;
DF->Init(aName, new TCollection_HAsciiString, PDS, StepData_LTrue);
Model->AddWithRefs(DF);
aDatum->Init(aName, new TCollection_HAsciiString, PDS, StepData_LFalse, anIdentification);
Model->AddWithRefs(aDatum);
Handle(StepRepr_ShapeAspectRelationship) SAR = new StepRepr_ShapeAspectRelationship;
SAR->SetName(aName);
SAR->SetRelatingShapeAspect(DF);
SAR->SetRelatedShapeAspect(aDatum);
Model->AddWithRefs(SAR);
// write chain for DatumFeature
StepRepr_CharacterizedDefinition CD;
CD.SetValue(DF);
Handle(StepRepr_PropertyDefinition) PropD = new StepRepr_PropertyDefinition;
PropD->Init(aName,Standard_True,aDescription,CD);
Model->AddWithRefs(PropD);
StepRepr_RepresentedDefinition RD;
RD.SetValue(PropD);
Handle(StepShape_ShapeRepresentation) SR = new StepShape_ShapeRepresentation;
Handle(StepRepr_HArray1OfRepresentationItem) HARI =
new StepRepr_HArray1OfRepresentationItem(1,1);
HARI->SetValue(1,AF);
SR->Init(aName,HARI,RC);
Handle(StepShape_ShapeDefinitionRepresentation) SDR = new StepShape_ShapeDefinitionRepresentation;
SDR->Init(RD,SR);
Model->AddWithRefs(SDR);
// write chain for Datum
StepRepr_CharacterizedDefinition CD1;
CD1.SetValue(aDatum);
Handle(StepRepr_PropertyDefinition) PropD1 = new StepRepr_PropertyDefinition;
PropD1->Init(aName,Standard_True,aDescription,CD1);
Model->AddWithRefs(PropD1);
StepRepr_RepresentedDefinition RD1;
RD1.SetValue(PropD1);
Handle(StepShape_ShapeRepresentation) SR1 = new StepShape_ShapeRepresentation;
Handle(StepRepr_HArray1OfRepresentationItem) HARI1 =
new StepRepr_HArray1OfRepresentationItem(1,1);
HARI1->SetValue(1,AF->FaceGeometry());
SR1->Init(aName,HARI1,RC);
Model->AddWithRefs(SR1);
Handle(StepShape_ShapeDefinitionRepresentation) SDR1 = new StepShape_ShapeDefinitionRepresentation;
SDR1->Init(RD1,SR1);
Model->AddWithRefs(SDR1);
// add created Datum into Map
TCollection_AsciiString stmp(aName->ToCString());
stmp.AssignCat(aDescription->ToCString());
stmp.AssignCat(anIdentification->ToCString());
DatumMap.Bind(stmp,aDatum);
}
// write Tolerances and Dimensions
DGTLabels.Clear();
DGTTool->GetDimTolLabels(DGTLabels);
if(DGTLabels.Length()<=0) return Standard_False;
for(i=1; i<=DGTLabels.Length(); i++) {
TDF_Label DimTolL = DGTLabels.Value(i);
TDF_Label ShapeL;
if(!DGTTool->GetRefShapeLabel(DimTolL,ShapeL)) continue;
// find target shape
TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShapeL);
TopLoc_Location Loc;
TColStd_SequenceOfTransient seqRI;
FindEntities( FP, aShape, Loc, seqRI );
if ( seqRI.Length() <= 0 ) {
FP->Messenger() << "Warning: Cannot find RI for "<<aShape.TShape()->DynamicType()->Name()<<endl;
continue;
}
Handle(StepRepr_ProductDefinitionShape) PDS;
Handle(StepRepr_RepresentationContext) RC;
Handle(Standard_Transient) ent = seqRI.Value(1);
Handle(StepShape_AdvancedFace) AF;
Handle(StepShape_EdgeCurve) EC;
FindPDSforDGT(aGraph,ent,PDS,RC,AF,EC);
if(PDS.IsNull()) continue;
//cout<<"Model->Number(PDS)="<<Model->Number(PDS)<<endl;
Handle(XCAFDoc_DimTol) DimTolAttr;
if(!DimTolL.FindAttribute(XCAFDoc_DimTol::GetID(),DimTolAttr)) continue;
Standard_Integer kind = DimTolAttr->GetKind();
Handle(TColStd_HArray1OfReal) aVal = DimTolAttr->GetVal();
Handle(TCollection_HAsciiString) aName = DimTolAttr->GetName();
Handle(TCollection_HAsciiString) aDescription = DimTolAttr->GetDescription();
// common part of writing D&GT entities
StepRepr_CharacterizedDefinition CD;
Handle(StepRepr_ShapeAspect) SA = new StepRepr_ShapeAspect;
SA->Init(aName, new TCollection_HAsciiString, PDS, StepData_LTrue);
Model->AddWithRefs(SA);
CD.SetValue(SA);
Handle(StepRepr_PropertyDefinition) PropD = new StepRepr_PropertyDefinition;
PropD->Init(aName,Standard_True,aDescription,CD);
Model->AddWithRefs(PropD);
StepRepr_RepresentedDefinition RD;
RD.SetValue(PropD);
Handle(StepShape_ShapeRepresentation) SR = new StepShape_ShapeRepresentation;
Handle(StepRepr_HArray1OfRepresentationItem) HARI =
new StepRepr_HArray1OfRepresentationItem(1,1);
if(kind<20)
HARI->SetValue(1,EC);
else
HARI->SetValue(1,AF);
SR->Init(aName,HARI,RC);
Handle(StepShape_ShapeDefinitionRepresentation) SDR = new StepShape_ShapeDefinitionRepresentation;
SDR->Init(RD,SR);
Model->AddWithRefs(SDR);
// define aUnit for creation LengthMeasureWithUnit (common for all)
StepBasic_Unit aUnit;
Handle(StepBasic_SiUnitAndLengthUnit) SLU;
Handle(StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext) Ctx =
Handle(StepGeom_GeometricRepresentationContextAndGlobalUnitAssignedContext)::DownCast(RC);
if(!Ctx.IsNull()) {
for(Standard_Integer j=1; j<=Ctx->NbUnits(); j++) {
if(Ctx->UnitsValue(j)->IsKind(STANDARD_TYPE(StepBasic_SiUnitAndLengthUnit))) {
SLU = Handle(StepBasic_SiUnitAndLengthUnit)::DownCast(Ctx->UnitsValue(j));
break;
}
}
}
if(SLU.IsNull()) {
Handle(StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx) Ctx1 =
Handle(StepGeom_GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx)::DownCast(RC);
if(!Ctx1.IsNull()) {
for(Standard_Integer j=1; j<=Ctx1->NbUnits(); j++) {
if(Ctx1->UnitsValue(j)->IsKind(STANDARD_TYPE(StepBasic_SiUnitAndLengthUnit))) {
SLU = Handle(StepBasic_SiUnitAndLengthUnit)::DownCast(Ctx1->UnitsValue(j));
break;
}
}
}
}
if(SLU.IsNull()) {
SLU = new StepBasic_SiUnitAndLengthUnit;
}
aUnit.SetValue(SLU);
// specific part of writing D&GT entities
if(kind<20) { //dimension
Handle(StepShape_DimensionalSize) DimSize = new StepShape_DimensionalSize;
DimSize->Init(SA,aDescription);
Model->AddWithRefs(DimSize);
if(aVal->Length()>1) {
// create MeasureWithUnits
Handle(StepBasic_MeasureValueMember) MVM1 = new StepBasic_MeasureValueMember;
MVM1->SetName("POSITIVE_LENGTH_MEASURE");
MVM1->SetReal(aVal->Value(1));
Handle(StepBasic_MeasureWithUnit) MWU1 = new StepBasic_MeasureWithUnit;
MWU1->Init(MVM1,aUnit);
Handle(StepBasic_MeasureValueMember) MVM2 = new StepBasic_MeasureValueMember;
MVM2->SetName("POSITIVE_LENGTH_MEASURE");
MVM2->SetReal(aVal->Value(2));
Handle(StepBasic_MeasureWithUnit) MWU2 = new StepBasic_MeasureWithUnit;
MWU2->Init(MVM2,aUnit);
Handle(StepRepr_RepresentationItem) RI1 = new StepRepr_RepresentationItem;
RI1->Init(new TCollection_HAsciiString("lower limit"));
Handle(StepRepr_RepresentationItem) RI2 = new StepRepr_RepresentationItem;
RI2->Init(new TCollection_HAsciiString("upper limit"));
Handle(StepRepr_ReprItemAndLengthMeasureWithUnit) RILMU1 =
new StepRepr_ReprItemAndLengthMeasureWithUnit;
RILMU1->Init(MWU1,RI1);
Handle(StepRepr_ReprItemAndLengthMeasureWithUnit) RILMU2 =
new StepRepr_ReprItemAndLengthMeasureWithUnit;
RILMU2->Init(MWU2,RI2);
Model->AddWithRefs(RILMU1);
Model->AddWithRefs(RILMU2);
//Handle(StepRepr_CompoundItemDefinitionMember) CIDM =
// new StepRepr_CompoundItemDefinitionMember;
//Handle(TColStd_HArray1OfTransient) ArrTr = new TColStd_HArray1OfTransient(1,2);
//ArrTr->SetValue(1,RILMU1);
//ArrTr->SetValue(2,RILMU2);
//CIDM->SetArrTransient(ArrTr);
//CIDM->SetName("SET_REPRESENTATION_ITEM");
//StepRepr_CompoundItemDefinition CID;
//CID.SetValue(CIDM);
Handle(StepRepr_HArray1OfRepresentationItem) HARIVR =
new StepRepr_HArray1OfRepresentationItem(1,2);
HARIVR->SetValue(1,RILMU1);
HARIVR->SetValue(2,RILMU2);
Handle(StepRepr_ValueRange) VR = new StepRepr_ValueRange;
//VR->Init(aName,CID);
VR->Init(aName,HARIVR);
Model->AddEntity(VR);
Handle(StepShape_ShapeDimensionRepresentation) SDimR =
new StepShape_ShapeDimensionRepresentation;
Handle(StepRepr_HArray1OfRepresentationItem) HARI =
new StepRepr_HArray1OfRepresentationItem(1,1);
HARI->SetValue(1,VR);
SDimR->Init(aName,HARI,RC);
Model->AddWithRefs(SDimR);
Handle(StepShape_DimensionalCharacteristicRepresentation) DimCharR =
new StepShape_DimensionalCharacteristicRepresentation;
StepShape_DimensionalCharacteristic DimChar;
DimChar.SetValue(DimSize);
DimCharR->Init(DimChar,SDimR);
Model->AddEntity(DimCharR);
}
}
else if(kind<50) { //tolerance
if(kind<35) { // tolerance with datum system
TDF_LabelSequence DatumLabels;
DGTTool->GetDatumTolerLabels(DimTolL,DatumLabels);
Standard_Integer NbDR = DatumLabels.Length();
Handle(StepDimTol_HArray1OfDatumReference) HADR = new StepDimTol_HArray1OfDatumReference(1,NbDR);
for(Standard_Integer j=1; j<=NbDR; j++) {
Handle(XCAFDoc_Datum) DatumAttr;
TDF_Label DatumL = DatumLabels.Value(j);
if(!DatumL.FindAttribute(XCAFDoc_Datum::GetID(),DatumAttr)) continue;
Handle(TCollection_HAsciiString) aNameD = DatumAttr->GetName();
Handle(TCollection_HAsciiString) aDescriptionD = DatumAttr->GetDescription();
Handle(TCollection_HAsciiString) anIdentificationD = DatumAttr->GetIdentification();
TCollection_AsciiString stmp(aNameD->ToCString());
stmp.AssignCat(aDescriptionD->ToCString());
stmp.AssignCat(anIdentificationD->ToCString());
if(DatumMap.IsBound(stmp)) {
Handle(StepDimTol_Datum) aDatum =
Handle(StepDimTol_Datum)::DownCast(DatumMap.Find(stmp));
Handle(StepDimTol_DatumReference) DR = new StepDimTol_DatumReference;
DR->Init(j,aDatum);
Model->AddWithRefs(DR);
HADR->SetValue(j,DR);
}
}
// create LengthMeasureWithUnit
Handle(StepBasic_MeasureValueMember) MVM = new StepBasic_MeasureValueMember;
MVM->SetName("LENGTH_MEASURE");
MVM->SetReal(aVal->Value(1));
Handle(StepBasic_LengthMeasureWithUnit) LMWU = new StepBasic_LengthMeasureWithUnit;
LMWU->Init(MVM,aUnit);
// create tolerance by it's type
if(kind<24) {
Handle(StepDimTol_GeometricToleranceWithDatumReference) GTWDR =
new StepDimTol_GeometricToleranceWithDatumReference;
GTWDR->SetDatumSystem(HADR);
Handle(StepDimTol_ModifiedGeometricTolerance) MGT =
new StepDimTol_ModifiedGeometricTolerance;
if(kind==21) MGT->SetModifier(StepDimTol_MaximumMaterialCondition);
else if(kind==22) MGT->SetModifier(StepDimTol_LeastMaterialCondition);
else if(kind==23) MGT->SetModifier(StepDimTol_RegardlessOfFeatureSize);
Handle(StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol) GTComplex =
new StepDimTol_GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol;
GTComplex->Init(aName,aDescription,LMWU,SA,GTWDR,MGT);
Model->AddWithRefs(GTComplex);
}
else if(kind==24) {
Handle(StepDimTol_AngularityTolerance) aToler =
new StepDimTol_AngularityTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==25) {
Handle(StepDimTol_CircularRunoutTolerance) aToler =
new StepDimTol_CircularRunoutTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==26) {
Handle(StepDimTol_CoaxialityTolerance) aToler =
new StepDimTol_CoaxialityTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==27) {
Handle(StepDimTol_ConcentricityTolerance) aToler =
new StepDimTol_ConcentricityTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==28) {
Handle(StepDimTol_ParallelismTolerance) aToler =
new StepDimTol_ParallelismTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==29) {
Handle(StepDimTol_PerpendicularityTolerance) aToler =
new StepDimTol_PerpendicularityTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==30) {
Handle(StepDimTol_SymmetryTolerance) aToler =
new StepDimTol_SymmetryTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
else if(kind==31) {
Handle(StepDimTol_TotalRunoutTolerance) aToler =
new StepDimTol_TotalRunoutTolerance;
aToler->Init(aName,aDescription,LMWU,SA,HADR);
Model->AddWithRefs(aToler);
}
}
}
}
return Standard_True;
}
//=======================================================================
//function : FindPDSforRI
//purpose : auxilary:
//=======================================================================
static Standard_Boolean FindPDSforRI(const Interface_Graph &aGraph,
const Handle(Standard_Transient) &ent,
Handle(StepRepr_ProductDefinitionShape) &PDS,
Handle(StepRepr_RepresentationContext) &RC)
{
if(!ent->IsKind(STANDARD_TYPE(StepRepr_RepresentationItem))) return Standard_False;
Interface_EntityIterator subs = aGraph.Sharings(ent);
for(subs.Start(); subs.More() && PDS.IsNull(); subs.Next()) {
Handle(StepShape_ShapeRepresentation) SR =
Handle(StepShape_ShapeRepresentation)::DownCast(subs.Value());
if(SR.IsNull()) continue;
RC = SR->ContextOfItems();
Interface_EntityIterator subs1 = aGraph.Sharings(SR);
for(subs1.Start(); subs1.More() && PDS.IsNull(); subs1.Next()) {
Handle(StepShape_ShapeDefinitionRepresentation) SDR =
Handle(StepShape_ShapeDefinitionRepresentation)::DownCast(subs1.Value());
if(SDR.IsNull()) continue;
Handle(StepRepr_PropertyDefinition) PropD = SDR->Definition().PropertyDefinition();
if(PropD.IsNull()) continue;
PDS = Handle(StepRepr_ProductDefinitionShape)::DownCast(PropD);
}
}
return Standard_True;
}
//=======================================================================
//function : WriteMaterials
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::WriteMaterials (const Handle(XSControl_WorkSession) &WS,
const TDF_LabelSequence &labels ) const
{
if ( labels.Length() <=0 ) return Standard_False;
// get working data
Handle(Interface_InterfaceModel) Model = WS->Model();
Handle(XSControl_TransferWriter) TW = WS->TransferWriter();
Handle(Transfer_FinderProcess) FP = TW->FinderProcess();
const Handle(Interface_HGraph) aHGraph = WS->HGraph();
if(aHGraph.IsNull())
return Standard_False;
Interface_Graph aGraph = WS->HGraph()->Graph();
Handle(XCAFDoc_ShapeTool) ShTool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
if(ShTool.IsNull() ) return Standard_False;
Handle(XCAFDoc_MaterialTool) MatTool = XCAFDoc_DocumentTool::MaterialTool( labels(1) );
if(MatTool.IsNull() ) return Standard_False;
STEPConstruct_DataMapOfAsciiStringTransient MapDRI,MapMRI;
TDF_LabelSequence TopLabels;
ShTool->GetShapes(TopLabels);
for(Standard_Integer i=1; i<=TopLabels.Length(); i++) {
TDF_Label ShL = TopLabels.Value(i);
Handle(TDataStd_TreeNode) Node;
if( ShL.FindAttribute(XCAFDoc::MaterialRefGUID(),Node) && Node->HasFather() ) {
// find PDS for current shape
TopoDS_Shape aShape = XCAFDoc_ShapeTool::GetShape(ShL);
TopLoc_Location Loc;
TColStd_SequenceOfTransient seqRI;
FindEntities( FP, aShape, Loc, seqRI );
if(seqRI.Length()<=0) continue;
Handle(StepRepr_ProductDefinitionShape) PDS;
Handle(StepRepr_RepresentationContext) RC;
Handle(Standard_Transient) ent = seqRI.Value(1);
FindPDSforRI(aGraph,ent,PDS,RC);
if(PDS.IsNull()) continue;
Handle(StepBasic_ProductDefinition) aProdDef =
PDS->Definition().ProductDefinition();
if(aProdDef.IsNull())
continue;
// write material entities
TDF_Label MatL = Node->Father()->Label();
Handle(TCollection_HAsciiString) aName;
Handle(TCollection_HAsciiString) aDescription;
Standard_Real aDensity;
Handle(TCollection_HAsciiString) aDensName;
Handle(TCollection_HAsciiString) aDensValType;
Handle(StepRepr_Representation) RepDRI = new StepRepr_Representation;
Handle(StepRepr_Representation) RepMRI = new StepRepr_Representation;
if(MatTool->GetMaterial(MatL,aName,aDescription,aDensity,aDensName,aDensValType)) {
if(aName->Length()==0) continue;
TCollection_AsciiString aKey(aName->ToCString());
if(MapDRI.IsBound(aKey)) {
RepDRI = Handle(StepRepr_Representation)::DownCast(MapDRI.Find(aKey));
if(MapMRI.IsBound(aKey)) {
RepMRI = Handle(StepRepr_Representation)::DownCast(MapMRI.Find(aKey));
}
}
else {
// write DRI
Handle(StepRepr_DescriptiveRepresentationItem) DRI = new StepRepr_DescriptiveRepresentationItem;
DRI->Init(aName,aDescription);
Handle(StepRepr_HArray1OfRepresentationItem) HARI = new StepRepr_HArray1OfRepresentationItem(1,1);
HARI->SetValue(1,DRI);
RepDRI->Init(new TCollection_HAsciiString("material name"),HARI,RC);
Model->AddWithRefs(RepDRI);
// write MRI
if(aDensity>0) {
// mass
Handle(StepBasic_SiUnitAndMassUnit) SMU = new StepBasic_SiUnitAndMassUnit;
SMU->SetName(StepBasic_sunGram);
Handle(StepBasic_DerivedUnitElement) DUE1 = new StepBasic_DerivedUnitElement;
DUE1->Init(SMU,3.0);
// length
Handle(StepBasic_SiUnitAndLengthUnit) SLU = new StepBasic_SiUnitAndLengthUnit;
SLU->Init(Standard_True,StepBasic_spCenti,StepBasic_sunMetre);
Handle(StepBasic_DerivedUnitElement) DUE2 = new StepBasic_DerivedUnitElement;
DUE2->Init(SLU,2.0);
// other
Handle(StepBasic_HArray1OfDerivedUnitElement) HADUE = new StepBasic_HArray1OfDerivedUnitElement(1,2);
HADUE->SetValue(1,DUE1);
HADUE->SetValue(2,DUE2);
Handle(StepBasic_DerivedUnit) DU = new StepBasic_DerivedUnit;
DU->Init(HADUE);
Model->AddWithRefs(DU);
StepBasic_Unit aUnit;
aUnit.SetValue(DU);
Handle(StepBasic_MeasureValueMember) MVM = new StepBasic_MeasureValueMember;
MVM->SetName(aDensValType->ToCString());
MVM->SetReal(aDensity);
Handle(StepRepr_MeasureRepresentationItem) MRI = new StepRepr_MeasureRepresentationItem;
MRI->Init(aDensName,MVM,aUnit);
HARI = new StepRepr_HArray1OfRepresentationItem(1,1);
HARI->SetValue(1,MRI);
RepMRI->Init(new TCollection_HAsciiString("density"),HARI,RC);
Model->AddWithRefs(RepMRI);
}
//WriteNewMaterial(Model,aName,aDescription,aDensity,aDensName,aDensValType,RC,RepDRI,RepMRI);
MapDRI.Bind(aKey,RepDRI);
if(!RepMRI.IsNull()) MapMRI.Bind(aKey,RepMRI);
}
}
// write chain PDS---(DRI,MRI)
StepRepr_CharacterizedDefinition CD1;
CD1.SetValue(aProdDef);
Handle(StepRepr_PropertyDefinition) PropD1 = new StepRepr_PropertyDefinition;
PropD1->Init(new TCollection_HAsciiString("material property"),Standard_True,
new TCollection_HAsciiString("material name"),CD1);
Model->AddWithRefs(PropD1);
StepRepr_RepresentedDefinition RD1;
RD1.SetValue(PropD1);
Handle(StepRepr_PropertyDefinitionRepresentation) PDR1 =
new StepRepr_PropertyDefinitionRepresentation;
PDR1->Init(RD1,RepDRI);
Model->AddWithRefs(PDR1);
StepRepr_CharacterizedDefinition CD2;
CD2.SetValue(aProdDef);
Handle(StepRepr_PropertyDefinition) PropD2 = new StepRepr_PropertyDefinition;
PropD2->Init(new TCollection_HAsciiString("material property"),Standard_True,
new TCollection_HAsciiString("density"),CD2);
Model->AddWithRefs(PropD2);
StepRepr_RepresentedDefinition RD2;
RD2.SetValue(PropD2);
Handle(StepRepr_PropertyDefinitionRepresentation) PDR2 =
new StepRepr_PropertyDefinitionRepresentation;
PDR2->Init(RD2,RepMRI);
Model->AddWithRefs(PDR2);
}
}
return Standard_True;
}
//=======================================================================
//function : SetColorMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetColorMode (const Standard_Boolean colormode)
{
myColorMode = colormode;
}
//=======================================================================
//function : GetColorMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetColorMode () const
{
return myColorMode;
}
//=======================================================================
//function : SetNameMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetNameMode (const Standard_Boolean namemode)
{
myNameMode = namemode;
}
//=======================================================================
//function : GetNameMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetNameMode () const
{
return myNameMode;
}
//=======================================================================
//function : SetLayerMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetLayerMode (const Standard_Boolean layermode)
{
myLayerMode = layermode;
}
//=======================================================================
//function : GetLayerMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetLayerMode () const
{
return myLayerMode;
}
//=======================================================================
//function : SetPropsMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetPropsMode (const Standard_Boolean propsmode)
{
myPropsMode = propsmode;
}
//=======================================================================
//function : GetPropsMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetPropsMode () const
{
return myPropsMode;
}
//=======================================================================
//function : SetSHUOMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetSHUOMode (const Standard_Boolean mode)
{
mySHUOMode = mode;
}
//=======================================================================
//function : GetSHUOMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetSHUOMode () const
{
return mySHUOMode;
}
//=======================================================================
//function : SetDimTolMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetDimTolMode(const Standard_Boolean dimtolmode)
{
myDGTMode = dimtolmode;
}
//=======================================================================
//function : GetDimTolMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetDimTolMode() const
{
return myDGTMode;
}
//=======================================================================
//function : SetMaterialMode
//purpose :
//=======================================================================
void STEPCAFControl_Writer::SetMaterialMode(const Standard_Boolean matmode)
{
myMatMode = matmode;
}
//=======================================================================
//function : GetMaterialMode
//purpose :
//=======================================================================
Standard_Boolean STEPCAFControl_Writer::GetMaterialMode() const
{
return myMatMode;
}
View Git Blame Copy Permalink