// CalcDirtDlg.cpp : implementation file
//

#include "stdafx.h"

#include <DbEquipment.h>
#include <MSWORD8.h>

#include "CalcDirtDlg.h"
#include "TWordFormulasTemplet.h"


#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

#define FORMULA1(nNum, dVal) (nNum < 15 ? dVal : dVal * 0.9)  // cet 2010.7.7 add
#define FORMULA2(nNum, dVal) (nNum < 15 ? (dVal + 0.01) : (dVal * 0.9 + 0.01)) // cet 2010.7.7 add

/////////////////////////////////////////////////////////////////////////////
//                                污水计算 
/////////////////////////////////////////////////////////////////////////////
extern SSearchPipeList *GetNextExportNode2(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage);

void CalcDirtPipeDn()
{
    Entity entMainPipe;
    ads_name entMain;
    RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), NULL);
  //  RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_DIRT, NULL);

    RBList rbMaskPipe = ads_buildlist( -4, _T("<or"),
        -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);
	
    if(SelectEntity(_T("\n请选择排水出口管<退出>"), entMainPipe, rbMaskPipe) != RTNORM)   
        return;
    
    //第一步，选择总干管，并找到它之前的堵头
    AcDbObjectId idMain = NULL;
    OPENOBJ_BEGIN(entMainPipe, AcDb::kForRead, TDbPipe, pPipe);
    if(pPipe){
        AcDbObjectId nodeId1(NULL), nodeId2(NULL);
        nodeId1 = pPipe->GetNode(0);
        nodeId2 = pPipe->GetNode(1);
        OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, TDbPipeNode, pNode);
        if(pNode){
            int num = pNode->GetInterfaceNum();
            if(num == 1)
                idMain = nodeId1;
        }
        OPENOBJ_END();
        OPENOBJ_BEGIN(nodeId2, AcDb::kForRead, TDbPipeNode, pNode);
        if(pNode){
            int num = pNode->GetInterfaceNum();
            if(num == 1)
                idMain = nodeId2;
        }
        OPENOBJ_END();
    }
    OPENOBJ_END();
    if(!idMain){
        AfxMessageBox(_T("没有正确选择起点干管！"));
        return;
    }
    acdbGetAdsName(entMain, idMain);
    
    SSearchPipeList *pListAll = new SSearchPipeList();
    PickSet ssAll(SS_FREE);
    ssAll += idMain;
    pListAll->m_iType = 1;
    if(!SearchSprinkPipeSys(entMain, NULL, pListAll, ssAll)){
        AfxMessageBox(_T("系统有回路！"));
        delete pListAll; 
        return;
    }
    
    //第二步，搜索整个系统，计算管长，建立双向链表
    CalcPipeLength2(pListAll, NULL);
    int idx = 1;
    SSearchPipeList *pNode = GetNextDimNode2(pListAll, NULL);
    while(pNode){
        idx = DoSerialNumber2(pNode, idx);          //标注节点编号
        pNode = GetNextDimNode2(pListAll, NULL);    //得到下一支路起点节点
    }
    DoDimPipeSerialNumber(pListAll);                //标注管段编号
    CalcPipeLength(pListAll);  
    
	// cet 2010.7.6 add 获得扩张数据
	Entity ent;
	CString strAterateType, strConnType, strFloorNum;
	for(long i = 0; i < ssAll.Length(); i++)
	{
		ent = ssAll[i];
		strAterateType = ReadXdata(ent, _T("AterateType"));
		if (strAterateType.Compare(_T("")) != 0)
		{
			strConnType = ReadXdata(ent, _T("ConnectType"));
			strFloorNum = ReadXdata(ent, _T("FloorNum"));
			break;
		}
	}

    //第三步，计算管径
 
    CTemporaryResourceOverride over;
    CCalcDirtDlg dlg;
	dlg.SetData(strAterateType, strConnType, _ttoi(strFloorNum)); // cet 2010.7.6 add
    dlg.m_pListAll = pListAll;
    dlg.m_ssAll += ssAll;
    if(dlg.DoModal() != IDOK){
        delete pListAll;
        return;
    }
    
    
    
    delete pListAll;
    return;  
}



/////////////////////////////////////////////////////////////////////////////
// CCalcDirtDlg dialog


TGridDirt::TGridDirt()
{
    AppendCol(_T("编号"), 50);
    AppendCol(_T("管类型"), 50);
    AppendCol(_T("管径mm"), 50);
    AppendCol(_T("当量"), 50);
    AppendCol(_T("最大流量"), 55);
    AppendCol(_T("额定流量"), 55);
    AppendCol(_T("计算流量"), 55);
    AppendCol(_T("坡度‰"), 50);
    AppendCol(_T("流速m/s"), 50);
    AppendCol(_T("充满度%"), 50);
    SetColPosFix();
    SetColFixLength();
    SetNoPaste();
    GetCol(2).SetComboEdit();
 
 
    COLORREF color2 = RGB(0,0,255);;
    GetCol(6).SetTextColor(color2);
    GetCol(7).SetTextColor(color2);
    GetCol(8).SetTextColor(color2);
    GetCol(9).SetTextColor(color2);
}

void TGridDirt::OnCellComboString(WDGridCell&cell,CComboBox&combo)
{
    if(cell.GetColIndex()==2){
        combo.AddString(_T("50"));
        combo.AddString(_T("75"));
        combo.AddString(_T("100"));
        combo.AddString(_T("125"));
        combo.AddString(_T("150"));
        combo.AddString(_T("200"));
    }
}


CCalcDirtDlg::CCalcDirtDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CCalcDirtDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CCalcDirtDlg)
	m_csA = _T("1.5");
	m_nFloorNum = 0;
	//}}AFX_DATA_INIT
}


void CCalcDirtDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CCalcDirtDlg)
	DDX_CBString(pDX, IDC_COMBO_A, m_csA);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CCalcDirtDlg, CDialog)
	//{{AFX_MSG_MAP(CCalcDirtDlg)
	ON_BN_CLICKED(IDC_BUTTON_HELP, OnButtonHelp)
	ON_BN_CLICKED(IDC_BUTTON_DIM, OnButtonDim)
	ON_BN_CLICKED(IDC_BUTTON_WORD, OnButtonWord)
	ON_CBN_SELCHANGE(IDC_COMBO_TYPE2, OnSelchangeComboType2)
	ON_CBN_SELCHANGE(IDC_COMBO_ATERATETYPE, OnSelchangeComboAteratetype)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CCalcDirtDlg message handlers

BOOL CCalcDirtDlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	// cet 2010.7.6 add
	InitData();

    m_grid.Clear();
    m_grid.Create(this, IDC_LIST_PIPE);
    m_grid.SetNoAppendButton(TRUE);
	m_grid.SetNoDefaultMenu(true);
    CalcNg(m_pListAll);
    CalcBigQ(m_pListAll);
    DoCalcQ(m_pListAll);
	OnOK();
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

SSearchPipeList *CCalcDirtDlg::GetNextExportNode(XStringList &lstNodeName, SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage)
{
    CString csName = pListAll->m_csName;
    int idx = csName.Find(_T("-"));
    if(lstNodeName.Index(csName) > -1)
        idx = -1;
    CString csFront;
    if(idx > -1){
        csFront = csName.Left(idx);
        int iFront = _ttoi(csFront);
        if(!pDisadvantage)
            pDisadvantage = pListAll;
        else{
            csName = pDisadvantage->m_csName;
            idx = csName.Find(_T("-"));
            csFront = csName.Left(idx);
            if(iFront < _ttoi(csFront))
                pDisadvantage = pListAll;
        }
    }
    
    int len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        pDisadvantage = GetNextExportNode(lstNodeName, pList, pDisadvantage);
    }
    return pDisadvantage;
}

void CCalcDirtDlg::DoCalcQ(SSearchPipeList *pListAll)
{
    if(pListAll->m_iType != 0){
        double nQ = 0.12 * _tstof(m_csA) * sqrt(pListAll->m_nDang) + pListAll->m_nSpare;
        pListAll->m_nPipeQ = nQ;
        pListAll->m_iDn = 0;
        //《给排水规范》P59 如果计算流量大于该管道额定流量累加值，应按额定流量累加值
        if(pListAll->m_nPipeQ > pListAll->m_nStartPress)
            pListAll->m_nPipeQ =  pListAll->m_nStartPress; 
        if(pListAll->m_pPrevious != NULL)
            pListAll->m_pPrevious->m_nPipeQ = pListAll->m_nPipeQ;
    }

    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        DoCalcQ(pList);
    }
    return;
    
}

//管径查表获得  《技术措施》PAGE 73
int CCalcDirtDlg::GetVPipeDnByQ(double nQ, BOOL bIsPlastic)
{
    int nRet = 0;
    UpdateData(TRUE);
//  cet 2010.7.6 del
//     if(m_iType == 0){ //仅有伸顶通气管
//         if(bIsPlastic){ //塑料管
//             if(nQ < 1.21)
//                 nRet = 50;
//             else if(nQ > 1.2 && nQ < 3.01)
//                 nRet = 75;
//             else if(nQ > 3.0 && nQ < 3.81)
//                 nRet = 90;
//             else if(nQ > 3.8 && nQ < 5.41)
//                 nRet = 110;
//             else if(nQ > 5.4 && nQ < 7.51)
//                 nRet = 125;
//             else if(nQ > 7.5)
//                 nRet = 160;
//         }
//         else{
//             if(nQ < 1.01)
//                 nRet = 50;
//             else if(nQ > 1.0 && nQ < 2.51)
//                 nRet = 75;
//             else if(nQ > 2.5 && nQ < 4.51)
//                 nRet = 100;
//             else if(nQ > 4.5 && nQ < 7.01)
//                 nRet = 125;
//             else if(nQ > 7.0)
//                 nRet = 150;
//         }
//     }
//     else{             //有专有通气立管
//         if(bIsPlastic){ //塑料管
//             if(nQ < 10.01)
//                 nRet = 110;
//             else if(nQ > 10 && nQ < 16.01)
//                 nRet = 125;
//             else if(nQ > 16)
//                 nRet = 160;
//         }
//         else{
//             if(nQ < 5.01)
//                 nRet = 75;
//             else if(nQ > 5 && nQ < 9.01)
//                 nRet = 100;
//             else if(nQ > 9 && nQ < 14.01)
//                 nRet = 125;
//             else if(nQ > 14)
//                 nRet = 150;
//         }
//     }

	// cet 2010.7.6 add
	if (m_strAterateType.Compare(_T("伸顶通气")) == 0)
	{
		CComboBox *pBox = NULL;
		pBox = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE);
		if(pBox != NULL)
		{
			CString strType; 
			pBox->GetLBText(pBox->GetCurSel(), strType);
			if (strType.Compare(_T("立管与横支管90°顺水三通连接")) == 0)
			{
				if (bIsPlastic) //塑料管
				{
					if (nQ < FORMULA2(m_nFloorNum, 0.8))
					{
						nRet = 50;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 0.8) && nQ < FORMULA2(m_nFloorNum, 1.3))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.3) && nQ < FORMULA2(m_nFloorNum, 3.2))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 3.2) && nQ < FORMULA2(m_nFloorNum, 4.0))
					{
						nRet = 125;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.0))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 0.8))
					{
						nRet = 50;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 0.8) && nQ < FORMULA2(m_nFloorNum, 1.3))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.3) && nQ < FORMULA2(m_nFloorNum, 3.2))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 3.2) && nQ < FORMULA2(m_nFloorNum, 4.0))
					{
						nRet = 125;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.0))
					{
						nRet = 150;
					}
				}
			}
			else if (strType.Compare(_T("立管与横支管45°斜三通连接")) == 0)
			{
				if (bIsPlastic) //塑料管
				{
					if (nQ < FORMULA2(m_nFloorNum, 1.0))
					{
						nRet = 50;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.0) && nQ < FORMULA2(m_nFloorNum, 1.7))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.7) && nQ < FORMULA2(m_nFloorNum, 4.0))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.0) && nQ < FORMULA2(m_nFloorNum, 5.2))
					{
						nRet = 125;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 5.2))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 1.0))
					{
						nRet = 50;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.0) && nQ < FORMULA2(m_nFloorNum, 1.7))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 1.7) && nQ < FORMULA2(m_nFloorNum, 4.0))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.0) && nQ < FORMULA2(m_nFloorNum, 5.2))
					{
						nRet = 125;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 5.2))
					{
						nRet = 150;
					}
				}
			}
		}
	}
	else if (m_strAterateType.Compare(_T("专用通气")) == 0)
	{
		CComboBox *pBox = NULL;
		pBox = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE);
		if(pBox != NULL)
		{
			CString strType; 
			pBox->GetLBText(pBox->GetCurSel(), strType);

			if (strType.Compare(_T("专用通气75mm")) == 0 &&
				m_strConnectType.Compare(_T("结合通气管每层连接")) == 0)
			{
				if (bIsPlastic)
				{
					if (nQ < FORMULA2(m_nFloorNum, 5.5))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 5.5))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 5.5))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 5.5))
					{
						nRet = 150;
					}
				}
			} 
			else if (strType.Compare(_T("专用通气75mm")) == 0 &&
					 m_strConnectType.Compare(_T("结合通气管隔层连接")) == 0)
			{
				if (bIsPlastic)
				{
					if (nQ < FORMULA2(m_nFloorNum, 3.0))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 3.0) && nQ < FORMULA2(m_nFloorNum, 4.4))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.4))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 3.0))
					{
						nRet = 75;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 3.0) && nQ < FORMULA2(m_nFloorNum, 4.4))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.4))
					{
						nRet = 150;
					}
				}
			}
			else if (strType.Compare(_T("专用通气100mm")) == 0 &&
					 m_strConnectType.Compare(_T("结合通气管每层连接")) == 0)
			{
				if (bIsPlastic)
				{
					if (nQ < FORMULA2(m_nFloorNum, 8.8))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 8.8))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 8.8))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 8.8))
					{
						nRet = 150;
					}
				}
			}
			else if (strType.Compare(_T("专用通气100mm")) == 0 &&
					 m_strConnectType.Compare(_T("结合通气管隔层连接")) == 0)
			{
				if (bIsPlastic)
				{
					if (nQ < FORMULA2(m_nFloorNum, 4.8))
					{
						nRet = 110;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.8))
					{
						nRet = 160;
					}
				} 
				else
				{
					if (nQ < FORMULA2(m_nFloorNum, 4.8))
					{
						nRet = 100;
					}
					else if (nQ > FORMULA1(m_nFloorNum, 4.8))
					{
						nRet = 150;
					}
				}
			}
		}
	}
	else if (m_strAterateType.Compare(_T("自循环通气")) == 0)
	{
		if (m_strConnectType.Compare(_T("专用通气形式")) == 0)
		{
			if (bIsPlastic)
			{
				if (nQ < FORMULA2(m_nFloorNum, 4.4))
				{
					nRet = 110;
				}
				else if (nQ > FORMULA1(m_nFloorNum, 4.4))
				{
					nRet = 160;
				}
			} 
			else
			{
				if (nQ < FORMULA2(m_nFloorNum, 4.4))
				{
					nRet = 100;
				}
				else if (nQ > FORMULA1(m_nFloorNum, 4.4))
				{
					nRet = 150;
				}
			}
		} 
		else if (m_strConnectType.Compare(_T("环形通气形式")) == 0)
		{
			if (bIsPlastic)
			{
				if (nQ < FORMULA2(m_nFloorNum, 5.9))
				{
					nRet = 110;
				}
				else if (nQ > FORMULA1(m_nFloorNum, 5.9))
				{
					nRet = 160;
				}
			} 
			else
			{
				if (nQ < FORMULA2(m_nFloorNum, 5.9))
				{
					nRet = 100;
				}
				else if (nQ > FORMULA1(m_nFloorNum, 5.9))
				{
					nRet = 150;
				}
			}
		}
	}

    return nRet;
}

void CCalcDirtDlg::DoCalcDirt(SSearchPipeList *pListAll)
{
    if(pListAll->m_iType == 0 && pListAll->m_bNeedCale == FALSE){//横管
        BOOL bIsPlastic = FALSE;
        OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            CString csMat = GetPipeMaterialByIdx(pPipe->GetMaterial());
            if(csMat.Find(_T("PVC")) > -1 || csMat.Find(_T("塑料")) > -1)
                bIsPlastic = TRUE;
        }
        OPENOBJ_END();
        double nN(0.009), nTmpQ(0);
        double nD = pListAll->m_iDn;
        double nI = 0.026;
        if(bIsPlastic){
            nN = 0.009;
            if(nD == 110)
                nD = 100;
            else if(nD == 160)
                nD = 150;
        }
        else{
            nN = 0.013;
            if(nD == 50)
                nI = 0.035;
            else if(nD == 75)
                nI = 0.025;
            else if(nD == 100)
                nI = 0.02;
            else if(nD == 125)
                nI = 0.015;
            else if(nD == 150)
                nI = 0.01;
            else if(nD > 150)
                nI = 0.008;
        }
        //计算坡度，充满度，流速 《技术措施》 PAGE71
        //第一步， 计算坡度    表：4.4.5 按通用坡度
        //第二步， 根据坡度，粗糙系数，流量，半径，计算q/q0 《给水排水管网系统》 PAGE54
        //第三步， 根据q/q0 查表得到充满度
        //第四步， 计算流速
        nD = nD/1000;
        double nQ = pListAll->m_nPipeQ / 1000;
        
        nTmpQ = 3.208*nN*nQ/(pow(nD, 2.667) * pow(nI, 0.5));
        double nFull = GetFullByPercentQ(nTmpQ);
        double nV = 1 / nN * pow(nD/4, 0.667)*pow(nI, 0.5);

        pListAll->m_nLost = nFull;
        pListAll->m_nI = nI;
        pListAll->m_nV = nV;
    }
    
    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        DoCalcDirt(pList);
    }
    return;
}

void CCalcDirtDlg::DoCalcPipeDn(SSearchPipeList *pListAll)
{
    if(pListAll->m_iType == 0){
        BOOL bIsPlastic = FALSE;
        OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            CString csMat = GetPipeMaterialByIdx(pPipe->GetMaterial());
            if(csMat.Find(_T("PVC")) > -1 || csMat.Find(_T("塑料")) > -1)
                bIsPlastic = TRUE;
        }
        OPENOBJ_END();
        
        if(pListAll->m_bNeedCale == FALSE){ //横管
            if(pListAll->m_nSpare < 1)
                pListAll->m_iDn = 50;
            else if(pListAll->m_nSpare < 1.5)
                pListAll->m_iDn = 75;
            else if(pListAll->m_nSpare < 3){
                if(bIsPlastic)
                    pListAll->m_iDn = 110;
                else
                    pListAll->m_iDn = 100;
            }
            else{
                if(bIsPlastic)
                    pListAll->m_iDn = 160;
                else
                    pListAll->m_iDn = 150;
            }
        }
        else{                               //立管
            pListAll->m_iDn = GetVPipeDnByQ(pListAll->m_nPipeQ, bIsPlastic);
        }
    }
    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        DoCalcPipeDn(pList);
        if(pList->m_iDn > pListAll->m_iDn)
            pListAll->m_iDn = pList->m_iDn;
    }

    return;
}

void CCalcDirtDlg::CalcBigQ(SSearchPipeList *pListAll)
{

    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        CalcBigQ(pList);
        if(pList->m_nSpare > pListAll->m_nSpare)
            pListAll->m_nSpare = pList->m_nSpare;
    }
    return;
    
}

void CCalcDirtDlg::CalcNg(SSearchPipeList *pListAll)
{
    if(pListAll->m_iType == -1){
        OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            AcDbObjectId id2d = pEquip->GetBlock2d();
            CString csBlkName = GetBlkNameById(id2d);
            pListAll->m_nDang = pEquip->GetDang();        //排水当量
            pListAll->m_nStartPress = pEquip->GetSpare(); //累计流量
            if(_tcsicmp(csBlkName, _T("$TwtSys$00000132"))  == 0)//排水原理图
                pListAll->m_nSpare = pEquip->GetPipeLength(); //最大流量
            else
                pListAll->m_nSpare = pEquip->GetSpare();      //最大流量
        }
        OPENOBJ_END();
    }
    else if(pListAll->m_iType == 0){
        OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
           
            XPoint ps, pe;
            ps = pPipe->StartPoint();
            pe = pPipe->EndPoint();
            if(fabs(ps.x - pe.x) < 0.01 && pPipe->GetModelType() == TPipeSys::kSystem)
                pListAll->m_bNeedCale = TRUE;   //立管
            else
                pListAll->m_bNeedCale = FALSE;  //横管
           
        }
        OPENOBJ_END();
    }

    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        pList->m_pPrevious = pListAll;
        CalcNg(pList);
        pListAll->m_nDang += pList->m_nDang;
        pListAll->m_nStartPress += pList->m_nStartPress;
    }
    return;
}

void CCalcDirtDlg::UpdateGrid()
{
    m_grid.Clear();
    DList<SSearchPipeList> lstNode;
    XStringList lstNodeName;
    SSearchPipeList *pNode = GetNextExportNode(lstNodeName, m_pListAll, NULL);
    while(pNode){
        SSearchPipeList *pNodeNew = new SSearchPipeList();
        pNodeNew->m_csName = pNode->m_csName;
        pNodeNew->m_nLength = pNode->m_nLength;  
        pNodeNew->m_nDang = pNode->m_nDang;
        pNodeNew->m_nSpare = pNode->m_nSpare;
        pNodeNew->m_bNeedCale = pNode->m_bNeedCale;
        pNodeNew->m_iDn = pNode->m_iDn;
        pNodeNew->m_nPipeQ = pNode->m_nPipeQ;
        pNodeNew->m_nI = pNode->m_nI;
        pNodeNew->m_nV = pNode->m_nV;
        pNodeNew->m_nLost = pNode->m_nLost;
        pNodeNew->m_nStartPress = pNode->m_nStartPress;
        
        lstNode.Append(pNodeNew);
        lstNodeName.Append(tstrnew(pNodeNew->m_csName));
        pNode = GetNextExportNode(lstNodeName, m_pListAll, NULL);    
    }
    
    for(int i=0;i<lstNode.Length();i++){
        m_grid.AppendRow();
        CString csNg, csBigQ, csDn,csQ, csI, csV, csFull, csAllQ;
     
        csNg.Format(_T("%.2f"), lstNode[i]->m_nDang);
        csBigQ.Format(_T("%.2f"), lstNode[i]->m_nSpare);
        csDn.Format(_T("%d"), lstNode[i]->m_iDn);
        csQ.Format(_T("%.2f"), lstNode[i]->m_nPipeQ);
        csI.Format(_T("%.4f"), lstNode[i]->m_nI);
        csV.Format(_T("%.3f"), lstNode[i]->m_nV);
        csFull.Format(_T("%.2f"), lstNode[i]->m_nLost);
        csAllQ.Format(_T("%.2f"), lstNode[i]->m_nStartPress);
        
        m_grid.GetCell(i, 0).SetText(lstNode[i]->m_csName);
        m_grid.GetCell(i, 2).SetText(csDn);
        m_grid.GetCell(i, 3).SetText(csNg);
        m_grid.GetCell(i, 4).SetText(csBigQ);

        m_grid.GetCell(i, 5).SetText(csAllQ);

        m_grid.GetCell(i, 6).SetText(csQ);
        m_grid.GetCell(i, 7).SetText(csI);
        m_grid.GetCell(i, 8).SetText(csV);
        m_grid.GetCell(i, 9).SetText(csFull);
      if(lstNode[i]->m_bNeedCale)
            m_grid.GetCell(i, 1).SetText(_T("立管"));
        else
            m_grid.GetCell(i, 1).SetText(_T("横管"));
    }
}

void CCalcDirtDlg::OnButtonHelp() 
{
//  AfxMessageBox(_T("住宅、宾馆、医院、疗养院、幼儿园、养老院的卫生间  1.5 \n\n集体宿舍、旅馆和其它公共建筑的公共盥洗室和厕所间  2.0 ~ 2.5\n"));
    AfxMessageBox(_T("宿舍（Ⅰ、Ⅱ类）、住宅、宾馆、酒店式公寓、医院、疗养院、幼儿园、养老院的卫生间  1.5 \n\n旅馆和其它公共建筑的公共盥洗室和厕所间  2.0 ~ 2.5\n"));
}

void CCalcDirtDlg::OnOK() 
{
    UpdateData(TRUE);
    DoCalcQ(m_pListAll);
    DoCalcPipeDn(m_pListAll);
    DoCalcDirt(m_pListAll);

	UpdateGrid();
}

//将初算结果标注在图中 管径 & 坡度
void CCalcDirtDlg::DimCalcResult(SSearchPipeList *pListAll)
{
    AcDbObjectId id = NULL;
    id = pListAll->m_ID;
    if(pListAll->m_iType == 0){
        ads_name ent;
        acdbGetAdsName(ent, id);
        XPoint ptStart, ptEnd;
        GetPipePoint(ent, ptStart, ptEnd);
        DoDimPipeDn(ent, pListAll->m_iDn, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
    }
    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        DimCalcResult(pList);
    }
}


void CCalcDirtDlg::OnButtonDim() 
{
    UpdateData(TRUE);
    HideDialog(this, TRUE);
    
    XPoint ptLow, ptUp;
    m_ssAll.GetExtend(ptLow, ptUp);
    AssureInCurrentView(ptLow, ptUp);
    
    
    DimCalcResult(m_pListAll);
	UpdateMultDim();
    actrTransactionManager->flushGraphics();            //acad 刷新
    TCHAR szTmp[32];
	ads_getstring(NULL, _T("\n按任意键返回对话框:<返回>"), szTmp);
    
    HideDialog(this, FALSE);
}

void CCalcDirtDlg::OnButtonWord() 
{
    DList<SSearchPipeList> lstNode;
    XStringList lstNodeName;
    SSearchPipeList *pNode = GetNextExportNode(lstNodeName, m_pListAll, NULL);
    while(pNode){
        SSearchPipeList *pNodeNew = new SSearchPipeList();
        pNodeNew->m_csName = pNode->m_csName;
        pNodeNew->m_ID = pNode->m_ID;
        pNodeNew->m_nLength = pNode->m_nLength;  
        pNodeNew->m_nDang = pNode->m_nDang;
        pNodeNew->m_nSpare = pNode->m_nSpare;
        pNodeNew->m_bNeedCale = pNode->m_bNeedCale;
        pNodeNew->m_iDn = pNode->m_iDn;
        pNodeNew->m_nPipeQ = pNode->m_nPipeQ;
        pNodeNew->m_nI = pNode->m_nI;
        pNodeNew->m_nV = pNode->m_nV;
        pNodeNew->m_nLost = pNode->m_nLost;
        lstNode.Append(pNodeNew);
        lstNodeName.Append(tstrnew(pNodeNew->m_csName));
        pNode = GetNextExportNode(lstNodeName, m_pListAll, NULL);    
    }
    ImportCalcWord(lstNode, _tstof(m_csA));
}

//输出计算书函数
void CCalcDirtDlg::ImportCalcWord(DList<SSearchPipeList> &lstNode, double nA)
{
    int len = lstNode.Length();
    if(len < 1)
        return;
    
    //初始化
    COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR), vtTrue((short)TRUE), vtFalse((short)FALSE);
    _Application	wordApplication;
    Documents		wordDocuments;
    _Document       activeDocument;
    Paragraphs		wordParagraphs;
    Selection		wordSelection;

    if (!wordApplication.CreateDispatch(_T("Word.Application")))
    {
        AfxMessageBox(_T("不能执行Microsoft Word 8.0!"));
        return;
    }

	// cet 2010.6.28 add 打开公式模板
	TWordFormulasTemplet wdFormula;
	CString sPathName = g_csSysPath;
	sPathName += _T("formula.doc");
	if (!wdFormula.OpenWordFormulasTempletFile(sPathName))
	{
		return;
	}

    wordApplication.SetVisible(TRUE);
    wordDocuments = wordApplication.GetDocuments();
    activeDocument = wordDocuments.Add(vtOptional,vtOptional);
    
    //写一行字
    wordSelection = wordApplication.GetSelection();
    wordParagraphs = wordSelection.GetParagraphs();
    wordParagraphs.SetAlignment(0);  // 0: 居左  1：居中  2：居右
    wordSelection.TypeText(_T("采用当量法计算\n"));

//  cet 2010.6.28 del
//  wordSelection.TypeText(_T("计算原理参照《建筑给水排水设计规范GB50015-2003》，采用公共建筑采用当量法 \n"));			   
// 	wordSelection.TypeText(_T("基本计算公式 \n"));
//  wordSelection.TypeText(_T("Q = 0.12 × SQRT(Ng) × α + Qmax\n"));
//  wordSelection.TypeText(_T("式中：\n"));
//  wordSelection.TypeText(_T("Q-计算管段的排水设计秒流量（L/s） \n"));
//  wordSelection.TypeText(_T("Ng-计算管段的卫生器具排水当量总数 \n"));
//  wordSelection.TypeText(_T("Qmax-最大排水器具的流量 \n"));
//  wordSelection.TypeText(XString(_T("α-根据建筑物用途而定的系数：%.1f \n"), nA));
 
	// cet 2010.6.28 add
	_Font font;
	font = wordSelection.GetFont();
	wordSelection.TypeText(_T("计算原理参照《建筑给水排水设计规范GB50015-2003》（2009年版），采用公共建筑采用当量法 \n")); 
	wordSelection.TypeText(_T("基本计算公式 \n     "));
	wdFormula.InsertFormula(6, wordSelection);
	font.SetColorIndex(1);
	wordSelection.TypeText(_T("\n式中："));
	wordSelection.TypeText(_T("	q"));
	font.SetSubscript(2); //处理下标
	wordSelection.TypeText(_T("p"));
	font.SetSubscript(0);
    wordSelection.TypeText(_T("-计算管段的排水设计秒流量（L/s） \n"));
	wordSelection.TypeText(_T("		N"));
	font.SetSubscript(2); //处理下标
	wordSelection.TypeText(_T("p"));
	font.SetSubscript(0);
	wordSelection.TypeText(_T("-计算管段的卫生器具排水当量总数 \n"));
	wordSelection.TypeText(_T("		q"));
	font.SetSubscript(2); //处理下标
	wordSelection.TypeText(_T("max"));
	font.SetSubscript(0);
	wordSelection.TypeText(_T("-计算管段上最大一个卫生器具的排水流量（L/s） \n"));
	wordSelection.TypeText(XString(_T("		α-根据建筑物用途而定的系数：%.1f \n"), nA));

    wordSelection.TypeText(_T("计算结果：\n"));
    
    Selection wSelection2 = wordApplication.GetSelection();
    wSelection2.TypeParagraph();
    
    //画表格
    int rows(len+1), columns(9);
    
    Selection wSelection = wordApplication.GetSelection();
    Range	oRange = wSelection.GetRange();
    Tables	oTables = activeDocument.GetTables();
    _Table	oTable = oTables.Add(oRange, rows, columns);
	// cet 2010.3.25 add 
	Borders oBorders = oTable.GetBorders();
	oBorders.SetInsideLineStyle(1); // 设置表格线型
	oBorders.SetOutsideLineStyle(1);
    Columns		oColumns;
    Column		oColumn;
    oColumns = oTable.GetColumns();
    oColumn = oColumns.Item(1);
    oColumn.SetWidth(40, 0);   // 0 = wdAdjustNone
    oColumn = oColumns.Item(2);
    oColumn.SetWidth(45, 0);    
    oColumn = oColumns.Item(3);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(4);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(5);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(6);
    oColumn.SetWidth(60, 0);    
    oColumn = oColumns.Item(7);
    oColumn.SetWidth(50, 0);    
    oColumn = oColumns.Item(8);
    oColumn.SetWidth(55, 0);    
    oColumn = oColumns.Item(9);
    oColumn.SetWidth(60, 0);    
  



    
    Cell		oCell;
    oCell = oTable.Cell(1, 1);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("管段名称"));
    
    
    oCell = oTable.Cell(1, 2);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("管道流量L/s"));
    
    oCell = oTable.Cell(1, 3);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("管道类型"));
    
    oCell = oTable.Cell(1, 4);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("累计当量"));
    
    oCell = oTable.Cell(1, 5);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("公称直径"));
    
    oCell = oTable.Cell(1, 6);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("水力坡降mH2O/m"));
    
    oCell = oTable.Cell(1, 7);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("流速m/s"));
    
    oCell = oTable.Cell(1, 8);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("充满度"));
    
    oCell = oTable.Cell(1, 9);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("管材"));

    


    for(int i=0; i<len; i++){
        CString csTmp;
        oCell = oTable.Cell(i+2, 1);  //管段名称
        oRange = oCell.GetRange();
        oRange.InsertAfter(lstNode[i]->m_csName);
        
        
        csTmp.Format(_T("%.2f"), lstNode[i]->m_nPipeQ);
        oCell = oTable.Cell(i+2, 2);  //管道流量L/s
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        if(lstNode[i]->m_bNeedCale)
            csTmp = _T("立管");
        else
            csTmp = _T("横管");
        oCell = oTable.Cell(i+2, 3);  //管长m
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        csTmp.Format(_T("%.2f"), lstNode[i]->m_nDang);
        oCell = oTable.Cell(i+2, 4);  //当量长度m
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        csTmp.Format(_T("%d"), lstNode[i]->m_iDn);
        oCell = oTable.Cell(i+2, 5);  //管径mm
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        csTmp.Format(_T("%.3f"), lstNode[i]->m_nI);
        oCell = oTable.Cell(i+2, 6);  //水力坡降mH2O/m
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        csTmp.Format(_T("%.2f"), lstNode[i]->m_nV);
        oCell = oTable.Cell(i+2, 7);  //流速m/s
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);
        
        csTmp.Format(_T("%.2f"), lstNode[i]->m_nLost);
        oCell = oTable.Cell(i+2, 8);  //损失mH2O
        oRange = oCell.GetRange();
        oRange.InsertAfter(csTmp);

        int iMat(0);
        OPENOBJ_BEGIN(lstNode[i]->m_ID, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            iMat = pPipe->GetMaterial();
        }
        OPENOBJ_END();
        
        CString csMat = GetPipeMaterialByIdx(iMat);
        oCell = oTable.Cell(i+2, 9);  //管材
        oRange = oCell.GetRange();
        oRange.InsertAfter(csMat);
        
    }
    
    COleVariant vtOptional2((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
    wordSelection = wordApplication.GetSelection();
    wordSelection.GoTo(COleVariant((short)3),       // 3 = wdGoToLine
        COleVariant((short)-1),vtOptional2,vtOptional2);  // -1 = wdGoToLast
    
    wSelection = wordApplication.GetSelection();
    wSelection.TypeParagraph();
    wdFormula.CloseFile(); // cet 2010.6.28 add
}


void CCalcDirtDlg::OnSelchangeComboType2() 
{
	CComboBox *pBox1 = NULL, *pBox2 = NULL, *pBox3 = NULL;
	pBox1 = (CComboBox *)GetDlgItem(IDC_COMBO_ATERATETYPE);
	pBox2 = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE);
	pBox3 = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE2);
	if (pBox1 != NULL)
	{
		pBox1->GetLBText(pBox1->GetCurSel(), m_strAterateType);

		if (m_strAterateType.Compare(_T("伸顶通气")) == 0)
		{
			pBox1->SetCurSel(0);
			ClearCombox(pBox2);
			pBox2->InsertString(0, _T("立管与横支管90°顺水三通连接"));
			pBox2->InsertString(1, _T("立管与横支管45°斜三通连接"));
			pBox2->SetCurSel(0);
			pBox2->EnableWindow(TRUE);
		} 
		else if (m_strAterateType.Compare(_T("专用通气")) == 0)
		{
			pBox1->SetCurSel(1);
			ClearCombox(pBox2);
			pBox2->InsertString(0, _T("专用通气75mm"));
			pBox2->InsertString(1, _T("专用通气100mm"));
			pBox2->SetCurSel(0);
			pBox2->EnableWindow(TRUE);
		}
		else if (m_strAterateType.Compare(_T("自循环通气")) == 0)
		{
			pBox1->SetCurSel(2);
			ClearCombox(pBox2);
			pBox2->EnableWindow(FALSE);
		}
	}

	if (pBox3 != NULL)
	{
		int nIndex = pBox3->GetCurSel();
		if (m_strAterateType.Compare(_T("伸顶通气")) == 0)
		{
			m_strConnectType = _T("");
		} 
		else if (m_strAterateType.Compare(_T("专用通气")) == 0)
		{
			if (nIndex == 0)
			{
				m_strConnectType = _T("结合通气管每层连接");
			}
			else if (nIndex == 1)
			{
				m_strConnectType = _T("结合通气管隔层连接");
			}
		}
		else if (m_strAterateType.Compare(_T("自循环通气")) == 0)
		{
			if (nIndex == 0)
			{
				m_strConnectType = _T("专用通气形式");
			}
			else if (nIndex == 1)
			{
				m_strConnectType = _T("环形通气形式");
			}
		}
	}
}

void CCalcDirtDlg::OnSelchangeComboAteratetype() 
{	
	CComboBox *pBox = NULL, *pBox2 = NULL;
	pBox = (CComboBox *)GetDlgItem(IDC_COMBO_ATERATETYPE);
	pBox2 = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE2);
	if (pBox != NULL)
	{
		int nIndex = 0;
		nIndex = pBox->GetCurSel();
		ClearCombox(pBox2);
		if (nIndex == 0) // 伸顶通气
		{
			pBox2->EnableWindow(FALSE);
			m_strAterateType = _T("伸顶通气");
		}
		else if (nIndex == 1) // 专用通气
		{
			pBox2->InsertString(0, _T("结合通气管每层连接"));
			pBox2->InsertString(1, _T("结合通气管隔层连接"));
			pBox2->SetCurSel(0);
			pBox2->EnableWindow(TRUE);
			m_strAterateType = _T("专用通气");
			m_strConnectType = _T("结合通气管每层连接");
		}
		else if (nIndex == 2) // 自循环通气
		{
			pBox2->InsertString(0, _T("专用通气形式"));
			pBox2->InsertString(1, _T("环形通气形式"));
			pBox2->SetCurSel(0);
			pBox2->EnableWindow(TRUE);
			m_strAterateType = _T("自循环通气");
			m_strConnectType = _T("专用通气形式");
		}
	}
	OnSelchangeComboType2(); 
}

void CCalcDirtDlg::InitData()
{
	CComboBox *pBox1 = NULL, *pBox2 = NULL, *pBox3 = NULL;
	pBox1 = (CComboBox *)GetDlgItem(IDC_COMBO_ATERATETYPE);
	pBox2 = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE);
	pBox3 = (CComboBox *)GetDlgItem(IDC_COMBO_TYPE2);
	CWnd *pWnd = NULL;
	pWnd = GetDlgItem(IDC_STATIC_TYPE);
	if (m_strAterateType.IsEmpty()) // 没有扩展数据
	{
		if (pBox1 != NULL)
		{
			pBox1->SetCurSel(0);
			pBox3->EnableWindow(FALSE);	
		}
		
		if(pBox2 != NULL)
		{
			pBox2->InsertString(0, _T("立管与横支管90°顺水三通连接"));
			pBox2->InsertString(1, _T("立管与横支管45°斜三通连接"));
			pBox2->SetCurSel(0);
		}

		m_strAterateType = _T("伸顶通气");
	} 
	else
	{
		if (pBox1 != NULL)
		{
			if (m_strAterateType.Compare(_T("伸顶通气")) == 0)
			{
				pBox1->SetCurSel(0);
			} 
			else if (m_strAterateType.Compare(_T("专用通气")) == 0)
			{
				pBox1->SetCurSel(1);
			}
			else if (m_strAterateType.Compare(_T("自循环通气")) == 0)
			{
				pBox1->SetCurSel(2);
			}	

			pBox1->EnableWindow(FALSE);
		}
		
		if(pBox2 != NULL)
		{
			if (m_strAterateType.Compare(_T("伸顶通气")) == 0)
			{
				pBox2->InsertString(0, _T("立管与横支管90°顺水三通连接"));
				pBox2->InsertString(1, _T("立管与横支管45°斜三通连接"));
				pBox2->SetCurSel(0);
			} 
			else if (m_strAterateType.Compare(_T("专用通气")) == 0)
			{
				pBox2->InsertString(0, _T("专用通气75mm"));
				pBox2->InsertString(1, _T("专用通气100mm"));
				pBox2->SetCurSel(0);
			}
			else if (m_strAterateType.Compare(_T("自循环通气")) == 0)
			{
				pBox2->EnableWindow(FALSE);
			}
		}

		if (pBox3 != NULL)
		{
			pBox3->ShowWindow(HIDE_WINDOW);
		}

		if (pWnd != NULL)
		{
			pWnd->ShowWindow(HIDE_WINDOW);
		}
	}
}

void CCalcDirtDlg::ClearCombox(CComboBox *pBox)
{
	if (pBox != NULL)
	{
		int nNum = pBox->GetCount();
		for (int i = nNum - 1; i > -1; i--)
		{
			pBox->DeleteString(i);
		}
	}
}