/********************************************************************
	created:	2006/01/20
	created:	20:1:2006   11:41
	filename: 	f:\tg_dev\telecdev\twtkernal\indoorsys.cpp
	file path:	f:\tg_dev\telecdev\twtkernal
	file base:	indoorsys
	file ext:	cpp
	author:		沈睿
	
	purpose:	室内系统图
*********************************************************************/

#include "stdafx.h"

#include <DbEquipment.h>
#include <DbDimension.h>
#include <dbPipeValve.h>
#include <dbtext.h>
 
#include "jig.h"

#include "TPipeGraph.h"
extern void SearchOneselfPipe(AcDbObjectId idPipe, TPipeGraph &PipeGraph);


//***************************************************************************************************
//                                        改楼层线
//***************************************************************************************************

void ModifyFloorLine()
{
	RBList rbMask(RTDXF0, _T("ATS_TEXT,ATS_ELEVATION,LINE"), NULL);
    PickSet ss(SS_FREE);
	if(SelectEntities(_T("\n请选择需要镜像的楼层线、标高:<退出>"), ss, rbMask) != RTNORM)
        return;
	RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), NULL);
	Entity entPipe;
	if(SelectEntity(_T("\n请选择镜像的参考线（立管）:<上下移位>"), entPipe, rbMaskPipe) != RTNORM)
	{
		XPoint ptIns;
		double x,y,z;
	 
		ss.GetExtend(ptIns, &x, &y, &z);
		
		XPoint ptUcs = Wcs2Ucs(ptIns);
		ptUcs.z = 0;
		int nRet = DragPickSet1(ss, ptUcs);
		if(nRet != RTNORM)
			return;
		XPoint ptWcs = Ucs2Wcs(ptUcs);

		TCHAR szTmp[32];
		ads_getstring(0, _T("\n是否继续修改标高标注的文字<Y>:"),  szTmp);
		if(_tcsicmp(szTmp, _T("N")) == 0)
			return;
		
		for(long i=0;i<ss.Length();i++){
			Entity ent = ss[i];
			OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbSymbElevation, pDim);
			if(pDim){
				 CString csText = pDim->GetText();
				 double dLastElev = _tstof(csText);
				 XString sText1(_T("%.3f"), dLastElev+_AS_METER(ptWcs.y-ptIns.y));
				 pDim->SetText(sText1);
							 
			}
			OPENOBJ_END();
		}
		
        return;
	}

	XPoint ptStart, ptEnd;
	GetPipePoint(entPipe, ptStart, ptEnd);
	SHads_command(RTSTR, _T(".MIRROR"), RTPICKS, (TLong_ptr *)ss, RTSTR, _T(""),
		RT3DPOINT, &ptStart, RT3DPOINT, &ptEnd, RTSTR, _T("Y"), RTNONE);
	
}




//***************************************************************************************************
//                                        系统缩放
//***************************************************************************************************
void ScalePipeSys()
{
    PickSet ss(SS_FREE);
	if(SelectEntities(_T("\n请选择需要改变比例的系统图:<退出>"), ss, RBList()) != RTNORM)
        return;
	RBList rbMask(RTDXF0, _T("ATS_TEXT,ATS_ELEVATION,LINE"), NULL);
	
	long len = ss.Length();
	//1. 过滤出那些不需要进行缩放的标注对象
	PickSet ssDim(SS_FREE);
	for(long i=0;i<len;i++)
	{
		Entity ent = ss[i];
		if(ent.MatchBase(rbMask))
		{
			CString csText = ReadXdata(ent, _T("TG-LAYER"));
			if(csText != _T(""))
				ssDim+=ent;
		}
	}
	ss -= ssDim;
	len = ssDim.Length();
	//2. 这些标注对象各自找1个相当于立管的位置点
	CMap<TLong_ptr,TLong_ptr,AcGePoint3d,AcGePoint3d&> map;
	RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), NULL);
	acedSetStatusBarProgressMeter(_T("准备中..."), 0, len);
	for(i=0;i<len;i++)
	{
		acedSetStatusBarProgressMeterPos(i);
		Entity entDim = ssDim[i];
		CString csVPipeSerial = ReadXdata(entDim, _T("PIPE-SERIAL"));
		
		XPoint ptLoc, ptNew, ptStart, ptEnd;
		entDim.GetData(10, ptLoc);
		ptLoc.z = 0;
		ads_polar(ptLoc, 0, 100*DocGetPScale(), ptEnd);
		ads_polar(ptLoc, PI, 100*DocGetPScale(), ptStart);
		XLine line(ptStart, ptEnd, 1);
		XPoint ptTmp;
		double dDist(-1);
		AcGePoint3dArray ptArr;
		//先以最近的立管作为参考点
		for(long j=0;j<ss.Length();j++)
		{
			Entity ent = ss[j];
			if(!ent.Is(_T("ATS_PIPE")))
				continue;
			CString csText = ReadXdata(ent, _T("PIPE-SERIAL"));
			if(csText == _T(""))
				continue;
			if(csVPipeSerial != _T("") && csVPipeSerial != csText)
				continue;
			
			XPoint ptS, ptE;
			GetPipePoint(ent, ptS, ptE);
			XLine line2(ptS, ptE, 1);
			XPoint ptInter;
			line.Intersection(&line2, ptInter);
			if(!!ptInter)
			{
				double dDist2Pipe = ads_distance(ptLoc, ptInter);
				if(dDist2Pipe < dDist || dDist < 0)
				{
					ptTmp = ptInter;
					dDist = dDist2Pipe;
				}
			}
		}
		if(!ptTmp)
		{
			//如果找不到最近的立管，就以最近的管线交点作为参考点
			for(j=0;j<ss.Length();j++)
			{
				Entity ent = ss[j];
				if(!ent.Is(_T("ATS_PIPE")))
					continue;
		
				XPoint ptS, ptE;
				GetPipePoint(ent, ptS, ptE);
				XLine line2(ptS, ptE, 1);
				XPoint ptInter;
				line.Intersection(&line2, ptInter);
				if(!!ptInter)
				{
					double dDist2Pipe = ads_distance(ptLoc, ptInter);
					if(dDist2Pipe < dDist || dDist < 0)
					{
						ptTmp = ptInter;
						dDist = dDist2Pipe;
					}
				}
			}
		}
	
		if(!!ptTmp)
		{
			AcDbObjectId id;
			acdbGetObjectId(id, entDim);
            AcGePoint3d pt(ptTmp.AsAcGePoint3d());
			map.SetAt(id.asOldId(), pt);
			XLine line(ptLoc, ptTmp);
		//	line.Make();
		}
	}
	acedRestoreStatusBar();
	

	//3. 进行SCALE
    XPoint ptIns;
	if(ads_getpoint(NULL, _T("\n请选择基点:<退出>"), ptIns) != RTNORM)
        return;
    ptIns = Ucs2Wcs(ptIns);
    double nScale(1);
    ss.Scale(ptIns, &nScale);
    if(nScale == 1)
        return;

	//4. 将管线上不需要缩放的阀门，标注反向scale回去
    DList<AcDbObjectId> lstNode;
    for(i=0;i<ss.Length();i++){
        Entity ent = ss[i];
        if(ent.Is(_T("ATS_PIPE"))){
            OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
            if(pPipe){
                DList<AcDbObjectId> lstAttachment;
                AcDbObjectId nodeId1(NULL), nodeId2(NULL);
                nodeId1 = pPipe->GetNode(0);
                nodeId2 = pPipe->GetNode(1);
                if(IsAppandEquip(lstNode, nodeId1)){
                    OPENOBJ_BEGIN(nodeId1, AcDb::kForWrite, TDbEquipment, pEquip1);
                    if(pEquip1){
                        pEquip1->SetScale(pEquip1->GetScale()/nScale);
						pEquip1->SetYScale(pEquip1->GetYScale()/nScale); // cet 2011.3.14 add
                    }
                    OPENOBJ_END();
                }
                if(IsAppandEquip(lstNode, nodeId2)){
                    OPENOBJ_BEGIN(nodeId2, AcDb::kForWrite, TDbEquipment, pEquip2);
                    if(pEquip2){
                        pEquip2->SetScale(pEquip2->GetScale()/nScale);
						pEquip2->SetYScale(pEquip2->GetYScale()/nScale); // cet 2011.3.14 add
                    }
                    OPENOBJ_END();
                }
                pPipe->GetAttachments(lstAttachment);
                int leng = lstAttachment.Length();
                for(int m=0;m<leng;m++){
                    AcDbObjectId idTmp = *lstAttachment[m];
                    OPENOBJ_BEGIN(idTmp, AcDb::kForWrite, TDbPipeValve, pValve);
                    if(pValve){
                        pValve->SetScale(pValve->GetScale()/nScale);
                        pValve->SetYScale(pValve->GetYScale()/nScale);
                    }
                    OPENOBJ_END();
                }
                
            }
            OPENOBJ_END();
        }
    }
	
	AcGeMatrix3d mat;
	mat.setToScaling(nScale, ptIns.AsAcGePoint3d());
	len = ssDim.Length();
	for(i=0;i<len;i++)
	{
		Entity ent = ssDim[i];
		AcDbObjectId id;
		AcGePoint3d ptPipe, ptNew;
		acdbGetObjectId(id, ent);
		map.Lookup(id.asOldId(), ptPipe);
		ptNew = ptPipe;
		ptNew.transformBy(mat);
		AcGeMatrix3d matNew;
		AcGeVector3d vt1(ptNew - ptPipe);
		matNew.setToTranslation(vt1);
		OPENOBJ_BEGIN(ent, AcDb::kForWrite, AcDbEntity, pEnt);
		if(pEnt){
			pEnt->transformBy(matNew);
		}
		OPENOBJ_END();
	 
	}

	

 

//	len = ssDim.Length();
//	for(i=0;i<len;i++)
//	{
//		Entity ent = ssDim[i];
//		XPoint ptLoc, ptNew;
//		ent.GetData(10, ptLoc);
//		ptNew = ptLoc;
//		ptNew.TransformBy(mat);
//		AcGeVector3d vt1(ptNew - ptLoc);
//		AcGeVector3d vt2;
//		vt2 = vt1.orthoProject(AcGeVector3d::kXAxis);
//		AcGeMatrix3d matNew;
//		matNew.setToTranslation(vt2);
//		OPENOBJ_BEGIN(ent, AcDb::kForWrite, AcDbEntity, pEnt);
//		if(pEnt){
//			pEnt->transformBy(matNew);
//		}
//		OPENOBJ_END();
//	}
}

void ScalePipeSys2()
{
    PickSet ss(SS_FREE);
	if(SelectEntities(_T("\n请选择需要改变比例的系统图:<退出>"), ss, RBList()) != RTNORM)
        return;
	RBList rbMask(RTDXF0, _T("ATS_TEXT,ATS_ELEVATION,LINE"), NULL);

	long len = ss.Length();
	PickSet ssDim(SS_FREE);
	for(long i=0;i<len;i++)
	{
		Entity ent = ss[i];
		if(ent.MatchBase(rbMask))
		{
			CString csText = ReadXdata(ent, _T("TG-LAYER"));
			if(csText != _T(""))
				ssDim+=ent;
		}
	}
	ss -= ssDim;

    XPoint ptIns;
	if(ads_getpoint(NULL, _T("\n请选择基点:<退出>"), ptIns) != RTNORM)
        return;
    ptIns = Ucs2Wcs(ptIns);
    double nScale(1);
    ss.Scale(ptIns, &nScale);
    if(nScale == 1)
        return;
    DList<AcDbObjectId> lstNode;
    for(i=0;i<ss.Length();i++){
        Entity ent = ss[i];
        if(ent.Is(_T("ATS_PIPE"))){
            OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
            if(pPipe){
                DList<AcDbObjectId> lstAttachment;
                AcDbObjectId nodeId1(NULL), nodeId2(NULL);
                nodeId1 = pPipe->GetNode(0);
                nodeId2 = pPipe->GetNode(1);
                if(IsAppandEquip(lstNode, nodeId1)){
                    OPENOBJ_BEGIN(nodeId1, AcDb::kForWrite, TDbEquipment, pEquip1);
                    if(pEquip1){
                        pEquip1->SetScale(pEquip1->GetScale()/nScale);
                    }
                    OPENOBJ_END();
                }
                if(IsAppandEquip(lstNode, nodeId2)){
                    OPENOBJ_BEGIN(nodeId2, AcDb::kForWrite, TDbEquipment, pEquip2);
                    if(pEquip2){
                        pEquip2->SetScale(pEquip2->GetScale()/nScale);
                    }
                    OPENOBJ_END();
                }
                pPipe->GetAttachments(lstAttachment);
                int leng = lstAttachment.Length();
                for(int m=0;m<leng;m++){
                    AcDbObjectId idTmp = *lstAttachment[m];
                    OPENOBJ_BEGIN(idTmp, AcDb::kForWrite, TDbPipeValve, pValve);
                    if(pValve){
                        pValve->SetScale(pValve->GetScale()/nScale);
                        pValve->SetYScale(pValve->GetYScale()/nScale);
                    }
                    OPENOBJ_END();
                }
                
            }
            OPENOBJ_END();
        }
    }

	AcGeMatrix3d mat;
	mat.setToScaling(nScale, ptIns.AsAcGePoint3d());
	len = ssDim.Length();
	for(i=0;i<len;i++)
	{
		Entity ent = ssDim[i];
		XPoint ptLoc, ptNew;
		ent.GetData(10, ptLoc);
		ptNew = ptLoc;
		ptNew.TransformBy(mat);
		AcGeVector3d vt1(ptNew - ptLoc);
		AcGeVector3d vt2;
		vt2 = vt1.orthoProject(AcGeVector3d::kXAxis);
		AcGeMatrix3d matNew;
		matNew.setToTranslation(vt2);
		OPENOBJ_BEGIN(ent, AcDb::kForWrite, AcDbEntity, pEnt);
		if(pEnt){
			pEnt->transformBy(matNew);
		}
		OPENOBJ_END();
	}
}







//***************************************************************************************************
//                                        系统选择
//***************************************************************************************************
//extern Entity GetPipeDimByPt(XPoint pt, int idx);
extern Entity GetPipeDimByEnt(Entity ent);

// zxl 2013.09.04 add
void SelectPipesSys()
{
	PickSet ssAll(SS_FREE);
	int nRet = SelectEntities(_T("\n请拾取系统上的管线:"), ssAll, RBList());	
	if (nRet == RTCAN)
	{
		return;
	}

	PickSet ss(SS_FREE);
	for (long l = 0l; l < ssAll.Length(); l++)
	{
		Entity ent = ssAll[l];
		if (ent.In(&ss))
		{
			continue;
		}
		AcDbObjectId idPipe;
		acdbGetObjectId(idPipe, ent);
		TPipeGraph PipeGraph;
		SearchOneselfPipe(idPipe, PipeGraph);

		int len = PipeGraph.m_lstEdge.Length();
		for(int i=0;i<len;i++)
		{
			AcDbObjectId idTmp = PipeGraph.m_lstEdge[i]->m_idPipe;
			if(idTmp != NULL)
				ss+=idTmp;
		}

		int len1 = PipeGraph.m_lstNode.Length();
		for(i=0;i<len1;i++)
		{
			AcDbObjectId idTmp = PipeGraph.m_lstNode[i]->m_idNode;
			if(idTmp != NULL)
				ss += idTmp;
		}
	}

	ads_sssetfirst(ss, ss);
}

void SelectPipeSys()
{
    RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
    Entity entSel;
	int ret(0);
	TCHAR cRet;
	XPoint pt;
	INITGET_BEG(0, _T("R M"));
	ret = SelectEntity(_T("\n请拾取系统上的管线[仅选择立管和标注(R)/选择多管线系统(M)]<退出>:"), entSel, pt, RBList(), _T("R M"), cRet);
	INITGET_END();

	if(ret == RTKWORD){
		// zxl 2013.09.04 add
		if (cRet == _T('m') || cRet == _T('M'))
		{
			SelectPipesSys();
			return;
		}
		PickSet ss(SS_FREE);
		PickSet ssSel(SS_FREE);
		if(SelectEntities(_T("\n请选择范围:<退出>"), ss, rbMask) != RTNORM)
			return;
		long len = ss.Length();
		for(long i=0;i<len;i++){
			Entity ent = ss[i];
			OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
            if(pPipe){
                if(pPipe->IsVertical()){
					Entity entDim = GetPipeDimByEnt(ent);
					ssSel += ent;
					if(!!entDim)
						ssSel += entDim;
                }
            }          
            OPENOBJ_END();                    
		}
		ads_sssetfirst(ssSel, ssSel);
		
		return;
	}
	else if(ret != RTNORM)
		return;

    AcDbObjectId idPipe;
    acdbGetObjectId(idPipe, entSel);
    TPipeGraph PipeGraph;
    SearchOneselfPipe(idPipe, PipeGraph);//2006-11-28 把数据结构由树改为图，支持环路
    PickSet ss(SS_FREE);
    int len = PipeGraph.m_lstEdge.Length();
    
    for(int i=0;i<len;i++){
        AcDbObjectId idTmp = PipeGraph.m_lstEdge[i]->m_idPipe;
		if(idTmp != NULL)
			ss+=idTmp;
    }
    int len1 = PipeGraph.m_lstNode.Length();
    for(i=0;i<len1;i++){
        AcDbObjectId idTmp = PipeGraph.m_lstNode[i]->m_idNode;
		if(idTmp != NULL)
			ss += idTmp;
    }
    
    ads_sssetfirst(ss, ss);

}



//***************************************************************************************************
//                                        通气帽
//***************************************************************************************************
void DimSingleAerate(const TCHAR* szBlk)
{
    RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
    Entity entSel;
    XPoint ptPick, ptLoc;
	if(SelectEntity1(g_nCurPipeWidth*DocGetPScale(), _T("\n请选择靠近标注端的管线<退出>:"), entSel, ptPick, rbMask) != RTNORM)
        return;
    XPoint ptS, ptE, ptNew;
    GetPipePoint(entSel, ptS, ptE);
    double n1 = ads_distance(ptS, ptPick);
    double n2 = ads_distance(ptE, ptPick);
    ptLoc = n1 < n2 ? ptS : ptE;
    double nDist(800);
	ads_getdist(ptLoc, _T("\n请输入通气帽管长<800>:"), &nDist);
    if(nDist < 5)
        return;
    XPoint ptTmp = ptE == ptLoc ? ptS : ptE;
    double nRotate = ads_angle(ptTmp, ptPick);
    OPENOBJ_BEGIN(entSel, AcDb::kForRead, TDbPipe, pPipe);
    if(pPipe){
        TDbPipe *pNewPipe = new TDbPipe;
        pNewPipe = (TDbPipe*)pPipe->clone();
        pNewPipe->SetStartPoint(ptLoc);
        ads_polar(ptLoc, nRotate, nDist, ptNew);
        pNewPipe->SetEndPoint(ptNew);
        AddToCurrentSpace(pNewPipe, Adesk::kTrue);
    }
    TDbEquipment *pEquip = new TDbEquipment;
    pEquip->SetBlock2d(GetBlkIdByName(szBlk));
    pEquip->SetLocation(ptNew);
    pEquip->SetHidePipe(TRUE);
    pEquip->SetSysBlock((const TCHAR*)szBlk);
    pEquip->setLayer(LAY_EQ_DIRT);
    pEquip->setColor(AcCmColor()); //随层
    AddToCurrentSpace(pEquip, Adesk::kTrue);
    OPENOBJ_END();
    
    InitLayer(LAY_DIM);
    TDbDimension2 *pDim = new TDbDimension2;
    pDim->setLayer(LAY_DIM);
    pDim->SetLocation(ptNew);
    pDim->SetRotation(ads_angle(ptNew, ptLoc));
    pDim->SetStyleId(InitDimStyle(DS_LINEAR));
    pDim->AddSegment(ptLoc);
    pDim->SetDist2DimLine(0, FALSE);
 
	TDimensionEdJig jig(pDim, _T("\n请点取尺寸线位置<退出>:"));
    jig.m_nFlag=1;
    if(jig.doIt() != RTNORM){
        delete pDim;
        return;
    }
    AcDbObjectId idDim = pDim->AddToMSpace(Adesk::kTrue);
}

void DrawAerate()
{
    g_ssPickFirst.Free();
    RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
    PickSet ss(SS_FREE);
    if(SelectEntities(_T("\n请选择需要插入通气帽的管线<退出>"), ss, rbMask) != RTNORM)
        return; 
    XPushVar<int> vOsMode(_T("OSMODE"), 0);
    CString csDwb = g_csDwbPath + _T("TwtSys");	
    XString xsTmp1, xsTmp2, xsTmp;
	XString xsTmp3; // cet 2013.1.5 add
    if(LoadDwbBlock(csDwb, _T("00000388"), xsTmp1) != RTNORM)  //通气帽
        return;	
    if(LoadDwbBlock(csDwb, _T("00000133"), xsTmp2) != RTNORM)  //钢丝球
        return;	
    if(LoadDwbBlock(csDwb, _T("00000539"), xsTmp3) != RTNORM)  //蘑菇型 cet 2013.1.5 add
        return;	
    TCHAR szText[256];
	ads_getstring(0, _T("\n通气帽选用1:钢丝球 2:成品 3:蘑菇型 <钢丝球>:"), szText); // cet 2013.1.5 modify 增加样式3
    if(_tcsicmp(szText, _T("2")) == 0)
        xsTmp = xsTmp1;
	else if(_tcsicmp(szText, _T("3")) == 0) // cet 2013.1.5 modify 增加样式3
        xsTmp = xsTmp3;
    else
        xsTmp = xsTmp2;
    
    double nDist(800);
	
    double nDist2DimLine(0);
    InitLayer(LAY_EQ_DIRT);
    double nRotate(0);
    for(long i=0;i<ss.Length();i++){
        Entity ent = ss[i];
        OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            XPoint ptLoc, ptNew, ptTmp;
            AcDbObjectId nodeId1(NULL), nodeId2(NULL);
            nodeId1 = pPipe->GetNode(0);
            OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, TDbPipeNode, pNode1);
            if(pNode1){
                int num = pNode1->GetInterfaceNum();
                if(num == 1){
                    ptLoc = pNode1->GetLocation();
                }
            }     
            OPENOBJ_END();
            nodeId2 = pPipe->GetNode(1);
            OPENOBJ_BEGIN(nodeId2, AcDb::kForRead, TDbPipeNode, pNode2);
            if(pNode2){
                int num = pNode2->GetInterfaceNum();
                if(num == 1){
                    if(!ptLoc)
                         ptLoc = pNode2->GetLocation();
                    else{
                        if(ss.Length() == 1){
                            DimSingleAerate(xsTmp);
                        }
                        break;
                    }
                }
            }     
            if(!ptLoc)
                break;
            if(i == 0){
				ads_getdist(ptLoc, _T("\n请输入通气帽管长<800>:"), &nDist);
            }
            if(nDist < 5)
                break;
            ptTmp = pPipe->EndPoint() == ptLoc ? pPipe->StartPoint() : pPipe->EndPoint();
            nRotate = ads_angle(ptTmp, ptLoc);
            
            TDbPipe *pNewPipe = new TDbPipe;
            pNewPipe = (TDbPipe*)pPipe->clone();
            pNewPipe->SetStartPoint(ptLoc);
            ads_polar(ptLoc, nRotate, nDist, ptNew);
            pNewPipe->SetEndPoint(ptNew);
            AddToCurrentSpace(pNewPipe, Adesk::kTrue);
            
            TDbEquipment *pEquip = new TDbEquipment;
            pEquip->SetBlock2d(GetBlkIdByName(xsTmp));
            pEquip->SetLocation(ptNew);
            pEquip->SetHidePipe(TRUE);
            pEquip->SetSysBlock((const TCHAR*)xsTmp);
            pEquip->setLayer(LAY_EQ_DIRT);
            pEquip->SetDang(0);
            pEquip->SetPipeLength(0);
            pEquip->SetSpare(0);
            pEquip->setColor(AcCmColor()); //随层
            AddToCurrentSpace(pEquip, Adesk::kTrue);
            OPENOBJ_END();
            
            InitLayer(LAY_DIM);
            TDbDimension2 *pDim = new TDbDimension2;
            pDim->setLayer(LAY_DIM);
            pDim->SetLocation(ptNew);
            pDim->SetRotation(ads_angle(ptLoc, ptNew));
            pDim->SetStyleId(InitDimStyle(DS_LINEAR));
            pDim->AddSegment(ptLoc);
            pDim->SetDist2DimLine(nDist2DimLine, FALSE);
            if(i == 0){
				TDimensionEdJig jig(pDim, _T("\n请点取尺寸线位置<退出>:"));
                jig.m_nFlag=1;
                ASSERT(pDim->IsValid());
                if(jig.doIt() != RTNORM){
                    delete pDim;
                    return;
                }
                nDist2DimLine = pDim->GetDist2DimLine(FALSE);
            }
            AcDbObjectId idDim = pDim->AddToMSpace(Adesk::kTrue);
        }
        OPENOBJ_END();
    }
}


//***************************************************************************************************
//                                        检查口
//***************************************************************************************************
void InsCheckCmd()
{
    CString csDwb = g_csDwbPath + _T("TwtSys");	
    XString xsTmp;
    if(LoadDwbBlock(csDwb, _T("00000148"), xsTmp) != RTNORM)  //检查口
        return;	
    RBList rbMask = ads_buildlist( -4, _T("<or"),
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_RAIN, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_DIRT, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_USELESS, -4, _T("and>"),  
        -4, _T("or>"), NULL);
    
    double nDist2DimLine(0);
    InitLayer(LAY_EQ_DIRT);
    
    double nDist(1000);
	ads_getdist(NULL, _T("\n请输入检查口距地面距离<1000>:"), &nDist);
    int idx = 0;
    while(1){
        
        XPoint ptIns, ptLoc;
		if(ads_getpoint(NULL, _T("\n请点取检查口所在地面位置:<退出>"), ptLoc) != RTNORM)
            break;
		/* cet 2014.4.25 modify 支持ucs
        ptLoc = Ucs2Wcs(ptLoc);
        ptIns = ptLoc;
        ptIns.y += nDist;

        XPoint ptUcs = Wcs2Ucs(ptIns);
        PickSet ss(SS_FREE);
        GetPointPickSet(ptUcs, ss, rbMask, 50);
		*/
		ptIns = ptLoc;
		ptIns.y += nDist;
		ptIns = Ucs2Wcs(ptIns);
		PickSet ss(SS_FREE);
		GetPointPickSet(ptLoc, ss, rbMask, 50);
		ptLoc = Ucs2Wcs(ptLoc);

        long len = ss.Length();
        if(len != 1)
            continue;
        AcGePoint3d ptIns2 = ptIns;
		CString sLayerPipe;
        OPENOBJ_BEGIN(ss[0L], AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            pPipe->getClosestPointTo(ptIns2, ptIns2);
			sLayerPipe = pPipe->GetLayer();
        }
        OPENOBJ_END();

        TDbEquipment *pEquip = new TDbEquipment;
        pEquip->SetBlock2d(GetBlkIdByName(xsTmp));
        pEquip->SetLocation(ptIns2);
        pEquip->SetHidePipe(FALSE);
        pEquip->SetSysBlock((const TCHAR*)xsTmp);
        //pEquip->setLayer(LAY_EQ_DIRT);
		if (sLayerPipe.Compare(LAY_PIPE_DIRT) == 0)
		{
			pEquip->setLayer(LAY_EQ_DIRT);
		}
		else if (sLayerPipe.Compare(LAY_PIPE_USELESS) == 0)
		{
			pEquip->setLayer(InitLayer(LAY_EQ_USELESS));
		}
        pEquip->SetDang(0);
		pEquip->SetAngle(Ucs2Wcs(0.0)); // cet 2014.4.25 add 
        pEquip->SetPipeLength(0);
        pEquip->SetSpare(0);
        pEquip->setColor(AcCmColor()); //随层
        AddToCurrentSpace(pEquip, Adesk::kTrue);
        
        TDbDimension2 *pDim = new TDbDimension2;
        pDim->setLayer(LAY_DIM);
        pDim->SetLocation(ptLoc);
        pDim->SetStyleId(InitDimStyle(DS_LINEAR));
     // pDim->SetRotation(ads_angle(XPoint(ptIns2), ptLoc));
		pDim->SetRotation(Ucs2Wcs(PI * 0.5));
        pDim->AddSegment(ptIns2);
        pDim->SetDist2DimLine(nDist2DimLine, FALSE);
        if(idx == 0){
			TDimensionEdJig jig(pDim, _T("\n请点取尺寸线位置<退出>:"));
            jig.m_nFlag=1;
            if(jig.doIt() != RTNORM){
                delete pDim;
                return;
            }
            nDist2DimLine = pDim->GetDist2DimLine(FALSE);
        }
        AcDbObjectId idDim = pDim->AddToMSpace(Adesk::kTrue);
        idx++;
    }
}