1723 lines
53 KiB
C++
1723 lines
53 KiB
C++
// RainCalcDlg.cpp : implementation file
|
||
//
|
||
/********************************************************************
|
||
created: 2005/02/23
|
||
created: 23:2:2005 14:48
|
||
filename: f:\tg_dev\telecdev\twtkernal\raincalcdlg.cpp
|
||
file path: f:\tg_dev\telecdev\twtkernal
|
||
file base: raincalcdlg
|
||
file ext: 沈睿
|
||
author:
|
||
|
||
purpose: 室外雨水水力计算
|
||
*********************************************************************/
|
||
|
||
|
||
|
||
#include "stdafx.h"
|
||
#include <DbWell.h>
|
||
#include <MSWORD8.h>
|
||
#include <dbSymbolAnnotate.h>
|
||
#include <xtext.h>
|
||
#include <DbSpace.h>
|
||
#include <DbPool.h>
|
||
#include "CalcSheetDlg.h"
|
||
#include "TWordFormulasTemplet.h"
|
||
|
||
#ifdef _DEBUG
|
||
#define new DEBUG_NEW
|
||
#undef THIS_FILE
|
||
static char THIS_FILE[] = __FILE__;
|
||
#endif
|
||
|
||
extern int DoSerialNumber(SSearchPipeList *pListLast, int idx, BOOL IsMainNode);
|
||
extern double CalcPipeV(double nDn, double nI, double n);
|
||
extern double CalcPipeV(double nQ, double nDn, double nI, double n);
|
||
extern BOOL CheckWellSys(SSearchPipeList *pListAll, BOOL bChcekPool);
|
||
|
||
extern void SetPipeLabelType(TDbPipe *pPipe);
|
||
|
||
//***************************************************************************************************
|
||
// 显示面积
|
||
//***************************************************************************************************
|
||
int g_iShowRainArea = 1;
|
||
|
||
int GetRainAreaState()
|
||
{
|
||
ads_retint(g_iShowRainArea);
|
||
return RTNORM;
|
||
}
|
||
|
||
int SetRainAreaState()
|
||
{
|
||
CString csAreaLayer = LAY_CALC_AREA; // 8.0发行之前要修改过来
|
||
|
||
if(g_iShowRainArea == 1)
|
||
g_iShowRainArea = 0;
|
||
else
|
||
g_iShowRainArea = 1;
|
||
TDocLock vLock;
|
||
RBList rbMask(RTDXF0, _T("ATS_SPACE"), 8, csAreaLayer, NULL);
|
||
PickSet ssAll(SS_FREE);
|
||
ssAll.Get(_T("X"), NULL, NULL, rbMask);
|
||
for(long j=0;j<ssAll.Length();j++){
|
||
Entity ent = ssAll[j];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbSpace, pSpace);
|
||
if(pSpace){
|
||
if(g_iShowRainArea == 1)
|
||
pSpace->setVisibility(AcDb::kVisible);
|
||
else
|
||
pSpace->setVisibility(AcDb::kInvisible);
|
||
pSpace->SetHighlight(TRUE);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
SetLayerOnOff(csAreaLayer, g_iShowRainArea);
|
||
|
||
return GetRainAreaState();
|
||
}
|
||
//
|
||
////***************************************************************************************************
|
||
//// 雨水参数
|
||
////***************************************************************************************************
|
||
//void RainCalcParm()
|
||
//{
|
||
// TCHAR szText[256];
|
||
// if(ads_getstring(0,_T("\n请选择要输入的雨水井参数1:径流系数 2:重现期 3:汇水时间<径流系数>:"), szText) != RTNORM)
|
||
// return;
|
||
// RBList rbMask(RTDXF0, _T("ATS_WELL"), 8, LAY_WELL_RAIN, NULL);
|
||
// PickSet ss(SS_FREE);
|
||
// if(_tcsicmp(szText, _T("3")) == 0){
|
||
// Entity ent;
|
||
// if(SelectEntity(_T("\n请选择起点雨水井:<退出>"), ent, rbMask) != RTNORM)
|
||
// return;
|
||
// OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbWell, pEquip);
|
||
// if(pEquip){
|
||
// int num = pEquip->GetInterfaceNum();
|
||
// if(num != 1){
|
||
// adsout << _T("\n不是起点井！");
|
||
// return;
|
||
// }
|
||
// }
|
||
// OPENOBJ_END();
|
||
// ss+=ent;
|
||
// }
|
||
// else{
|
||
// if(SelectEntities(_T("\n请选择雨水井:<退出>"), ss, rbMask) != RTNORM)
|
||
// return;
|
||
// }
|
||
//
|
||
// CString csTime, csFactor, csP;
|
||
// if(_tcsicmp(szText, _T("2")) == 0){
|
||
// int iP(0);
|
||
// if(ads_getint(_T("\n请给出重现期<默认>:"), &iP) == RTNORM){
|
||
// if(iP > 0.001){
|
||
// csP.Format(_T("%d"), iP);
|
||
// }
|
||
// }
|
||
// }
|
||
// else if(_tcsicmp(szText, _T("3")) == 0){
|
||
// int iTime(0);
|
||
// if(ads_getint(_T("\n请给出汇水时间(5~15分钟)<默认>:"), &iTime) == RTNORM){
|
||
// if(iTime > 0.1){
|
||
// csTime.Format(_T("%d"), iTime);
|
||
// }
|
||
// }
|
||
// }
|
||
// else{
|
||
// double nFactor(-1);
|
||
// if(ads_getreal(_T("\n请给出单井径流系数(如:绿地0.15, 沥青路面0.6等))<默认>:"), &nFactor) == RTNORM){
|
||
// if(nFactor > 0.001){
|
||
// csFactor.Format(_T("%.2f"), nFactor);
|
||
// }
|
||
// }
|
||
// }
|
||
// for(long i=0;i<ss.Length();i++){
|
||
// Entity ent = ss[i];
|
||
// if(csFactor != _T(""))
|
||
// WriteXdata(ent, _T("TG-RAINWELLFACTOR"), csFactor);
|
||
// if(csP != _T(""))
|
||
// WriteXdata(ent, _T("TG-RAINWELLP"), csP);
|
||
// if(csTime != _T(""))
|
||
// WriteXdata(ent, _T("TG-WELLTIME"), csTime);
|
||
// }
|
||
//
|
||
//
|
||
////***************************************************************************************************
|
||
//// 汇流面积
|
||
////***************************************************************************************************
|
||
//
|
||
extern void UpdateRainWellArea();
|
||
// void UpdateRainWellArea()
|
||
// {
|
||
// RBList rbMask2(RTDXF0, _T("ATS_SPACE"), 8, LAY_TWT_OUT, NULL);
|
||
// PickSet ss(SS_FREE);
|
||
// PickSet ssAll(SS_FREE);
|
||
// ssAll.Get(_T("X"), NULL, NULL, rbMask2);
|
||
//
|
||
// int len = ssAll.Length();
|
||
// if(len < 1)
|
||
// return;
|
||
// RBList rbMask(RTDXF0, _T("ATS_WELL"), 8, LAY_WELL_RAIN, NULL);
|
||
// for(long i=0;i<len;i++){
|
||
// Entity ent = ssAll[i];
|
||
// OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbSpace, pDbSpace);
|
||
// if(pDbSpace){
|
||
// XPoly2D poly2d = pDbSpace->m_outline;
|
||
// RBList rbFence = poly2d.Fence();
|
||
// PickSet ss(SS_FREE);
|
||
// ss.Get(_T("CP"), rbFence, NULL, rbMask);
|
||
// int len = ss.Length();
|
||
// if(len == 1){
|
||
// CString csArea;
|
||
// double nArea = pDbSpace->m_nUseArea;
|
||
// if(nArea < 1 && DocGetMeterUnitDraw())
|
||
// nArea = nArea * 1000000;
|
||
// csArea.Format(_T("%.2f"), nArea);
|
||
// WriteXdata(ss[0L], _T("TG-WELLAREA"), csArea);
|
||
// }
|
||
// }
|
||
// OPENOBJ_END();
|
||
// }
|
||
// }
|
||
//
|
||
//
|
||
//void RainWellAreaCmd()
|
||
//{
|
||
// double nArea(0);
|
||
// CString csArea;
|
||
// RBList rbMask(RTDXF0, _T("ATS_WELL"), 8, LAY_WELL_RAIN, NULL);
|
||
// RBList rbMask2(RTDXF0, _T("ATS_SPACE"), 8, LAY_TWT_OUT, NULL);
|
||
// PickSet ss(SS_FREE);
|
||
// PickSet ssAll(SS_FREE);
|
||
// ssAll.Get(_T("X"), NULL, NULL, rbMask2);
|
||
// for(long j=0;j<ssAll.Length();j++){
|
||
// Entity ent = ssAll[j];
|
||
// OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbSpace, pSpace);
|
||
// if(pSpace){
|
||
// pSpace->SetHighlight(TRUE);
|
||
// }
|
||
// OPENOBJ_END();
|
||
// }
|
||
//
|
||
// if(SelectEntities(_T("\n请选择雨水井:<退出>"), ss, rbMask) != RTNORM){
|
||
// return;
|
||
// }
|
||
//
|
||
// long len = ss.Length();
|
||
// if(len == 1){
|
||
// XPoly2D poly2d;
|
||
// if(GetOpenPoly2D(_T("\n请勾绘封闭汇流面积:"), poly2d)!=RTNORM) {
|
||
// int iRet = ads_getreal(_T("\n请给出单井汇流面积(平方米)<退出>:"), &nArea);
|
||
// if(iRet != RTNORM)
|
||
// return;
|
||
// }
|
||
// else{
|
||
// if(!poly2d.IsClosed())
|
||
// poly2d.flag = 1;
|
||
// XPoint ptLoc;
|
||
// CString csName;
|
||
// OPENOBJ_BEGIN(ss[0L], AcDb::kForWrite, TDbWell, pEquip);
|
||
// if(pEquip){
|
||
// ptLoc = pEquip->GetLocation();
|
||
// csName = pEquip->GetWellName();
|
||
// double nScale = pEquip->GetScale();
|
||
// ads_polar(ptLoc, -PI/2, nScale*2, ptLoc);
|
||
// }
|
||
// OPENOBJ_END();
|
||
// if(!DocGetMeterUnitDraw())
|
||
// nArea = AS_SQMETER(poly2d.Area());
|
||
// else
|
||
// nArea = poly2d.Area();
|
||
// adsout << _T("汇流面积=") << nArea << _T("(平方米)\n");
|
||
// TDbSpace *pDbSpace = new TDbSpace();
|
||
// pDbSpace->m_sName = csName + _T("汇流面积");
|
||
// pDbSpace->m_ptLocation = ptLoc;
|
||
// pDbSpace->SetHas3D(FALSE);
|
||
// pDbSpace->SetHighlight(TRUE);
|
||
// pDbSpace->m_outline = poly2d;
|
||
// pDbSpace->m_nUseArea = nArea;
|
||
// pDbSpace->m_nOccuArea = 0;
|
||
// pDbSpace->m_nCeilArea = 0;
|
||
// pDbSpace->m_nWallSurfArea = 0;
|
||
// pDbSpace->m_nExtWallArea = 0;
|
||
// pDbSpace->m_nExtWinArea = 0;
|
||
// pDbSpace->m_nExtDoorArea = 0;
|
||
// pDbSpace->m_nPerimeter = 0;
|
||
// pDbSpace->m_nKickboardLength = 0;
|
||
// pDbSpace->SetShowOutline(TRUE);
|
||
//
|
||
//
|
||
// pDbSpace->SetTextStyleId(InitTextStyle(g_csDimWellStyle));
|
||
// pDbSpace->AddToCSpace(Adesk::kFalse);
|
||
// pDbSpace->setLayer(InitLayer(LAY_TWT_OUT));
|
||
// pDbSpace->close();
|
||
// }
|
||
// }
|
||
// else{
|
||
// int iRet = ads_getreal(_T("\n请给出单井汇流面积(平方米)<退出>:"), &nArea);
|
||
// if(iRet != RTNORM)
|
||
// return;
|
||
// }
|
||
// csArea.Format(_T("%.2f"), nArea);
|
||
// for(long i=0;i<len;i++){
|
||
// Entity ent = ss[i];
|
||
// WriteXdata(ent, _T("TG-WELLAREA"), csArea);
|
||
// }
|
||
//
|
||
//
|
||
//}
|
||
|
||
//***************************************************************************************************
|
||
// 雨水水力
|
||
//***************************************************************************************************
|
||
//extern void GetPipeSpecList(DList<int> &lstSpec, const TCHAR* szMat);
|
||
|
||
|
||
int DoPlusRainDn(int dn, BOOL bPlus)
|
||
{
|
||
int ret(0);
|
||
if(bPlus){ //增大一级管径
|
||
if(dn <= 250)
|
||
ret = 300;
|
||
else if(dn == 300)
|
||
ret = 350;
|
||
else if(dn == 350)
|
||
ret = 400;
|
||
else if(dn == 400)
|
||
ret = 450;
|
||
else if(dn == 450)
|
||
ret = 500;
|
||
else if(dn == 500)
|
||
ret = 600;
|
||
else if(dn == 600)
|
||
ret = 700;
|
||
else if(dn == 700)
|
||
ret = 800;
|
||
else if(dn == 800)
|
||
ret = 900;
|
||
else if(dn == 900)
|
||
ret = 1000;
|
||
else if(dn == 1000)
|
||
ret = 1100;
|
||
else if(dn == 1100)
|
||
ret = 1200;
|
||
else if(dn == 1200)
|
||
ret = 1350;
|
||
else if(dn == 1350)
|
||
ret = 1500;
|
||
else if(dn == 1500)
|
||
ret = 1650;
|
||
else if(dn == 1650)
|
||
ret = 1800;
|
||
else if(dn == 1800)
|
||
ret = 2000;
|
||
else if(dn == 2000)
|
||
ret = 2100;
|
||
else if(dn == 2100)
|
||
ret = 2200;
|
||
else if(dn == 2200)
|
||
ret = 2300;
|
||
else if(dn == 2300)
|
||
ret = 2400;
|
||
else if(dn == 2400)
|
||
ret = 2500;
|
||
else if(dn == 2500)
|
||
ret = 2600;
|
||
else if(dn == 2600)
|
||
ret = 2700;
|
||
else if(dn == 2700)
|
||
ret = 2800;
|
||
else if(dn == 2800)
|
||
ret = 2900;
|
||
else if(dn == 2900)
|
||
ret = 3000;
|
||
else
|
||
ret = 3000;
|
||
}
|
||
else{
|
||
if(dn <= 300)
|
||
ret = 250;
|
||
else if(dn == 350)
|
||
ret = 300;
|
||
else if(dn == 400)
|
||
ret = 350;
|
||
else if(dn == 450)
|
||
ret = 400;
|
||
else if(dn == 500)
|
||
ret = 450;
|
||
else if(dn == 600)
|
||
ret = 500;
|
||
else if(dn == 700)
|
||
ret = 600;
|
||
else if(dn == 800)
|
||
ret = 700;
|
||
else if(dn == 900)
|
||
ret = 800;
|
||
else if(dn == 1000)
|
||
ret = 900;
|
||
else if(dn == 1100)
|
||
ret = 1000;
|
||
else if(dn == 1200)
|
||
ret = 1100;
|
||
else if(dn == 1350)
|
||
ret = 1200;
|
||
else if(dn == 1500)
|
||
ret = 1350;
|
||
else if(dn == 1650)
|
||
ret = 1500;
|
||
else if(dn == 1800)
|
||
ret = 1650;
|
||
else if(dn == 2000)
|
||
ret = 1800;
|
||
else if(dn == 2100)
|
||
ret = 2000;
|
||
else if(dn == 2200)
|
||
ret = 2100;
|
||
else if(dn == 2300)
|
||
ret = 2200;
|
||
else if(dn == 2400)
|
||
ret = 2300;
|
||
else if(dn == 2500)
|
||
ret = 2400;
|
||
else if(dn == 2600)
|
||
ret = 2500;
|
||
else if(dn == 2700)
|
||
ret = 2600;
|
||
else if(dn == 2800)
|
||
ret = 2700;
|
||
else if(dn == 2900)
|
||
ret = 2800;
|
||
else if(dn == 3000)
|
||
ret = 2900;
|
||
}
|
||
|
||
return ret;
|
||
}
|
||
|
||
int GetDnBySpecList(int dn)
|
||
{
|
||
DList<int> lstSpec;
|
||
GetPipeSpecList(lstSpec, _T("钢筋混凝土管"));
|
||
int idx = -1;
|
||
int len = lstSpec.Length();
|
||
for(int j=0;j<lstSpec.Length();j++){
|
||
int iDnTmp = *lstSpec[j];
|
||
if(iDnTmp == dn)
|
||
return dn;
|
||
if(iDnTmp > dn)
|
||
return iDnTmp;
|
||
}
|
||
return dn;
|
||
}
|
||
|
||
int PlusRainDn(int dn, BOOL bPlus)
|
||
{
|
||
DList<int> lstSpec;
|
||
GetPipeSpecList(lstSpec, _T("钢筋混凝土管"));
|
||
int idx = -1;
|
||
int len = lstSpec.Length();
|
||
for(int j=0;j<lstSpec.Length();j++){
|
||
int iDnTmp = *lstSpec[j];
|
||
if(iDnTmp == dn){
|
||
idx = j;
|
||
break;
|
||
}
|
||
if(iDnTmp > dn && bPlus){
|
||
return iDnTmp;
|
||
}
|
||
else if(iDnTmp > dn && !bPlus && j>1){
|
||
iDnTmp = *lstSpec[j-1];
|
||
return iDnTmp;
|
||
}
|
||
}
|
||
|
||
|
||
int ret(dn);
|
||
if(bPlus && idx != len-1)
|
||
ret = *lstSpec[idx+1];
|
||
else if(!bPlus && idx != 0)
|
||
ret = *lstSpec[idx-1];
|
||
return ret;
|
||
}
|
||
|
||
// 根据<<给水排水管网系统>> P55 按充满度为1 进行计算管径
|
||
int GetFirstPipeDnByQ2(double nQ, double nN, double nI, double &nRetV)
|
||
{
|
||
int dn = 300;//小区道路最小是300
|
||
|
||
double dTmp = pow(nQ / 1000.0, 3.0/8.0);
|
||
double dTmp2 = pow(nI / 1000.0, 3.0/16.0);
|
||
dTmp = dTmp / dTmp2 * 0.304 * 1000;
|
||
|
||
|
||
dTmp -= 0.1;
|
||
|
||
if(dTmp < 300)
|
||
dn = 300;
|
||
else if(dTmp < 350)
|
||
dn = 350;
|
||
else if(dTmp < 400)
|
||
dn = 400;
|
||
else if(dTmp < 450)
|
||
dn = 450;
|
||
else if(dTmp < 500)
|
||
dn = 500;
|
||
else if(dTmp < 600)
|
||
dn = 600;
|
||
else if(dTmp < 700)
|
||
dn = 700;
|
||
else if(dTmp < 800)
|
||
dn = 800;
|
||
else if(dTmp < 900)
|
||
dn = 900;
|
||
else if(dTmp < 1000)
|
||
dn = 1000;
|
||
else if(dTmp < 1100)
|
||
dn = 1100;
|
||
else if(dTmp < 1200)
|
||
dn = 1200;
|
||
else if(dTmp < 1350)
|
||
dn = 1350;
|
||
else if(dTmp < 1500)
|
||
dn = 1500;
|
||
else if(dTmp < 1650)
|
||
dn = 1650;
|
||
else if(dTmp < 1800)
|
||
dn = 1800;
|
||
else if(dTmp < 2000)
|
||
dn = 2000;
|
||
else if(dTmp < 2100)
|
||
dn = 2100;
|
||
else if(dTmp < 2200)
|
||
dn = 2200;
|
||
else if(dTmp < 2300)
|
||
dn = 2300;
|
||
else if(dTmp < 2400)
|
||
dn = 2400;
|
||
else if(dTmp < 2500)
|
||
dn = 2500;
|
||
else if(dTmp < 2600)
|
||
dn = 2600;
|
||
else if(dTmp < 2700)
|
||
dn = 2700;
|
||
else
|
||
dn = 2800;
|
||
|
||
|
||
|
||
|
||
double nRadius = (double)dn / 1000;
|
||
nRetV = CalcPipeV(nQ/1000.0, nRadius, nI/1000.0, nN);
|
||
return dn;
|
||
}
|
||
|
||
// 初算管径 已知坡度
|
||
// 已知流量 以及 粗糙系数 根据 流速不能小于 0.6 原则, 给出最大管径
|
||
int GetFirstPipeDnByQ3(double nQ, double nN, double nI, double &nRetV)
|
||
{
|
||
BOOL bMetal = FALSE;
|
||
if(fabs(nN - 0.012) < 0.001 || fabs(nN - 0.013) < 0.001 || fabs(nN - 0.014) < 0.001)
|
||
bMetal = TRUE;
|
||
|
||
//以下数字出自：《给水排水管网系统》P217 主要针对于污水管，所以经验流量×1。5 （污水充满度55％）
|
||
int dn = 300;//小区道路最小是300
|
||
if(nQ < 23.9)
|
||
dn = 300;
|
||
else if(nQ < 39.72*1.8)
|
||
dn = 350;
|
||
else if(nQ < 51.88*1.8)
|
||
dn = 400;
|
||
else if(nQ < 65.66*1.8)
|
||
dn = 450;
|
||
else if(nQ < 88.08*1.8)
|
||
dn = 500;
|
||
else if(nQ < 126.84*1.8)
|
||
dn = 600;
|
||
else if(nQ < 172.65*1.8)
|
||
dn = 700;
|
||
else if(nQ < 222.5*1.8)
|
||
dn = 800;
|
||
else if(nQ < 285.39*1.8)
|
||
dn = 900;
|
||
else if(nQ < 379.11*1.8)
|
||
dn = 1000;
|
||
else if(nQ < 458.72*1.8)
|
||
dn = 1100;
|
||
else if(nQ < 545.92*1.8)
|
||
dn = 1200;
|
||
else if(nQ < 690.93*1.8)
|
||
dn = 1350;
|
||
else if(nQ < 853*1.8)
|
||
dn = 1500;
|
||
else if(nQ < 1032.13*1.8)
|
||
dn = 1650;
|
||
else
|
||
dn = 1800;
|
||
nI = nI / 1000;
|
||
nQ = nQ / 1000;// 把L/S 转化为 M3/S
|
||
double nSlowV = 0.7;
|
||
dn = GetDnBySpecList(dn);
|
||
while(1){
|
||
double nV(0);
|
||
double nRadius = (double)dn / 1000;
|
||
nV = CalcPipeV(nQ, nRadius, nI, nN);
|
||
while(nV < nSlowV || (nV > 10 && bMetal) || (nV > 5 && !bMetal)){
|
||
if(nV > nSlowV)
|
||
dn = PlusRainDn(dn, FALSE);
|
||
else
|
||
dn = PlusRainDn(dn, TRUE);
|
||
nRadius = (double)dn / 1000;
|
||
nV = CalcPipeV(nQ, nRadius, nI, nN);
|
||
if(dn == 250){
|
||
nRetV = nV;
|
||
return dn;
|
||
}
|
||
if(nV < 0){
|
||
dn = PlusRainDn(dn, TRUE);
|
||
nRadius = (double)dn / 1000;
|
||
nV = CalcPipeV(nRadius, nI, nN);
|
||
break;
|
||
}
|
||
}
|
||
nRetV = nV;
|
||
double nTempQ = (0.25*nRadius*nRadius*PI)*nV;
|
||
double nTmp = nTempQ - nQ;
|
||
if(nTempQ < nQ && dn < 3000){
|
||
dn = PlusRainDn(dn, TRUE); //设计流量不够，管径加大一号
|
||
continue;
|
||
}
|
||
if(dn == 300)
|
||
break;
|
||
|
||
//把当前管径小2号，计算设计流量，如果设计流量仍然大于计算流量，就把当前管径小1号
|
||
int iTempDn = PlusRainDn(dn, FALSE);
|
||
iTempDn = PlusRainDn(iTempDn, FALSE);
|
||
double nTempDn = (double)iTempDn / 1000;
|
||
nTempQ = (0.25*nTempDn*nTempDn*PI)*nV;
|
||
if(nTempQ > nQ && dn > 300){
|
||
dn = PlusRainDn(dn, FALSE);
|
||
break;
|
||
}
|
||
else
|
||
break;
|
||
|
||
if(dn == 300)
|
||
break;
|
||
}
|
||
return dn;
|
||
}
|
||
|
||
// 初算管径
|
||
// 已知流量 以及 粗糙系数 根据 流速不能小于 0.6 原则, 给出最大管径
|
||
int GetFirstPipeDnByQ(double nQ, double nN, double &nRetI, double &nRetV)
|
||
{
|
||
BOOL bMetal = FALSE;
|
||
if(fabs(nN - 0.012) < 0.001 || fabs(nN - 0.013) < 0.001 || fabs(nN - 0.014) < 0.001)
|
||
bMetal = TRUE;
|
||
double nTempI = 0.003;
|
||
//以下数字出自：《给水排水管网系统》P217 主要针对于污水管，所以经验流量×1。5 （污水充满度55％）
|
||
int dn = 300;//小区道路最小是300
|
||
if(nQ < 23.9)
|
||
dn = 300;
|
||
// else if(nQ < 39.72*1.8)
|
||
// dn = 350;
|
||
else if(nQ < 51.88*1.8){
|
||
dn = 400;
|
||
nTempI = 0.0025;
|
||
}
|
||
// else if(nQ < 65.66*1.8){
|
||
// dn = 450;
|
||
// nTempI = 0.002;
|
||
// }
|
||
else if(nQ < 88.08*1.8){
|
||
dn = 500;
|
||
nTempI = 0.0015;
|
||
}
|
||
else if(nQ < 126.84*1.8){
|
||
dn = 600;
|
||
nTempI = 0.0015;
|
||
}
|
||
else if(nQ < 172.65*1.8){
|
||
dn = 700;
|
||
nTempI = 0.001;
|
||
}
|
||
else if(nQ < 222.5*1.8){
|
||
dn = 800;
|
||
nTempI = 0.001;
|
||
}
|
||
else if(nQ < 285.39*1.8){
|
||
dn = 900;
|
||
nTempI = 0.001;
|
||
}
|
||
else if(nQ < 379.11*1.8){
|
||
dn = 1000;
|
||
nTempI = 0.001;
|
||
}
|
||
else if(nQ < 458.72*1.8){
|
||
dn = 1100;
|
||
nTempI = 0.001;
|
||
}
|
||
else if(nQ < 545.92*1.8){
|
||
dn = 1200;
|
||
nTempI = 0.0005;
|
||
}
|
||
else if(nQ < 690.93*1.8){
|
||
dn = 1350;
|
||
nTempI = 0.0005;
|
||
}
|
||
else if(nQ < 853*1.8){
|
||
dn = 1500;
|
||
nTempI = 0.0005;
|
||
}
|
||
else if(nQ < 1032.13*1.8){
|
||
dn = 1650;
|
||
nTempI = 0.0005;
|
||
}
|
||
else {
|
||
dn = 1800;
|
||
nTempI = 0.0005;
|
||
}
|
||
nQ = nQ / 1000;// 把L/S 转化为 M3/S
|
||
double nSlowV = 0.7;
|
||
dn = GetDnBySpecList(dn);
|
||
|
||
while(1){
|
||
double nV(0);
|
||
double nI = nTempI - 0.0005;
|
||
double nRadius = (double)dn / 1000;
|
||
while(nV < nSlowV || (nV > 10 && bMetal) || (nV > 5 && !bMetal)){
|
||
nI += 0.0005;
|
||
nV = CalcPipeV(nRadius, nI, nN);
|
||
if(dn == 300 && nRetI > 0.003){
|
||
nI = 0.003;
|
||
nV = CalcPipeV(nRadius, nI, nN);
|
||
}
|
||
}
|
||
nRetI = nI;
|
||
nRetV = nV;
|
||
double nTempQ = (0.25*nRadius*nRadius*PI)*nV;
|
||
double nTmp = nTempQ - nQ;
|
||
if(nTempQ < nQ && dn < 3000){
|
||
int dn2 = dn;
|
||
dn = PlusRainDn(dn2, TRUE); //设计流量不够，管径加大一号
|
||
if(dn == dn2)
|
||
break;
|
||
continue;
|
||
}
|
||
if(dn == 300)
|
||
break;
|
||
|
||
//把当前管径小2号，计算设计流量，如果设计流量仍然大于计算流量，就把当前管径小1号
|
||
int iTempDn = PlusRainDn(dn, FALSE);
|
||
iTempDn = PlusRainDn(iTempDn, FALSE);
|
||
double nTempDn = (double)iTempDn / 1000;
|
||
nTempQ = (0.25*nTempDn*nTempDn*PI)*nV;
|
||
if(nTempQ > nQ && dn > 300){
|
||
dn = PlusRainDn(dn, FALSE);
|
||
if(dn == 300)
|
||
break;
|
||
else
|
||
continue;
|
||
}
|
||
else
|
||
break;
|
||
|
||
if(dn == 300)
|
||
break;
|
||
}
|
||
return dn;
|
||
}
|
||
|
||
|
||
|
||
//计算本节点往后有多少井
|
||
void CalcWellNum(SSearchPipeList *pListAll)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
pListAll->m_iNum = 0;
|
||
if(pListAll->m_iType == 3)
|
||
pListAll->m_iNum = 1;
|
||
ads_name ent;
|
||
acdbGetAdsName(ent, id);
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
CalcWellNum(pList);
|
||
pListAll->m_iNum += pList->m_iNum;
|
||
}
|
||
}
|
||
|
||
extern void ShowPipe(const AcDbObjectId &idPipe);
|
||
extern void AnyKeyReturn(const CString &sTip);
|
||
extern bool HandlePipeDimType(TDbPipe *pPipe, int &nSelType);
|
||
bool g_bPipeShow = false; // cet 2012.1.9 add 图面赋值控制变量
|
||
int g_nSelType = -1; // cet 2012.1.9 add 图面赋值控制变量
|
||
|
||
//将初算结果标注在图中 管径 & 坡度
|
||
void DimRainCalcResult(SSearchPipeList *pListAll)
|
||
{
|
||
BOOL bDrawLabel = false; // cet 2012.1.10 add 管线是否显示标注
|
||
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);
|
||
|
||
//对于接雨水口的支管，不需要标注
|
||
BOOL bIsLink2Gully = FALSE;
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
bDrawLabel = pPipe->IsDrawLabel(); // cet 2012.1.10 add 记录原始设置
|
||
AcDbObjectId idNode1 = pPipe->GetNode(0);
|
||
OPENOBJ_BEGIN(idNode1, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
TCHAR* szLay = pEquip->layer();
|
||
if(_tcsicmp(szLay, LAY_TWT_GULLY) == 0)
|
||
bIsLink2Gully = TRUE;
|
||
delete [] szLay;
|
||
}
|
||
OPENOBJ_END();
|
||
AcDbObjectId idNode2 = pPipe->GetNode(1);
|
||
OPENOBJ_BEGIN(idNode2, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
TCHAR* szLay = pEquip->layer();
|
||
if(_tcsicmp(szLay, LAY_TWT_GULLY) == 0)
|
||
bIsLink2Gully = TRUE;
|
||
delete [] szLay;
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
if(!bIsLink2Gully)
|
||
DoDimPipeDn(ent, pListAll->m_iDn, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
|
||
BOOL bReverse = FALSE;
|
||
if(pListAll->m_pPrevious != NULL){ //得到前一节点
|
||
AcDbObjectId idFront = pListAll->m_pPrevious->m_ID;
|
||
XPoint ptNode;
|
||
OPENOBJ_BEGIN(idFront, AcDb::kForRead, TDbPipeNode, pNode);
|
||
if(pNode){
|
||
ptNode = pNode->GetLocation();
|
||
}
|
||
OPENOBJ_END();
|
||
if(ptStart == ptNode)
|
||
bReverse = TRUE; //如果前一节点位置等于本管线的起点位置,说明管线画反了
|
||
}
|
||
if(pListAll->m_nI > 0){
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
pPipe->SetPipeGradient(pListAll->m_nI/1000);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
// cet 2012.1.10 add 在管线信息更新完毕后设置管线标注以防计算标注信息长度有误
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe != NULL)
|
||
{
|
||
pPipe->EnableDrawLabel(bDrawLabel); // 设置为管线原有标注设置
|
||
if (!pPipe->IsDrawLabel())
|
||
{
|
||
SetPipeLabelType(pPipe);
|
||
}
|
||
else
|
||
{
|
||
g_bPipeShow = HandlePipeDimType(pPipe, g_nSelType);
|
||
}
|
||
|
||
if (static_cast<int>(pPipe->GetSpare()) == -1)
|
||
{
|
||
pPipe->EnableDrawLabel(FALSE);
|
||
}
|
||
else
|
||
{
|
||
pPipe->EnableDrawLabel(TRUE);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
// 显示交叉线
|
||
if(g_bPipeShow)
|
||
{
|
||
ShowPipe(id);
|
||
AnyKeyReturn(_T("\n按任意键继续查找下一段待修改管标注..."));
|
||
}
|
||
}
|
||
else if(pListAll->m_iType == 3){
|
||
if(pListAll->m_pPrevious != NULL){
|
||
ads_name ent;
|
||
acdbGetAdsName(ent, pListAll->m_ID);
|
||
WriteXdata(ent, _T("TG-DIRTWELLQ"), XString(_T("%.2f"), pListAll->m_pPrevious->m_nPipeQ));
|
||
}
|
||
}
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
DimRainCalcResult(pList);
|
||
}
|
||
}
|
||
|
||
//将每个井的汇流面积写入链表
|
||
// m_nDang 记录本井汇流面积
|
||
// m_nStartPress 记录总汇流面积
|
||
// m_iNum 记录径流系数
|
||
BOOL SetWellArea(SSearchPipeList *pListAll, BOOL &bHasArea)
|
||
{
|
||
BOOL bRet = TRUE;
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
if(IsWell(id))
|
||
pListAll->m_iType = 3;
|
||
if(pListAll->m_iType == 3){
|
||
ads_name ent;
|
||
acdbGetAdsName(ent, id);
|
||
CString csArea = ReadXdata(ent, _T("TG-WELLAREA"));
|
||
CString csFactor = ReadXdata(ent, _T("TG-RAINWELLFACTOR"));
|
||
CString csP = ReadXdata(ent, _T("TG-RAINWELLP"));
|
||
CString csTime = ReadXdata(ent, _T("TG-WELLTIME"));
|
||
int iFactor = int(_tstof(csFactor) * 1000);
|
||
pListAll->m_nDang = _tstof(csArea);
|
||
pListAll->m_iNum = iFactor;
|
||
pListAll->m_iSpare = _ttoi(csP);
|
||
if(csTime != _T("") && pListAll->m_lstNode.Length() == 0)//必须是末端井
|
||
pListAll->m_nLost = _tstof(csTime);
|
||
if(pListAll->m_nDang > 0.01)
|
||
bHasArea = TRUE;
|
||
pListAll->m_nStartPress = _tstof(csArea);
|
||
}
|
||
else if(pListAll->m_iType == 0){
|
||
OPENOBJ_BEGIN(id, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
pListAll->m_nLength = pPipe->Length();
|
||
// if(!DocGetMeterUnitDraw())
|
||
// pListAll->m_nLength = pListAll->m_nLength/1000;
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
bRet = SetWellArea(pList, bHasArea);
|
||
pListAll->m_nStartPress += pList->m_nStartPress; //m_nStartPress记录总汇流面积
|
||
}
|
||
return bRet;
|
||
}
|
||
|
||
|
||
BOOL IsDirtPool(AcDbObjectId idNode)
|
||
{
|
||
if(!idNode)
|
||
return FALSE;
|
||
OPENOBJ_BEGIN(idNode, AcDb::kForRead, TDbPool, pEquip);
|
||
if(pEquip)
|
||
return TRUE;
|
||
else
|
||
return FALSE;
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
//将井编号写入链表
|
||
BOOL SetWellName(SSearchPipeList *pListAll)
|
||
{
|
||
BOOL bRet = TRUE;
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
if(IsWell(id))
|
||
pListAll->m_iType = 3;
|
||
|
||
if(IsDirtPool(id))
|
||
pListAll->m_iType = 4;
|
||
|
||
if(pListAll->m_iType == 3){
|
||
pListAll->m_csName = GetWellName(id);
|
||
if(pListAll->m_csName == _T(""))
|
||
return FALSE;
|
||
}
|
||
if(pListAll->m_iType == 4){
|
||
pListAll->m_csName = _T("HC");
|
||
}
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
bRet = SetWellName(pList);
|
||
if(!bRet)
|
||
return FALSE;
|
||
}
|
||
return bRet;
|
||
}
|
||
|
||
//返回用户选择的最远井所在链表的位置
|
||
SSearchPipeList *GetWellNode(SSearchPipeList *pListAll, Entity entLongWell, SSearchPipeList *pNode)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
ads_name ent;
|
||
acdbGetAdsName(ent, id);
|
||
Entity entTmp = ent;
|
||
if(entTmp == entLongWell)
|
||
return pListAll;
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
pNode = GetWellNode(pList, entLongWell, pNode);
|
||
}
|
||
return pNode;
|
||
}
|
||
|
||
//得到下一个计算支路的起点节点 根据流量是否为0且最远
|
||
SSearchPipeList *GetNextCalcWell(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
double nCurPipeLength(0);
|
||
if(pListAll->m_nPipeQ == 0 && 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 = GetNextCalcWell(pList, pDisadvantage);
|
||
}
|
||
return pDisadvantage;
|
||
}
|
||
|
||
CString TransformDouble2String(double dDouble, int iPre)
|
||
{
|
||
CString csRet;
|
||
CString csNote;
|
||
csNote.Format(_T("%d"), iPre--);
|
||
CString sFormat = _T("%.") + csNote + _T("f");
|
||
csRet.Format(sFormat, dDouble);
|
||
while (csRet.ReverseFind(_T('0')) > 0 && iPre >= 0)
|
||
{
|
||
csNote.Format(_T("%d"), iPre--);
|
||
CString sFormat = _T("%.") + csNote + _T("f");
|
||
csRet.Format(sFormat, dDouble);
|
||
}
|
||
return csRet;
|
||
}
|
||
|
||
//输出计算书函数
|
||
void ImportRainCalcWord(DList<SSearchPipeList> &lstNode, DList<SSearchPipeList> &lstWell, CCalcRainWellDlg &dlg)
|
||
{
|
||
int len = lstNode.Length();
|
||
if(len < 1)
|
||
return;
|
||
int len2 = lstWell.Length();
|
||
if(len2 < 1)
|
||
return;
|
||
|
||
// 打开公式模板 zxl 2013.12.31 add
|
||
TWordFormulasTemplet wdFormula;
|
||
CString sPathName = g_csSysPath;
|
||
sPathName += _T("formula.doc");
|
||
if (!wdFormula.OpenWordFormulasTempletFile(sPathName))
|
||
{
|
||
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;
|
||
}
|
||
wordApplication.SetVisible(TRUE);
|
||
wordDocuments = wordApplication.GetDocuments();
|
||
activeDocument = wordDocuments.Add(vtOptional,vtOptional);
|
||
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordParagraphs = wordSelection.GetParagraphs();
|
||
wordParagraphs.SetAlignment(1); // 0: 居左 1：居中 2：居右
|
||
|
||
CString csFisrt = lstWell[0]->m_csName;
|
||
CString csLast = lstWell[len2-1]->m_csName;
|
||
CString csTitle = _T("室外雨水井") + csFisrt + _T(" ~ ") + csLast + _T("水力计算书\n\n");
|
||
|
||
|
||
wordSelection.TypeText(csTitle);
|
||
|
||
//写一行字
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordParagraphs = wordSelection.GetParagraphs();
|
||
wordParagraphs.SetAlignment(0); // 0: 居左 1：居中 2：居右
|
||
|
||
// zxl 2014.01.03 add
|
||
_Font font;
|
||
font = wordSelection.GetFont();
|
||
wordSelection.TypeText(_T("计算原理参照《室外排水设计规范》GB 50014-2006（2011版），《给水排水设计手册》（第五册城镇排水） \n"));
|
||
wordSelection.TypeText(_T("一、基本计算公式 \n"));
|
||
wordSelection.TypeText(_T("1、降雨强度公式： \n"));
|
||
wordSelection.TypeText(_T(" "));
|
||
wdFormula.InsertFormula(WORD_FORMULA30, wordSelection);
|
||
wordSelection.TypeText(_T("mm/min"));
|
||
wordSelection.TypeText(_T(""));
|
||
wordSelection.TypeText(_T("\n 式中： i —— 降雨强度（mm/min）"));
|
||
wordSelection.TypeText(_T("\n 其中：1mm/min=1L/（m"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("·min）= 10000L/（min·公顷）"));
|
||
wordSelection.TypeText(_T("\n t —— 降雨历时（min）"));
|
||
wordSelection.TypeText(_T("\n 雨水管渠的设计降雨历时公式："));
|
||
wordSelection.TypeText(_T("\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA31, wordSelection);
|
||
wordSelection.TypeText(_T("\n t —— 降雨历时（min）；"));
|
||
wordSelection.TypeText(_T("\n t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("1"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" —— 地面集水时间（min），视距离长短、地形坡度和地面铺盖情"));
|
||
wordSelection.TypeText(_T(" 况而定，一般采用5～10min"));
|
||
wordSelection.TypeText(_T("\n m —— 折减系数"));
|
||
wordSelection.TypeText(_T("\n t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" —— 管渠内雨水流行时间（min）\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA32, wordSelection);
|
||
wordSelection.TypeText(_T("\n L"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("i"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" —— 为设计断面上游各管道的长度（m）"));
|
||
wordSelection.TypeText(_T("\n v"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("i"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" —— 为上游管段的设计流速（m/s）"));
|
||
wordSelection.TypeText(_T("\n P —— 设计重现期（年）"));
|
||
wordSelection.TypeText(_T("\n A，C，n，B —— 参数，根据统计方法进行计算确定."));
|
||
wordSelection.TypeText(_T("\n2、暴雨强度公式："));
|
||
wordSelection.TypeText(_T("\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA33, wordSelection);
|
||
wordSelection.TypeText(_T(" L/（s·公顷）"));
|
||
wordSelection.TypeText(_T("\n 式中： q —— 设计暴雨强度L/（s·公顷）、L/（s·hm"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("）、L/（s·10"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("4"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("m"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("）"));
|
||
wordSelection.TypeText(_T("\n3、雨水设计流量公式："));
|
||
wordSelection.TypeText(_T("\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA34, wordSelection);
|
||
wordSelection.TypeText(_T("\n 式中："));
|
||
wordSelection.TypeText(_T(" Q —— 雨水设计流量（L/s）"));
|
||
wordSelection.TypeText(_T("\n q —— 设计降雨强度 L/（s·公顷）"));
|
||
wordSelection.TypeText(_T("\n ψ—— 径流系数"));
|
||
wordSelection.TypeText(_T("\n F —— 汇水面积（ha 、10"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("4"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("m"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("）"));
|
||
wordSelection.TypeText(_T("\n4、流速公式："));
|
||
wordSelection.TypeText(_T("\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA35, wordSelection);
|
||
wordSelection.TypeText(_T("\n 式中："));
|
||
wordSelection.TypeText(_T(" V —— 流速（m/s）"));
|
||
wordSelection.TypeText(_T("\n R —— 水力半径（m）"));
|
||
wordSelection.TypeText(_T("\n I —— 水力坡度"));
|
||
wordSelection.TypeText(_T("\n n —— 粗糙系数"));
|
||
wordSelection.TypeText(_T("\n5、泄流量公式："));
|
||
wordSelection.TypeText(_T("\n "));
|
||
wdFormula.InsertFormula(WORD_FORMULA36, wordSelection);
|
||
wordSelection.TypeText(_T("\n 式中："));
|
||
wordSelection.TypeText(_T(" Q —— 泄流量（m"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("3"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("/s）"));
|
||
wordSelection.TypeText(_T("\n V —— 流速（m/s）"));
|
||
wordSelection.TypeText(_T("\n A —— 管截面积（m"));
|
||
font.SetSuperscript(2); //处理上标
|
||
wordSelection.TypeText(_T("2"));
|
||
font.SetSuperscript(0);
|
||
wordSelection.TypeText(_T("）"));
|
||
wordSelection.TypeText(_T("\n二、计算参数"));
|
||
wordSelection.TypeText(_T("\n1、地区："));
|
||
wordSelection.TypeText(dlg.m_csProvince);
|
||
wordSelection.TypeText(_T(" "));
|
||
wordSelection.TypeText(dlg.m_csCity);
|
||
wdFormula.CloseFile();
|
||
|
||
Selection wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
//画表格
|
||
int nrows(2), ncolumns(4);
|
||
wSelection = wordApplication.GetSelection();
|
||
Range oRange = wSelection.GetRange();
|
||
Tables oTables = activeDocument.GetTables();
|
||
_Table oTable = oTables.Add(oRange, nrows, ncolumns);
|
||
|
||
Borders oBordersn = oTable.GetBorders();
|
||
oBordersn.SetInsideLineStyle(1); // 设置表格线型
|
||
oBordersn.SetOutsideLineStyle(1);
|
||
|
||
Columns oColumns;
|
||
Column oColumn;
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(110, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(110, 0);
|
||
oColumn = oColumns.Item(3);
|
||
oColumn.SetWidth(110, 0);
|
||
oColumn = oColumns.Item(4);
|
||
oColumn.SetWidth(110, 0);
|
||
|
||
|
||
Cell oCell;
|
||
oCell = oTable.Cell(1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("A"));
|
||
|
||
oCell = oTable.Cell(1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("B"));
|
||
|
||
oCell = oTable.Cell(1, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("C"));
|
||
|
||
oCell = oTable.Cell(1, 4);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("n"));
|
||
|
||
oCell = oTable.Cell(2, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(dlg.m_csA);
|
||
|
||
oCell = oTable.Cell(2, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(dlg.m_csB);
|
||
|
||
oCell = oTable.Cell(2, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(dlg.m_csC);
|
||
|
||
oCell = oTable.Cell(2, 4);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(dlg.m_csN);
|
||
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
|
||
COleVariant((short)-1),vtOptional,vtOptional); // -1 = wdGoToLast
|
||
|
||
wordSelection.TypeText(XString(_T("2、重现期：%s年"), TransformDouble2String(dlg.m_nP, 3)));
|
||
wordSelection.TypeText(XString(_T("\n3、汇流时间：%smin"), TransformDouble2String(dlg.m_dTime, 3)));
|
||
wordSelection.TypeText(XString(_T("\n4、径流系数：%s"), TransformDouble2String(dlg.m_nFactor, 3)));
|
||
wordSelection.TypeText(XString(_T("\n5、折减系数：%s"), TransformDouble2String(dlg.m_dM, 3)));
|
||
wordSelection.TypeText(_T("\n6、粗糙系数："));
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
//画表格
|
||
nrows = dlg.m_mapMeratialN.size() + 1, ncolumns = 2;
|
||
wSelection = wordApplication.GetSelection();
|
||
oRange = wSelection.GetRange();
|
||
oTables = activeDocument.GetTables();
|
||
oTable = oTables.Add(oRange, nrows, ncolumns);
|
||
|
||
oBordersn = oTable.GetBorders();
|
||
oBordersn.SetInsideLineStyle(1); // 设置表格线型
|
||
oBordersn.SetOutsideLineStyle(1);
|
||
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(200, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(100, 0);
|
||
|
||
oCell = oTable.Cell(1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管材"));
|
||
|
||
oCell = oTable.Cell(1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("粗糙系数"));
|
||
std::map<CString, double>::iterator it;
|
||
int iIndex = 0;
|
||
for ( it = dlg.m_mapMeratialN.begin(); it != dlg.m_mapMeratialN.end(); it++)
|
||
{
|
||
oCell = oTable.Cell(iIndex+2, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(it->first);
|
||
|
||
oCell = oTable.Cell(iIndex+2, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(XString(_T("%.3f"), it->second));
|
||
iIndex++;
|
||
}
|
||
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
|
||
COleVariant((short)-1),vtOptional,vtOptional); // -1 = wdGoToLast
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
wordSelection.TypeText(_T("三、计算结果："));
|
||
Selection wSelection2 = wordApplication.GetSelection();
|
||
wSelection2.TypeParagraph();
|
||
wordSelection.TypeText(_T("主干管线信息：\n")); //画表格
|
||
int rows(len+1), columns(7);
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
oRange = wSelection.GetRange();
|
||
oTables = activeDocument.GetTables();
|
||
oTable = oTables.Add(oRange, rows, columns);
|
||
// cet 2010.3.25 add
|
||
Borders oBorders = oTable.GetBorders();
|
||
oBorders.SetInsideLineStyle(1); // 设置表格线型
|
||
oBorders.SetOutsideLineStyle(1);
|
||
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(60, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(60, 0);
|
||
oColumn = oColumns.Item(3);
|
||
oColumn.SetWidth(70, 0);
|
||
oColumn = oColumns.Item(4);
|
||
oColumn.SetWidth(50, 0);
|
||
oColumn = oColumns.Item(5);
|
||
oColumn.SetWidth(50, 0);
|
||
oColumn = oColumns.Item(6);
|
||
oColumn.SetWidth(65, 0);
|
||
oColumn = oColumns.Item(7);
|
||
oColumn.SetWidth(75, 0);
|
||
|
||
oCell = oTable.Cell(1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管段名称"));
|
||
|
||
oCell = oTable.Cell(1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管径mm"));
|
||
|
||
oCell = oTable.Cell(1, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管道流量L/s"));
|
||
|
||
oCell = oTable.Cell(1, 4);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管长m"));
|
||
|
||
|
||
|
||
oCell = oTable.Cell(1, 5);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("流速m/s"));
|
||
|
||
oCell = oTable.Cell(1, 6);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("水力坡降‰"));
|
||
|
||
oCell = oTable.Cell(1, 7);
|
||
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("%d"), lstNode[i]->m_iDn);
|
||
oCell = oTable.Cell(i+2, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nPipeQ);
|
||
oCell = oTable.Cell(i+2, 3); //管道流量L/s
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
// if(DocGetMeterUnitDraw())
|
||
// csTmp.Format(_T("%.2f"), lstNode[i]->m_nLength);
|
||
// else
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nLength);
|
||
|
||
oCell = oTable.Cell(i+2, 4); //管长m
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nV);
|
||
oCell = oTable.Cell(i+2, 5); //流速m/s
|
||
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);
|
||
|
||
|
||
OPENOBJ_BEGIN(lstNode[i]->m_ID, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
csTmp = GetPipeMaterialByIdx(pPipe->GetMaterial());
|
||
}
|
||
OPENOBJ_END();
|
||
oCell = oTable.Cell(i+2, 7); //管材
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
}
|
||
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
|
||
COleVariant((short)-1),vtOptional,vtOptional); // -1 = wdGoToLast
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
wordSelection.TypeText(_T("主要井信息:\n"));
|
||
|
||
//画表格
|
||
rows = len2+1;
|
||
columns = 6;
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
oRange = wSelection.GetRange();
|
||
oTables = activeDocument.GetTables();
|
||
oTable = oTables.Add(oRange, rows, columns);
|
||
// cet 2010.3.25 add
|
||
oBorders = oTable.GetBorders();
|
||
oBorders.SetInsideLineStyle(1); // 设置表格线型
|
||
oBorders.SetOutsideLineStyle(1);
|
||
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(50, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(55, 0);
|
||
oColumn = oColumns.Item(3);
|
||
oColumn.SetWidth(85, 0);
|
||
oColumn = oColumns.Item(4);
|
||
oColumn.SetWidth(85, 0);
|
||
oColumn = oColumns.Item(5);
|
||
oColumn.SetWidth(75, 0);
|
||
oColumn = oColumns.Item(6);
|
||
oColumn.SetWidth(88, 0);
|
||
|
||
|
||
|
||
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("汇流时间min"));
|
||
|
||
oCell = oTable.Cell(1, 6);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("暴雨强度L/s/顷"));
|
||
|
||
|
||
for(i=0; i<len2; i++){
|
||
CString csTmp;
|
||
oCell = oTable.Cell(i+2, 1); //管段名称
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(lstWell[i]->m_csName);
|
||
|
||
csTmp.Format(_T("%.2f"), lstWell[i]->m_nPipeQ);
|
||
oCell = oTable.Cell(i+2, 2); //管道流量L/s
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
|
||
csTmp.Format(_T("%.0f"), lstWell[i]->m_nDang);
|
||
oCell = oTable.Cell(i+2, 3); //当量长度m
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.0f"), lstWell[i]->m_nStartPress);
|
||
oCell = oTable.Cell(i+2, 4);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstWell[i]->m_nLost);
|
||
oCell = oTable.Cell(i+2, 5);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstWell[i]->m_nSpare);
|
||
oCell = oTable.Cell(i+2, 6); //暴雨强度
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
}
|
||
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
|
||
COleVariant((short)-1),vtOptional,vtOptional); // -1 = wdGoToLast
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
}
|
||
|
||
|
||
//将其它井加入输出列表
|
||
void GetOtherWellNode(SSearchPipeList *pListAll, DList<SSearchPipeList> &lstWell)
|
||
{
|
||
if(pListAll->m_iType == 3){
|
||
SSearchPipeList *pNodeNew = new SSearchPipeList();
|
||
pNodeNew->m_iDn = pListAll->m_iDn;
|
||
pNodeNew->m_csName = pListAll->m_csName;
|
||
pNodeNew->m_nLength = pListAll->m_nLength;
|
||
pNodeNew->m_nPipeQ = pListAll->m_nPipeQ;
|
||
pNodeNew->m_nDang = pListAll->m_nDang;
|
||
pNodeNew->m_nStartPress = pListAll->m_nStartPress;
|
||
pNodeNew->m_nI = pListAll->m_nI;
|
||
pNodeNew->m_nV = pListAll->m_nV;
|
||
pNodeNew->m_nLost = pListAll->m_nLost;
|
||
pNodeNew->m_nSpare = pListAll->m_nSpare;
|
||
|
||
int len = lstWell.Length();
|
||
BOOL bFlag = FALSE;
|
||
for(int i=0;i<len;i++){
|
||
if(pNodeNew->m_csName == lstWell[i]->m_csName){
|
||
bFlag = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
if(!bFlag)
|
||
lstWell.Append(pNodeNew);
|
||
}
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
GetOtherWellNode(pList, lstWell);
|
||
}
|
||
}
|
||
|
||
//得到下一个标注节点 根据节点编号是否为空
|
||
//3个条件
|
||
SSearchPipeList *GetLongestWell(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
double nCurPipeLength(0);
|
||
nCurPipeLength = pListAll->m_nLength;
|
||
|
||
if(pListAll->m_csName == _T("") && pListAll->m_iType == 3){
|
||
int idx = GetFirstAncestorSerial(pListAll);
|
||
if(pDisadvantage){
|
||
int idx2 = GetFirstAncestorSerial(pDisadvantage);
|
||
if(idx < idx2){ //条件1: 当前节点的祖先编号小于临时节点的祖先编号
|
||
pDisadvantage = pListAll;
|
||
}
|
||
else if(idx == 0){ //条件2:
|
||
if(pDisadvantage && nCurPipeLength > pDisadvantage->m_nLength)
|
||
pDisadvantage = pListAll;
|
||
}
|
||
else if(idx == idx2){//条件3: 当前节点的祖先编号等于临时节点的祖先编号, 但离起始节点最远
|
||
int iParentIdx1 = GetAncestorSerial(pListAll);
|
||
int iParentIdx2 = GetAncestorSerial(pDisadvantage);
|
||
if(iParentIdx1 == iParentIdx2){
|
||
if(pDisadvantage && nCurPipeLength > pDisadvantage->m_nLength)
|
||
pDisadvantage = pListAll;
|
||
}
|
||
else if(iParentIdx1 < iParentIdx2 || iParentIdx2 == idx2){
|
||
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 = GetLongestWell(pList, pDisadvantage);
|
||
}
|
||
return pDisadvantage;
|
||
}
|
||
|
||
|
||
|
||
extern BOOL SetWellData(SSearchPipeList *pListAll, BOOL bFeedSys);
|
||
|
||
//主函数
|
||
void RainCalc()
|
||
{
|
||
Entity entMainPipe, entLongWell;
|
||
//RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_RAIN, NULL);
|
||
RBList rbMask(RTDXF0, _T("ATS_WELL"), NULL);
|
||
|
||
RBList rbMaskMain = 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_WELL"), 8, LAY_WELL_RAIN, -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
|
||
if(SelectEntity(_T("\n请选择排出干管或排出井<退出>"), entMainPipe, rbMaskMain) != RTNORM) {
|
||
return;
|
||
}
|
||
|
||
|
||
SSearchPipeList *pListAll = new SSearchPipeList();
|
||
PickSet ssAll(SS_FREE);
|
||
ssAll += entMainPipe;
|
||
if(!SearchSprinkPipeSys(entMainPipe, NULL, pListAll, ssAll)){
|
||
AfxMessageBox(_T("雨水系统有回路！"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
|
||
if(!CalcLstPipeLength(pListAll, NULL, ssAll)){
|
||
AfxMessageBox(_T("雨水系统没有标注管径,请先执行命令[管径标注]"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
|
||
if(pListAll->m_lstNode.Length() == 2 && entMainPipe.Is(_T("ATS_PIPE"))){
|
||
ssAll.Free();
|
||
//计算源头应为节点,而不是管线. 以下计算管线2节点哪个是源头
|
||
CalcWellNum(pListAll);
|
||
SSearchPipeList *p1 = pListAll->m_lstNode[0];
|
||
SSearchPipeList *p2 = pListAll->m_lstNode[1];
|
||
SSearchPipeList *p3 = p1->m_iNum > p2->m_iNum ? p2 : p1;
|
||
|
||
ads_name ent;
|
||
acdbGetAdsName(ent, p3->m_ID);
|
||
delete pListAll;
|
||
pListAll = new SSearchPipeList();
|
||
//重新搜索系统
|
||
if(!SearchSprinkPipeSys(ent, NULL, pListAll, ssAll)){
|
||
AfxMessageBox(_T("雨水系统有回路！"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
CalcLstPipeLength(pListAll, NULL, ssAll);
|
||
pListAll->m_iType = GetNodeType(ent);
|
||
}
|
||
XPoint ptLow, ptUp;
|
||
ssAll.GetExtend(ptLow, ptUp);
|
||
AssureInCurrentView(ptLow, ptUp);
|
||
//UpdateRainWellArea(); zxl 20131218 del 汇流面积新实体能实时更新井的汇流面积
|
||
|
||
ssAll.Redraw(3);
|
||
SSearchPipeList *pNodeLong = GetLongestWell(pListAll, NULL);
|
||
if(pNodeLong == NULL){
|
||
ssAll.Redraw(4);
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
if(!SetWellName(pListAll)){
|
||
AfxMessageBox(_T("没有完整输入井编号！"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
BOOL bHasArea(FALSE);
|
||
SetWellArea(pListAll, bHasArea);
|
||
if(!bHasArea){
|
||
AfxMessageBox(_T("没有完整输入汇流面积！"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
if(CheckWellSys(pListAll, TRUE) == FALSE){
|
||
ssAll.Redraw(4);
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
CString csDwb = g_csDwbPath + _T("TwtSys");
|
||
XString xsTmp;
|
||
Entity entBlk;
|
||
if(LoadDwbBlock(csDwb, _T("00000069"), xsTmp) != RTNORM ){
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
OPENOBJ_BEGIN(pNodeLong->m_ID, AcDb::kForRead, TDbPipeNode, pNode);
|
||
if(pNode){
|
||
XPoint pt = pNode->GetLocation();
|
||
InsertBlock((const TCHAR*)xsTmp, asPnt3d(pt), 20*DocGetPScale(), 20*DocGetPScale(), 0, _T("0"));
|
||
entBlk.GetLast();
|
||
}
|
||
OPENOBJ_END();
|
||
if(SelectEntity(_T("\n请选择最远井<系统搜索>:"), entLongWell, rbMask) != RTNORM || !entLongWell.In(&ssAll)) {
|
||
AcDbObjectId id = pNodeLong->m_ID;
|
||
ads_name entTmp;
|
||
acdbGetAdsName(entTmp, id);
|
||
entLongWell = entTmp;
|
||
}
|
||
DoDimPipeSerialNumber(pListAll);
|
||
//2008-6-5 沈睿 改到对话框参数实现
|
||
// ssAll.Redraw(3);
|
||
// double nTime(10);
|
||
// ads_getreal(_T("\n请输入最远井汇流时间<10分钟>:"), &nTime);
|
||
// ssAll.Redraw(4);
|
||
// WriteXdata(entLongWell, _T("TG-WELLTIME"), XString(_T("%.1f"), nTime));
|
||
pNodeLong = GetWellNode(pListAll, entLongWell, NULL);
|
||
// pNodeLong->m_nLost = nTime;
|
||
|
||
// ssAll.Redraw(4);
|
||
entBlk.Erase();
|
||
CTemporaryResourceOverride vTemp;
|
||
CCalcRainWellDlg dlg;
|
||
dlg.m_pListAll = pListAll;
|
||
|
||
dlg.m_ssAll += ssAll;
|
||
dlg.m_pNodeLong = pNodeLong;
|
||
if(dlg.DoModal() != IDOK){
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
|
||
|