#include "stdafx.h"
#include "acestext.h"
#include "resource.h"
#include "dbgroup.h"
#include "dbobjptr.h"
#include "dbxutil.h"
#include "TDbColumn.h"
#include "TDbBlockInsert.h"
#include "TArchCmdReactor.h"

#include "TExportFileDlg.h"
#include "BatchSaveAsFileForFolder.h"


extern TARCH_IMPEXP AcDbObjectId g_idPubWall;
extern TARCH_IMPEXP int g_nProductId;

//extern GEOAPI XPface * ConstructPolyFace(const AcDbVoidPtrArray &entSet);
//extern inline BOOL IsPaperSpace();


void EraseWrongHatchEnt(AcDbDatabase *pDb);
void AddToGroup(AcDbDatabase *pDb,CString groupName,AcDbObjectId obj);
void AddXdata(AcDbObjectId eId,CString appName,CString resString);
void GetGroupNameFromXData(AcDbObjectId entityId,CString appName,CString &groupName);
void DelXdata(AcDbObjectId eId,CString appName);
void HideTchObject(AcDbDatabase *pDb);
void AddGroupNameToXData(AcDbDatabase *pDb);
void DelXDataFromGroup(AcDbDatabase *pDb);
// sg add 120502，判断一个对象是否在_TCH_HIDE_GROUP组内
bool IsTchHideGroupObj(AcDbObjectId objId, AcDbObjectId &groupId);


class TExplodeSet: public AcDbVoidPtrArray {
public:
	TMasterProperties m_prop;
};


void RemoveTchSolidData(AcDbEntity *pEnt)
{
	resbuf* pRb = pEnt->xData(TCH_SOLID_APPNAME);
	if(!pRb)
		return;
	RBList rb(pRb);

	AcDbObjectId idDict = pEnt->extensionDictionary();
	if (!idDict.isValid())
		return ;
	BOOL bClear = FALSE;
	pRb = acutBuildList(1001, TCH_SOLID_APPNAME, 0);
	RBList rbNew(pRb);
	AcDbObject* pPart = NULL;

	AcDbDictionary* pDict = NULL;
	OPENOBJ_BEGIN(idDict, AcDb::kForRead, AcDbDictionary, pDict);
	if (pDict == NULL)
		return;
	AcDbObject *pObj=NULL;
	if (pDict->getAt(TCH_SOLID_PART, pObj, AcDb::kForWrite) != Acad::eOk)		
		return ;
	if(pObj) {
		pObj->erase();
		pObj->close();
	}
	OPENOBJ_END();
	pEnt->setXData(pRb);
	pEnt->releaseExtensionDictionary();
}

//把pface加入图块
BOOL AddToBlockTableRecord(const XPface &rMesh, const TMasterProperties &prop, const TCHAR *szLay, AcDbBlockTableRecord *pRec)
{
	ASSERT(pRec && szLay);
	AcDbPolyFaceMesh *pMesh=new AcDbPolyFaceMesh;
	pMesh->setDatabaseDefaults(pRec->database());
	//prop.SetTo(pMesh);
	pMesh->setLayer(prop.m_idLayer);
	pMesh->setLinetype(prop.m_idLineType);
	pMesh->setColorIndex(prop.m_nColor);
#if ADS>16
	pMesh->setMaterial(prop.m_idMaterial);
#endif
	if(szLay && _tcscmp(szLay, _T("0"))!=0)
		pMesh->setLayer(GetLayerIdFromString(szLay, pRec->database()));
	VERIFY(pRec->appendAcDbEntity(pMesh)==Acad::eOk);
    for(int i=0; i<rMesh.Length(); i++) {
		AcDbPolyFaceMeshVertex *pVertex=new AcDbPolyFaceMeshVertex(rMesh[i]);
		pVertex->setPropertiesFrom(pMesh);
		VERIFY(pMesh->appendVertex(pVertex)==Acad::eOk);
		pVertex->close();
	}
	for(i=0; i<rMesh.faces.Length(); i++) {
		const XPolyFacet &rFace=rMesh.faces[i];
		AcDbFaceRecord *pFaceRec=new AcDbFaceRecord(rFace.vt1, rFace.vt2, rFace.vt3, rFace.vt4);
		pFaceRec->setPropertiesFrom(pMesh);
		Acad::ErrorStatus es=pMesh->appendFaceRecord(pFaceRec);
		assert(es==Acad::eOk);
		pFaceRec->close();
	}
	pMesh->close();
	return TRUE;
}

// 从集合中筛选出同一层的3DFACE放入另外一个集合，并从原集会中扣除
// entSet(I/O) -- 原集合
// faceSet(O)－－目标集合 
// szLayer(O) --图层
BOOL Select3DFacesByLayer(AcDbVoidPtrArray &entSet, AcDbVoidPtrArray &faceSet, TCHAR *szLayer)
{
	int nLen=entSet.length();
	//AcDbIntArray indexArray;
	BOOL bFirstCase=TRUE;
	for(int i=0; i<nLen; i++) {
		AcDbEntity *pEnt=(AcDbEntity *)entSet[i];
		if(pEnt->isA()==AcDbFace::desc()) {
			TCHAR *pLayer=pEnt->layer();
			ASSERT(pLayer);
			if(bFirstCase) {
				_tcscpy(szLayer, pLayer);
				faceSet.append(pEnt);
				entSet.removeAt(i);
				i--;
				nLen--;
				//indexArray.append(i);
				bFirstCase=FALSE;
			} else if(_tcsicmp(szLayer, pLayer)==0) {
				faceSet.append(pEnt);
				entSet.removeAt(i);
				i--;
				nLen--;
				//indexArray.append(i);
			}
			acutDelString(pLayer);
		}
	}
	return !bFirstCase;
}

//在图块内分解上华对象
BOOL RemoveTchSolidData(AcDbBlockTableRecord *pRec)
{
	AcDbBlockTableRecordIterator *pRecIter=NULL;
	if(pRec->newIterator(pRecIter)==Acad::eOk && pRecIter)
	{
	}
	else
		return FALSE;

	//对块表记录中的对象进行分解
	//AcDbVoidPtrArray entSetNew;
	DList<TExplodeSet> lstNewSet;
	for(pRecIter->start(); !pRecIter->done(); pRecIter->step())
	{
		AcDbEntity *pEnt=NULL;
		if(pRecIter->getEntity(pEnt, AcDb::kForWrite)==Acad::eOk)
		{
			ASSERT(pEnt);
			if(_tcsicmp(pEnt->isA()->dxfName(), _T("3DSOLID"))==0)
			{
				RemoveTchSolidData(pEnt);
			}
			pEnt->close();
		}
	}
	delete pRecIter;
	return TRUE;
}

//在图块内分解上华对象
BOOL ExplodeWithinBlock(AcDbBlockTableRecord *pRec, BOOL bExp3d)
{
    AcDbBlockTableRecordIterator *pRecIter=NULL;
    if(pRec->newIterator(pRecIter)==Acad::eOk && pRecIter) {
	} else
		return FALSE;

	//对块表记录中的对象进行分解
	//AcDbVoidPtrArray entSetNew;
	DList<TExplodeSet> lstNewSet;
    for(pRecIter->start(); !pRecIter->done(); pRecIter->step()) {
        AcDbEntity *pEnt=NULL;
        if(pRecIter->getEntity(pEnt, AcDb::kForWrite)==Acad::eOk) {
            ASSERT(pEnt);
            if(pEnt->isKindOf(TDbEntity::desc()) ||
                pEnt->isKindOf(TDbCurveEntity::desc()) ||
                pEnt->isKindOf(TDbBlockInsert::desc())) {
                //分解对象
				TExplodeSet *pNewSet=new TExplodeSet;
                pEnt->explode(*pNewSet);
				pNewSet->m_prop.m_idLayer=pEnt->layerId();
				pNewSet->m_prop.m_idLineType=pEnt->linetypeId();
				pNewSet->m_prop.m_nColor=pEnt->colorIndex();
#if ADS>16
				pNewSet->m_prop.m_idMaterial=pEnt->materialId();
#endif
                lstNewSet.Append(pNewSet);
            } else if(_tcsicmp(pEnt->isA()->dxfName(), _T("3DSOLID"))==0) {
                RemoveTchSolidData(pEnt);
			}
            pEnt->close();
        }
    }
	//对块表中的上华对象进行删除
	for(pRecIter->start(); !pRecIter->done(); pRecIter->step()) {
        AcDbEntity *pEnt=NULL;
        if(pRecIter->getEntity(pEnt, AcDb::kForWrite)==Acad::eOk) {
            ASSERT(pEnt);
            if(pEnt->isKindOf(TDbEntity::desc()) ||
                pEnt->isKindOf(TDbCurveEntity::desc()) ||
                pEnt->isKindOf(TDbBlockInsert::desc())) {
                pEnt->erase(); //删除对象
            }
            pEnt->close();
        }
    }

	for(int idx=0; idx<lstNewSet.Length(); idx++) {
		TExplodeSet &entSetNew=*lstNewSet[idx];
		if(bExp3d) {
			AcDbVoidPtrArray entSetFace;
			TCHAR szLayer[256]=_T("");
			while(Select3DFacesByLayer(entSetNew, entSetFace, szLayer)) {
				//if(_tcscmp(szLayer, _T("0"))==0)
				//	strcpy(szLayer, szLay);
				int nLen=entSetFace.length();
				XPface *pMesh=ConstructPolyFace(entSetFace);
				if(pMesh) {
					AddToBlockTableRecord(*pMesh, entSetNew.m_prop, szLayer, pRec);
					delete pMesh;
					ReleaseEntSet(entSetFace);
				} else {
					for(int n=0; n<nLen; n++) {
						AcDbEntity *pNewEnt=(AcDbEntity *)entSetFace[n];
						pRec->appendAcDbEntity(pNewEnt);
						pNewEnt->close();
					}
				}
			}
		}

		//加入新转换的对象
		int num=entSetNew.length();
		for(int n=0; n<num; n++) {
			AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[n];
			VERIFY(pRec->appendAcDbEntity(pNewEnt)==Acad::eOk);
			pNewEnt->close();
		}
	}
    delete pRecIter;
	return TRUE;
}

// 自动把门窗所在的墙加进选择集中
void MakeWallSet1(PickSet &ssWalls)
{
	if (!ssWalls)
		return;

	PickSet ssOpenings;
	ssOpenings += ssWalls;
	RBList maskOpening(RTDXF0,_T("ATS_OPENING"),NULL);
	ssOpenings.BaseFilter(maskOpening);

	long lCount=ssOpenings.Length();
	for (long idx=0L; idx<lCount; idx++)
	{
		Entity ent = ssOpenings[idx];
		OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbOpening, pWin);
		if (pWin)
		{
			AcDbObjectId idWall = pWin->GetWallId();
			if (!!idWall)
				ssWalls += idWall;
		}
		OPENOBJ_END();
	}
}





// sg add 120217，封装一个根据传入的版本号，保存成CAD不同版本格式图纸的函数
Acad::ErrorStatus SaveAsAppointedCADVer(AcDbDatabase *pDb, const TCHAR* fileName, int nVer)
{
	if (pDb == NULL)
		return Acad::eInvalidInput;

	Acad::ErrorStatus es = Acad::eOk;
	AcDb::AcDbDwgVersion nDwgVer = AcDb::kDHL_CURRENT;

#if (ADS < 15) // 14及以下程序，只能保存成14
	es = acdbSaveAsR14(pDb, fileName);
	return es;
#endif

	// 15以上可以选择保存成其他版本
	switch (nVer)
	{
	case 14: // 保存14版本
#if (ADS == 16)
		es = acdbSaveAs2000(pDb, fileName); // 16平台下根本不支持保存成R14
#else
		es = acdbSaveAsR14(pDb, fileName);
#endif
		break;
	case 15: // 保存15版本
#if (ADS == 15)
		es = pDb->saveAs(fileName); // 当前版本是15
#else
		es = acdbSaveAs2000(pDb, fileName);
#endif
		break;
#if (ADS > 15)
	case 16: // 保存16版本
#if (ADS == 16)
		es = pDb->saveAs(fileName); // 当前版本是16
#else
		es = acdbSaveAs2004(pDb, fileName);
#endif
		break;
#endif
#if (ADS > 16)
	case 17: // 保存17版本
#if (ADS == 17)
		es = pDb->saveAs(fileName); // 当前版本是17
#else
		nDwgVer = AcDb::kDHL_1021;
		es = pDb->saveAs(fileName, false, nDwgVer);
#endif
		break;
#endif
#if (ADS > 17)
	case 18: // 保存18版本
		nDwgVer = AcDb::kDHL_1024;
		es = pDb->saveAs(fileName, false, nDwgVer);
		break;
#endif
#if (ADS > 18)
	case 19: // 保存19版本
		nDwgVer = AcDb::kDHL_1027;
		es = pDb->saveAs(fileName, false, nDwgVer);
		break;
#endif
	}
	return es;
}


// 当前图另存旧版(处理同旧版的兼容性)
int SaveCurDwgAsTArch3(const TCHAR *szFileName)
{
    //extern void MakeWallSet1(PickSet &ssWalls);
    PickSet ssAll(SS_FREE), ss(SS_FREE); //ss--上华对象, ssAll--AutoCAD对象
    int nRet=ssAll.Get(_T("X"), NULL, NULL, NULL);
    if(nRet!=RTNORM) 
        return nRet;

	AcDbObjectId idPubWall=InitLayer(LAY_THICK_LINE);
	XPushMemVar<AcDbObjectId> vTempId(g_idPubWall, idPubWall);

	BOOL bExp3d=IsExplode3D();

    ssAll.BaseExclude(RBList(67,1,NULL));

    ss += ssAll;
    RBList mask(RTDXF0, _T("TCH_*"), NULL);
    ss.BaseFilter(mask);
	if(!bExp3d)
		ssAll -= ss; //二维分解时候，才划分AutoCAD对象和上华对象

    acdbCurDwg()->setDimstyleData(acdbCurDwg()->dimstyle());

    if(!XSymbolTable(_T("APPID"), _T("WTHICK")))
       VERIFY(ads_regapp(_T("WTHICK"))==RTNORM);
    InitTextStyle(TS_DIMFONT); //建立DIMFONT

    AcDbVoidPtrArray entitySet;
    if(!bExp3d) 
	{ //二维分解的时候才，提前处理
        XPushMemVar<BOOL> vTemp(XExplodeStream::m_bFullExplode, TRUE);
        XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
        long lCount=ss.Length();
        for(long i=0L; i<lCount; i++) 
		{
            Entity ent=ss[i];
            TCHAR szLay[256]=_T("");
            ent.GetData(8, szLay);
            XDbObject obj(ent, AcDb::kForRead);
            if(!obj) continue;
            ((AcDbEntity *)obj.m_pObject)->explode(entitySet);
        }
    }

    long lNum=entitySet.length();
    AcDbBlockTableRecord *pTempBlock=NULL;
    AcDbObjectId idBlock;
    pTempBlock=new AcDbBlockTableRecord;
    pTempBlock->setName(_T("*U"));
    idBlock=AddBlock(pTempBlock, FALSE);
    if(!idBlock) 
	{
        delete pTempBlock;
        ReleaseEntSet(entitySet);
        return RTERROR;
    }

	if(!bExp3d)
	{ //二维分解的时候，需要加入新对象
		for(long j=0L; j<lNum; j++) 
		{ 
			AcDbEntity *pEnt=(AcDbEntity *)entitySet[j];
			AcDbObjectId idLast;
			VERIFY(pTempBlock->appendAcDbEntity(idLast, pEnt)==Acad::eOk);
			pEnt->close();
		}
	}
    pTempBlock->close();

    AcDbObjectIdArray objectIds;
    long lCount=ssAll.Length();
	objectIds.setPhysicalLength(lCount);
    for(long i=0L; i<lCount; i++) 
	{
        Entity ent=ssAll[i];
        AcDbObjectId id;
		if(acdbGetObjectId(id, ent.name)==Acad::eOk)
			objectIds.append(id);
    }
    if(lCount)
	{//把模型空间的其他AutoCAD对象也复制到临时图块
        AcDbIdMapping idMap;
        acdbCurDwg()->deepCloneObjects(objectIds,  idBlock, idMap, false);
    }

    AcDbBlockTable *pNewBlockTab=NULL;
	AcDbDatabase *pNewDb=NULL;
    Acad::ErrorStatus es=acdbCurDwg()->wblock(pNewDb, idBlock);

    if(es!=Acad::eOk) 
	{
        adsout << _T("\n无法生成文件: ") << acadErrorStatusText(es);
        return RTERROR;
    }

    // 分解pNewDb中的块表
    pNewDb->getSymbolTable(pNewBlockTab, AcDb::kForRead);
    AcDbBlockTableIterator *pIterator=NULL;
    Acad::ErrorStatus es1=pNewBlockTab->newIterator(pIterator);
    pNewBlockTab->close();
    if(es1==Acad::eOk && pIterator) 
	{
		XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
        XPushMemVar<BOOL> vTemp(XExplodeStream::m_bFullExplode, TRUE);

        for(pIterator->start(); !pIterator->done(); pIterator->step()) 
		{
            AcDbBlockTableRecord *pRec=NULL;
            if(pIterator->getRecord(pRec, AcDb::kForWrite)==Acad::eOk && pRec) 
			{
				if(!pRec->isFromExternalReference())  
				{
					const TCHAR *rName=NULL;
					pRec->getName(rName);
					BOOL bMspace=(_tcsicmp(rName, ACDB_MODEL_SPACE)==0);
					if(!bExp3d) 
					{ // 2D
						if(!bMspace)//分解图块中的对象
							ExplodeWithinBlock(pRec, FALSE);
						else 
							RemoveTchSolidData(pRec);
					}
					else 
						ExplodeWithinBlock(pRec, bMspace? TRUE : FALSE); //如果不是模型空间，则不转化3dface为pface
				}
                pRec->close();
            }
        }
        delete pIterator;
    }

	TDbConfig*pConfig=GetDwgGlobal(AcDb::kForRead,pNewDb);
	if(pConfig!=NULL)
	{
		if(pConfig->upgradeOpen()==Acad::eOk)
			pConfig->erase();
		pConfig->close();
	}

    _tremove(szFileName);
	
/*
#if (ADS>15)
	if(acdbSaveAs2000(pNewDb, szFileName)!=Acad::eOk) 
	{
#else
    if(acdbSaveAsR14(pNewDb, szFileName)!=Acad::eOk)
	{
#endif
*/
	// sg modify 120217，根据全局设置，保存图纸格式
	int nCadVer = g_nDownGradeSaveCadVer + 14;
#if (ADS == 16)
	nCadVer++; // 16平台，无法保存成R14格式
#endif

	if (SaveAsAppointedCADVer(pNewDb, szFileName, nCadVer) != Acad::eOk)
	{
        delete pNewDb;
        adsout << _T("\n无法覆盖生成文件") << szFileName;
        return RTERROR;
    } 
	else 
        adsout << _T("\n成功的生成文件") << szFileName;
    delete pNewDb;
	
    TArchCmdReactor::ResetAll();
    return RTNORM;
}


// pDbSrc将被修改
//modified by whl on 090212,提供导出调用接口
int TARCH_IMPEXP SaveAsTArch3(AcDbDatabase *pDbSrc, const TCHAR *szDest, int nCADVer, bool bDeleteDim)
{
	InitTextStyle(TS_DIMFONT, pDbSrc); //建立DIMFONT
	AcDbObjectId idPubWall=GetLayerIdFromString(LAY_THICK_LINE, pDbSrc);	
	if(!idPubWall.isValid()) 
	{
		AcDbLayerTableRecord *pLayerTableRecord = new AcDbLayerTableRecord;
		pLayerTableRecord->setName(LAY_THICK_LINE);
		AcCmColor color;
		color.setColorIndex(9);
		pLayerTableRecord->setColor(color);
		idPubWall=AddLayer(pLayerTableRecord, Adesk::kTrue, pDbSrc);
		if(!idPubWall.isValid())
		{
			delete pLayerTableRecord;
			return RTERROR;
		}
	}

	XPushMemVar<AcDbObjectId> vTempWall(g_idPubWall, idPubWall);
	pDbSrc->setDimstyleData(pDbSrc->dimstyle());

	AcDbRegAppTable *pAppTab=NULL;
	VERIFY(pDbSrc->getSymbolTable(pAppTab, AcDb::kForWrite)==Acad::eOk);
	if(!pAppTab->has(_T("WTHICK"))) 
	{
		AcDbRegAppTableRecord *pRec=new AcDbRegAppTableRecord;
		pRec->setName(_T("WTHICK"));
		if(pAppTab->add(pRec)==Acad::eOk)
			pRec->close();
	}
	pAppTab->close();

	AcDbBlockTable *pNewBlockTab = NULL;
	pDbSrc->getSymbolTable(pNewBlockTab, AcDb::kForRead);;
	AcDbBlockTableIterator *pIterator = NULL;
	Acad::ErrorStatus es1 = pNewBlockTab->newIterator(pIterator);
	pNewBlockTab->close();
	if (es1!=Acad::eOk || !pIterator)
		return RTERROR;

	AcDbObjectId idWinLay=GetLayerIdFromString(LAY_WIN, pDbSrc);
	AcDbObjectId idDoorLay=GetLayerIdFromString(LAY_DOOR, pDbSrc);
	// sg add 120502，对轴网编号进行特殊处理
    AcDbObjectId idAxiso = InitBlock(_T("_AXISO"), pDbSrc);

	// 图块中的上华对象不做旧版兼容转换
	XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
	XPushMemVar<BOOL> vTemp2(XExplodeStream::m_bFullExplode, TRUE);
	for (pIterator->start(); !pIterator->done(); pIterator->step()) 
	{
		AcDbBlockTableRecord *pRec = NULL;
		if (pIterator->getRecord(pRec, AcDb::kForWrite)==Acad::eOk && pRec) 
		{
			const TCHAR *rName = NULL;
			pRec->getName(rName);
			if (!pRec->isFromExternalReference()) // 不处理外部参照
			{
				RemoveTchSolidData(pRec);

				AcDbBlockTableRecordIterator *pRecIter = NULL;
				if (pRec->newIterator(pRecIter)==Acad::eOk && pRecIter) 
				{
					// 对块表记录中的对象进行分解
					// AcDbVoidPtrArray entSetNew;//modify by xlc on 070524 
					CString groupName;
					for (pRecIter->start(); !pRecIter->done(); pRecIter->step())
					{
						AcDbObjectId entityId;
						pRecIter->getEntityId(entityId);
						GetGroupNameFromXData(entityId, _T("TCH_GROUP"), groupName);

						AcDbEntity *pEnt=NULL;
						if (pRecIter->getEntity(pEnt, AcDb::kForRead)==Acad::eOk) 
						{
							if (pEnt!=NULL && 
								pEnt->isKindOf(TDbEntity::desc()) ||
								pEnt->isKindOf(TDbCurveEntity::desc()) ||
								pEnt->isKindOf(TDbBlockInsert::desc()) ||
								pEnt->isKindOf(CWireDim::desc())||
								pEnt->isKindOf(CLampDim::desc()))
							{
								if (bDeleteDim && (pEnt->isKindOf(TDbDimension2::desc()) || pEnt->isKindOf(TDbDimension::desc())))
								{
									pEnt->close();
									continue;
								}

								AcDbVoidPtrArray entSetNew;
								pEnt->explode(entSetNew);					
								pEnt->close();

								// modify by xlc on 070524
								// 加入新转换的对象
								int num = entSetNew.length();
								for (int n=0; n<num; n++) 
								{
									AcDbEntity *pNewEnt = (AcDbEntity *)entSetNew[n];
									if (pRec->appendAcDbEntity(pNewEnt) == Acad::eOk)
									{
										if (pNewEnt->isA()==AcDbBlockReference::desc() && 
											(pNewEnt->layerId()==idWinLay||pNewEnt->layerId()==idDoorLay))
										{
											// 没有对属性进行进一步判断，确定是门窗与否
											AcDbBlockReference *pInsert=AcDbBlockReference::cast(pNewEnt);
											AcGeScale3d factors=pInsert->scaleFactors();
											double w=factors[2];
											RBList xd=ads_buildlist(1001, _T("WTHICK"), 1040, w, NULL);

											pInsert->setXData(xd);
											factors[2]=factors[0];
											pInsert->setScaleFactors(factors);
										}

										AcDbObjectId id = pNewEnt->objectId();
										pNewEnt->close();

										if (!groupName.IsEmpty())
										{
											AddToGroup(pDbSrc, groupName, id);

											// sg add 120502，对门窗编号和轴网编号特殊处理
											if (pNewEnt->isA() == AcDbBlockReference::desc())
											{
												AcDbBlockReference *pBRef = (AcDbBlockReference*)pNewEnt;
												AcDbObjectId idBKRecord = pBRef->blockTableRecord();
												if ((idAxiso.isValid() && idAxiso==idBKRecord) ||
													(pNewEnt->layerId()==idWinLay || pNewEnt->layerId()==idDoorLay))
												{
													AcDbObjectIterator* attribIter = pBRef->attributeIterator();
													if (attribIter != NULL)
													{
														while (attribIter->done() == false)
														{
															AddToGroup(pDbSrc, groupName, attribIter->objectId());
															attribIter->step();
														}
														delete attribIter;
													}
												}
											}
										}
									}
									else
										delete pNewEnt;
								}
							}
							else
							{
								AcDbObjectId id = pEnt->objectId();
								pEnt->close();

								if (!groupName.IsEmpty())
								{
									AddToGroup(pDbSrc,groupName,id);	//添加到组
									DelXdata(id,_T("TCH_GROUP"));		//删除扩展数据
								}
							}
						}
					}

					// 对块表中的上华对象进行删除
					for(pRecIter->start(); !pRecIter->done(); pRecIter->step()) 
					{
						AcDbEntity *pEnt = NULL;
						if (pRecIter->getEntity(pEnt, AcDb::kForWrite)==Acad::eOk) 
						{
							ASSERT(pEnt);
							if (pEnt->isKindOf(TDbEntity::desc()) ||
								pEnt->isKindOf(TDbEntity::desc()) ||
								pEnt->isKindOf(TDbCurveEntity::desc()) ||
								pEnt->isKindOf(TDbBlockInsert::desc()) ||
								pEnt->isKindOf(CWireDim::desc()) ||
								pEnt->isKindOf(CLampDim::desc()))
							{
								pEnt->erase();
							}

							pEnt->close();
						}
					}

					//加入新转换的对象
/*					int num=entSetNew.length();
					for(int n=0; n<num; n++) 
					{
					AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[n];
					if(pRec->appendAcDbEntity(pNewEnt)==Acad::eOk)
					{
					if(pNewEnt->isA()==AcDbBlockReference::desc() && pNewEnt->layerId()==idWinLay)
					{
					//没有对属性进行进一步判断，确定是门窗与否
					AcDbBlockReference *pInsert=AcDbBlockReference::cast(pNewEnt);
					AcGeScale3d factors=pInsert->scaleFactors();
					double w=factors[2];
					RBList xd=ads_buildlist(1001, _T("WTHICK"), 1040, w, NULL);

					pInsert->setXData(xd);
					factors[2]=factors[0];
					pInsert->setScaleFactors(factors);
					}
					//							pNewEnt->close();
					AcDbObjectId id=pNewEnt->objectId();
					pNewEnt->close();

					AddToGroup(pDbSrc,groupName,id);

					}
					else
					delete pNewEnt;
					}
*/
					delete pRecIter;
				}
			}
			pRec->close();
		}
	}
	delete pIterator;

	// add by xlc on 070713   
	// 删除坏的hatch,解决无面积特性的hatch在上华3崩溃的问题
#if ADS >16
	// 对于一些坏图，有问题，暂不使用,removed by whl on 090331
	// EraseWrongHatchEnt(pDbSrc);
#endif

	// add by xlc on 070525
	HideTchObject(pDbSrc); // 隐藏_TCH_HIDE_GROUP组内的对象

	TDbConfig*pConfig = GetDwgGlobal(AcDb::kForRead, pDbSrc);
	if (pConfig != NULL)
	{
		if (pConfig->upgradeOpen() == Acad::eOk)
			pConfig->erase();
		pConfig->close();
	}
	// 删除水暖中的TDbPsConfig对象，否则使用纯cad打开时，会提示代理图形错误
	AcDbDictionary *pDict=NULL;
	pDbSrc->getNamedObjectsDictionary(pDict, AcDb::kForRead);
	if (pDict != NULL)
	{
		AcDbObjectId objId;
		if(pDict->getAt (_T("TCH_DBPSCONFIG"),objId)==Acad::eOk)
		{
			AcDbObject *pObj=NULL;
			if(acdbOpenObject(pObj, objId, AcDb::kForWrite)==Acad::eOk)
			{
				if (pObj!=NULL)
				{
					pObj->erase();
					pObj->close ();
				}
			}
		}
		pDict->close();
	}
/*
	#if (ADS==16)
	Acad::ErrorStatus es=acdbSaveAs2000(pDbSrc, szDest);
	#else
	Acad::ErrorStatus es=acdbSaveAsR14(pDbSrc, szDest);
	#endif
*/

	// sg modify 120217，根据全局设置，保存图纸格式
	Acad::ErrorStatus es = SaveAsAppointedCADVer(pDbSrc, szDest, nCADVer);
	return (es==Acad::eOk? RTNORM : RTERROR);
}

//add by xlc on 081225
class  CEntStyle
{
public:
	AcDbVoidPtrArray entSet;
	BOOL bEarse;
	CString strGroupName;
	AcDbObjectId idObj;
};

// 把当前图另存旧版自定义对象格式
// pDb将被修改
// version:5,6,7,8
int SaveAs(AcDbDatabase *pDb, const TCHAR *szDest,int version, int nCADVer)
{
    XPushMemVar<int> vSave(g_nSaveTArchVer, version);

    ASSERT(pDb && szDest);
	AcDbObjectId idSpaceStyle=GetTextStyleId(_T("_TCH_SPACE"), pDb);
	if (idSpaceStyle.isValid()) 
	{
		OPENOBJ_BEGIN(idSpaceStyle, AcDb::kForWrite, AcDbTextStyleTableRecord, pStyle);
		if (pStyle)
			pStyle->setTextSize(5.0);
		OPENOBJ_END();
	}

	AcDbObjectId idWinTextStyle=GetTextStyleId(_T("_TCH_WINDOW"), pDb);
	if (idWinTextStyle.isValid()) 
	{
		OPENOBJ_BEGIN(idWinTextStyle, AcDb::kForWrite, AcDbTextStyleTableRecord, pStyle);
		if (pStyle)
			pStyle->setTextSize(3.5);
		OPENOBJ_END();
	}

	int nDrawMode=IsExplode3D();
    if (nDrawMode==1)
		nDrawMode=DRAW_3D;
    else
		nDrawMode=DRAW_2D;

	// 全部导出的情况
    AcDbBlockTable *pNewBlockTab = NULL;
    VERIFY(pDb->getSymbolTable(pNewBlockTab, AcDb::kForRead)==Acad::eOk);
    ASSERT(pNewBlockTab);
    AcDbBlockTableIterator *pIterator=NULL;
    Acad::ErrorStatus es1 = pNewBlockTab->newIterator(pIterator);
    pNewBlockTab->close();
    if (es1!=Acad::eOk || !pIterator) 
	{
        delete pDb;
		return RTERROR;
    }

    for (pIterator->start(); !pIterator->done(); pIterator->step())
	{
        AcDbBlockTableRecord *pRec = NULL;
        if (!(pIterator->getRecord(pRec, AcDb::kForWrite)==Acad::eOk && pRec)) 
			continue;

		XDbObject vAutoClose(pRec);
        if (pRec->isFromExternalReference()) 
			continue;

        AcDbBlockTableRecordIterator *pRecIter = NULL;
        if (pRec->newIterator(pRecIter)==Acad::eOk && pRecIter) 
		{
			Array<CEntStyle> entStyleArray;

			// 对块表记录中的对象进行分解
			// AcDbVoidPtrArray entSetNew;
			AcDbObjectIdArray eraseArray;
			for (pRecIter->start(); !pRecIter->done(); pRecIter->step()) 
			{
				AcDbVoidPtrArray entSetNew; // modify by xlc on 070828

				// add by xlc on 070524
				AcDbObjectId entityId;
				pRecIter->getEntityId(entityId);

				CString groupName;
				GetGroupNameFromXData(entityId,_T("TCH_GROUP"),groupName);

				AcDbEntity *pEnt = NULL;
				if (pRecIter->getEntity(pEnt, AcDb::kForWrite) == Acad::eOk) 
				{
					XDbObject autoClose1(pEnt);
					BOOL bErase = FALSE; // modify by xlc on 070524
					if (pEnt->isKindOf(TDbEntity::desc()))
					{
						pEnt->assertWriteEnabled();

						// add by xlc on 100416 图纸中有网架不合法(杆件为0)时从图纸移除
						TDbNetshelf *pNetshelf = TDbNetshelf::cast(pEnt);
						if (pNetshelf && (!pNetshelf->IsValid()))
						{
							eraseArray.append(pNetshelf->objectId());
							continue;
						}

						TDbEntity *tEnt = TDbEntity::cast(pEnt);
						// add begin
						CString sName = tEnt->isA()->name();
						if( 0==sName.CompareNoCase(_T("TDbFloorPipe")) && version<10 )
						{
							if( Acad::eOk == tEnt->Explode(entSetNew) )
							{
								CEntStyle entStyle;
								entStyle.bEarse = bErase;
								entStyle.strGroupName = groupName;
								entStyle.entSet = entSetNew;
								entStyle.idObj = pEnt->objectId();
								entStyleArray.AddTail(entStyle);
								eraseArray.append(tEnt->objectId());
								continue;
							}
						}
						// add end by cq 150819 盘管实体导出到T9以下(含T9)平台时 炸开
						tEnt->DownGradeSave(nDrawMode, entSetNew, &bErase);
						if (bErase)
							eraseArray.append(tEnt->objectId());

						//modify by xlc on 081225
						CEntStyle entStyle;
						entStyle.bEarse=bErase;
						entStyle.strGroupName=groupName;
						entStyle.entSet=entSetNew;
						entStyle.idObj=pEnt->objectId();
						entStyleArray.AddTail(entStyle);
					} 
					else if (pEnt->isKindOf(TDbCurveEntity::desc())) 
					{
						pEnt->assertWriteEnabled();
						TDbCurveEntity *tEnt=TDbCurveEntity::cast(pEnt);
						// BOOL bErase=FALSE;	//modify by xlc on 070524
						tEnt->DownGradeSave(nDrawMode, entSetNew, &bErase);
						if(bErase)
							eraseArray.append(tEnt->objectId());

						// modify by xlc on 081225
						CEntStyle entStyle;
						entStyle.bEarse=bErase;
						entStyle.strGroupName=groupName;
						entStyle.entSet=entSetNew;
						entStyle.idObj=pEnt->objectId();

						entStyleArray.AddTail(entStyle);
					}
					else if (!groupName.IsEmpty()) // sg add 120502，解决普通对象丢失问题
					{
						pEnt->close();
						AddToGroup(pDb, groupName, pEnt->objectId()); // 添加到组
						DelXdata(pEnt->objectId(), _T("TCH_GROUP")); // 删除扩展数据
					}

					//add by xlc on 070524
					//实体添加到组中
					//if(!groupName.IsEmpty())//modify by xlc on 070828 
					
					//modify by xlc on 081225解决图形导出对象指向自己死循环的问题
					//{
					//	if(bErase)	//分解实体
					//	{
					//		int num=entSetNew.length();//新添加的数目
					//		for(int n=0; n<num; n++) 
					//		{
					//			AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[n];
					//			if(pRec->appendAcDbEntity(pNewEnt)==Acad::eOk)
					//			{
					//				AcDbObjectId id=pNewEnt->objectId();
					//				pNewEnt->close();

					//				if(!groupName.IsEmpty())
					//				{
					//					AddToGroup(pDb,groupName,id);
					//				}
					//			}
					//			else
					//				delete pNewEnt;
					//		}
					//	}
					//	else	//未分解实体
					//	{
					//		AcDbObjectId id=pEnt->objectId();
					//		pEnt->close();

					//		if(!groupName.IsEmpty())
					//		{
					//			AddToGroup(pDb,groupName,id);			//添加到组
					//			DelXdata(id,_T("TCH_GROUP"));			//删除扩展数据
					//		}
					//	}
					//}
				}
			}
			delete pRecIter;

			// 删除旧的
			for (int n=0; n<eraseArray.length(); n++) 
			{
				AcDbObjectId id = eraseArray[n];
				OPENOBJ_BEGIN(id, AcDb::kForWrite, AcDbEntity, pEnt);
				if (pEnt)
					pEnt->erase();
				OPENOBJ_END();
			}
			
			// 加入新转换的对象
/*			
			int num=entSetNew.length();
			for(n=0; n<num; n++) 
			{
				AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[n];
				VERIFY(pRec->appendAcDbEntity(pNewEnt)==Acad::eOk);
				pNewEnt->close();
				
				//窗还要插入墙
				TDbOpening*pWin=TDbOpening::cast(pNewEnt);
				if(pWin!=NULL)
				{
					AcDbObjectId idWall=pWin->GetWallId();
					OPENOBJ_BEGIN(idWall, AcDb::kForWrite, TDbWall, pWall);
					if(pWall)
						pWall->AddOpeningId(pWin->objectId());
					OPENOBJ_END();
				}
			}
*/

			// modify by xlc on 081225
			for (n=0; n<entStyleArray.GetLength(); n++)
			{
				CString strName = entStyleArray[n].strGroupName;
				AcDbVoidPtrArray entSetNew = entStyleArray[n].entSet;

				// sg delete 110907，为了保证图纸导出后的门窗显示正确，恢复到和8.5B2版本一致
				// AcDbObjectId idOld = entStyleArray[n].idObj;
				int num = entSetNew.length();//新添加的数目
				if (strName.IsEmpty())
				{
					for(int i=0;i<num;i++)
					{
						AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[i];
						VERIFY(pRec->appendAcDbEntity(pNewEnt)==Acad::eOk);
						
						// sg delete 110907，为了保证图纸导出后的门窗显示正确，恢复到和8.5B2版本一致
						/*
						//add by xlc on 110408 提取保温线时防止id丢失
						CString str= pNewEnt->isA()->name();
						if (str.CompareNoCase(_T("TDbWall")) == 0
							||str.CompareNoCase(_T("TDbColumn")) == 0
							||str.CompareNoCase(_T("TDbWallPatch")) == 0)
						{
							pNewEnt->swapIdWith(idOld);
						}
						*/

						pNewEnt->close();

						// 窗还要插入墙
						TDbOpening *pWin = TDbOpening::cast(pNewEnt);
						if (pWin != NULL)
						{
							AcDbObjectId idWall = pWin->GetWallId();
							OPENOBJ_BEGIN(idWall, AcDb::kForWrite, TDbWall, pWall);
							if (pWall)
								pWall->AddOpeningId(pWin->objectId());
							OPENOBJ_END();
						}
					}
				}
				else
				{
					if (entStyleArray[n].bEarse)
					{
						for (int i=0; i<num; i++) 
						{
							AcDbEntity *pNewEnt=(AcDbEntity *)entSetNew[i];
							if (pRec->appendAcDbEntity(pNewEnt) == Acad::eOk)
							{
								AcDbObjectId id = pNewEnt->objectId();
								pNewEnt->close();
								AddToGroup(pDb,strName,id);

								//窗还要插入墙
								TDbOpening*pWin = TDbOpening::cast(pNewEnt);
								if (pWin != NULL)
								{
									AcDbObjectId idWall = pWin->GetWallId();
									OPENOBJ_BEGIN(idWall, AcDb::kForWrite, TDbWall, pWall);
									if (pWall)
										pWall->AddOpeningId(pWin->objectId());
									OPENOBJ_END();
								}
							}
							else
								delete pNewEnt;
						}
					}
					else
					{
						AcDbObjectId id=entStyleArray[n].idObj;

						AddToGroup(pDb,strName,id);		// 添加到组
						DelXdata(id,_T("TCH_GROUP"));	// 删除扩展数据
					}
				}
			}
        }
    }
    delete pIterator;

	//add by xlc on 070525
	HideTchObject(pDb);		//隐藏_TCH_HIDE_GROUP组内的对象

	if (FindFile(szDest))
		_tremove(szDest);

/*
#if (ADS>15)
	Acad::ErrorStatus ees=acdbSaveAs2000(pDb, szDest);
#else
    Acad::ErrorStatus ees=pDb->saveAs(szDest);
#endif
*/
	// sg modify 120217，根据全局设置，保存图纸格式
	Acad::ErrorStatus es = SaveAsAppointedCADVer(pDb, szDest, nCADVer);
    if (es != Acad::eOk)
		return RTERROR;
	return RTNORM;
}

//获得克隆块的新ID  //add by xlc on 091102
AcDbObjectId WblockCloneObjects(AcDbObjectId idOldBlock,AcDbDatabase *pDb)
{
	AcDbObjectIdArray list;
	list.append(idOldBlock);    // 将实体ID存入数组
	AcDbIdMapping   idMap;  
	acdbCurDwg()->wblockCloneObjects(list,pDb->blockTableId(),idMap,AcDb::kDrcReplace);//复制块到当前打开的文档		

	AcDbIdPair idPair;
	idPair.setKey(idOldBlock);
	idMap.compute(idPair);
	AcDbObjectId idNewBlock=idPair.value();
	return idNewBlock;
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////





////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 存成旧版入口函数
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void SaveAsOldVer()
{
	static int idx = -1;

	XString sFileDefault;
	xg_getvar(_T("DWGPREFIX"), sFileDefault); // H:\Tangent\TArchDev9.0\Bin\sys18\

	TCHAR szDwgName[250]=_T("");
	AT_GetCurDwg(szDwgName); // 当前图纸名称

	// sg modify 111206，分别给建筑、设备专业增加导出T9、T8的功能
	bool bArch(g_nProductId == kTARCH);
	if (idx == -1) idx = bArch ? 8 : 7;
	sFileDefault << szDwgName << _T(".dwg");
	/*
	switch(idx)
	{
	case 8:
		sFileDefault << szDwgName << (bArch ? _T("_t3.dwg") : _T(".dwg"));
		break;
	case 7:
		sFileDefault << szDwgName << (bArch ? _T("_t5.dwg") : _T("_t3.dwg"));
		break;
	case 6:
		sFileDefault << szDwgName << (bArch ? _T("_t6.dwg") : _T("_t5.dwg"));
		break;
	case 5:
		sFileDefault << szDwgName << (bArch ? _T("_t7.dwg") : _T("_t6.dwg"));
		break;
	case 4:
		sFileDefault << szDwgName << (bArch ? _T("_t8.dwg") : _T("_t7.dwg"));
		break;
	case 3:
		sFileDefault << szDwgName << (bArch ? _T("_t9.dwg") : _T("_t8.dwg"));
		break;
	case 2:
		sFileDefault << szDwgName << (bArch ? _T("_t20V2.dwg") : _T("_t9.dwg"));
		break;
	case 1:
		sFileDefault << szDwgName << (bArch ? _T("_t20V3.dwg") : _T("_t20V2.dwg"));
		break;
	}*/

	CTemporaryResourceOverride vTemp;
	CTArchFileDialog dlg(sFileDefault, idx); // 弹出对话框
	if (dlg.DoModal() != IDOK)
		return;

	if (!XSymbolTable(_T("APPID"), _T("WTHICK")))
		VERIFY(ads_regapp(_T("WTHICK")) == RTNORM);

	InitTextStyle(TS_DIMFONT); // 建立DIMFONT

	if (g_nFilterType==2 || g_nFilterType==3) // 结构基础条件图或结构平面条件图，创建梁图层
		InitLayer(LAY_BEAM);

	XString sFile;
	sFile = (const TCHAR *)dlg.GetPathName(); // 获得保存文件的完整路径和名称

	AcDbDatabase *pDb = NULL;


	// 删除过多的图层过滤器，否则速度过慢
	AcDbLayerTable *pLayertable = NULL;
	acdbCurDwg()->getLayerTable(pLayertable, AcDb::kForRead);
	if (pLayertable != NULL)
	{
		AcDbObjectId idExtDict = pLayertable->extensionDictionary();
		AcDbDictionary *pDict = NULL;
		acdbOpenObject(pDict, idExtDict, AcDb::kForRead);
		if (pDict != NULL)
		{	
			AcDbObject *pObj = NULL;
			pDict->getAt(_T("ACAD_LAYERFILTERS"),pObj,AcDb::kForWrite);
			if (pObj != NULL)
			{
				AcDbDictionary *pFilters = AcDbDictionary::cast(pObj);
				if (pFilters!=NULL && pFilters->numEntries()>200)
				{
					adsout<<_T("图层过滤器过多!已删除。");
					pObj->erase();
				}
				pObj->close();
			}
			pDict->close();
		}
		pLayertable->close();
	}

	if (g_nFilterType==1 || (dlg.GetSaveVersion()==3&&IsExplode3D())) // 三维模型
	{
		int nDrawMode = DocGetDrawMode();
		DocSetDrawMode(DRAW_3D);
		SaveCurDwgAsTArch3(sFile);
		DocSetDrawMode(nDrawMode);
		return;
	}

	// 不稳定问题解决方案
	//PickSet ssNewDim(SS_FREE);
	PickSet ssOldDim(SS_FREE);
	AcDbObjectIdArray aryNewDimId;
	if (dlg.GetSaveVersion() == 3)
	{
		XPushMemVar<BOOL> vTemp(XExplodeStream::m_bFullExplode, TRUE);
		XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
		ssOldDim.Get(_T("X"),NULL,NULL,RBList(RTDXF0,_T("ATS_DIMENSION,ATS_DIMENSION2"),NULL));

		long lCount = ssOldDim.Length();
		//ssNewDim.IncludeBegin();
		for (long i=0L; i<lCount; i++)
		{
			Entity ent = ssOldDim[i];
			//TCHAR szLay[256] = _T(""); // TEST
			//ent.GetData(8, szLay);

			XDbObject obj(ent, AcDb::kForRead);
			if (!obj)
				continue;

			AcDbObjectId ownerId = obj.m_pObject->ownerId();

			// sg add 120502，判断该尺寸对象是否在_TCH_HIDE_GROUP组内
			AcDbObjectId groupId;
			bool bInHideGroup = ::IsTchHideGroupObj(obj.m_pObject->objectId(), groupId);

			AcDbVoidPtrArray entitySet;
			if (((AcDbEntity *)obj.m_pObject)->explode(entitySet) != Acad::eOk)
				continue;

			int nCount = entitySet.length();
			for (int j=0; j<nCount; j++)
			{
				AcDbEntity *pNewEnt = (AcDbEntity *)entitySet[j];

				// modify by xlc on 070717
				// 解决了在图纸空间操作丢失标注的问题
				if (ownerId != NULL)
				{
					AcDbBlockTableRecordPointer pBlockTableRecord(ownerId, AcDb::kForWrite);
					if( pBlockTableRecord.openStatus() == Acad::eOk)
					{
						if (pBlockTableRecord->appendAcDbEntity(pNewEnt) == Acad::eOk)
						{
							pNewEnt->close();
						}
						else
						{
							delete pNewEnt;
						}
					}
					else
					{
						delete pNewEnt;
						continue;
					}
				}
				else
				{
					AddToCurrentSpace(pNewEnt, Adesk::kTrue);
				}

				// sg add 120502，判断原来的尺寸对象在_TCH_HIDE_GROUP组内，将炸开后的对象也放到组内
				aryNewDimId.append(pNewEnt->objectId());
				if (bInHideGroup)
				{
					OPENOBJ_BEGIN(groupId, AcDb::kForWrite, AcDbGroup, pGroup);
					if (pGroup != NULL)
					{
						pGroup->append(pNewEnt->objectId());
						pGroup->close();
					}
					OPENOBJ_END();
				}
			}
		}
		//ssNewDim.IncludeEnd();
		ssOldDim.Delete();//临时删除
	}

	// add by xlc on 070524
	{
		// sg modify 120504，根据9.0需求，为了提高速度，临时关闭了数据库反应器
		TPushMemVar<BOOL> pushVar(g_bMonitorDbAction, FALSE);
		AddGroupNameToXData(acdbCurDwg()); // 组内实体创建扩展数据记录组名
	}

	XString sUcsName;
	xg_getvar(_T("UCSNAME"),sUcsName);
	int nTileMode = 0;
	xg_getvar(_T("TILEMODE"), &nTileMode);

	PickSet ssViewPort(SS_FREE);
	ssViewPort.Get(_T("X"), NULL, NULL, RBList(RTDXF0, _T("VIEWPORT"), NULL));
	DList<TViewportTableData> lstVPData; // 获得当前视口信息

	BOOL bIsWcs = IsWCS();
	if (nTileMode == 0) // 当前是图纸空间
	{
		long lCount = ssViewPort.Length();
		for (long l=0L; l<lCount; l++)
		{
			int nViewPortNum = 1;

			Entity ent = ssViewPort[l];
			OPENOBJ_BEGIN(ent, AcDb::kForRead, AcDbViewport, pViewport);
			if (pViewport != NULL)
			{
				nViewPortNum = pViewport->number();
				if (nViewPortNum < 2)
					continue;

				TViewportTableData data;
				data.m_nVPNum = nViewPortNum;
				data.m_ptCen = pViewport->centerPoint();
				pViewport->getUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
				lstVPData.Append(new TViewportTableData(data.m_ptCen, data.m_ptOrg, data.m_vtX, data.m_vtY, data.m_nVPNum));
			}
			OPENOBJ_END();

			if (nViewPortNum != 1)
			{
				SHads_command(RTSTR, _T("_MSPACE"), RTNONE);
				acedSetCurrentVPort(nViewPortNum);
				SHads_command(RTSTR, _T("UCS"), RTSTR, _T(""), RTNONE);
			}
		}
	}
	else if (!bIsWcs) // 模型空间，UCS
	{
		SHads_command(RTSTR, _T("UCS"), RTSTR, _T(""), RTNONE);
	}

	Acad::ErrorStatus es = acdbCurDwg()->wblock(pDb);

#if ADS>16
	extern TARCH_IMPEXP double g_nAcadVer;
	if (TchGeLib::g_nAcadVer > 17.01) // 2008，解决2008平台轴号导出丢失问题
	{
		AcDbObjectId idAxisBlk=InitBlock(_T("_AXISO"));
		if (idAxisBlk.isValid())
		{
			AcDbObjectIdArray ids;
			ids.append(idAxisBlk);
			acdbCurDwg()->wblock(pDb,ids,AcGePoint3d::kOrigin,AcDb::kDrcIgnore);
		}
	}
#endif

	if (nTileMode == 0) // 图纸空间
	{
		DList<AcDbObjectId> idList;
		GetEntityFromDatabase(idList, *pDb, _T("VIEWPORT"), 0, ACDB_PAPER_SPACE);

		int nCount = lstVPData.Length(),
			nVPNums = idList.Length();
		for (int nVP=0; nVP<nCount; nVP++)
		{
			TViewportTableData data = *lstVPData[nVP];

			SHads_command(RTSTR, _T("_MSPACE"), RTNONE);
			acedSetCurrentVPort(data.m_nVPNum);
			SHads_command(RTSTR, _T("UCS"), RTSTR, _T("P"), RTNONE);

			for (int nNewVP=0; nNewVP<nVPNums; nNewVP++)
			{
				OPENOBJ_BEGIN(*idList[nNewVP], AcDb::kForRead, AcDbViewport, pViewport);
				if (pViewport != NULL)
				{
					if (pViewport->centerPoint().distanceTo(data.m_ptCen) < _DIST_SNAP)
					{
						if (pViewport->upgradeOpen() == Acad::eOk)
						{
							pViewport->assertWriteEnabled();
							pViewport->setUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
							pViewport->downgradeOpen();
							break;
						}
					}
				}
				OPENOBJ_END();
			}
		}
		SHads_command(RTSTR, _T("_PSPACE"), RTNONE);
		acedSetCurrentVPort(1);
	}
	else if (!bIsWcs) // UCS
	{
		SHads_command(RTSTR, _T("UCS"), RTSTR, _T("P"), RTNONE);
	}

	// add by xlc on 070524
	{
		// sg modify 120504，根据9.0需求，为了提高速度，临时关闭了数据库反应器
		TPushMemVar<BOOL> pushVar(g_bMonitorDbAction, FALSE);
		DelXDataFromGroup(acdbCurDwg()); // 删除组内实体扩展数据
	}

	// 不稳定问题解决方案
	if (dlg.GetSaveVersion() == 3)
	{
		ssOldDim.Delete(); // undelete
		//ssNewDim.Delete();

		int nNewDimCount = aryNewDimId.logicalLength();
		for (int nIndex=0; nIndex<nNewDimCount; nIndex++)
		{
			OPENOBJ_BEGIN(aryNewDimId[nIndex], AcDb::kForWrite, AcDbEntity, pAcDbEntity);
			if (pAcDbEntity != NULL)
			{
				pAcDbEntity ->erase();
			}
			OPENOBJ_END();
		}
		//int m = ssOldDim.Length(); // TEST
		//int n = ssNewDim.Length();
	}

	if (es != Acad::eOk) 
	{
		adsout << acadErrorStatusText(es);
		return;
	}

	// 文字样式表复制
	{
		AcDbTextStyleTable *pTable = NULL;
		acdbOpenObject(pTable, acdbCurDwg()->textStyleTableId(), AcDb::kForRead);
		if (pTable != NULL)
		{
			AcDbTextStyleTableIterator *pIter = NULL;
			pTable->newIterator(pIter);
			pTable->close();

			if (pIter != NULL)
			{
				AcDbObjectIdArray idArray;
				for (pIter->start(); !pIter->done(); pIter->step())
				{
					AcDbObjectId id;
					pIter->getRecordId(id);
					if (!id.isNull())
						idArray.append(id);
				}
				delete pIter;

				AcDbIdMapping idMap;
				acdbCurDwg()->wblockCloneObjects(idArray, pDb->textStyleTableId(), idMap, AcDb::kDrcReplace);
			}
		}
	}

	// 视口复制
	{
		acedVports2VportTableRecords();
		DList<TViewportTableData> lstData; // 获得当前视口信息
		AcDbViewportTable *pVpCurTable = NULL;
		if (acdbCurDwg()->getViewportTable(pVpCurTable, AcDb::kForRead)==Acad::eOk && pVpCurTable!=NULL)
		{
			AcDbViewportTableIterator *pVPIter = NULL;
			pVpCurTable->newIterator(pVPIter);
			pVpCurTable->close();

			if (pVPIter != NULL)
			{
				for (pVPIter->start(); !pVPIter->done(); pVPIter->step())
				{
					AcDbViewportTableRecord *pRecord = NULL;
					if (pVPIter->getRecord(pRecord, AcDb::kForRead)==Acad::eOk && pRecord!=NULL)
					{
						TViewportTableData data;
						data.m_ptCen.x = pRecord->centerPoint().x;
						data.m_ptCen.y = pRecord->centerPoint().y;
						pRecord->getUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
						lstData.Append(new TViewportTableData(data.m_ptCen, data.m_ptOrg, data.m_vtX, data.m_vtY));

						pRecord->close();
					}
				}
				delete pVPIter;
			}
		}

		AcDbViewportTable *pVpNewTable = NULL;
		if (pDb->getViewportTable(pVpNewTable, AcDb::kForRead)==Acad::eOk && pVpNewTable!=NULL)
		{
			AcDbViewportTableIterator *pVPNewIter = NULL;
			pVpNewTable->newIterator(pVPNewIter);
			pVpNewTable->close();

			if (pVPNewIter != NULL)
			{
				for (pVPNewIter->start(); !pVPNewIter->done(); pVPNewIter->step())
				{
					AcDbViewportTableRecord *pRecord = NULL;
					if (pVPNewIter->getRecord(pRecord, AcDb::kForWrite)==Acad::eOk && pRecord!=NULL)
					{
						AcGePoint2d ptCen = pRecord->centerPoint();

						int nVtNums = lstData.Length();
						for (int nN=0; nN<nVtNums; nN++)
						{
							TViewportTableData data = *lstData[nN];

							AcGePoint2d ptCurCen(data.m_ptCen.x, data.m_ptCen.y);
							if (ptCurCen.distanceTo(ptCen) < _DIST_SNAP)
							{
								pRecord->setUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
							}
						}

						pRecord->close();
					}
				}
				delete pVPNewIter;
			}
		}
	}

	// Ucs复制
	{
		AcDbUCSTable *pTable = NULL;
		acdbOpenObject(pTable,acdbCurDwg()->UCSTableId(), AcDb::kForRead);
		if (pTable != NULL)
		{
			AcDbUCSTableIterator *pIter = NULL;
			pTable->newIterator(pIter);
			pTable->close();

			if (pIter != NULL)
			{
				AcDbObjectIdArray idArray;
				for (pIter->start(); !pIter->done(); pIter->step())
				{
					AcDbObjectId id;
					pIter->getRecordId(id);
					if (!id.isNull())
						idArray.append(id);
				}
				delete pIter;

				AcDbIdMapping idMap;
				acdbCurDwg()->wblockCloneObjects(idArray, pDb->UCSTableId(), idMap, AcDb::kDrcReplace);
			}
		}
	}

	// 线型复制
	{
		AcDbLinetypeTable *pTable=NULL;
		acdbOpenObject(pTable,acdbCurDwg()->linetypeTableId(),AcDb::kForRead);
		if(pTable!=NULL)
		{
			AcDbLinetypeTableIterator *pIter=NULL;
			pTable->newIterator(pIter);
			pTable->close();

			if(pIter!=NULL)
			{
				AcDbObjectIdArray idArray;
				for(pIter->start();!pIter->done();pIter->step())
				{
					AcDbObjectId id;
					pIter->getRecordId(id);
					if(!id.isNull())
						idArray.append(id);
				}
				delete pIter;

				AcDbIdMapping idMap;
				acdbCurDwg()->wblockCloneObjects(idArray,pDb->linetypeTableId(),idMap,AcDb::kDrcReplace);
			}
		}
	}

	CSaveFilter::PreSave(pDb);

	////复制TDbConfig,有[多重从属]警告,不用
	//TDbConfig *pDC=GetDwgGlobal(AcDb::kForRead);
	//if(pDC!=NULL)
	//{
	//	AcDbObjectIdArray idArray;
	//	AcDbIdMapping idMap;
	//	idArray.append(pDC->objectId());//DICT:ATS_DBCONFIG
	//	pDC->close();

	//	AcDbDictionary *pNameDict=NULL;
	//	pDb->getNamedObjectsDictionary(pNameDict, AcDb::kForRead);
	//	if(pNameDict!=NULL)
	//	{
	//		AcDbObjectId idNameDict=pNameDict->id();
	//		pNameDict->close();

	//		acdbCurDwg()->wblockCloneObjects(idArray,idNameDict,idMap,AcDb::kDrcIgnore);
	//	}
	//}

	//复制TDbConfig
	{
		AcDbDictionary *pDict1=NULL;
		pDb->getNamedObjectsDictionary(pDict1, AcDb::kForWrite);
		TDbConfig *p0 =GetDwgGlobal(AcDb::kForRead);
		if(p0!=NULL&&pDict1!=NULL)
		{
			TDbConfig *p1=TDbConfig::cast(p0->clone());
			if(p1!=NULL)
			{
				p1->SetHatchDividerId(AcDbObjectId::kNull);
				p1->SetHatchFillId(AcDbObjectId::kNull);
				p1->SetHatchFill1Id(AcDbObjectId::kNull);
				p1->SetHatchFill2Id(AcDbObjectId::kNull);

				//add by xlc on 091102  解决线图案填充不导出的问题
				if(p0->IsDividerLineHatch())
				{
					p1->SetHatchDividerId(WblockCloneObjects(p0->GetHatchDividerId(),pDb));
				}
				if(p0->IsFillLineHatch())
				{
					p1->SetHatchFillId(WblockCloneObjects(p0->GetHatchFillId(),pDb));
				}
				if(p0->IsFill1LineHatch())
				{
					p1->SetHatchFill1Id(WblockCloneObjects(p0->GetHatchFill1Id(),pDb));
				}
				if(p0->IsFill2LineHatch())
				{
					p1->SetHatchFill2Id(WblockCloneObjects(p0->GetHatchFill2Id(),pDb));
				}

				p1->SetHatchBrickId(AcDbObjectId::kNull);
				p1->SetHatchRocketId(AcDbObjectId::kNull);
				p1->SetHatchConcreteId(AcDbObjectId::kNull);
				p1->SetHatchSteelId(AcDbObjectId::kNull);
				p1->SetLinetypeDote(GetLinetypeIdFromString(_T("DOTE"),pDb));
				p1->SetLinetypeDash(GetLinetypeIdFromString(_T("DASH"),pDb));

				// sg add 090519，导出T7、T6后，应该将文字距基线系数，转化为文字距基线距离
				double dText2BaseRatio = p0->GetText2BaseRatio();
				// sg modify 090527，将文字距离基线距离与系数间的换算关系由0.3精确到0.286
				//				dText2BaseRatio /= 0.3;
				dText2BaseRatio /= 0.286;
				p1->SetText2Base(dText2BaseRatio);

				AcDbObjectId id;
				if(pDict1->setAt(_T("ATS_DBCONFIG"),p1,id)==Acad::eOk)
					p1->close();
				else 
					delete p1;
			}
		}

		//add by xlc on 090521  水暖专业配置信息

		AcDbDictionary *pDict2=NULL;
		acdbCurDwg()->getNamedObjectsDictionary(pDict2,AcDb::kForRead);
		if (pDict2!=NULL&&pDict1!=NULL)
		{
			AcDbObjectId objId;
			if(pDict2->getAt (_T("TCH_DBPSCONFIG"),objId)==Acad::eOk)
			{
				AcDbObject *pObj=NULL;
				if(acdbOpenObject(pObj, objId, AcDb::kForRead)==Acad::eOk)
				{
					if (pObj!=NULL)
					{
						AcDbObject *p2=AcDbObject::cast(pObj->clone());
						if (p2!=NULL)
						{
							AcDbObjectId id;
							if(pDict1->setAt(_T("TCH_DBPSCONFIG"),p2,id)==Acad::eOk)
								p2->close();
							else 
								delete p2;
						}
						pObj->close ();
					}
				}
			}
		}

		if (NULL != pDict2)
			pDict2->close();
		if(pDict1!=NULL)
			pDict1->close();
		if(p0!=NULL)
			p0->close();
	}

	// 复制组
	// add by xlc on 070522
	{
		AcDbDictionary *pGroupDictOld = NULL;
		AcDbDictionary *pGroupDictNew = NULL;
		pDb->getGroupDictionary(pGroupDictNew, AcDb::kForWrite);

		if( acdbCurDwg()->getGroupDictionary(pGroupDictOld, AcDb::kForRead) == Acad::eOk )
		{
			AcDbDictionaryIterator *pIter = pGroupDictOld->newIterator();
			pGroupDictOld->close();

			for(; !pIter->done(); pIter->next())
			{
				AcDbObjectId id = pIter->objectId();
				if (id != NULL)
				{
					AcDbGroup *pGroup = new AcDbGroup();
					AcDbObjectId idGroup;
					es = pGroupDictNew->setAt(pIter->name(), pGroup, idGroup);
					if (Acad::eOk != es )
					{
						delete pGroup;
					}
					else
					{
						XString name = pIter->name();
						pGroup->setName(name);
						pGroup->close();
					}
				}
			}
			delete pIter;
		}

		if(pGroupDictNew != NULL)
			pGroupDictNew->close();
	}

	// sg modify 111206，分别增加导出T9、T8的功能
	// Begin
	int nCadVer = g_nDownGradeSaveCadVer + 14;
#if (ADS == 16)
	nCadVer++; // 16平台，无法保存成R14格式
#endif

	int nSaveVer(dlg.GetSaveVersion());
	switch (nSaveVer)
	{
	case 3://TArch3
		idx = bArch ? 8 : 7;
		break;
	case 5://TArch5
		 idx = bArch ? 7 : 6;
		break;
	case 6://TArch6
		 idx = bArch ? 6 : 5;
		break;
	case 7:	//TArch7
		idx = bArch  ? 5 : 4;
		break;
	case 8://TArch8
		 idx = bArch ? 4 : 3;
		break;
	case 9://TArch9
		idx =  bArch ? 3 : 2;
		break;
	case 10://20V2
		idx = bArch ? 2 : 1;
		break;
	case 11://20V3
		idx = 1;
		break;
	default:
		idx = 1;
		break;
	}

	bool bSuccess(false);
	if (nSaveVer > 3)
		bSuccess = (SaveAs(pDb, sFile,nSaveVer, nCadVer)==RTNORM);
	else	// T3 特殊处理
	{
		BOOL bLineWeight=DocGetIsLineWeight();
		if(g_nFilterType>0&&bLineWeight)
			DocSetIsLineWeight(FALSE);
		// modify by gjm 2012/09/06 true -> false
		bSuccess = (SaveAsTArch3(pDb, sFile, nCadVer, false)==RTNORM);
		if(g_nFilterType>0&&bLineWeight)
			DocSetIsLineWeight(TRUE);
	}

	//再增加版本，需要特殊处理，目前20V3版本是11
	if (nSaveVer == 10)	// 先这样处理，看将来大版本号如何改动，再做修改。
		adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << _T("T20V2文件: ") << sFile;
	else if (nSaveVer == 11)	// 先这样处理，看将来大版本号如何改动，再做修改。
		adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << _T("T20V3文件: ") << sFile;
	else
		adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << nSaveVer << _T("文件: ") << sFile;
	// End

	delete pDb;
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//add by xlc on 07/04/18
int __stdcall BrowseCtrlCallback(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData)
{
	if(uMsg == BFFM_INITIALIZED)
	{
		LPCTSTR lpInitDir = (LPCTSTR)lpData;
		::SendMessage(hwnd, BFFM_SETSELECTION, TRUE, 
			reinterpret_cast<LONG_PTR>(lpInitDir));
	}
	else if(uMsg == BFFM_SELCHANGED)
	{
	}

	return 0;
}

//从目录树中选取一个目录
BOOL GetFolderDia(XString &sFolder, CWnd *pParent, const TCHAR *pszTitle)
{
	LPMALLOC pMalloc;
	if (::SHGetMalloc(&pMalloc)!= NOERROR)
		return FALSE;
	
	BROWSEINFO bInfo;
	LPITEMIDLIST pidl;
	ZeroMemory ( (PVOID) &bInfo,sizeof (BROWSEINFO));
	
	if (0)	{
		OLECHAR       olePath[MAX_PATH];
		ULONG         chEaten;
		ULONG         dwAttributes;
		HRESULT       hr;
		LPSHELLFOLDER pDesktopFolder;
		// 
		// Get a pointer to the Desktop's IShellFolder interface. 
		//
		if (SUCCEEDED(SHGetDesktopFolder(&pDesktopFolder)))		{
			//
			// IShellFolder::ParseDisplayName requires the file name be in Unicode.
			//
			MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, (const char *)(_AS(sFolder)), -1,
				olePath, MAX_PATH);
			
			//
			// Convert the path to an ITEMIDLIST.
			//
			hr = pDesktopFolder->ParseDisplayName(NULL,
				NULL,
				olePath,
				&chEaten,
				&pidl,
				&dwAttributes);
			if (FAILED(hr))			{
				pMalloc ->Free (pidl);
				pMalloc ->Release ();
				return FALSE;
			}
			bInfo.pidlRoot = pidl;
		}
	}

	TCHAR szPath[256]=_T("");
	_tcscpy(szPath, sFolder);
	bInfo.hwndOwner		 = pParent->GetSafeHwnd();
	bInfo.pszDisplayName = szPath;
	bInfo.lpszTitle		 = pszTitle;

	//modify by xlc on 07/04/18
	//bInfo.ulFlags		 = BIF_RETURNONLYFSDIRS;
	//bInfo.lpfn		 = NULL; //BrowseCtrlCallback;  // address of callback function
	//bInfo.lParam		 = NULL; //(LPARAM)this;		// pass address of object to callback function

#if ADS<16
	#define BIF_NEWDIALOGSTYLE 0x0040
#endif
	bInfo.ulFlags		 = BIF_RETURNONLYFSDIRS|BIF_NEWDIALOGSTYLE;
	bInfo.lpfn			 = BrowseCtrlCallback; //NULL;  // address of callback function
	bInfo.lParam		 = (LPARAM)szPath; //(LPARAM)this;		// pass address of object to callback function

	if ((pidl = ::SHBrowseForFolder(&bInfo)) == NULL)	{
		pMalloc ->Release();
		return FALSE;
	}
	
	if (::SHGetPathFromIDList(pidl,szPath) == FALSE) {
		pMalloc ->Free(pidl);
		pMalloc ->Release();
		return FALSE;
	}

	_tcscat(szPath, _T("\\"));
	sFolder=szPath;

	
	pMalloc ->Free(pidl);
	pMalloc ->Release();
	return TRUE;
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Command: 分解对象入口函数
// Modified on 2003/9/15：解决图纸空间对象分解后变成模型空间问题
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void ExplCustEnt()
{
//	extern void MakeWallSet1(PickSet &ssWalls);
	PickSet ssAll(SS_FREE), ss(SS_FREE); //ss--上华对象, ssAll--AutoCAD对象
	RBList mask(RTDXF0, _T("TCH_*"), NULL);
	int nRet=ssAll.Get(NULL, NULL, NULL, mask);
	if(nRet!=RTNORM) 
		return;

	AcDbObjectId idPubWall=InitLayer(LAY_THICK_LINE);
	XPushMemVar<AcDbObjectId> vTempId(g_idPubWall, idPubWall);

	MakeWallSet1(ssAll);
	ss += ssAll;
	ss.BaseFilter(mask);
	ssAll -= ss;

	int nExplMode=IsExplode3D();
	if(!XSymbolTable(_T("APPID"), _T("WTHICK")))
		VERIFY(ads_regapp(_T("WTHICK"))==RTNORM);
	InitTextStyle(TS_DIMFONT); //建立DIMFONT
	acdbCurDwg()->setDimstyleData(acdbCurDwg()->dimstyle());

	XPushMemVar<BOOL> vTemp(XExplodeStream::m_bFullExplode, TRUE);
	XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
	long lCount=ss.Length();
	for(long i=0L; i<lCount; i++) {
		Entity ent=ss[i];
		TCHAR szLay[256]=_T("");
		ent.GetData(8, szLay);

		XDbObject obj(ent, AcDb::kForRead);
		if(!obj) continue;
		if(nExplMode) {
			AcDbVoidPtrArray entSet0;
			((AcDbEntity *)obj.m_pObject)->explode(entSet0);
			TMasterProperties prop;
			prop.SetFrom((AcDbEntity *)obj.m_pObject);

			AcDbVoidPtrArray entSet;
			TCHAR szLayer[256]=_T("");
			while(Select3DFacesByLayer(entSet0, entSet, szLayer)) {
				if(_tcscmp(szLayer, _T("0"))==0)
					_tcscpy(szLayer, szLay);
				int nLen=entSet.length();
				XPface *pMesh=ConstructPolyFace(entSet);
				if(pMesh) {
					//pMesh->Make(szLayer);
					XDbBlockTableRec rec(TchExport::IsPaperSpace()? ACDB_PAPER_SPACE : ACDB_MODEL_SPACE, AcDb::kForWrite);
					if(!!rec)
						AddToBlockTableRecord(*pMesh, prop, szLayer, rec.m_pBlockTableRec);
					delete pMesh;
					ReleaseEntSet(entSet);
				} else {
					for(int n=0; n<nLen; n++) {
						AcDbEntity *pEnt=(AcDbEntity *)entSet[n];
						AddToCurrentSpace(pEnt, Adesk::kTrue);
					}
				}
			}
			int nLen=entSet0.length();
			for(int n=0; n<nLen; n++) {
				AcDbEntity *pEnt=(AcDbEntity *)entSet0[n];
				AddToCurrentSpace(pEnt, Adesk::kTrue);
			}
		} else {
			AcDbVoidPtrArray entitySet;
			((AcDbEntity *)obj.m_pObject)->explode(entitySet);
			int nCount=entitySet.length();
			for(int j=0; j<nCount; j++) 
			{
				AcDbEntity *pEnt=(AcDbEntity *)entitySet[j];
				
				//modify by xlc on 100708 解决09以上平台分解对象后对齐标注和角度标注不显示的问题
				if (TchGeLib::g_nAcadVer > 17.1
					&& (pEnt->isKindOf(AcDbAlignedDimension::desc())
						||pEnt->isKindOf(AcDb3PointAngularDimension::desc())))
				{
					AddToCurrentSpace(pEnt, Adesk::kFalse);
					pEnt->transformBy(AcGeMatrix3d::kIdentity);
					pEnt->draw();
					pEnt->recordGraphicsModified();
					pEnt->close();
				}
				else

				{
					AddToCurrentSpace(pEnt, Adesk::kTrue);
				}
			}
		}
	}
	ss.Erase();
	ads_redraw(NULL, 1);
}



// 取多个文件
BOOL GetDwgFilesDia(XStringList &lstFiles, CWnd *pParent, const TCHAR *pszDir, 
                    const TCHAR *pszTitle)
{
	const TCHAR *pszFilter = _T("DWG Files (*.dwg)|*.dwg||");

	// sg modify 111115，根据9.0需求，支持修改对话框大小
	//CFileDialog dlg(TRUE, _T("DWG"), NULL, OFN_ALLOWMULTISELECT|OFN_HIDEREADONLY, pszFilter, pParent);	
	CFileDialog dlg(TRUE, _T("DWG"), NULL, OFN_ALLOWMULTISELECT|OFN_HIDEREADONLY|OFN_ENABLESIZING, pszFilter, pParent);	
	TCHAR szFileName[4056] = _T("");     

	const TCHAR * szDlgTitle = pszTitle;
	int maxChar = 4055;   
	dlg.m_ofn.lpstrFile = szFileName;
	dlg.m_ofn.nMaxFile = maxChar;
	dlg.m_ofn.lpstrTitle = szDlgTitle;
	dlg.m_ofn.lpstrInitialDir = pszDir;
	if(dlg.DoModal() !=IDOK )
		return FALSE;
	//strcpy(pszDir, dlg.GetPathName());

	POSITION pos = dlg.GetStartPosition();
	while(pos!=NULL)
	{
		CString csPath = dlg.GetNextPathName(pos);
		lstFiles.Append(tstrnew(csPath));
	}
	return TRUE;
}

//////////////////////////////////////////////////////////////////////////
// 批量转文件夹
//////////////////////////////////////////////////////////////////////////
void BatchFolderSaveAsOldVer()
{
#if ADS<16
	adsout<<_T("\n建议新建空白图执行本命令!其他注意事项请参考帮助文件\n");//add by whl
#endif

	XString sFolder;
	xg_getvar(_T("DWGPREFIX"), sFolder); // H:\Tangent\TArchDev9.0\Bin\sys18\

	// sg add 120307，根据9.0需求，需要对批量转旧命令的对话框也进行一下修改，参考图形导出来做
	CTemporaryResourceOverride vTemp;
	TBatchSaveAsFileForFolderDlg dlg; // 选择要转化的文件
	if (dlg.DoModal() != IDOK)
		return;

	std::vector<CString> vecSrc(0), vecDesc(0);
	dlg.GetSrcFileLst(vecSrc);
	dlg.GetDescFileLst(vecDesc);
	int Ttype = dlg.GetTangentType();
	int nCadVer = dlg.GetCadType();
	bool bRelpace = dlg.IsReplace();

	int nDrawMode=DocGetDrawMode();
	if (Ttype==3)
		DocSetDrawMode(DRAW_2D);

	if (vecSrc.size() != vecDesc.size()) return;

	for (size_t i = 0; i < vecSrc.size(); ++i)
	{
		AcDbDatabase db(false, true);
#if ADS < 21
		Acad::ErrorStatus es=db.readDwgFile(vecSrc[i], _SH_DENYNO, false);
#else
		Acad::ErrorStatus es=db.readDwgFile(vecSrc[i], AcDbDatabase::kForReadAndAllShare, false);
#endif
		if(es!=Acad::eOk) 
			continue;

		//add by xlc on 070525
		AddGroupNameToXData(&db);	//组内实体创建扩展数据记录组名
		XPushMemVar<AcDbDatabase*> vTemp0(g_pCurrentDb,&db);
#if (ADS == 16)
		nCadVer++; // 16平台，无法保存成R14格式
#endif
		if(Ttype==10) 
		{
			if(SaveAs(&db, vecDesc[i],10, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑20V2文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑20V2文件失败: ") << LPCTSTR(vecDesc[i]);
		}
		if(Ttype==9) 
		{
			if(SaveAs(&db, vecDesc[i],9, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑9文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑9文件失败: ") << LPCTSTR(vecDesc[i]);
		}
		if(Ttype==8) 
		{
			if(SaveAs(&db, vecDesc[i],8, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑8文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑8文件失败: ") << LPCTSTR(vecDesc[i]);
		}
		else if(Ttype==7) 
		{
			if(SaveAs(&db, vecDesc[i],7, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑7文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑7文件失败: ") << LPCTSTR(vecDesc[i]);
		}
		else if(Ttype==6) 
		{
			if(SaveAs(&db, vecDesc[i],6, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑6文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑6文件失败: ") << LPCTSTR(vecDesc[i]);
		}
		else if(Ttype==5) 
		{
			if(SaveAs(&db, vecDesc[i],5, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑5文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑5文件失败: ") << LPCTSTR(vecDesc[i]);
		} 
		else if(Ttype==3) 
		{
			if(SaveAsTArch3(&db, vecDesc[i], nCadVer, false)==RTNORM)
				adsout << _T("\n成功的转换上华建筑3文件: ") << LPCTSTR(vecDesc[i]);
			else
				adsout << _T("\n转换上华建筑3文件失败: ") << LPCTSTR(vecDesc[i]);
		}

		if (bRelpace)
		{
			if (::DeleteFile(vecSrc[i]))
				_trename(vecDesc[i], vecSrc[i]);
		}
	}
	if(Ttype==3)
		DocSetDrawMode(nDrawMode);
	
}

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 批量另存旧版, 转2D视图入口函数
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void BatchSaveAsOldVer()
{
#if ADS<16
	adsout<<_T("\n建议新建空白图执行本命令!其他注意事项请参考帮助文件\n");//add by whl
#endif

	XString sFolder;
	xg_getvar(_T("DWGPREFIX"), sFolder); // H:\Tangent\TArchDev9.0\Bin\sys18\

	// sg add 120307，根据9.0需求，需要对批量转旧命令的对话框也进行一下修改，参考图形导出来做
	CTemporaryResourceOverride vTemp;
	CTArchBatchSaveAsFileDialog dlg(sFolder, _T("请选择待转换的文件")); // 选择要转化的文件
	if (dlg.DoModal() != IDOK)
		return;

	// if(!GetDwgFilesDia(lstFiles, acedGetAcadFrame(), sFolder, _T("请选择待转换的文件")))
	//	return;
	XStringList lstFiles;
	dlg.GetBatchSaveFiles(lstFiles); // 获得选到的文件

	XString szFileFolder;
	dlg.GetSelFileFolder(szFileFolder);
	// if (!GetFolderDia(sFolder, acedGetAcadFrame(), _T("请选择转换后的文件夹"))) // 选择保存位置
	if (!GetFolderDia(szFileFolder, acedGetAcadFrame(), _T("请选择转换后的文件夹"))) // 选择保存位置，默认保存与待转化的文件同目录
		return;

 //   static int idx=3;
 //   adsout << _T("\n请选择输出类型: [TArch7文件(7)/TArch6文件(6)/TArch5文件(5)/TArch3文件(3)]<") << idx << _T(">: ");
 //   int nRet=RTNORM;
 //   INITGET_BEG(RSG_NONEG|RSG_NOZERO, _T("7 6 5 3"));
 //   nRet=ads_getint(_T(""), &idx); // 选择保存类型
 //   INITGET_END();
 //   if(nRet!=RTNORM && nRet!=RTNONE)
 //       return;
 //   if(idx!=3 && idx!=5 &&idx!=6&&idx!=7)
 //       return;

	//static CString g_sPostFix3=_T("_t3");
	//static CString g_sPostFix5=_T("_t5");
	//static CString g_sPostFix6=_T("_t6");
	//static CString g_sPostFix7=_T("_t7");
	//XString sPostFix;
	//if(idx==3)
	//	sPostFix=g_sPostFix3;
	//else if(idx==5)
	//	sPostFix=g_sPostFix5;
	//else if(idx==6)
	//	sPostFix=g_sPostFix6;
	//else if(idx==7)
	//	sPostFix=g_sPostFix7;
 //   adsout << _T("\n请输入文件名后缀，或按ESC取消自动后缀<")<<sPostFix<<_T(">: ");
	//sPostFix=_T("");
	//nRet=acedGetString(TRUE,_T(""),sPostFix); // 处理自动增加的后缀问题
	//if(nRet!=RTCAN)
	//{
	//	if(sPostFix!=_T(""))
	//	{
	//		if(idx==3)
	//			g_sPostFix3=sPostFix;
	//		else if(idx==5)
	//			g_sPostFix5=sPostFix;
	//		else if(idx==6)
	//			g_sPostFix6=sPostFix;
	//		else if(idx==7)
	//			g_sPostFix7=sPostFix;
	//	}
	//	else
	//	{
	//		if(idx==3)
	//			sPostFix=g_sPostFix3;
	//		else if(idx==5)
	//			sPostFix=g_sPostFix5;
	//		else if(idx==6)
	//			sPostFix=g_sPostFix6;
	//		else if(idx==7)
	//			sPostFix=g_sPostFix7;
	//	}
	//}

	int idx = dlg.GetSaveVersion(); // 选择的上华版本号
	XString sPostFix;
	dlg.GetPostFixName(sPostFix); // 后缀名称

	if (!XSymbolTable(_T("APPID"), _T("WTHICK")))
		VERIFY(ads_regapp(_T("WTHICK"))==RTNORM);

	int nDrawMode=DocGetDrawMode();
	if (idx==3)
		DocSetDrawMode(DRAW_2D);

	for (int i=0; i<lstFiles.Length(); i++)
	{
		AcDbDatabase db(false, true);
#if ADS < 21
		Acad::ErrorStatus es=db.readDwgFile(lstFiles[i], _SH_DENYNO, false);
#else
		Acad::ErrorStatus es=db.readDwgFile(lstFiles[i], AcDbDatabase::kForReadAndAllShare, false);
#endif
		if(es!=Acad::eOk) 
			continue;

		//add by xlc on 070525
		AddGroupNameToXData(&db);	//组内实体创建扩展数据记录组名

		XString sNewFile;
		XPathParser parse(lstFiles[i]);
		//sNewFile << sFolder << parse.m_sFileName;
		sNewFile << szFileFolder << parse.m_sFileName;

		XPushMemVar<AcDbDatabase*> vTemp0(g_pCurrentDb,&db);

		sNewFile <<sPostFix<< _T(".dwg");

		int nCadVer = g_nBatchSaveCadVer + 14;
#if (ADS == 16)
		nCadVer++; // 16平台，无法保存成R14格式
#endif
		if (idx == 10)
		{
			if(SaveAs(&db, sNewFile,10, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑t20V2文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑t20V2文件失败: ") << sNewFile;
		}
		if(idx==9) 
		{
			if(SaveAs(&db, sNewFile,9, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑9文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑9文件失败: ") << sNewFile;
		}
		else if(idx==8) 
		{
			if(SaveAs(&db, sNewFile,8, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑8文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑8文件失败: ") << sNewFile;
		}
		else if(idx==7) 
		{
			if(SaveAs(&db, sNewFile,7, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑7文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑7文件失败: ") << sNewFile;
		}
		else if(idx==6) 
		{
			if(SaveAs(&db, sNewFile,6, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑6文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑6文件失败: ") << sNewFile;
		}
		else if(idx==5) 
		{
			if(SaveAs(&db, sNewFile,5, nCadVer)==RTNORM)
				adsout << _T("\n成功的转换上华建筑5文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑5文件失败: ") << sNewFile;
		} 
		else if(idx==3) 
		{
			if(SaveAsTArch3(&db, sNewFile, nCadVer, false)==RTNORM)
				adsout << _T("\n成功的转换上华建筑3文件: ") << sNewFile;
			else
				adsout << _T("\n转换上华建筑3文件失败: ") << sNewFile;
		}
	}

	if(idx==3)
		DocSetDrawMode(nDrawMode);
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//add by xlc on 070522
//根据扩展数据得到组名
void GetGroupNameFromXData(AcDbObjectId entityId,	//[in]实体ID
						   CString appName,			//[in]扩展数据名称
						   CString &groupName		//[out]组名
						   )
{
	groupName = _T("");
	AcDbObject* pObj = NULL;
	Acad::ErrorStatus retStat;
	if ((retStat = acdbOpenObject(pObj, entityId, AcDb::kForWrite))
		!= Acad::eOk)
	{
		return;
	}

	struct resbuf *pRb = NULL;
	pRb = pObj->xData(appName);
	if (pRb != NULL)
	{
		groupName=pRb->rbnext->resval.rstring;
		acutRelRb(pRb);
	}

	pObj->close();
}

//add by xlc on 070522
//向数据库pDb的groupName组中添加实体obj
void AddToGroup(AcDbDatabase *pDb,		//[in]目标数据库
				CString groupName,		//[in]组名
				AcDbObjectId obj		//[in]添加对象ID
				)
{
	AcDbDictionary *pGroupDict = NULL;	//组字典
	pDb->getGroupDictionary(pGroupDict, AcDb::kForRead);

	AcDbObjectId groupId;				//组ID
	pGroupDict->getAt(groupName, groupId);

	AcDbObjectPointer <AcDbGroup> pGroup(groupId, AcDb::kForWrite);
	Acad::ErrorStatus es = pGroup.openStatus();
	if( es != Acad::eOk)
	{
		pGroupDict->close();
		return ;
	}

	pGroup->append(obj);
	pGroup->close();
	pGroupDict->close();
	return ;
}

//add by xlc on 070524
//添加扩展数据
void AddXdata(AcDbObjectId eId,		//[in]对象ID
			  CString appName,		//[in]扩展数据名称
			  CString resString		//[in]添加扩展数据内容
			  ) 
{
	AcDbObject* pObj = NULL;
	Acad::ErrorStatus retStat;
	if ((retStat = acdbOpenObject(pObj, eId, AcDb::kForRead)) != Acad::eOk)
	{
		return;
	}

	struct  resbuf  *pRb = NULL, *pTemp = NULL;
	pRb = pObj->xData(appName);

	if (pRb != NULL)//存在扩展数据，指向数据末尾
	{
		for (pTemp = pRb; pTemp->rbnext != NULL;
			pTemp = pTemp->rbnext)
		{ ; }
	}
	else//不存在扩展数据，创建
	{
		//modify by xlc on 120502 acdbRegApp函数只能用在当前数据库，
		// 解决批量转旧中带局部隐藏时导出对象显示错误的问题
		//acdbRegApp(appName);
		AcDbDatabase *pDb = pObj->database();
		if (pDb != acdbCurDwg())
		{
			AcDbRegAppTable* pRegAppTbl = NULL;
			Acad::ErrorStatus es = pDb->getSymbolTable(pRegAppTbl, AcDb::kForRead);
			if (es == Acad::eOk) 
			{
				if (pRegAppTbl->has(appName) == false)
				{
					es = pRegAppTbl->upgradeOpen();
					if (es == Acad::eOk) 
					{
						AcDbRegAppTableRecord* pNewRec = new AcDbRegAppTableRecord;
						es = pNewRec->setName(appName);
						if (es == Acad::eOk) 
						{
							es = pRegAppTbl->add(pNewRec);
							if (es == Acad::eOk)
							{
								pNewRec->close();
							}
							else
							{
								delete pNewRec;
							}
						}
						else
						{
							delete pNewRec;
						}
					}
				}
				pRegAppTbl->close();
			}
		}
		else
		{
			acdbRegApp(appName);
		}

		pRb = acutNewRb(AcDb::kDxfRegAppName);
		pTemp = pRb;
		pTemp->resval.rstring
			= (TCHAR*) malloc((_tcslen(appName) + 1) * sizeof(TCHAR));
		_tcscpy(pTemp->resval.rstring, appName);
	}

	//添加数据
	pTemp->rbnext = acutNewRb(AcDb::kDxfXdAsciiString);
	pTemp = pTemp->rbnext;
	pTemp->resval.rstring
		= (TCHAR*) malloc((_tcslen(resString) + 1) * sizeof(TCHAR));
	_tcscpy(pTemp->resval.rstring, resString);

	if(pObj->upgradeOpen()==Acad::eOk)
		pObj->setXData(pRb);	

	pObj->close();
	acutRelRb(pRb);
}

//add by xlc on 070524
//删除扩展数据
void DelXdata(AcDbObjectId eId,	//[in]对象ID
			  CString appName	//[in]扩展数据名称
			  ) 
{
	AcDbObject* pObj = NULL;
	Acad::ErrorStatus retStat;
	if ((retStat = acdbOpenObject(pObj, eId, AcDb::kForRead))
		!= Acad::eOk)
	{
		return;
	}
	
	struct resbuf *xdata = NULL;
	while ((xdata = pObj->xData(appName)) != NULL)
	{
		resbuf *xdata_next = xdata->rbnext;
		xdata->rbnext = NULL;
		pObj->upgradeOpen();
		pObj->setXData(xdata);
		xdata->rbnext = xdata_next;
		acutRelRb(xdata);
	}

	pObj->close();
}

//设置数据库隐藏组内上华对象不可见
//add by xlc on 070524
void HideTchObject(AcDbDatabase *pDb	//[in]操作数据库
				   )
{
	AcDbDictionary *pGroupDict = NULL;//组字典
	if( pDb->getGroupDictionary(pGroupDict, AcDb::kForRead) != Acad::eOk )
		return;
	
	AcDbObjectId groupId;//组ID
	pGroupDict->getAt(_T("_TCH_HIDE_GROUP"), groupId);

	AcDbObjectPointer <AcDbGroup> pGroup(groupId, AcDb::kForWrite);
	Acad::ErrorStatus es = pGroup.openStatus();
	if( es != Acad::eOk)
	{
		pGroupDict->close();
		return ;
	}

	AcDbGroupIterator *pGroupIter = pGroup->newIterator();
	for (; !pGroupIter->done(); pGroupIter->next())
	{
		//设置组内对象不可见
		AcDbObjectId id=pGroupIter->objectId();
		OPENOBJ_BEGIN(id, AcDb::kForWrite, AcDbEntity, pEnt);
		if(pEnt)
		{
			pEnt->setVisibility(AcDb::kInvisible);
		}
		OPENOBJ_END();
		
	}

	pGroup->close();
	pGroupDict->close();
}

//组内实体创建扩展数据记录组名
//add by xlc on 070524
void AddGroupNameToXData(AcDbDatabase *pDb	//[in]操作数据库
				   )
{
	AcDbDictionary *pGroupDictOld = NULL;
	if ( pDb->getGroupDictionary(pGroupDictOld, AcDb::kForRead) == Acad::eOk)
	{
		AcDbDictionaryIterator *pIter = pGroupDictOld->newIterator();
		pGroupDictOld->close();

		for (; !pIter->done(); pIter->next())
		{
			AcDbObjectId groupId = pIter->objectId();
			if (groupId != NULL)
			{
				AcDbGroup *pGroup = NULL;
				if(acdbOpenObject(pGroup, groupId, AcDb::kForWrite) != Acad::eOk)
				{
					continue;
				}

				CString strGroup=pGroup->name();
				if(strGroup.IsEmpty())
				{
					pGroup->close();
					continue;
				}

				AcDbGroupIterator *pGroupIter = pGroup->newIterator();
				for (; !pGroupIter->done(); pGroupIter->next())
				{
					AcDbObjectId id=pGroupIter->objectId();
					AddXdata(id,_T("TCH_GROUP"),strGroup) ;		//添加扩展数据
				}

				delete pGroupIter;
				pGroup->close();
			}
		}
		delete pIter;
	}
}

//删除组内实体扩展数据
//add by xlc on 070524
void DelXDataFromGroup(AcDbDatabase *pDb	//[in]操作数据库
					   )
{
	AcDbDictionary *pGroupDictOld = NULL;
	if( pDb->getGroupDictionary(pGroupDictOld, AcDb::kForRead) == Acad::eOk )
	{
		AcDbDictionaryIterator *pIter = pGroupDictOld->newIterator();
		pGroupDictOld->close();
		
		if(pIter == NULL)
			return;

		for(; !pIter->done(); pIter->next())
		{
			AcDbObjectId groupId = pIter->objectId();
			if (groupId != NULL)
			{
				AcDbGroup *pGroup = NULL;
				if(acdbOpenObject(pGroup, groupId, AcDb::kForWrite) != Acad::eOk)
					continue;

				AcDbGroupIterator *pGroupIter = pGroup->newIterator();
				for (; !pGroupIter->done(); pGroupIter->next())
				{
					AcDbObjectId id=pGroupIter->objectId();
					DelXdata(id,_T("TCH_GROUP"));			//删除扩展数据
				}

				delete pGroupIter;
				pGroup->close();
			}
		}
		delete pIter;
	}
}

// sg add 120502，判断一个对象是否在_TCH_HIDE_GROUP组内
bool IsTchHideGroupObj(AcDbObjectId objId, AcDbObjectId &groupId)
{
	AcDbEntity *pEnt;
	if (Acad::eOk != acdbOpenObject(pEnt, objId, AcDb::kForRead))
		return false;

	const AcDbVoidPtrArray *pReactors = NULL;
	pReactors = pEnt->reactors();
	if (pReactors == NULL)
	{
		pEnt->close();
		return false;
	}
	pEnt->close();

	void *pSomething;
	int nLength = pReactors->length();
	for (int i=0; i<nLength; i++)
	{
		pSomething = (AcDbObject*) pReactors->at(i);
		if (acdbIsPersistentReactor(pSomething))
		{
			AcDbObjectId persObjId = acdbPersistentReactorObjectId(pSomething);

			AcDbObject *pReactor;
			if (Acad::eOk != acdbOpenObject(pReactor, persObjId, AcDb::kForRead))
				continue;

			if (!pReactor->isKindOf(AcDbGroup::desc()))
			{
				pReactor->close();
				continue;
			}

			AcDbGroup *pGroup = AcDbGroup::cast(pReactor);
			if (pGroup == NULL)
			{
				pReactor->close();
				continue;
			}

#if (ADS > 15)
			TCHAR *pName = NULL;
			pGroup->getName(pName); // 15平台没有此函数
			if (_tcscmp(pName, _T("_TCH_HIDE_GROUP")) == 0)
			{
				delete []pName;
				pGroup->close();

				groupId = persObjId;
				return true;
			}
			delete []pName;
#else
			CString csName = pGroup->name(); // 高版本推荐不使用此函数
			if (_tcscmp(csName, _T("_TCH_HIDE_GROUP")) == 0)
			{
				pGroup->close();
				groupId = persObjId;
				return true;
			}
#endif
			pGroup->close();
		}
	}
	return false;
}

//add by xlc on 070713
//modified by whl on 090330,提高稳定性
void EraseWrongHatchEnt(AcDbDatabase *pDb	//[in]操作数据库
					 ) 
{
	int count=0;
	AcDbBlockTable *pBlkTbl;
    pDb->getSymbolTable(pBlkTbl, AcDb::kForRead);
	if(pBlkTbl!=NULL)
	{
		AcDbBlockTableRecord *pBlkTblRcd=NULL;
		pBlkTbl->getAt(ACDB_MODEL_SPACE, pBlkTblRcd,AcDb::kForRead);
		pBlkTbl->close();

		if(pBlkTblRcd!=NULL)
		{
			AcDbBlockTableRecordIterator *pBlkTblRcdItr=NULL;
			pBlkTblRcd->newIterator(pBlkTblRcdItr);
			pBlkTblRcd->close();

			if(pBlkTblRcdItr!=NULL)
			{
				for (pBlkTblRcdItr->start(); !pBlkTblRcdItr->done();pBlkTblRcdItr->step())
				{
					AcDbEntity *pEnt=NULL;
					pBlkTblRcdItr->getEntity(pEnt,AcDb::kForRead);
					if(pEnt!=NULL)
					{
						AcDbHatch *pHatch=AcDbHatch::cast(pEnt);
						if(pHatch!=NULL)
						{
							BOOL bErase = FALSE;
							
#if ADS>16
							double area = 0.0;
							if(pHatch->getArea(area) != Acad::eOk)
								bErase = TRUE;
							else if(area < 1.0e-6)
								bErase = TRUE;
#endif
							
							if(bErase)
							{
								pEnt->upgradeOpen();
								pEnt->erase(Adesk::kTrue);
								count++;
							}
						}

						pEnt->close();
					}
				}

				delete pBlkTblRcdItr;
			}
		}
	}

	if(count>0)
		adsout<<_T("\n删除了")<<count<<_T("个不能用的hatch对象!");
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
UINT DibColorCount (void *pv)
{
	int bits ;
	LPBITMAPINFOHEADER lpbi =((LPBITMAPINFOHEADER)pv) ;
	LPBITMAPCOREHEADER lpbc =((LPBITMAPCOREHEADER)pv) ;
	if ( lpbi->biSize != sizeof (BITMAPCOREHEADER) ) 
	{
		if ( lpbi->biClrUsed != 0 )
			return ((WORD)lpbi->biClrUsed) ;
		bits =lpbi->biBitCount ;
	}
	else
	{
		bits =lpbc->bcBitCount ;
	}
	switch ( bits )
	{
	case 1:
		return (2) ;
	case 4:
		return (16) ;
	case 8:
		return (256) ;
	default:
		return (0) ;
	}
}

BOOL DibInfo (HANDLE hbi, LPBITMAPINFOHEADER lpbi)
{
	if ( hbi ) {
		*lpbi =*(LPBITMAPINFOHEADER)GlobalLock (hbi) ;
		if ( lpbi->biSize != sizeof (BITMAPCOREHEADER) ) 
		{
			if ( lpbi->biSizeImage == 0L )
				lpbi->biSizeImage =WIDTHBYTES(lpbi->biWidth*lpbi->biBitCount) * lpbi->biHeight ;
			if ( lpbi->biClrUsed == 0L )
				lpbi->biClrUsed =DibColorCount (lpbi) ;
		}
		GlobalUnlock (hbi) ;
		return (TRUE) ;
	}
	return (FALSE) ;
}

void GetBitmapFromDib (HANDLE hDib, char *&pBmp)
{
	BITMAPINFO bmInfo ;
	pBmp =NULL ;
	if ( hDib == NULL )
		return ;
	if ( DibInfo(hDib, &(bmInfo.bmiHeader)) == FALSE )
		return ;
	RGBQUAD *pRgb =(RGBQUAD *)((LPSTR)(&bmInfo.bmiHeader) + (WORD)bmInfo.bmiHeader.biSize) ;
	bmInfo.bmiColors [0] =*pRgb ;
	Adesk::UInt32 numberBmiColors =
		bmInfo.bmiHeader.biBitCount > 8 
		? 0 
		: bmInfo.bmiHeader.biClrUsed 
		? bmInfo.bmiHeader.biClrUsed
		: 1 << bmInfo.bmiHeader.biBitCount ;
	int xSize =bmInfo.bmiHeader.biWidth ;
	int ySize =bmInfo.bmiHeader.biHeight;
	Adesk::UInt32 lenBmp =40
		+ (numberBmiColors * sizeof (RGBQUAD))
		+ (bmInfo.bmiHeader.biSizeImage
		? bmInfo.bmiHeader.biSizeImage
		: ((xSize + 3) & ~3) * ySize) ;
	pBmp =new char [lenBmp] ;
	if ( !pBmp )
		return ;
	BITMAPINFOHEADER FAR *lpbi =(LPBITMAPINFOHEADER)GlobalLock (hDib) ;
	memcpy (pBmp, lpbi, lenBmp) ;
	GlobalUnlock (hDib) ;
}

HANDLE DDBToDIB (CBitmap &bitmap, DWORD dwCompression, CPalette *pPal)
{
	BITMAP bm ;
	BITMAPINFOHEADER bi ;
	LPBITMAPINFOHEADER lpbi ;
	DWORD dwLen ;
	HANDLE hDIB ;
	HANDLE handle ;
	HDC hDC ;
	HPALETTE hPal ;
	
	ASSERT ( bitmap.GetSafeHandle () ) ;
	
	//----- The function has no arg for bitfields
	if ( dwCompression == BI_BITFIELDS )
		return (NULL) ;
	
	//----- If a palette has not been supplied use defaul palette
	hPal =(HPALETTE)pPal->GetSafeHandle () ;
	if ( hPal == NULL )
		hPal =(HPALETTE)GetStockObject (DEFAULT_PALETTE) ;
	
	//----- Get bitmap information
	bitmap.GetObject (sizeof (bm), (LPSTR)&bm) ;
	
	//----- Initialize the bitmapinfoheader
	bi.biSize =sizeof (BITMAPINFOHEADER) ;
	bi.biWidth =bm.bmWidth ;
	bi.biHeight =bm.bmHeight ;
	bi.biPlanes =1 ;
	bi.biBitCount =8 ; //----- bm.bmPlanes * bm.bmBitsPixel;
	bi.biCompression =dwCompression ;
	bi.biSizeImage =0 ;
	bi.biXPelsPerMeter =0 ;
	bi.biYPelsPerMeter =0 ;
	bi.biClrUsed =0 ;
	bi.biClrImportant =0 ;
	
	//----- Compute the size of the  infoheader and the color table
	int nColors =(1 << bi.biBitCount) ;
	if ( nColors > 256 ) 
		nColors = 0;
	dwLen =bi.biSize + nColors * sizeof (RGBQUAD) ;
	
	//----- We need a device context to get the DIB from
	hDC =::GetDC (NULL) ;
	hPal =::SelectPalette (hDC, hPal, FALSE) ;
	::RealizePalette (hDC) ;
	
	//----- Allocate enough memory to hold bitmapinfoheader and color table
	hDIB =::GlobalAlloc (GMEM_FIXED, dwLen) ;
	
	if ( !hDIB ) 
	{
		::SelectPalette (hDC, hPal, FALSE) ;
		::ReleaseDC (NULL, hDC) ;
		return (NULL) ;
	}
	
	lpbi =(LPBITMAPINFOHEADER)hDIB ;
	*lpbi =bi ;
	
	//----- Call GetDIBits with a NULL lpBits param, so the device driver 
	//----- will calculate the biSizeImage field 
	GetDIBits (
		hDC, (HBITMAP)bitmap.GetSafeHandle (), 0L, (DWORD)bi.biHeight,
		(LPBYTE)NULL, (LPBITMAPINFO)lpbi, (DWORD)DIB_RGB_COLORS
		) ;
	
	bi =*lpbi ;
	
	//----- If the driver did not fill in the biSizeImage field, then compute it
	//----- Each scan line of the image is aligned on a DWORD (32bit) boundary
	if ( bi.biSizeImage == 0 ) 
	{
		bi.biSizeImage =((((bi.biWidth * bi.biBitCount) + 31) & ~31) / 8) * bi.biHeight ;
		//----- If a compression scheme is used the result may infact be larger
		//----- Increase the size to account for this.
		if ( dwCompression != BI_RGB )
			bi.biSizeImage =(bi.biSizeImage * 3) / 2 ;
	}
	
	//----- Realloc the buffer so that it can hold all the bits
	dwLen +=bi.biSizeImage ;
	if ( handle =::GlobalReAlloc (hDIB, dwLen, GMEM_MOVEABLE) ) 
	{
		hDIB =handle ;
	}
	else 
	{
		::GlobalFree (hDIB) ;
		
		//----- Reselect the original palette
		::SelectPalette (hDC, hPal, FALSE) ;
		::ReleaseDC (NULL, hDC);
		return (NULL) ;
	}
	
	//----- Get the bitmap bits
	lpbi =(LPBITMAPINFOHEADER)hDIB ;
	
	//----- FINALLY get the DIB
	BOOL bGotBits =GetDIBits (
		hDC, (HBITMAP)bitmap.GetSafeHandle (),
		0L, //----- Start scan line
		(DWORD)bi.biHeight, //----- # of scan lines
		(LPBYTE)lpbi //----- address for bitmap bits
		+ (bi.biSize + nColors * sizeof (RGBQUAD)),
		(LPBITMAPINFO)lpbi, //----- address of bitmapinfo
		(DWORD)DIB_RGB_COLORS
		) ; //----- Use RGB for color table
	
	if ( !bGotBits ) 
	{
		::GlobalFree (hDIB) ;
		
		::SelectPalette (hDC, hPal, FALSE) ;
		::ReleaseDC (NULL, hDC);
		return (NULL) ;
	}
	
	::SelectPalette (hDC, hPal, FALSE) ;
	::ReleaseDC (NULL, hDC);
	return (hDIB) ;
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//得到dwg版本
static int GetDwgVersion(const CString &sDwgFile)
{
	int ret = 0;
	
	FILE *fp=_tfopen(sDwgFile, _T("r+b"));
	if(fp)
	{
		char szHead[7];
		if(fread(szHead, 1, 7, fp)==7) 
		{
			szHead[6]=EOS;
			if(strcmp(szHead, "AC1014")==0)
				ret = 14;
			else if(strcmp(szHead, "AC1015")==0)
				ret = 15;
			else if(strcmp(szHead, "AC1018")==0)
				ret = 16;
			else if(strcmp(szHead, "AC1021")==0)
				ret = 17;
			else if(strcmp(szHead, "AC1024")==0)
				ret = 18;
			else if(strcmp(szHead, "AC1027")==0)
				ret = 19;
		}
		fclose(fp);
	}
	return ret;
}

// 保存DWG文件，从另一个dwg继承预览图标
#if ADS >= 21
#include "acdbimageutils.h"
#endif
Acad::ErrorStatus SaveDwgFile(AcDbDatabase *pDb, LPCTSTR lpFilePath, LPCTSTR lpFilePath1, int nVer)
{	
	HBITMAP hBitmap;
	HPALETTE hPal;
	acdbGetPreviewBitmapFromDwg(lpFilePath, &hBitmap, &hPal);
	CBitmap bm;
	bm.Attach(hBitmap);
	
	HANDLE hDib = DDBToDIB (bm, BI_RGB, NULL) ;
	
	bm.DeleteObject();
	DeleteObject(hBitmap);
	DeleteObject(hPal);
	
	char *pBmp =NULL ;
	GetBitmapFromDib(hDib, pBmp);
	pDb->setThumbnailBitmap((void *)pBmp) ;
	delete pBmp ;
	
	GlobalUnlock (hDib) ;
	GlobalFree (hDib) ;

#if (ADS == 15)
	if (nVer == 14)
		return acdbSaveAsR14(pDb,lpFilePath1);
	else
		return pDb->saveAs(lpFilePath1);
#endif
#if (ADS == 16)
	if (nVer == 15)
		return acdbSaveAs2000(pDb,lpFilePath1);
	else
		return pDb->saveAs(lpFilePath1);
#endif
#if (ADS == 17)
	switch(nVer) 
	{
	case 14:
		return acdbSaveAsR14(pDb,lpFilePath1);
	case 15:
		return acdbSaveAs2000(pDb,lpFilePath1);
	case 16:
		return acdbSaveAs2004(pDb,lpFilePath1);
	default:
		return pDb->saveAs(lpFilePath1);
	}
#endif
#if (ADS == 18)
	switch(nVer) 
	{
	case 14:
		return acdbSaveAsR14(pDb,lpFilePath1);
	case 15:
		return acdbSaveAs2000(pDb,lpFilePath1);
	case 16:
		return acdbSaveAs2004(pDb,lpFilePath1);
	default:
		return pDb->saveAs(lpFilePath1);
	}
#endif
#if (ADS >= 19)
	switch(nVer) 
	{
	case 14:
		return acdbSaveAsR14(pDb,lpFilePath1);
	case 15:
		return acdbSaveAs2000(pDb,lpFilePath1);
	case 16:
		return acdbSaveAs2004(pDb,lpFilePath1);
	default:
		return pDb->saveAs(lpFilePath1);
	}
#endif
}
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////







////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// sg add 120307，增加一个局部导出的功能
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

namespace
{
	
	bool DoPartSaveAsOldVer(AcDbEntity *pEntity, AcDbVoidPtrArray &entSetNew, int nSaveVer)
	{
		BOOL bErase = FALSE;

		int nDrawMode = IsExplode3D();
		if (nDrawMode == 1)
			nDrawMode = DRAW_3D;
		else
			nDrawMode = DRAW_2D;

		AcDbObjectId idPubWall = InitLayer(LAY_THICK_LINE, acdbCurDwg());
		if (pEntity->isKindOf(TDbEntity::desc()) ||
			pEntity->isKindOf(TDbCurveEntity::desc())) // 上华对象，派生自TEntityBase
		{
			if (nSaveVer == 3) // 导出T3
			{
				XPushMemVar<AcDbObjectId> vTempWall(g_idPubWall, idPubWall);
				XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
				XPushMemVar<BOOL> vTemp2(XExplodeStream::m_bFullExplode, TRUE);

				pEntity->explode(entSetNew);
				pEntity->close();
			}
			else if (pEntity->isWriteEnabled()) // 导出T5、6、7、8、9
			{
				XPushMemVar<int> vSave(g_nSaveTArchVer, nSaveVer);

				if (pEntity->isKindOf(TDbEntity::desc()))
				{
					TDbEntity *oldEnt = TDbEntity::cast(pEntity);
					oldEnt->DownGradeSave(nDrawMode, entSetNew, &bErase);
				}
				else
				{
					TDbCurveEntity *oldEnt = TDbCurveEntity::cast(pEntity);
					oldEnt->DownGradeSave(nDrawMode, entSetNew, &bErase);
				}
			}
		}
		else if (pEntity->isKindOf(TDbBlockInsert::desc()) || // 上华对象，派生自AcDbEntity
			pEntity->isKindOf(CWireDim::desc()) || pEntity->isKindOf(CLampDim::desc()))
		{
			if (nSaveVer == 3) // 导出T3
			{
				XPushMemVar<BOOL> vTemp1(XExplodeStream::m_bExportTch4, TRUE);
				XPushMemVar<BOOL> vTemp2(XExplodeStream::m_bFullExplode, TRUE);
				pEntity->explode(entSetNew);
				pEntity->close();
			}
		}
		else // CAD对象
		{
			// 处理对象导出T3
			if (_tcsicmp(pEntity->isA()->dxfName(), _T("3DSOLID"))==0 && nSaveVer==3 && pEntity->upgradeOpen()==Acad::eOk)
			{
				RemoveTchSolidData(pEntity);
				return false;
			}
		}
		return true;
	}

	void DeleteTableRecord(AcDbBlockReference *pTblRef)
	{
		AcDbObjectId idBlock = pTblRef->blockTableRecord();
		OPENOBJ_BEGIN(idBlock, AcDb::kForWrite, AcDbBlockTableRecord, pRecord);
		{
			if (!pRecord)
				return;
			if (pRecord->isFromExternalReference())
				return;
			AcDbBlockTableRecordIterator *pIter = NULL;
			pRecord->newIterator(pIter);
			for (pIter->start();!pIter->done();pIter->step())
			{
				AcDbEntity *pEnt = NULL;
				pIter->getEntity(pEnt, AcDb::kForWrite);
				if (!pEnt)
					continue;
				if (pEnt->isKindOf(AcDbBlockReference::desc()))
					DeleteTableRecord((AcDbBlockReference*)pEnt);
				else
				{
					if (pEnt->isKindOf(TDbEntity::desc()) ||
						pEnt->isKindOf(TDbCurveEntity::desc()) ||
//						pEnt->isKindOf(TDbBlockInsert::desc()) ||
						pEnt->isKindOf(CWireDim::desc()) ||
						pEnt->isKindOf(CLampDim::desc()))
					pEnt->erase();
				}
				pEnt->close();
			}
			delete pIter;
		}
		OPENOBJ_END();
	}

	void AnalyTableRecord(AcDbBlockReference *pTblRef, AcDbVoidPtrArray &entSetNew, int nSaveVer)
	{
		AcDbObjectId idBlock = pTblRef->blockTableRecord();
#if (ADS < 17) 
		entSetNew.removeSubArray(0, entSetNew.length()-1);
#else
		entSetNew.removeAll();
#endif
		OPENOBJ_BEGIN(idBlock, AcDb::kForWrite, AcDbBlockTableRecord, pRecord);
		{
			if (!pRecord)
				return;
			if (pRecord->isFromExternalReference())
				return;
			AcDbBlockTableRecordIterator *pIter = NULL;
			pRecord->newIterator(pIter);
			for (pIter->start();!pIter->done();pIter->step())
			{
				AcDbEntity *pEnt = NULL;
				pIter->getEntity(pEnt, AcDb::kForWrite);
				if (!pEnt)
					continue;
				if (pEnt->isKindOf(AcDbBlockReference::desc()))
					AnalyTableRecord((AcDbBlockReference*)pEnt, entSetNew, nSaveVer);
				else
				{
					bool bTch = DoPartSaveAsOldVer(pEnt, entSetNew, nSaveVer);
					for (int i = 0; i < entSetNew.length(); ++i)
					{
						if (!bTch)
							continue;
						pRecord->appendAcDbEntity((AcDbEntity*)entSetNew[i]);
						((AcDbEntity*)entSetNew[i])->close();
					}
				}
				pEnt->close();
			}
			delete pIter;
		}
		OPENOBJ_END();
	}

}

void PartSaveAsOldVerCmd()
{
	PickSet ssSelect(SS_FREE); // 框选到的所有对象，上华+CAD
	{
		if (SelectEntities(_T("请选择要导出的对象<退出>: "), ssSelect, RBList()) != RTNORM)
			return;
	}

//#define HIGHEST_VER 11
#define HIGHEST_VER 12 //change by jsx on 160622
	static int nIdx = 8;	// 下次升级加1
	XString sFileDefault; // 默认文件完整路径
	{
		xg_getvar(_T("DWGPREFIX"), sFileDefault); // H:\Tangent\TArchDev9.0\Bin\sys18\

		TCHAR szDwgName[250]=_T("");
		AT_GetCurDwg(szDwgName); // 当前图纸名称

		int nTgVer = HIGHEST_VER - nIdx;	// 建筑最高导出到T9格式，后续升级，只要每次在10的基础上加1即可
		if (nTgVer == 4)		// 没有T4的版本，T5后，直接就是T3
			nTgVer--;
		//再增加版本，需要特殊处理，目前20V3版本是11
		if (nTgVer == 10)
			sFileDefault << szDwgName << XString(_T("_t20V2.dwg")); // 根据保存的TG版本，获得默认的后缀名称
		else if (nTgVer == 11)
			sFileDefault << szDwgName << XString(_T("_t20V3.dwg")); // 根据保存的TG版本，获得默认的后缀名称
		else
			sFileDefault << szDwgName << XString(_T("_t%d.dwg"), nTgVer); // 根据保存的TG版本，获得默认的后缀名称

	}

	CTemporaryResourceOverride vTemp;
	CTArchFileDialog dlg(sFileDefault, nIdx); // 对话框
	if (dlg.DoModal() != IDOK)
		return;

	int nSaveVer = 3;
	XString sFileName; // 文件的完整路径和名称
	{
		nSaveVer = dlg.GetSaveVersion();
		sFileName = (const TCHAR *)dlg.GetPathName(); // 获得保存文件的完整路径和名称

		nIdx = HIGHEST_VER - nSaveVer;
		if (nSaveVer == 3)
			nIdx--;
	}


	{
		if (!XSymbolTable(_T("APPID"), _T("WTHICK")))
			VERIFY(ads_regapp(_T("WTHICK")) == RTNORM);

		if (g_nFilterType==2 || g_nFilterType==3) // 结构基础条件图或结构平面条件图，创建梁图层
			InitLayer(LAY_BEAM);

		AcDbLayerTable *pLayertable = NULL;
		acdbCurDwg()->getLayerTable(pLayertable, AcDb::kForRead);
		if (pLayertable != NULL)
		{
			AcDbObjectId idExtDict = pLayertable->extensionDictionary();
			AcDbDictionary *pDict = NULL;
			acdbOpenObject(pDict, idExtDict, AcDb::kForRead);
			if (pDict != NULL)
			{	
				AcDbObject *pObj = NULL;
				pDict->getAt(_T("ACAD_LAYERFILTERS"),pObj,AcDb::kForWrite);
				if (pObj != NULL)
				{
					AcDbDictionary *pFilters = AcDbDictionary::cast(pObj);
					if (pFilters!=NULL && pFilters->numEntries()>200)
					{
						adsout<<_T("图层过滤器过多!已删除。");
						pObj->erase();
					}
					pObj->close();
				}
				pDict->close();
			}
			pLayertable->close();
		}
	}

	BOOL bIsWcs = IsWCS();
	{
		if (!bIsWcs) // 模型空间，UCS
		{
			SHads_command(RTSTR, _T("UCS"), RTSTR, _T(""), RTNONE);
		}
	}


	AcDbDatabase *pDb = NULL;
	{

		AcDbObjectIdArray idAllArray;
// 		ssNewEntity.AsIdArray(idAllArray);
// 		ssOldEntity.AsIdArray(idAllArray);
		ssSelect.AsIdArray(idAllArray);
		acdbCurDwg()->wblock(pDb, idAllArray, AcGePoint3d::kOrigin);
	}

#if ADS==17//wlw15818,解决2008,2009平台轴号导出丢失问题
	AcDbObjectId idAxisBlk = InitBlock(_T("_AXISO"));
	if (idAxisBlk.isValid())
	{
		AcDbObjectIdArray ids;
		ids.append(idAxisBlk);
		acdbCurDwg()->wblock(pDb,ids,AcGePoint3d::kOrigin,AcDb::kDrcIgnore);
	}
#endif

	{
		if (!bIsWcs) // UCS
		{
			SHads_command(RTSTR, _T("UCS"), RTSTR, _T("P"), RTNONE);
		}

		CSaveFilter::PreSave(pDb);
	}


	{
		acedVports2VportTableRecords();
		DList<TViewportTableData> lstData; // 获得当前视口信息
		AcDbViewportTable *pVpCurTable = NULL;
		if (acdbCurDwg()->getViewportTable(pVpCurTable, AcDb::kForRead)==Acad::eOk && pVpCurTable!=NULL)
		{
			AcDbViewportTableIterator *pVPIter = NULL;
			pVpCurTable->newIterator(pVPIter);
			pVpCurTable->close();

			if (pVPIter != NULL)
			{
				for (pVPIter->start(); !pVPIter->done(); pVPIter->step())
				{
					AcDbViewportTableRecord *pRecord = NULL;
					if (pVPIter->getRecord(pRecord, AcDb::kForRead)==Acad::eOk && pRecord!=NULL)
					{
						TViewportTableData data;
						data.m_ptCen.x = pRecord->centerPoint().x;
						data.m_ptCen.y = pRecord->centerPoint().y;
						pRecord->getUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
						lstData.Append(new TViewportTableData(data.m_ptCen, data.m_ptOrg, data.m_vtX, data.m_vtY));

						pRecord->close();
					}
				}
				delete pVPIter;
			}
		}

		AcDbViewportTable *pVpNewTable = NULL;
		if (pDb->getViewportTable(pVpNewTable, AcDb::kForRead)==Acad::eOk && pVpNewTable!=NULL)
		{
			AcDbViewportTableIterator *pVPNewIter = NULL;
			pVpNewTable->newIterator(pVPNewIter);
			pVpNewTable->close();

			if (pVPNewIter != NULL)
			{
				for (pVPNewIter->start(); !pVPNewIter->done(); pVPNewIter->step())
				{
					AcDbViewportTableRecord *pRecord = NULL;
					if (pVPNewIter->getRecord(pRecord, AcDb::kForWrite)==Acad::eOk && pRecord!=NULL)
					{
						AcGePoint2d ptCen = pRecord->centerPoint();

						int nVtNums = lstData.Length();
						for (int nN=0; nN<nVtNums; nN++)
						{
							TViewportTableData data = *lstData[nN];

							AcGePoint2d ptCurCen(data.m_ptCen.x, data.m_ptCen.y);
							if (ptCurCen.distanceTo(ptCen) < _DIST_SNAP)
							{
								pRecord->setUcs(data.m_ptOrg, data.m_vtX, data.m_vtY);
							}
						}

						pRecord->close();
					}
				}
				delete pVPNewIter;
			}
		}
	}


	{
		if (nSaveVer != 3)
		{
			AcDbDictionary *pDict1 = NULL;
			pDb->getNamedObjectsDictionary(pDict1, AcDb::kForWrite);

			TDbConfig *p0 = GetDwgGlobal(AcDb::kForRead);
			if (p0!=NULL && pDict1!=NULL)
			{
				TDbConfig *p1 = TDbConfig::cast(p0->clone());
				if (p1 != NULL)
				{
					p1->SetHatchDividerId(AcDbObjectId::kNull);
					p1->SetHatchFillId(AcDbObjectId::kNull);
					p1->SetHatchFill1Id(AcDbObjectId::kNull);
					p1->SetHatchFill2Id(AcDbObjectId::kNull);

					if (p0->IsDividerLineHatch())
					{
						p1->SetHatchDividerId(WblockCloneObjects(p0->GetHatchDividerId(),pDb));
					}
					if (p0->IsFillLineHatch())
					{
						p1->SetHatchFillId(WblockCloneObjects(p0->GetHatchFillId(),pDb));
					}
					if (p0->IsFill1LineHatch())
					{
						p1->SetHatchFill1Id(WblockCloneObjects(p0->GetHatchFill1Id(),pDb));
					}
					if (p0->IsFill2LineHatch())
					{
						p1->SetHatchFill2Id(WblockCloneObjects(p0->GetHatchFill2Id(),pDb));
					}

					p1->SetHatchBrickId(AcDbObjectId::kNull);
					p1->SetHatchRocketId(AcDbObjectId::kNull);
					p1->SetHatchConcreteId(AcDbObjectId::kNull);
					p1->SetHatchSteelId(AcDbObjectId::kNull);
					p1->SetLinetypeDote(GetLinetypeIdFromString(_T("DOTE"),pDb));
					p1->SetLinetypeDash(GetLinetypeIdFromString(_T("DASH"),pDb));

					double dText2BaseRatio = p0->GetText2BaseRatio();
					dText2BaseRatio /= 0.286;
					p1->SetText2Base(dText2BaseRatio);

					AcDbObjectId id;
					if (pDict1->setAt(_T("ATS_DBCONFIG"), p1, id) == Acad::eOk)
						p1->close();
					else 
						delete p1;
				}
			}

			AcDbDictionary *pDict2 = NULL;
			acdbCurDwg()->getNamedObjectsDictionary(pDict2, AcDb::kForRead);
			if (pDict2!=NULL && pDict1!=NULL)
			{
				AcDbObjectId objId;
				if (pDict2->getAt (_T("TCH_DBPSCONFIG"),objId) == Acad::eOk)
				{
					AcDbObject *pObj = NULL;
					if (acdbOpenObject(pObj, objId, AcDb::kForRead) == Acad::eOk)
					{
						if (pObj != NULL)
						{
							AcDbObject *p2 = AcDbObject::cast(pObj->clone());
							if (p2 != NULL)
							{
								AcDbObjectId id;
								if (pDict1->setAt(_T("TCH_DBPSCONFIG"), p2, id) == Acad::eOk)
									p2->close();
								else
									delete p2;
							}
							pObj->close ();
						}
					}
				}
			}

			if (NULL != pDict2)
				pDict2->close();
			if (pDict1 != NULL)
				pDict1->close();
			if (p0 != NULL)
				p0->close();
		}
	}

	int nCadVer = g_nDownGradeSaveCadVer + 14;
	CString str(_T(""));
	if (nSaveVer == 3)
	{
		if (SaveAsTArch3(pDb, sFileName, nCadVer, false) == RTNORM)
			adsout << XString(_T("\n成功地生成上华建筑%d文件: "), nSaveVer) << sFileName;
		else
			adsout << XString(_T("\n不能生成上华建筑%d文件: "), nSaveVer) << sFileName;
	}
	else
	{
		bool bSuccess = true;
		if (SaveAs(pDb, sFileName, nSaveVer, nCadVer) == RTNORM)
		{
			
			bSuccess =  true;
			//adsout << XString(_T("\n成功地生成上华建筑%s%d文件: "), nSaveVer == 10 ? _T("T") : _T(""), nSaveVer == 10 ? 20 : nSaveVer) << sFileName;
		}
		else
		{
			bSuccess = false;
			//adsout << XString(_T("\n不能生成上华建筑%s%d文件: "), nSaveVer == 10 ? _T("T") : _T(""), nSaveVer == 10 ? 20 : nSaveVer) << sFileName;
		}
		//再增加版本，需要特殊处理，目前20V3版本是11
		if (nSaveVer == 10)	// 先这样处理，看将来大版本号如何改动，再做修改。
			adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << _T("T20V2文件: ") << sFileName;
		else if (nSaveVer == 11)	// 先这样处理，看将来大版本号如何改动，再做修改。
			adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << _T("T20V3文件: ") << sFileName;
		else
			adsout << _T("\n") << (bSuccess ? _T("") : _T("不能")) << _T("成功地生成上华建筑") << nSaveVer << _T("文件: ") << sFileName;
	}

	delete pDb;

	return;
}