1781 lines
53 KiB
C++
1781 lines
53 KiB
C++
// CalcSheetDlg.cpp : implementation file
|
||
//
|
||
|
||
#include "stdafx.h"
|
||
//#include <cbclass.h>
|
||
#include <DbWell.h>
|
||
|
||
#include "CalcSheetDlg.h"
|
||
#include "RainNewCityDlg.h"
|
||
|
||
#ifdef _DEBUG
|
||
#define new DEBUG_NEW
|
||
#undef THIS_FILE
|
||
static char THIS_FILE[] = __FILE__;
|
||
#endif
|
||
|
||
//#ifdef _WIN64
|
||
#include"TGAs.h"
|
||
//#endif
|
||
|
||
extern SSearchPipeList *GetNextCalcWell(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage);
|
||
extern int GetFirstPipeDnByQ(double nQ, double nN, double &nRetI, double &nRetV);
|
||
extern void ImportRainCalcWord(DList<SSearchPipeList> &lstNode, DList<SSearchPipeList> &lstWell, CCalcRainWellDlg &dlg);
|
||
extern void DimRainCalcResult(SSearchPipeList *pListAll);
|
||
extern void GetOtherWellNode(SSearchPipeList *pListAll, DList<SSearchPipeList> &lstWell);
|
||
extern int GetFirstPipeDnByQ2(double nQ, double nN, double nI, double &nRetV);
|
||
|
||
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CCalcRainWellDlg dialog
|
||
|
||
|
||
TGridRainCalc::TGridRainCalc()
|
||
{
|
||
AppendCol(_T("起始井"), 40);
|
||
AppendCol(_T("终止井"), 40);
|
||
AppendCol(_T("管径mm"), 50);
|
||
AppendCol(_T("坡度‰"), 55);
|
||
AppendCol(_T("管长m"), 50);
|
||
AppendCol(_T("汇水面积m2"), 65);
|
||
AppendCol(_T("总面积"), 55);
|
||
AppendCol(_T("径流"), 40);
|
||
AppendCol(_T("重现期"), 38);
|
||
AppendCol(_T("汇水时间"), 55);
|
||
AppendCol(_T("流速m/s"), 55);
|
||
AppendCol(_T("流量L/s"), 55);
|
||
AppendCol(_T("暴雨强度"), 60);
|
||
// SetColPosFix();
|
||
// SetColFixLength();
|
||
SetNoPaste();
|
||
// FitLastCol();
|
||
GetCol(2).SetComboEdit();
|
||
GetCol(3).SetComboEdit();
|
||
COLORREF color = RGB(255,0,0);
|
||
GetCol(2).SetTextColor(color);
|
||
GetCol(3).SetTextColor(color);
|
||
COLORREF color2 = RGB(0,0,255);;
|
||
|
||
GetCol(9).SetTextColor(color2);
|
||
GetCol(10).SetTextColor(color2);
|
||
GetCol(11).SetTextColor(color2);
|
||
GetCol(12).SetTextColor(color2);
|
||
|
||
}
|
||
|
||
void TGridRainCalc::OnCellComboString(WDGridCell&cell,CComboBox&combo)
|
||
{
|
||
if(cell.GetColIndex()==2){
|
||
combo.AddString(_T("200"));
|
||
// combo.AddString(_T("250"));
|
||
combo.AddString(_T("300"));
|
||
// combo.AddString(_T("350"));
|
||
combo.AddString(_T("400"));
|
||
// combo.AddString(_T("450"));
|
||
combo.AddString(_T("500"));
|
||
combo.AddString(_T("600"));
|
||
combo.AddString(_T("700"));
|
||
combo.AddString(_T("800"));
|
||
combo.AddString(_T("900"));
|
||
combo.AddString(_T("1000"));
|
||
combo.AddString(_T("1100"));
|
||
combo.AddString(_T("1200"));
|
||
}
|
||
else if(cell.GetColIndex()==3){
|
||
combo.AddString(_T("1"));
|
||
combo.AddString(_T("2"));
|
||
combo.AddString(_T("3"));
|
||
combo.AddString(_T("4"));
|
||
combo.AddString(_T("5"));
|
||
combo.AddString(_T("6"));
|
||
}
|
||
}
|
||
|
||
void TGridRainCalc::OnBeforeRefresh(WDGridCell&cell)
|
||
{
|
||
if(cell.GetColIndex()==10)
|
||
{
|
||
double dV = _tstof(cell.GetText());
|
||
if(dV > 4.9999){
|
||
CDC&dc=GetDC();
|
||
COLORREF color=acedGetRGB(6);
|
||
dc.SetTextColor(color);
|
||
dc.SetBkMode(TRANSPARENT);
|
||
}
|
||
else
|
||
WDGrid::OnBeforeRefresh(cell);
|
||
}
|
||
else if(cell.GetColIndex()==12){
|
||
CString csQ = cell.GetText().cs();
|
||
if(csQ.Find(_T("错误")) > -1)
|
||
{
|
||
CDC&dc=GetDC();
|
||
COLORREF color=acedGetRGB(6);
|
||
dc.SetTextColor(color);
|
||
dc.SetBkMode(TRANSPARENT);
|
||
}
|
||
else
|
||
WDGrid::OnBeforeRefresh(cell);
|
||
|
||
// CString csColName = cell.GetCol().GetName();
|
||
// if(csColName == _T("泄流量")){
|
||
// int iRow = cell.GetRowIndex();
|
||
// // WDGrid &grid = cell.GetGrid();
|
||
// if(this->IsValidRow(iRow)){
|
||
// WDGridRow *pRow =this->rowList.GetAt(iRow);
|
||
// WDGridRow row = *pRow;
|
||
// CString csQ = row[11].GetText();
|
||
// // pRow->
|
||
// // (*pRow)[11];
|
||
//
|
||
// // WDGridRow &row = this->GetRow(iRow);
|
||
// // CString csQ = (*pRow)[11].GetText();
|
||
//
|
||
//// if(_tstof(csQ) < dQ){
|
||
//// CDC&dc=GetDC();
|
||
//// COLORREF color=acedGetRGB(6);
|
||
//// dc.SetTextColor(color);
|
||
//// dc.SetBkMode(TRANSPARENT);
|
||
//// }
|
||
//
|
||
//
|
||
// }
|
||
|
||
|
||
|
||
// WDGridRow &row = grid.GetRow(iRow);
|
||
// CString csQ = row[11].GetText();
|
||
// if(_tstof(csQ) < dQ){
|
||
// CDC&dc=GetDC();
|
||
// COLORREF color=acedGetRGB(6);
|
||
// dc.SetTextColor(color);
|
||
// dc.SetBkMode(TRANSPARENT);
|
||
// }
|
||
// }
|
||
// else
|
||
// WDGrid::OnBeforeRefresh(cell);
|
||
|
||
}
|
||
else
|
||
WDGrid::OnBeforeRefresh(cell);
|
||
}
|
||
|
||
// zxl 2013.12.31 add
|
||
TGridMaterialN::TGridMaterialN()
|
||
{
|
||
AppendCol(_T("管材"), 73);
|
||
AppendCol(_T("粗糙系数"), 47);
|
||
SetNoPaste();
|
||
GetCol(0).SetReadOnly(true);
|
||
SetColPosFix();
|
||
SetColFixLength();
|
||
SetNoPaste();
|
||
FitLastCol();
|
||
GetCol(0).SetComboSel();
|
||
}
|
||
|
||
bool IsStrAllNum(CString csText)
|
||
{
|
||
CString sText = csText.SpanIncluding(_T("0123456789.-e"));
|
||
if ((sText.Find(_T("."), 0) == 0 || sText.Find(_T("-"), 0) == 0) && _tstof(csText) == 0)
|
||
{
|
||
return false;
|
||
}
|
||
// 小数点可以出现在中间，但只能出现一次
|
||
int nIndex = sText.Find(_T("."), 0);
|
||
if (nIndex > 0)
|
||
{
|
||
nIndex = sText.Find(_T("."), ++nIndex);
|
||
}
|
||
|
||
// 负号可以出现在起始处，但只能出现一次
|
||
int nIndex2 = sText.Find(_T("-"));
|
||
if (nIndex2 == 0)
|
||
{
|
||
nIndex2 = sText.Find(_T("-"), 1);
|
||
}
|
||
|
||
if (csText == sText && nIndex < 0 && nIndex2 <= 0)// 全是数字
|
||
{
|
||
return true;
|
||
}
|
||
else
|
||
{
|
||
return false;
|
||
}
|
||
}
|
||
|
||
bool TGridMaterialN::OnModified(WDGridCell&cell, CString &text)
|
||
{
|
||
if (cell.GetCol().GetIndex() == 1)
|
||
{
|
||
double dVal = _tstof(text);
|
||
if (dVal <= 0.0 || !IsStrAllNum(text))
|
||
{
|
||
return false;
|
||
}
|
||
}
|
||
return true;
|
||
}
|
||
|
||
void TGridMaterialN::OnBeforeRefresh(WDGridCell&cell)
|
||
{
|
||
WDGrid::OnBeforeRefresh(cell);
|
||
}
|
||
|
||
BOOL GetAllCityByProvince(const TCHAR* szProvince, XStringList &lstCity)
|
||
{
|
||
CodeBase db;
|
||
db.read_only = 1;
|
||
XString fullFile;
|
||
if(!FindFile(_T("raincity.dbf"), fullFile)) {
|
||
AfxMessageBox(_T("对不起，没有发现raincity.dbf文件！"));
|
||
return TRUE;
|
||
}
|
||
XDbfTable *pTable = db.Open(fullFile);
|
||
if(!pTable)
|
||
return TRUE;
|
||
CString csTmp, csCity;
|
||
XStringList lstProvince;
|
||
for(pTable->MoveFirst();!pTable->IsEOF();pTable->MoveNext()){
|
||
GET_FIELD(pTable, _T("province"), csTmp);
|
||
GET_FIELD(pTable, _T("city"), csCity);
|
||
if(_tcsicmp(csTmp, szProvince) == 0 && lstCity.Index(csCity) < 0)
|
||
lstCity.Append(tstrnew(csCity));
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
// zxl 2013.12.27 add
|
||
double CCalcRainWellDlg::m_nFactor = 0.6;
|
||
double CCalcRainWellDlg::m_nP = 1;
|
||
double CCalcRainWellDlg::m_dM = 2;
|
||
double CCalcRainWellDlg::m_dTime = 15;
|
||
CCalcRainWellDlg::CCalcRainWellDlg(CWnd* pParent /*=NULL*/)
|
||
: CAcUiDialog(CCalcRainWellDlg::IDD, pParent), m_ssAll(SS_FREE)
|
||
{
|
||
//{{AFX_DATA_INIT(CCalcRainWellDlg)
|
||
m_csA = _T("");
|
||
m_csB = _T("");
|
||
m_csC = _T("");
|
||
m_csN = _T("");
|
||
m_csCity = _T("");
|
||
m_csProvince = _T("");
|
||
m_csN2 = _T("");
|
||
//}}AFX_DATA_INIT
|
||
m_bCalc = FALSE;
|
||
m_bReCalc = FALSE;
|
||
}
|
||
|
||
|
||
void CCalcRainWellDlg::DoDataExchange(CDataExchange* pDX)
|
||
{
|
||
CAcUiDialog::DoDataExchange(pDX);
|
||
//{{AFX_DATA_MAP(CCalcRainWellDlg)
|
||
DDX_Control(pDX, IDC_LIST_PROVINCE, m_listProvince);
|
||
DDX_Control(pDX, IDC_LIST_CITY, m_listCity);
|
||
DDX_Text(pDX, IDC_STATIC_A, m_csA);
|
||
DDX_Text(pDX, IDC_STATIC_B, m_csB);
|
||
DDX_Text(pDX, IDC_STATIC_C, m_csC);
|
||
DDX_Text(pDX, IDC_STATIC_N, m_csN);
|
||
DDX_Text(pDX, IDC_EDIT_FACTOR, m_nFactor);
|
||
DDX_Text(pDX, IDC_EDIT_P, m_nP);
|
||
DDX_LBString(pDX, IDC_LIST_CITY, m_csCity);
|
||
DDX_LBString(pDX, IDC_LIST_PROVINCE, m_csProvince);
|
||
DDX_Text(pDX, IDC_EDIT_M, m_dM);
|
||
DDX_Text(pDX, IDC_EDIT_TIME, m_dTime);
|
||
DDX_Text(pDX, IDC_STATIC_N2, m_csN2);
|
||
//}}AFX_DATA_MAP
|
||
}
|
||
|
||
|
||
BEGIN_MESSAGE_MAP(CCalcRainWellDlg, CAcUiDialog)
|
||
//{{AFX_MSG_MAP(CCalcRainWellDlg)
|
||
ON_BN_CLICKED(IDC_BUTTON_CALC, OnButtonCalc)
|
||
ON_BN_CLICKED(IDC_BUTTON_WORD, OnButtonWord)
|
||
ON_BN_CLICKED(IDC_BUTTON_DIM, OnButtonDim)
|
||
ON_BN_CLICKED(IDC_BUTTON_P, OnButtonP)
|
||
ON_LBN_SELCHANGE(IDC_LIST_PROVINCE, OnSelchangeListProvince)
|
||
ON_LBN_SELCHANGE(IDC_LIST_CITY, OnSelchangeListCity)
|
||
ON_BN_CLICKED(IDC_BUTTON_FACTOR, OnButtonFactor)
|
||
ON_BN_CLICKED(IDC_BUTTON_NEWCITY, OnButtonNewCity)
|
||
ON_BN_CLICKED(IDC_BUTTON_HIDE, OnButtonHide)
|
||
ON_BN_CLICKED(IDC_BUTTON_CALC2, OnButtonCalc2)
|
||
ON_WM_DESTROY()
|
||
ON_WM_PAINT()
|
||
ON_BN_CLICKED(IDC_BTN_CALC_TABLE, OnBtnCalcTable)
|
||
ON_EN_KILLFOCUS(IDC_EDIT_TIME, OnKillfocusEdtTime)
|
||
ON_EN_KILLFOCUS(IDC_EDIT_P, OnKillfocusEdtP)
|
||
ON_EN_KILLFOCUS(IDC_EDIT_M, OnKillfocusEdtM)
|
||
ON_EN_KILLFOCUS(IDC_EDIT_FACTOR, OnKillfocusEdtFactor)
|
||
//}}AFX_MSG_MAP
|
||
END_MESSAGE_MAP()
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CCalcRainWellDlg message handlers
|
||
|
||
BOOL CCalcRainWellDlg::OnInitDialog()
|
||
{
|
||
CAcUiDialog::OnInitDialog();
|
||
|
||
XString fullFile;
|
||
if(!FindFile(_T("raincity.dbf"), fullFile)) {
|
||
MessageBox(_T("对不起，没有发现raincity.dbf文件！"));
|
||
return TRUE;
|
||
}
|
||
CodeBase db;
|
||
db.read_only = 1;
|
||
XDbfTable *pTable = db.Open(fullFile);
|
||
if(!pTable)
|
||
return TRUE;
|
||
CString csTmp;
|
||
XStringList lstProvince;
|
||
for(pTable->MoveFirst();!pTable->IsEOF();pTable->MoveNext()){
|
||
GET_FIELD(pTable, _T("province"), csTmp);
|
||
if(lstProvince.Index(csTmp) < 0 && csTmp != _T(""))
|
||
lstProvince.Append(tstrnew(csTmp));
|
||
}
|
||
for(int i=0;i<lstProvince.Length();i++){
|
||
CString csProvince = lstProvince[i];
|
||
m_listProvince.AddString(csProvince);
|
||
}
|
||
|
||
CRegProperty regProp(GetRegLocation(), _T("TWTConfig"));
|
||
regProp.SetTopRootKey(HKEY_CURRENT_USER);
|
||
regProp.GetValue(_T("CurProvince"), m_csProvince);
|
||
regProp.GetValue(_T("CurCity"), m_csCity);
|
||
|
||
UpdateData(FALSE);
|
||
OnSelchangeListProvince();
|
||
regProp.GetValue(_T("CurCity"), m_csCity);
|
||
UpdateData(FALSE);
|
||
OnSelchangeListCity();
|
||
|
||
|
||
m_grid.Clear();
|
||
m_grid.Create(this, IDC_LIST_PIPE);
|
||
// m_grid.FitLastCol();
|
||
m_grid.SetNoAppendButton(TRUE);
|
||
m_grid.SetNoDefaultMenu(true);
|
||
UpdateGrid();
|
||
|
||
m_gridN.Clear();
|
||
m_gridN.Create(this, IDC_LIST_METIRALN);
|
||
m_gridN.SetNoAppendButton(TRUE);
|
||
m_gridN.SetNoDefaultMenu(true);
|
||
std::map<CString, double>::iterator it = m_mapMeratialN.begin();
|
||
int idx = 0;
|
||
m_gridN.Clear();
|
||
for (; it != m_mapMeratialN.end(); it++)
|
||
{
|
||
m_gridN.AppendRow();
|
||
m_gridN.GetCell(idx, 0).SetText(it->first);
|
||
CString csN;
|
||
csN.Format(_T("%.4f"), it->second);
|
||
m_gridN.GetCell(idx, 1).SetText(csN);
|
||
idx++;
|
||
}
|
||
|
||
m_wndToolTip.Create(this);
|
||
m_wndToolTip.Activate(true);
|
||
m_wndToolTip.SetDelayTime(TTDT_INITIAL, 500);
|
||
CWnd *pWnd1 = GetDlgItem(IDOK);
|
||
CWnd *pWnd2 = GetDlgItem(IDC_BUTTON_CALC);
|
||
CWnd *pWnd3 = GetDlgItem(IDC_BUTTON_CALC2);
|
||
CWnd *pWnd4 = GetDlgItem(IDC_BUTTON_HIDE);
|
||
m_wndToolTip.AddTool(pWnd1, _T("初算，未知管径，未知坡度"));
|
||
m_wndToolTip.AddTool(pWnd2, _T("复算，已知管径，已知坡度"));
|
||
m_wndToolTip.AddTool(pWnd3, _T("复算，已知坡度，计算管径"));
|
||
m_wndToolTip.AddTool(pWnd4, _T("隐藏对话框"));
|
||
|
||
return TRUE; // return TRUE unless you set the focus to a control
|
||
// EXCEPTION: OCX Property Pages should return FALSE
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnKillfocusEdtM()
|
||
{
|
||
CWnd *pWnd = GetDlgItem(IDC_EDIT_M);
|
||
if (pWnd != NULL)
|
||
{
|
||
CString csText;
|
||
pWnd->GetWindowText(csText);
|
||
double dDouble = _tstof(csText);
|
||
if (dDouble <= 0.0 || !IsStrAllNum(csText))
|
||
{
|
||
UpdateData(FALSE);
|
||
}
|
||
else
|
||
{
|
||
UpdateData(TRUE);
|
||
}
|
||
}
|
||
}
|
||
void CCalcRainWellDlg::OnKillfocusEdtP()
|
||
{
|
||
CWnd *pWnd = GetDlgItem(IDC_EDIT_P);
|
||
if (pWnd != NULL)
|
||
{
|
||
CString csText;
|
||
pWnd->GetWindowText(csText);
|
||
double dDouble = _tstof(csText);
|
||
if (dDouble <= 0.0 || !IsStrAllNum(csText))
|
||
{
|
||
UpdateData(FALSE);
|
||
}
|
||
else
|
||
{
|
||
UpdateData(TRUE);
|
||
}
|
||
}
|
||
}
|
||
void CCalcRainWellDlg::OnKillfocusEdtFactor()
|
||
{
|
||
CWnd *pWnd = GetDlgItem(IDC_EDIT_FACTOR);
|
||
if (pWnd != NULL)
|
||
{
|
||
CString csText;
|
||
pWnd->GetWindowText(csText);
|
||
double dDouble = _tstof(csText);
|
||
if (dDouble <= 0.0 || !IsStrAllNum(csText))
|
||
{
|
||
UpdateData(FALSE);
|
||
}
|
||
else
|
||
{
|
||
UpdateData(TRUE);
|
||
}
|
||
}
|
||
}
|
||
void CCalcRainWellDlg::OnKillfocusEdtTime()
|
||
{
|
||
CEdit *pWnd = (CEdit *)GetDlgItem(IDC_EDIT_TIME);
|
||
if (pWnd != NULL)
|
||
{
|
||
CString csText;
|
||
pWnd->GetWindowText(csText);
|
||
double dDouble = _tstof(csText);
|
||
if (dDouble <= 0.0 || !IsStrAllNum(csText))
|
||
{
|
||
pWnd->SetSel(0, -1);
|
||
UpdateData(FALSE);
|
||
}
|
||
else
|
||
{
|
||
UpdateData(TRUE);
|
||
}
|
||
}
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnPaint()
|
||
{
|
||
CAcUiDialog::OnPaint();
|
||
if (m_gridN.IsWindowVisible())
|
||
{
|
||
m_gridN.SetRedraw(TRUE);
|
||
}
|
||
}
|
||
|
||
|
||
//把树结构的数据转化为DLIST链表结构
|
||
void CCalcRainWellDlg::TransWellListData(SSearchPipeList *pListAll, DList<SRainCalcData> &lstWellSys)
|
||
{
|
||
SRainCalcData *pList = new SRainCalcData();
|
||
pList->m_iDn = pListAll->m_iDn;
|
||
if(pListAll->m_iType == 0)
|
||
pList->m_bIsWell = FALSE;
|
||
else
|
||
pList->m_bIsWell = TRUE;
|
||
pList->m_csName = pListAll->m_csName;
|
||
pList->m_nI = pListAll->m_nI;
|
||
pList->m_ID = pListAll->m_ID;
|
||
pList->m_nLength = pListAll->m_nLength;
|
||
pList->m_nArea = pListAll->m_nDang;
|
||
pList->m_nAllArea = pListAll->m_nStartPress;
|
||
lstWellSys.Append(pList);
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
TransWellListData(pList, lstWellSys);
|
||
}
|
||
}
|
||
|
||
//得到下一个计算支路的起点节点 根据流量是否为0且最远
|
||
SSearchPipeList *CCalcRainWellDlg::GetNextWell(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage, DList<SRainCalcData> &lstData)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
BOOL bFind = FALSE;
|
||
for(int j=0;j<lstData.Length();j++){
|
||
if(lstData[j]->m_ID == id){
|
||
bFind = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
double nCurPipeLength(0);
|
||
if(!bFind && pListAll->m_iType == 3){
|
||
nCurPipeLength = pListAll->m_nLength;
|
||
if(pDisadvantage){
|
||
if(nCurPipeLength > pDisadvantage->m_nLength)
|
||
pDisadvantage = pListAll;
|
||
}
|
||
else
|
||
pDisadvantage = pListAll; //条件3: 临时节点为空
|
||
}
|
||
int len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
pDisadvantage = GetNextWell(pList, pDisadvantage, lstData);
|
||
}
|
||
return pDisadvantage;
|
||
}
|
||
|
||
void CCalcRainWellDlg::UpdateGrid()
|
||
{
|
||
long iCurRow = m_grid.GetCurRowIndex();
|
||
m_grid.Clear();
|
||
DList<SRainCalcData> lstData;
|
||
SSearchPipeList *pNodeLong = m_pNodeLong;
|
||
while(pNodeLong){//主干网
|
||
if(pNodeLong->m_iType == 0 || pNodeLong->m_iType == 3 || pNodeLong->m_iType == 1){
|
||
SRainCalcData *pList = new SRainCalcData();
|
||
pList->m_iDn = pNodeLong->m_iDn;
|
||
if(pNodeLong->m_iType == 0)
|
||
pList->m_bIsWell = FALSE;
|
||
else if(pNodeLong->m_iType == 3 || pNodeLong->m_iType == 1)
|
||
pList->m_bIsWell = TRUE;
|
||
|
||
pList->m_csName = pNodeLong->m_csName;
|
||
pList->m_nI = pNodeLong->m_nI;
|
||
pList->m_nTime = pNodeLong->m_nLost;
|
||
pList->m_nV = pNodeLong->m_nV;
|
||
pList->m_nQ = pNodeLong->m_nPipeQ;
|
||
pList->m_ID = pNodeLong->m_ID;
|
||
pList->m_nFactor = (double)(pNodeLong->m_iNum) / 1000;
|
||
pList->m_iP = pNodeLong->m_iSpare;
|
||
if(pList->m_nFactor < 0.0001) //没有输入，就按默认走
|
||
pList->m_nFactor = m_nFactor;
|
||
if(pList->m_iP < 0.0001)
|
||
pList->m_iP = (int)m_nP;
|
||
pList->m_nLength = pNodeLong->m_nLength;
|
||
pList->m_nArea = pNodeLong->m_nDang;
|
||
pList->m_nAllArea = pNodeLong->m_nStartPress;
|
||
pList->m_dI = pNodeLong->m_nSpare;
|
||
lstData.Append(pList);
|
||
}
|
||
if(pNodeLong->m_pPrevious)
|
||
pNodeLong = pNodeLong->m_pPrevious;
|
||
else
|
||
break;
|
||
}
|
||
|
||
SSearchPipeList *pNodeNext = GetNextWell(m_pListAll, NULL, lstData);
|
||
while(pNodeNext){
|
||
SSearchPipeList *pNodeLong = pNodeNext;
|
||
|
||
while(pNodeLong){
|
||
BOOL bFind = FALSE;
|
||
for(int j=0;j<lstData.Length();j++){
|
||
if(lstData[j]->m_ID == pNodeLong->m_ID){
|
||
bFind = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
if(pNodeLong->m_iType == 0 || pNodeLong->m_iType == 3 || pNodeLong->m_iType == 1){
|
||
SRainCalcData *pList = new SRainCalcData();
|
||
pList->m_iDn = pNodeLong->m_iDn;
|
||
if(pNodeLong->m_iType == 0)
|
||
pList->m_bIsWell = FALSE;
|
||
else
|
||
pList->m_bIsWell = TRUE;
|
||
pList->m_csName = pNodeLong->m_csName;
|
||
pList->m_nI = pNodeLong->m_nI;
|
||
pList->m_nTime = pNodeLong->m_nLost;
|
||
pList->m_nV = pNodeLong->m_nV;
|
||
pList->m_nQ = pNodeLong->m_nPipeQ;
|
||
pList->m_ID = pNodeLong->m_ID;
|
||
pList->m_nFactor = (double)(pNodeLong->m_iNum) / 1000;
|
||
if(pList->m_nFactor < 0.0001) //没有输入，就按默认走
|
||
pList->m_nFactor = m_nFactor;
|
||
pList->m_iP = pNodeLong->m_iSpare;
|
||
if(pList->m_iP < 0.0001)
|
||
pList->m_iP = (int)m_nP;
|
||
pList->m_nLength = pNodeLong->m_nLength;
|
||
pList->m_nArea = pNodeLong->m_nDang;
|
||
pList->m_nAllArea = pNodeLong->m_nStartPress;
|
||
pList->m_dI = pNodeLong->m_nSpare;
|
||
lstData.Append(pList);
|
||
}
|
||
if(bFind)
|
||
break;
|
||
if(pNodeLong->m_pPrevious)
|
||
pNodeLong = pNodeLong->m_pPrevious;
|
||
else
|
||
break;
|
||
}
|
||
pNodeNext = GetNextWell(m_pListAll, NULL, lstData);
|
||
}
|
||
|
||
|
||
m_arRainStom.RemoveAll();
|
||
int idx = 0;
|
||
bool bInitMap = true;
|
||
if (!m_mapMeratialN.empty())
|
||
{
|
||
bInitMap = false;
|
||
}
|
||
for(int i=0;i<lstData.Length()-1;i++){
|
||
|
||
if(lstData[i]->m_bIsWell){ //井
|
||
|
||
if(i == lstData.Length()-2)
|
||
break;
|
||
|
||
m_grid.AppendRow();
|
||
CString csName1 = lstData[i]->m_csName;
|
||
CString csName2 = lstData[i+2]->m_csName;
|
||
if(csName1 == _T("") && csName2 == _T(""))
|
||
continue;
|
||
CString csArea, csAllArea, csFactor, csQ, csTime, csP, csI;
|
||
m_grid.GetCell(idx, 0).SetText(csName1);
|
||
m_grid.GetCell(idx, 1).SetText(csName2);
|
||
csArea.Format(_T("%.1f"), lstData[i]->m_nArea);
|
||
csTime.Format(_T("%.2f"), lstData[i]->m_nTime);
|
||
csQ.Format(_T("%.2f"), lstData[i]->m_nQ);
|
||
csAllArea.Format(_T("%.1f"), lstData[i]->m_nAllArea);
|
||
csFactor.Format(_T("%.2f"), lstData[i]->m_nFactor);
|
||
csP.Format(_T("%d"), lstData[i]->m_iP);
|
||
csI.Format(_T("%.2f"), lstData[i]->m_dI); //暴雨强度
|
||
m_grid.GetCell(idx, 5).SetText(csArea);
|
||
m_grid.GetCell(idx, 6).SetText(csAllArea);
|
||
m_grid.GetCell(idx, 9).SetText(csTime);
|
||
m_grid.GetCell(idx, 7).SetText(csFactor);
|
||
m_grid.GetCell(idx, 8).SetText(csP);
|
||
m_grid.GetCell(idx, 11).SetText(csQ);
|
||
// m_grid.GetCell(idx, 11).SetText(csQ);
|
||
if(!m_bReCalc)
|
||
m_grid.GetCell(idx, 12).SetText(csI);
|
||
else
|
||
m_arRainStom.Add(csI);
|
||
}
|
||
else{ //管
|
||
|
||
int iDn = lstData[i]->m_iDn;
|
||
CString csDn, csPipeLen, csI, csV;
|
||
csDn.Format(_T("%d"), iDn);
|
||
csV.Format(_T("%.2f"), lstData[i]->m_nV);
|
||
csI.Format(_T("%.3f"), lstData[i]->m_nI);
|
||
csPipeLen.Format(_T("%.2f"), lstData[i]->m_nLength);
|
||
m_grid.GetCell(idx, 2).SetText(csDn);
|
||
m_grid.GetCell(idx, 3).SetText(csI);
|
||
m_grid.GetCell(idx, 4).SetText(csPipeLen);
|
||
m_grid.GetCell(idx, 10).SetText(csV);
|
||
double dTmpv = lstData[i]->m_nV;
|
||
double nTempQ = (0.25*iDn*iDn*PI)*lstData[i]->m_nV/1000;
|
||
double nQ = lstData[i]->m_nQ;
|
||
|
||
csI.Format(_T("%.2f"), nTempQ);
|
||
if(m_bReCalc){
|
||
if(nTempQ < lstData[i]->m_nQ){
|
||
csI = csI + _T("错误");
|
||
}
|
||
m_grid.GetCell(idx, 12).SetText(csI);
|
||
}
|
||
idx++;
|
||
|
||
//zxl 2013.12.30 add
|
||
if (bInitMap)
|
||
{
|
||
double nN(0.009);
|
||
CString csMat;
|
||
OPENOBJ_BEGIN(lstData[i]->m_ID, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
csMat = GetPipeMaterialByIdx(pPipe->GetMaterial());
|
||
if(csMat.Find(_T("混凝土管")) > -1 || csMat.Find(_T("铸铁")) > -1)
|
||
nN = 0.013;
|
||
else if(csMat.Find(_T("钢")) > -1)
|
||
nN = 0.012;
|
||
m_mapMeratialN.insert(std::make_pair(csMat, nN));
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
// if(nTempQ < lstData[i]->m_nQ || lstData[i]->m_nV > 5){
|
||
// CString csTmp;
|
||
// csTmp.Format(_T("%s管径过小，泄流量不满足计算流量要求！"), lstData[i]->m_csName);
|
||
//
|
||
// // m_grid.GetCell(idx, 2)
|
||
// // MessageBox(csTmp);
|
||
// }
|
||
}
|
||
|
||
}
|
||
m_grid.SelectRow(iCurRow, TRUE);
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnCancel()
|
||
{
|
||
UpdateData(TRUE);
|
||
CRegProperty regProp(GetRegLocation(), _T("TWTConfig"));
|
||
regProp.SetTopRootKey(HKEY_CURRENT_USER);
|
||
regProp.SetValue(_T("CurProvince"), m_csProvince);
|
||
regProp.SetValue(_T("CurCity"), m_csCity);
|
||
CAcUiDialog::OnCancel();
|
||
}
|
||
|
||
//初算
|
||
void CCalcRainWellDlg::OnOK()
|
||
{
|
||
UpdateData(TRUE);
|
||
// if(m_csCity == _T("重庆")){ 2010-6-2 sr 删除，因为09技术措施有新公式
|
||
// double nB = m_nP;
|
||
// nB = pow(nB, 0.076)* 12.8;
|
||
// m_csB.Format(_T("%.3f"), nB);
|
||
// UpdateData(FALSE);
|
||
// }
|
||
|
||
if(m_csCity == _T("南充")){
|
||
double nB = m_nP;
|
||
nB = pow(nB, 0.0167)* 7.8786;
|
||
m_csB.Format(_T("%.3f"), nB);
|
||
UpdateData(FALSE);
|
||
}
|
||
if(m_csCity == _T("")){
|
||
MessageBox(_T("没有选择城市！"));
|
||
return;
|
||
}
|
||
m_grid.GetCol(12).SetName(_T("暴雨强度"));
|
||
m_bCalc = TRUE;
|
||
m_bReCalc = FALSE;
|
||
|
||
// zxl 2013.12.31 add
|
||
m_mapMeratialN.clear();
|
||
for(m_gridN.MoveToFirst(); !m_gridN.IsOut(); m_gridN.MoveToNext())
|
||
{
|
||
WDGridRow *pRow = m_gridN.CurRow();
|
||
CString csName = (*pRow)[0].GetText().cs();
|
||
CString csN = (*pRow)[1].GetText().cs();
|
||
m_mapMeratialN.insert(std::make_pair(csName, _tstof(csN)));
|
||
}
|
||
ResetList(m_pListAll);
|
||
m_pNodeLong->m_nLost = m_dTime;
|
||
CalcRainNode(m_pNodeLong, 0); //主干线计算
|
||
|
||
SSearchPipeList *pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
while(pNodeNext){
|
||
CalcRainNode(pNodeNext, 0);//支路计算
|
||
pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
}
|
||
UpdateGrid();
|
||
}
|
||
|
||
//返回用户选择的最远井所在链表的位置
|
||
// SSearchPipeList *GetPipeNodeByName(SSearchPipeList *pListAll, CString csName, SSearchPipeList *pNode)
|
||
// {
|
||
// AcDbObjectId id = NULL;
|
||
// id = pListAll->m_ID;
|
||
// if(pListAll->m_iType == 0){
|
||
// if(pListAll->m_csName == csName)
|
||
// return pListAll;
|
||
// }
|
||
// long len = pListAll->m_lstNode.Length();
|
||
// for(long i=0;i<len;i++){
|
||
// SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
// pNode = GetPipeNodeByName(pList, csName, pNode);
|
||
// }
|
||
// return pNode;
|
||
// }
|
||
|
||
void CCalcRainWellDlg::ResetList(SSearchPipeList *pListAll)
|
||
{
|
||
pListAll->m_nPipeQ = 0;
|
||
pListAll->m_nLost = 0; //汇水时间，每次计算都根据对话框重新计算
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
ResetList(pList);
|
||
}
|
||
}
|
||
|
||
//复算2 已知坡度计算管径
|
||
void CCalcRainWellDlg::OnButtonCalc2()
|
||
{
|
||
UpdateData(TRUE);
|
||
// if(m_csCity == _T("重庆")){
|
||
// double nB = m_nP;
|
||
// nB = pow(nB, 0.076)* 12.8;
|
||
// m_csB.Format(_T("%.3f"), nB);
|
||
// UpdateData(FALSE);
|
||
// }
|
||
// else
|
||
if(m_csCity == _T("南充")){
|
||
double nB = m_nP;
|
||
nB = pow(nB, 0.0167)* 7.8786;
|
||
m_csB.Format(_T("%.3f"), nB);
|
||
UpdateData(FALSE);
|
||
}
|
||
|
||
if(m_csCity == _T("")){
|
||
MessageBox(_T("没有选择城市！"));
|
||
return;
|
||
}
|
||
m_grid.GetCol(12).SetName(_T("暴雨强度"));
|
||
for(m_grid.MoveToFirst(); !m_grid.IsOut(); m_grid.MoveToNext()){
|
||
WDGridRow *pRow = m_grid.CurRow();
|
||
CString csName1 = (*pRow)[0].GetText().cs();
|
||
CString csName2 = (*pRow)[1].GetText().cs();
|
||
CString csI = (*pRow)[3].GetText().cs();
|
||
if(csName1 == _T(""))
|
||
break;
|
||
csName1 = csName1 + _T("-") + csName2;
|
||
if(fabs(_tstof(csI)) < 1e-9){
|
||
MessageBox(_T("雨水计算，坡度不能为0！"));
|
||
return;
|
||
}
|
||
SSearchPipeList *pList = GetPipeNodeByName(m_pListAll, csName1, NULL);
|
||
if(pList != NULL){
|
||
pList->m_nI = _tstof(csI);
|
||
}
|
||
}
|
||
|
||
// zxl 2013.12.31 add
|
||
m_mapMeratialN.clear();
|
||
for(m_gridN.MoveToFirst(); !m_gridN.IsOut(); m_gridN.MoveToNext())
|
||
{
|
||
WDGridRow *pRow = m_gridN.CurRow();
|
||
CString csName = (*pRow)[0].GetText().cs();
|
||
CString csN = (*pRow)[1].GetText().cs();
|
||
m_mapMeratialN.insert(std::make_pair(csName, _tstof(csN)));
|
||
}
|
||
ResetList(m_pListAll);
|
||
CalcRainNode(m_pNodeLong, 2); //主干线计算
|
||
m_bCalc = TRUE;
|
||
m_bReCalc = FALSE;
|
||
|
||
SSearchPipeList *pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
while(pNodeNext){
|
||
CalcRainNode(pNodeNext, 2);//支路计算
|
||
pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
}
|
||
|
||
UpdateGrid();
|
||
}
|
||
|
||
//复算
|
||
void CCalcRainWellDlg::OnButtonCalc()
|
||
{
|
||
UpdateData(TRUE);
|
||
if(m_csCity == _T("重庆")){
|
||
double nB = m_nP;
|
||
nB = pow(nB, 0.076)* 12.8;
|
||
m_csB.Format(_T("%.3f"), nB);
|
||
UpdateData(FALSE);
|
||
}
|
||
else if(m_csCity == _T("南充")){
|
||
double nB = m_nP;
|
||
nB = pow(nB, 0.0167)* 7.8786;
|
||
m_csB.Format(_T("%.3f"), nB);
|
||
UpdateData(FALSE);
|
||
}
|
||
|
||
if(m_csCity == _T("")){
|
||
MessageBox(_T("没有选择城市！"));
|
||
return;
|
||
}
|
||
m_grid.GetCol(12).SetName(_T("泄流量"));
|
||
|
||
for(m_grid.MoveToFirst(); !m_grid.IsOut(); m_grid.MoveToNext()){
|
||
WDGridRow *pRow = m_grid.CurRow();
|
||
CString csName1 = (*pRow)[0].GetText().cs();
|
||
CString csName2 = (*pRow)[1].GetText().cs();
|
||
CString csDn = (*pRow)[2].GetText().cs();
|
||
CString csI = (*pRow)[3].GetText().cs();
|
||
if(csName1 == _T(""))
|
||
break;
|
||
csName1 = csName1 + _T("-") + csName2;
|
||
if(fabs(_tstof(csI)) < 1e-9){
|
||
MessageBox(_T("雨水计算，坡度不能为0！"));
|
||
return;
|
||
}
|
||
SSearchPipeList *pList = GetPipeNodeByName(m_pListAll, csName1, NULL);
|
||
if(pList != NULL){
|
||
pList->m_iDn = _ttoi(csDn);
|
||
pList->m_nI = _tstof(csI);
|
||
}
|
||
}
|
||
|
||
// zxl 2013.12.31 add
|
||
m_mapMeratialN.clear();
|
||
for(m_gridN.MoveToFirst(); !m_gridN.IsOut(); m_gridN.MoveToNext())
|
||
{
|
||
WDGridRow *pRow = m_gridN.CurRow();
|
||
CString csName = (*pRow)[0].GetText().cs();
|
||
CString csN = (*pRow)[1].GetText().cs();
|
||
m_mapMeratialN.insert(std::make_pair(csName, _tstof(csN)));
|
||
}
|
||
ResetList(m_pListAll);
|
||
CalcRainNode(m_pNodeLong, 1); //主干线计算
|
||
m_bCalc = TRUE;
|
||
m_bReCalc = TRUE;
|
||
|
||
SSearchPipeList *pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
while(pNodeNext){
|
||
CalcRainNode(pNodeNext, 1);//支路计算
|
||
pNodeNext = GetNextCalcWell(m_pListAll, NULL);
|
||
}
|
||
|
||
UpdateGrid();
|
||
}
|
||
|
||
//《给水排水设计手册》红皮 P436 满流
|
||
double CalcPipeV(double nDn, double nI, double n)
|
||
{
|
||
double nTemp = 1 / n;
|
||
nI = pow(nI, 0.5);
|
||
double nR = pow(0.25*nDn, 2.0/3.0);
|
||
return nTemp*nI*nR;
|
||
}
|
||
|
||
|
||
//《给水排水设计手册》红皮 P436 满流
|
||
double CalcPipeVByQ(double nPipeQ, double nDn)
|
||
{
|
||
double nRet(-1);
|
||
|
||
double nRadius = nDn / 1000 / 2;
|
||
double dArea = PI * nRadius * nRadius;
|
||
nRet = nPipeQ / dArea / 1000;
|
||
return nRet;
|
||
|
||
}
|
||
|
||
//计算管道泄流量
|
||
double CalcDesignPipeQ(double nDn, double nI, double n)
|
||
{
|
||
double nRet(-1);
|
||
double dV = CalcPipeV(nDn/ 1000, nI/ 1000, n);
|
||
double nRadius = nDn / 1000 / 2;
|
||
double dArea = PI * nRadius * nRadius;
|
||
nRet = dArea*dV*1000;
|
||
return nRet;
|
||
}
|
||
|
||
|
||
//《给水排水设计手册》红皮 P436 满流
|
||
double CalcPipeV(double nQ, double nDn, double nI, double n)
|
||
{
|
||
double nRet(-1);
|
||
double nTemp = 1 / n;
|
||
nI = pow(nI, 0.5);
|
||
double nR = pow(0.25*nDn, 2.0/3.0);
|
||
nRet = nTemp*nI*nR;
|
||
double nTempQ = (0.25*nDn*nDn*PI)*nRet;
|
||
if(nTempQ < nQ && nDn < 2.750)
|
||
return -1;
|
||
return nRet;
|
||
// double nRet(-1);
|
||
// double nArea(0);
|
||
// nArea = PI/4.0 * nDn * nDn;
|
||
// nRet = nQ / nArea;
|
||
// return nRet;
|
||
}
|
||
|
||
|
||
//主计算模块
|
||
// mode == 0 初算 计算管径
|
||
// mode == 1 复算 不计算管径, 从图上读管径
|
||
void CCalcRainWellDlg::CalcRainNode(SSearchPipeList *pListLast, int mode)
|
||
{
|
||
double A = _tstof(m_csA);
|
||
double B = _tstof(m_csB);
|
||
double C = _tstof(m_csC);
|
||
double D = _tstof(m_csN);
|
||
double P = m_nP;
|
||
|
||
|
||
if(m_csCity == _T("成都"))
|
||
{
|
||
B = pow(m_nP, 0.231) * 12.8;
|
||
}
|
||
else if(m_csCity == _T("贵阳"))
|
||
{
|
||
B = pow(m_nP, 0.031) * 9.35;
|
||
}
|
||
|
||
|
||
double nM = m_dM; //折减系数，暗管折减系数m=2，明渠折减系数m＝l.2; 这里都认为是2
|
||
AcDbObjectId id = NULL;
|
||
id = pListLast->m_ID;
|
||
if(pListLast->m_iType == 3 || pListLast->m_iType == 1){
|
||
double nTime = pListLast->m_nLost;
|
||
double nFactor = (double)(pListLast->m_iNum) / 1000;
|
||
if(nFactor < 0.0001)
|
||
nFactor = m_nFactor;
|
||
if(nTime < 0.001){ //不是起始井
|
||
int len = pListLast->m_lstNode.Length();
|
||
for(int i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListLast->m_lstNode[i];
|
||
if(pList->m_nLost > 0){
|
||
nTime = pList->m_nLost;
|
||
pListLast->m_nLost = nTime;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
if(nTime < 0.001){ //是起始井, 但不是最远，默认随最远井
|
||
nTime = m_dTime;
|
||
if(pListLast->m_nLost < 1)
|
||
pListLast->m_nLost = nTime;
|
||
}
|
||
|
||
double nArea = pListLast->m_nStartPress;
|
||
double i = (log10(P) * C + 1) * A;
|
||
i = i / pow((nTime + B), D);
|
||
double q = i * 10000 / 60; //把mm/min -> 升/秒/公顷
|
||
double nQ = q * nFactor * nArea / 10000;
|
||
if(nArea < 0.001)
|
||
nQ = -1;
|
||
pListLast->m_nPipeQ = nQ;
|
||
pListLast->m_nSpare = q; //暴雨强度 2007－12－13 应蒋工要求加入
|
||
}
|
||
else if(pListLast->m_iType == 0){
|
||
double nRadius(0), nPipeLen(0), nI(0);
|
||
|
||
int iDn(0);
|
||
double nN(0.009);//粗糙系数
|
||
OPENOBJ_BEGIN(id, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
nPipeLen = pPipe->Length();
|
||
// if(!DocGetMeterUnitDraw())
|
||
// nPipeLen = nPipeLen/1000;
|
||
CString csMat = GetPipeMaterialByIdx(pPipe->GetMaterial());
|
||
// zxl 2013.12.30 modify
|
||
// if(csMat.Find(_T("混凝土管")) > -1) //《给排水设计手册》 P764 满流
|
||
// nN = 0.013;
|
||
// else if(csMat.Find(_T("铸铁")) > -1)
|
||
// nN = 0.013;
|
||
// else if(csMat.Find(_T("钢")) > -1)
|
||
// nN = 0.012;
|
||
// else if(csMat.Find(_T("PVC")) > -1 || csMat.Find(_T("塑料")) > -1)
|
||
// nN = 0.009;
|
||
std::map<CString, double>::iterator it = m_mapMeratialN.find(csMat);
|
||
if (it != m_mapMeratialN.end())
|
||
{
|
||
nN = it->second;
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
if(pListLast->m_lstNode.Length() == 1){
|
||
SSearchPipeList *pList = pListLast->m_lstNode[0]; //得到后节点
|
||
double nPipeQ = pList->m_nPipeQ;
|
||
double nV(0), nI(0);
|
||
if(mode == 0){ //初算
|
||
iDn = GetFirstPipeDnByQ(nPipeQ, nN, nI, nV);
|
||
nI = nI * 1000;
|
||
int iDnBig(iDn);
|
||
//检查前管的管径是否大于本管，如果大于则本管也按大的管径 2010-5-11 sr 增加这个考虑 王峻提
|
||
if(pList->m_lstNode.Length() > 0){
|
||
for(int mm=0;mm< pList->m_lstNode.Length();mm++){
|
||
SSearchPipeList *pList4 = pList->m_lstNode[mm];
|
||
if(pList4->m_iDn > iDnBig)
|
||
iDnBig = pList4->m_iDn;
|
||
}
|
||
if(iDnBig > iDn){
|
||
iDn = iDnBig;
|
||
nRadius = (double)iDn / 1000;
|
||
nV = CalcPipeV(nRadius, nI/ 1000, nN);
|
||
}
|
||
}
|
||
|
||
|
||
}
|
||
else if(mode == 1){ //复算1
|
||
//以下是7.5的程序
|
||
// iDn = pListLast->m_iDn;
|
||
// nI = pListLast->m_nI;
|
||
// double nRadius = (double)iDn / 1000;
|
||
// nV = CalcPipeV(nRadius, nI/ 1000, nN);
|
||
|
||
//以下是7.0的程序，蒋工认为管径增加后，流速复算不能变大
|
||
// iDn = pListLast->m_iDn;
|
||
// nI = pListLast->m_nI;
|
||
// double nV2(0);
|
||
// int iDnTmp = GetFirstPipeDnByQ2(nPipeQ, nN, nI, nV2);
|
||
// if(iDnTmp == iDn){
|
||
// nRadius = (double)iDn / 1000;
|
||
// nV = CalcPipeV(nRadius, nI/ 1000, nN);
|
||
// }
|
||
// else{
|
||
// //计算流量的公式2：《给排水设计手册》P766 Q = V*A (A = PI/4*d*d)
|
||
// //假定复算2得到的管径是满流管径，nV2也就是满流流速
|
||
// //满流情况比非满流情况，计算得出非满流的流速V
|
||
// nV = ((double)iDnTmp/(double)iDn)*((double)iDnTmp/(double)iDn)*nV2;
|
||
// }
|
||
|
||
//2008－1－10 蒋工推荐方法：V=Q/A A仍然是满流
|
||
iDn = pListLast->m_iDn;
|
||
nI = pListLast->m_nI;
|
||
nV = CalcPipeVByQ(nPipeQ, (double)iDn);
|
||
|
||
// double dCalcQ = CalcDesignPipeQ((double)iDn, nI, nN);
|
||
// double dTmp = fabs(dCalcQ - nPipeQ);
|
||
// if(dTmp > nPipeQ*0.2){
|
||
// // nV = CalcPipeV((double)iDn/ 1000, nI/ 1000, nN);
|
||
// }
|
||
double nV2(0);
|
||
int iDnTmp = GetFirstPipeDnByQ2(nPipeQ, nN, nI, nV2);
|
||
// if(iDnTmp == iDn){
|
||
nRadius = (double)iDn / 1000;
|
||
nV = CalcPipeV(nRadius, nI/ 1000, nN);
|
||
// }
|
||
|
||
|
||
|
||
}
|
||
else if(mode == 2){ //复算2
|
||
nI = pListLast->m_nI;
|
||
iDn = GetFirstPipeDnByQ2(nPipeQ, nN, nI, nV);
|
||
|
||
int iDnBig(iDn);
|
||
//检查前管的管径是否大于本管，如果大于则本管也按大的管径
|
||
if(pList->m_lstNode.Length() > 0){
|
||
for(int mm=0;mm< pList->m_lstNode.Length();mm++){
|
||
SSearchPipeList *pList4 = pList->m_lstNode[mm];
|
||
if(pList4->m_iDn > iDnBig)
|
||
iDnBig = pList4->m_iDn;
|
||
}
|
||
if(iDnBig > iDn){
|
||
iDn = iDnBig;
|
||
nRadius = (double)iDn / 1000;
|
||
nV = CalcPipeV(nRadius, nI/ 1000, nN);
|
||
}
|
||
}
|
||
}
|
||
pListLast->m_nPipeQ = nPipeQ;
|
||
pListLast->m_iDn = iDn;
|
||
pListLast->m_nI = nI;
|
||
pListLast->m_nV = nV;
|
||
double nTime = nPipeLen / nV / 60 * nM + pList->m_nLost;
|
||
pListLast->m_nLost = nTime;
|
||
pListLast->m_nDang = pList->m_nDang;
|
||
|
||
}
|
||
}
|
||
|
||
if(pListLast->m_pPrevious){
|
||
CalcRainNode(pListLast->m_pPrevious, mode);
|
||
}
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnButtonWord()
|
||
{
|
||
SSearchPipeList *pNodeLong = m_pNodeLong;
|
||
DList<SSearchPipeList> lstNode, lstWell;
|
||
while(pNodeLong){
|
||
if(pNodeLong->m_iType == 0 || pNodeLong->m_iType == 3){
|
||
SSearchPipeList *pNodeNew = new SSearchPipeList();
|
||
pNodeNew->m_iDn = pNodeLong->m_iDn;
|
||
pNodeNew->m_ID = pNodeLong->m_ID;
|
||
pNodeNew->m_csName = pNodeLong->m_csName;
|
||
pNodeNew->m_nLength = pNodeLong->m_nLength;
|
||
pNodeNew->m_nPipeQ = pNodeLong->m_nPipeQ;
|
||
pNodeNew->m_nDang = pNodeLong->m_nDang;
|
||
pNodeNew->m_nStartPress = pNodeLong->m_nStartPress;
|
||
pNodeNew->m_nI = pNodeLong->m_nI;
|
||
pNodeNew->m_nV = pNodeLong->m_nV;
|
||
pNodeNew->m_nLost = pNodeLong->m_nLost;
|
||
pNodeNew->m_nSpare = pNodeLong->m_nSpare;
|
||
if(pNodeLong->m_iType == 3)
|
||
lstWell.Append(pNodeNew);
|
||
else
|
||
lstNode.Append(pNodeNew);
|
||
}
|
||
if(pNodeLong->m_pPrevious)
|
||
pNodeLong = pNodeLong->m_pPrevious;
|
||
else
|
||
break;
|
||
}
|
||
GetOtherWellNode(m_pListAll, lstWell);
|
||
|
||
ImportRainCalcWord(lstNode, lstWell, *this);
|
||
|
||
}
|
||
|
||
//void CCalcRainWellDlg::OnButtonDim()
|
||
//{
|
||
// UpdateData(TRUE);
|
||
// BeginEditorCommand();
|
||
//
|
||
// XPoint ptLow, ptUp;
|
||
// m_ssAll.GetExtend(ptLow, ptUp);
|
||
// AssureInCurrentView(ptLow, ptUp);
|
||
//
|
||
// TCHAR szTmp[32];
|
||
// DimRainCalcResult(m_pListAll);
|
||
// actrTransactionManager->flushGraphics(); //acad 刷新
|
||
//
|
||
// ads_getstring(NULL, _T("\n数据已经赋回图面，n按任意键返回对话框:<返回>"), szTmp);
|
||
//
|
||
// CompleteEditorCommand();
|
||
//
|
||
//}
|
||
|
||
//extern void UpdateMultDim();
|
||
|
||
extern bool g_bPipeShow; // cet 2012.1.9 add 图面赋值控制变量
|
||
extern int g_nSelType; // cet 2012.1.9 add 图面赋值控制变量
|
||
void CCalcRainWellDlg::OnButtonDim()
|
||
{
|
||
if(!m_bCalc)
|
||
return;
|
||
UpdateData(TRUE);
|
||
BeginEditorCommand();
|
||
XPoint ptLow, ptUp;
|
||
m_ssAll.GetExtend(ptLow, ptUp);
|
||
AssureInCurrentView(ptLow, ptUp);
|
||
TCHAR szTmp[32];
|
||
// cet 2012.1.9 add
|
||
g_bPipeShow = false;
|
||
g_nSelType = -1;
|
||
DimRainCalcResult(m_pListAll);
|
||
acedRedraw(0,0); // cet 2012.1.9 add 刷新清除显示管线时的X
|
||
UpdateMultDim();
|
||
actrTransactionManager->flushGraphics(); //acad 刷新
|
||
ads_getstring(NULL, _T("\n数据已经赋回图面，按任意键返回对话框:<返回>"), szTmp);
|
||
CompleteEditorCommand();
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnButtonNewCity()
|
||
{
|
||
CTemporaryResourceOverride vTemp;
|
||
CRainNewCityDlg dlg;
|
||
dlg.m_csProvince = m_csProvince;
|
||
if(dlg.DoModal() != IDOK || dlg.m_csCity == _T("") || dlg.m_csA == _T("") || dlg.m_csB == _T("") || dlg.m_csC == _T("") || dlg.m_csN == _T(""))
|
||
return;
|
||
XStringList lstCity;
|
||
GetAllCityByProvince(m_csProvince, lstCity);
|
||
for(int i=0;i<lstCity.Length();i++){
|
||
CString csTmp = lstCity[i];
|
||
if(csTmp == dlg.m_csCity)
|
||
return;
|
||
}
|
||
|
||
|
||
XString fullFile;
|
||
if(!FindFile(_T("raincity.dbf"), fullFile)) {
|
||
MessageBox(_T("对不起，没有发现raincity.dbf文件！"));
|
||
return;
|
||
}
|
||
CodeBase db;
|
||
XDbfTable *pTable = db.Open(fullFile);
|
||
if(!pTable)
|
||
return;
|
||
pTable->AppendBegin();
|
||
SET_FIELD(pTable, _T("province"), (const TCHAR*)m_csProvince);
|
||
SET_FIELD(pTable, _T("city"), (const TCHAR*)dlg.m_csCity);
|
||
SET_FIELD(pTable, _T("A"), (const TCHAR*)dlg.m_csA);
|
||
SET_FIELD(pTable, _T("B"), (const TCHAR*)dlg.m_csB);
|
||
SET_FIELD(pTable, _T("C"), (const TCHAR*)dlg.m_csC);
|
||
SET_FIELD(pTable, _T("D"), (const TCHAR*)dlg.m_csN);
|
||
pTable->AppendEnd();
|
||
OnSelchangeListProvince();
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnButtonP()
|
||
{
|
||
// zxl 2011.08.16 modify 更改显示方式
|
||
// UpdateData(TRUE);
|
||
// CString csTmp;
|
||
// if(m_csCity == _T("北京"))
|
||
// csTmp = _T("一般地形居住区或城市区间道路：0.33~0.5\n 不利地形的居住区域或一般城市道路：0.5~1\n城市干道、中心区1~2\n特殊重要地区或盆地3~10\n立交路口1~3");
|
||
// else if(m_csCity == _T("上海"))
|
||
// csTmp = _T("市区：0.5~1\n 工业区的生活区：1\n厂区一般车间：2\n大型重要车间：5");
|
||
// else if(m_csCity == _T("无锡"))
|
||
// csTmp = _T("小巷：0.33\n 一般：0.5\n新建区：1");
|
||
// else if(m_csCity == _T("常州"))
|
||
// csTmp = _T("常州：1");
|
||
// else if(m_csCity == _T("南京"))
|
||
// csTmp = _T("南京：0.5~1");
|
||
// else if(m_csCity == _T("杭州"))
|
||
// csTmp = _T("杭州：0.33~1");
|
||
// else if(m_csCity == _T("宁波"))
|
||
// csTmp = _T("宁波：0.5~1");
|
||
// else if(m_csCity == _T("广州"))
|
||
// csTmp = _T("1~2，主要地区2~20");
|
||
// else if(m_csCity == _T("长沙"))
|
||
// csTmp = _T("长沙：0.5~1");
|
||
// else if(m_csCity == _T("成都"))
|
||
// csTmp = _T("成都：1");
|
||
// else if(m_csCity == _T("重庆"))
|
||
// csTmp = _T("小面积小区：1~2\n面积(30~50)×100平方米小区：5\n大面积或重要地区：5~10");
|
||
// else if(m_csCity == _T("天津"))
|
||
// csTmp = _T("天津：1");
|
||
// else if(m_csCity == _T("贵阳"))
|
||
// csTmp = _T("贵阳：3");
|
||
// else if(m_csCity == _T("哈尔滨"))
|
||
// csTmp = _T("哈尔滨：0.5~1");
|
||
// else if(m_csCity == _T("吉林"))
|
||
// csTmp = _T("吉林：1");
|
||
// else if(m_csCity == _T("营口"))
|
||
// csTmp = _T("郊区：0.5, 市区：1");
|
||
// else if(m_csCity == _T("白城"))
|
||
// csTmp = _T("白城：1");
|
||
// else if(m_csCity == _T("兰州"))
|
||
// csTmp = _T("兰州：0.5~1");
|
||
// else if(m_csCity == _T("西宁"))
|
||
// csTmp = _T("西宁：0.33~0.5");
|
||
// else if(m_csCity == _T("西安"))
|
||
// csTmp = _T("西安：1~3");
|
||
// else if(m_csCity == _T("唐山"))
|
||
// csTmp = _T("唐山：1");
|
||
// else if(m_csCity == _T("保定"))
|
||
// csTmp = _T("保定：1~2");
|
||
// else if(m_csCity == _T("昆明"))
|
||
// csTmp = _T("昆明：0.5");
|
||
// else
|
||
// return;
|
||
// AfxMessageBox(csTmp);
|
||
|
||
RBList rbCmd=ads_buildlist(RTSTR, _T("IShowRecurCyle"), NULL);
|
||
resbuf *rbRes=NULL;
|
||
if(ads_invoke(rbCmd, &rbRes)==RTNORM && rbRes)
|
||
{
|
||
ads_relrb(rbRes);
|
||
return;
|
||
}
|
||
return;
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnSelchangeListProvince()
|
||
{
|
||
UpdateData(TRUE);
|
||
XStringList lstCity;
|
||
GetAllCityByProvince(m_csProvince, lstCity);
|
||
m_listCity.ResetContent();
|
||
for(int i=0;i<lstCity.Length();i++){
|
||
CString csTmp = lstCity[i];
|
||
m_listCity.AddString(csTmp);
|
||
}
|
||
|
||
m_listCity.SetCurSel(0);
|
||
UpdateData(FALSE);
|
||
OnSelchangeListCity();
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnSelchangeListCity()
|
||
{
|
||
UpdateData(TRUE);
|
||
|
||
CodeBase db;
|
||
db.read_only = 1;
|
||
XString fullFile;
|
||
if(!FindFile(_T("raincity.dbf"), fullFile)) {
|
||
AfxMessageBox(_T("对不起，没有发现raincity.dbf文件！"));
|
||
return;
|
||
}
|
||
XDbfTable *pTable = db.Open(fullFile);
|
||
if(!pTable)
|
||
return;
|
||
CString csTmp, csCity;
|
||
XStringList lstProvince;
|
||
for(pTable->MoveFirst();!pTable->IsEOF();pTable->MoveNext()){
|
||
GET_FIELD(pTable, _T("province"), csTmp);
|
||
GET_FIELD(pTable, _T("city"), csCity);
|
||
if(_tcsicmp(csTmp, m_csProvince) == 0 && _tcsicmp(csCity, m_csCity) == 0){
|
||
GET_FIELD(pTable, _T("A"), m_csA);
|
||
GET_FIELD(pTable, _T("B"), m_csB);
|
||
GET_FIELD(pTable, _T("C"), m_csC);
|
||
GET_FIELD(pTable, _T("D"), m_csN);
|
||
|
||
if(m_csCity == _T("成都"))
|
||
{
|
||
m_csB = _T("12.8P");
|
||
m_csN2 = _T("0.231");
|
||
}
|
||
else if(m_csCity == _T("贵阳"))
|
||
{
|
||
m_csB = _T("9.35P");
|
||
m_csN2 = _T("0.031");
|
||
}
|
||
else
|
||
m_csN2 = _T("");
|
||
|
||
UpdateData(FALSE);
|
||
return;
|
||
}
|
||
}
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnButtonFactor()
|
||
{
|
||
// cet 2010.9.25 modify
|
||
// CString csTmp;
|
||
// csTmp = _T("径 流 系 数\n\n");
|
||
// csTmp += _T("地面种类 ψ\n");
|
||
// csTmp += _T("各种屋面、混凝土和沥青路面 0.9\n");
|
||
// csTmp += _T("大块石铺砌路面和沥青表面处理的碎石路面 0.6\n");
|
||
// csTmp += _T("级配碎石路面 0.45\n");
|
||
// csTmp += _T("非铺砌土地面 0.3\n");
|
||
// csTmp += _T("公园或绿地 0.15\n\n");
|
||
// csTmp += _T("综 合 径 流 系 数\n");
|
||
// csTmp += _T("市区 0.5 ~ 0.8\n");
|
||
// csTmp += _T("郊区 0.4 ~ 0.6\n");
|
||
// AfxMessageBox(csTmp);
|
||
|
||
RBList rbCmd=ads_buildlist(RTSTR, _T("IShowRunoffQuotie"), NULL);
|
||
resbuf *rbRes=NULL;
|
||
if(ads_invoke(rbCmd, &rbRes)==RTNORM && rbRes)
|
||
{
|
||
ads_relrb(rbRes);
|
||
return;
|
||
}
|
||
return;
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnButtonHide()
|
||
{
|
||
long idx = m_grid.GetCurRowIndex();
|
||
CString csName1;
|
||
if(idx > -1){
|
||
WDGridRow *pRow = &m_grid.GetRow(idx);
|
||
if(pRow)
|
||
csName1 = (*pRow)[0].GetText();
|
||
}
|
||
if(csName1 != _T("")){
|
||
RBList rbMask(RTDXF0, _T("ATS_WELL"), NULL);
|
||
PickSet ss(SS_FREE);
|
||
ss.Get(_T("X"), NULL, NULL, rbMask);
|
||
long len = ss.Length();
|
||
for(long i=0;i<len;i++){
|
||
Entity ent = ss[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbWell, pEquip);
|
||
if(pEquip){
|
||
CString csName = pEquip->GetWellName();
|
||
if(_tcsicmp(csName, csName1) == 0){
|
||
XPoint ptCen = pEquip->GetLocation();
|
||
arxZoomTo(ptCen, 10*pEquip->GetPScale(), 10*pEquip->GetPScale());
|
||
double nDist = pEquip->GetPScale();
|
||
XPoint p1, p2, p3, p4;
|
||
ads_polar(ptCen, 0, nDist, p1);
|
||
ads_polar(p1, PI/2, nDist, p1);
|
||
ads_polar(ptCen, PI, nDist, p2);
|
||
ads_polar(p2, PI/2, -nDist, p2);
|
||
ads_grdraw(p1, p2, 2, 0);
|
||
ads_polar(ptCen, PI/2, nDist, p3);
|
||
ads_polar(p3, PI, nDist, p3);
|
||
ads_polar(ptCen, PI/2, -nDist, p4);
|
||
ads_polar(p4, 0, nDist, p4);
|
||
ads_grdraw(p3, p4, 2, 0);
|
||
break;
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
HideDialog(this, TRUE);
|
||
TCHAR szTmp[256];
|
||
ads_getstring(NULL, _T("\n按任意键返回对话框:<返回>"), szTmp);
|
||
HideDialog(this, FALSE);
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnDestroy()
|
||
{
|
||
CAcUiDialog::OnDestroy();
|
||
m_wndToolTip.DestroyWindow();
|
||
}
|
||
|
||
BOOL CCalcRainWellDlg::PreTranslateMessage(MSG* pMsg)
|
||
{
|
||
if (pMsg->message >= WM_MOUSEFIRST &&
|
||
pMsg->message <= WM_MOUSELAST)
|
||
{
|
||
MSG msg;
|
||
::CopyMemory(&msg, pMsg, sizeof(MSG));
|
||
HWND hWndParent = ::GetParent(msg.hwnd);
|
||
if (msg.hwnd)
|
||
{
|
||
m_wndToolTip.RelayEvent(&msg);
|
||
}
|
||
}
|
||
return CAcUiDialog::PreTranslateMessage(pMsg);
|
||
}
|
||
|
||
void CCalcRainWellDlg::OnBtnCalcTable()
|
||
{
|
||
//前期数据准备
|
||
SSearchPipeList *pNodeLong = m_pNodeLong;
|
||
DList<SSearchPipeList> lstNode, lstWell;
|
||
while(pNodeLong){
|
||
if(pNodeLong->m_iType == 0 || pNodeLong->m_iType == 3){
|
||
SSearchPipeList *pNodeNew = new SSearchPipeList();
|
||
pNodeNew->m_iDn = pNodeLong->m_iDn;
|
||
pNodeNew->m_ID = pNodeLong->m_ID;
|
||
pNodeNew->m_csName = pNodeLong->m_csName;
|
||
pNodeNew->m_nLength = pNodeLong->m_nLength;
|
||
pNodeNew->m_nPipeQ = pNodeLong->m_nPipeQ;
|
||
pNodeNew->m_nDang = pNodeLong->m_nDang;
|
||
pNodeNew->m_nStartPress = pNodeLong->m_nStartPress;
|
||
pNodeNew->m_nI = pNodeLong->m_nI;
|
||
pNodeNew->m_nV = pNodeLong->m_nV;
|
||
pNodeNew->m_nLost = pNodeLong->m_nLost;
|
||
pNodeNew->m_nSpare = pNodeLong->m_nSpare;
|
||
if(pNodeLong->m_iType == 3)
|
||
lstWell.Append(pNodeNew);
|
||
else
|
||
lstNode.Append(pNodeNew);
|
||
}
|
||
if(pNodeLong->m_pPrevious)
|
||
pNodeLong = pNodeLong->m_pPrevious;
|
||
else
|
||
break;
|
||
}
|
||
GetOtherWellNode(m_pListAll, lstWell);
|
||
|
||
//绘制计算表
|
||
DrawCalcTable(lstNode,lstWell);
|
||
}
|
||
|
||
//绘制计算表
|
||
void CCalcRainWellDlg::DrawCalcTable(DList<SSearchPipeList> &lstNode, DList<SSearchPipeList> &lstWell)
|
||
{
|
||
HideDialog(this,TRUE);
|
||
|
||
XPoint pt;
|
||
int ret = XGetPoint(NULL, _T("点取位置\n"), pt);
|
||
if(ret != RTNORM) {
|
||
HideDialog(this,FALSE);
|
||
return;
|
||
}
|
||
|
||
pt = Ucs2Wcs(pt);
|
||
int nColNum = 16;
|
||
int nRow = m_grid.GetRowNum();
|
||
|
||
if (nRow < 1)
|
||
{
|
||
HideDialog(this,FALSE);
|
||
return;
|
||
}
|
||
|
||
//删除空行
|
||
int nCount = m_grid.GetRowNum() - 1;
|
||
CString sEndText = m_grid.GetCell(nCount,0).GetText().cs();
|
||
while (sEndText.IsEmpty() && nCount >= 0)
|
||
{
|
||
nRow--;
|
||
nCount--;
|
||
if (nCount < 0)
|
||
break;
|
||
sEndText = m_grid.GetCell(nCount,0);
|
||
}
|
||
int nTitleLen = 3;
|
||
nRow += nTitleLen; //加上3行标题
|
||
|
||
double nTextSize(4), nTableHeight(7),dTitleHeight(15); //字高,表高,字宽高比
|
||
CString csDimStyle = _T("_TCH_DIM");//字型
|
||
InitTextStyle(csDimStyle);
|
||
AcDbObjectId idTextStyle = NULL;
|
||
idTextStyle = GetTextStyleId(csDimStyle);
|
||
if (!idTextStyle)
|
||
{
|
||
HideDialog(this,FALSE);
|
||
return;
|
||
}
|
||
|
||
TDbSheet *pSheet = new TDbSheet;
|
||
ASSERT(pSheet != NULL);
|
||
InitLayer(LAY_TEXT);
|
||
pSheet->setLayer(LAY_TEXT);
|
||
|
||
//初始化表格属性
|
||
TGridStyle gridStyle;
|
||
gridStyle.SetOverrideAll(TRUE);
|
||
gridStyle.SetTextHeight(nTextSize);
|
||
gridStyle.SetTextStyleId(idTextStyle);
|
||
gridStyle.SetHorMode(AcDb::kTextCenter);
|
||
gridStyle.SetVerMode(AcDb::kTextVertMid);
|
||
pSheet->SetRotation(Ucs2Wcs(0.0));
|
||
pSheet->SetGridStyle(gridStyle);
|
||
pSheet->SetRowHeight(nTableHeight);
|
||
|
||
pSheet->SetTitleHeight(dTitleHeight);
|
||
gridStyle.SetTextHeight(nTextSize+3);
|
||
pSheet->SetTitleGridStyle(gridStyle);
|
||
pSheet->SetTitleText(_T("雨水计算表"));
|
||
|
||
TSheetTitle &title=pSheet->GetTitle();
|
||
TDividerStyle &dStyle=title.GetDividerStyle();
|
||
dStyle.SetDividerFlag(TDividerStyle::kNone);
|
||
|
||
pSheet->InitSheet(nRow, nColNum, nTableHeight, 50);
|
||
|
||
//初始化列
|
||
TSheetColumn column;
|
||
|
||
column.SetWidth(17);
|
||
for (int i = 0; i < nColNum; ++i)
|
||
{
|
||
pSheet->SetColumnAt(i, column);
|
||
}
|
||
column.SetWidth(10);
|
||
pSheet->SetColumnAt(0, column);
|
||
pSheet->SetColumnAt(1, column);
|
||
column.SetWidth(13);
|
||
pSheet->SetColumnAt(5, column);
|
||
pSheet->SetColumnAt(6, column);
|
||
pSheet->SetColumnAt(2, column);
|
||
column.SetWidth(23);
|
||
pSheet->SetColumnAt(3, column);
|
||
pSheet->SetColumnAt(4, column);
|
||
column.SetWidth(26);
|
||
pSheet->SetColumnAt(7, column);
|
||
pSheet->SetColumnAt(8, column);
|
||
|
||
pSheet->MergeCells(0,0,0,5);
|
||
pSheet->MergeCells(0,6,0,11);
|
||
pSheet->MergeCells(0,12,0,15);
|
||
pSheet->MergeCells(1,0,1,1);
|
||
pSheet->MergeCells(1,0,1,1);
|
||
pSheet->MergeCells(1,2,2,2);
|
||
pSheet->MergeCells(1,3,1,4);
|
||
pSheet->MergeCells(1,5,2,5);
|
||
pSheet->MergeCells(1,6,2,6);
|
||
pSheet->MergeCells(1,7,1,9);
|
||
for (int j = 10; j < nColNum; ++j)
|
||
{
|
||
pSheet->MergeCells(1,j,2,j);
|
||
}
|
||
|
||
//标题文字
|
||
TGridCell &cell00=*(*pSheet)(0, 0);
|
||
cell00.SetText(_T("线路"));
|
||
TGridCell &cell01=*(*pSheet)(0, 6);
|
||
cell01.SetText(_T("设计降雨"));
|
||
TGridCell &cell02=*(*pSheet)(0, 12);
|
||
cell02.SetText(_T("设计管渠"));
|
||
TGridCell &cell10=*(*pSheet)(1, 0);
|
||
cell10.SetText(_T("管段"));
|
||
TGridCell &cell20=*(*pSheet)(2, 0);
|
||
cell20.SetText(_T("起点"));
|
||
TGridCell &cell21=*(*pSheet)(2, 1);
|
||
cell21.SetText(_T("终点"));
|
||
TGridCell &cell12=*(*pSheet)(1, 2);
|
||
cell12.SetText(_T("长度L(m)"));
|
||
TGridCell &cell13=*(*pSheet)(1, 3);
|
||
cell13.SetText(_T("面积F"));
|
||
TGridCell &cell23=*(*pSheet)(2, 3);
|
||
cell23.SetText(_T("汇水面积(m2)"));
|
||
TGridCell &cell24=*(*pSheet)(2, 4);
|
||
cell24.SetText(_T("总面积(m2)"));
|
||
TGridCell &cell15=*(*pSheet)(1, 5);
|
||
cell15.SetText(_T("径流系数ψ"));
|
||
TGridCell &cell16=*(*pSheet)(1, 6);
|
||
cell16.SetText(_T("重现期P(年)"));
|
||
|
||
TGridCell &cell17=*(*pSheet)(1, 7);
|
||
cell17.SetText(_T("历时t"));
|
||
|
||
TGridCell &cell27=*(*pSheet)(2, 7);
|
||
cell27.SetText(_T("汇水时间t(min)"));
|
||
TGridCell &cell28=*(*pSheet)(2, 8);
|
||
cell28.SetText(_T("管内时间t(min)"));
|
||
TGridCell &cell29=*(*pSheet)(2, 9);
|
||
cell29.SetText(_T("折减系数m"));
|
||
TGridCell &cell110=*(*pSheet)(1, 10);
|
||
cell110.SetText(_T("暴雨强度q(L/s.ha)"));
|
||
TGridCell &cell111=*(*pSheet)(1, 11);
|
||
cell111.SetText(_T("设计流量Q(L/s)"));
|
||
TGridCell &cell112=*(*pSheet)(1, 12);
|
||
cell112.SetText(_T("直径D(mm)"));
|
||
TGridCell &cell113=*(*pSheet)(1, 13);
|
||
cell113.SetText(_T("坡度i(‰)"));
|
||
TGridCell &cell114=*(*pSheet)(1, 14);
|
||
cell114.SetText(_T("流速v(m/s)"));
|
||
TGridCell &cell115=*(*pSheet)(1, 15);
|
||
cell115.SetText(_T("泄流量Qs(L/s)"));
|
||
|
||
//表格内容
|
||
CString sTmpText;
|
||
for (int k = nTitleLen; k < nRow; ++k)
|
||
{
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,0).GetText();
|
||
TGridCell &cell0=*(*pSheet)(k, 0);
|
||
cell0.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,1).GetText();
|
||
TGridCell &cell1=*(*pSheet)(k, 1);
|
||
cell1.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,4).GetText();
|
||
TGridCell &cell2=*(*pSheet)(k, 2);
|
||
cell2.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,5).GetText();
|
||
TGridCell &cell3=*(*pSheet)(k, 3);
|
||
cell3.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,6).GetText();
|
||
TGridCell &cell4=*(*pSheet)(k, 4);
|
||
cell4.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,7).GetText();
|
||
TGridCell &cell5=*(*pSheet)(k, 5);
|
||
cell5.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,8).GetText();
|
||
TGridCell &cell6=*(*pSheet)(k, 6);
|
||
cell6.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,9).GetText();
|
||
TGridCell &cell7=*(*pSheet)(k, 7);
|
||
cell7.SetText(sTmpText);
|
||
|
||
TGridCell &cell8=*(*pSheet)(k, 8);
|
||
CString sLen = m_grid.GetCell(k - nTitleLen,4).GetText().cs();
|
||
CString sV = m_grid.GetCell(k - nTitleLen,10).GetText().cs();
|
||
sTmpText.Format(_T("%.2f"),_tstof(sLen)/_tstof(sV)/60);
|
||
cell8.SetText(sTmpText);
|
||
|
||
TGridCell &cell9=*(*pSheet)(k, 9);
|
||
sTmpText.Format(_T("%.2f"),m_dM);
|
||
cell9.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,12).GetText();
|
||
TGridCell &cell10=*(*pSheet)(k, 10);
|
||
if (m_bReCalc)
|
||
sTmpText = m_arRainStom[k - nTitleLen];
|
||
cell10.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,11).GetText();
|
||
TGridCell &cell11=*(*pSheet)(k, 11);
|
||
cell11.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,2).GetText();
|
||
TGridCell &cell12=*(*pSheet)(k, 12);
|
||
cell12.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,3).GetText();
|
||
TGridCell &cell13=*(*pSheet)(k, 13);
|
||
cell13.SetText(sTmpText);
|
||
|
||
sTmpText = m_grid.GetCell(k - nTitleLen,10).GetText();
|
||
TGridCell &cell14=*(*pSheet)(k, 14);
|
||
cell14.SetText(sTmpText);
|
||
|
||
TGridCell &cell15=*(*pSheet)(k, 15);
|
||
sV = m_grid.GetCell(k - nTitleLen,10).GetText();
|
||
CString sD = m_grid.GetCell(k - nTitleLen,2).GetText().cs();
|
||
|
||
sTmpText.Format(_T("%.2f"),PI/4*pow(_tstof(sD),2)*_tstof(sV)/1000.0);
|
||
cell15.SetText(sTmpText);
|
||
}
|
||
|
||
pSheet->SetLocation(pt);
|
||
pSheet->AddToCSpace(TRUE);
|
||
actrTransactionManager->flushGraphics(); //acad 刷新
|
||
acedUpdateDisplay();
|
||
|
||
HideDialog(this,FALSE);
|
||
}
|