+}
+
+void HYDROData_ShapeFile::Export(Handle(HYDROData_Document) theDocument,
+ const QString& aFileName,
+ const Handle(HYDROData_LandCoverMap)& aLCM,
+ QStringList& aNonExpList,
+ bool bCheckLinear, bool bUseDiscr, double theDefl)
+{
+ if (bCheckLinear && !aLCM->CheckLinear())
+ return;
+ //
+ SHPHandle hSHPHandle = NULL;
+ if ( !aLCM.IsNull() && !aLCM->IsEmpty())
+ {
+ hSHPHandle = SHPCreate( aFileName.toLatin1().data(), SHPT_POLYGON );
+ HYDROData_LandCoverMap::Explorer It( aLCM );
+ for( ; It.More(); It.Next())
+ {
+ TopoDS_Face aFace = It.Face();
+ if (WriteObjectPolygon(theDocument, hSHPHandle, aFace, bUseDiscr, theDefl) != 1)
+ aNonExpList.append(aLCM->GetName() + "_" + QString::number(It.Index()));
+ }
+ }
+ if (hSHPHandle && hSHPHandle->nRecords > 0)