0026859: Export of GDT from XCAF to STEP

[occt.git] / src / RWStepDimTol / RWStepDimTol_RWGeneralDatumReference.cxx

diff --git a/src/RWStepDimTol/RWStepDimTol_RWGeneralDatumReference.cxx b/src/RWStepDimTol/RWStepDimTol_RWGeneralDatumReference.cxx
index 5ff7628..d9ec460 100644 (file)
--- a/src/RWStepDimTol/RWStepDimTol_RWGeneralDatumReference.cxx
+++ b/src/RWStepDimTol/RWStepDimTol_RWGeneralDatumReference.cxx
@@ -156,7 +156,7 @@ void RWStepDimTol_RWGeneralDatumReference::WriteStep (StepData_StepWriter& SW,
   else if (aBaseType == 2) {
     Handle(StepDimTol_HArray1OfDatumReferenceElement) anArray = ent->Base().CommonDatumList();
     Standard_Integer i, nb = (anArray.IsNull() ? 0 : anArray->Length());
-    SW.OpenSub();
+    SW.OpenTypedSub("COMMON_DATUM_LIST");
     for (i = 1; i <= nb; i++)  
       SW.Send (anArray->Value(i));
     SW.CloseSub();
@@ -174,7 +174,10 @@ void RWStepDimTol_RWGeneralDatumReference::WriteStep (StepData_StepWriter& SW,
       }
     }
     SW.CloseSub();
-  }  
+  }
+  else {
+    SW.SendUndef();
+  }
   
 }