975 lines
30 KiB
C++
975 lines
30 KiB
C++
// CalcFeedIndustryDlg.cpp : implementation file
|
||
//
|
||
|
||
#include "stdafx.h"
|
||
#include "AcDbObjectPtr.h"
|
||
#include "PickEntSet.h"
|
||
#include "CalcFeedIndustryDlg.h"
|
||
#include "DbEquipment.h"
|
||
#include "DbPipe.h"
|
||
#include "TWordFormulasTemplet.h"
|
||
#include "dbGridSheet.h"
|
||
|
||
#ifdef _DEBUG
|
||
#define new DEBUG_NEW
|
||
#undef THIS_FILE
|
||
static char THIS_FILE[] = __FILE__;
|
||
#endif
|
||
|
||
extern void CalcPipeLength(SSearchPipeList *pListAll);
|
||
extern void CalcPipeLength2(SSearchPipeList *pListAll, SSearchPipeList *pListFront);
|
||
|
||
extern int DoSerialNumber2(SSearchPipeList *pListLast, int idx);
|
||
extern void DoDimPipeSerialNumber(SSearchPipeList *pListAll);
|
||
extern int GetPipeDnByQ(double nQ, AcDbObjectId id, double &nLost, double &nI, double &nSpeed, BOOL bIsReCalc = FALSE);
|
||
|
||
extern TCHAR *LAY_PIPE_FEED;
|
||
extern TCHAR *LAY_VPIPE_FEED;
|
||
extern TCHAR *LAY_PIPE_FEED2;
|
||
extern TCHAR *LAY_VPIPE_FEED2;
|
||
extern TCHAR *LAY_PIPE_FEED3;
|
||
extern TCHAR *LAY_VPIPE_FEED3;
|
||
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||
// 工业建筑给水计算
|
||
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||
void IndustryFeedCalc()
|
||
{
|
||
Entity entMainPipe;
|
||
RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), NULL);
|
||
RBList rbMaskPipe = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED, -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED, -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED2, -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED2, -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED3, -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED3, -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
|
||
|
||
if(GlobalFunc::SelectEntity(_T("\n请选择给水总干管<退出>"), entMainPipe, rbMaskPipe) != RTNORM)
|
||
return;
|
||
|
||
//第一步，选择总干管，并找到它之前的堵头
|
||
AcDbObjectId idMain = NULL;
|
||
OPENOBJ_BEGIN(entMainPipe, AcDb::kForRead, CDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
AcDbObjectId nodeId1(NULL), nodeId2(NULL);
|
||
nodeId1 = pPipe->GetNode(0);
|
||
nodeId2 = pPipe->GetNode(1);
|
||
OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, CDbPipeNode, pNode);
|
||
if(pNode)
|
||
{
|
||
int num = pNode->GetInterfaceNum();
|
||
if(num == 1)
|
||
idMain = nodeId1;
|
||
}
|
||
OPENOBJ_END();
|
||
OPENOBJ_BEGIN(nodeId2, AcDb::kForRead, CDbPipeNode, pNode);
|
||
if(pNode)
|
||
{
|
||
int num = pNode->GetInterfaceNum();
|
||
if(num == 1)
|
||
idMain = nodeId2;
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
OPENOBJ_END();
|
||
if(!idMain)
|
||
{
|
||
AfxMessageBox(_T("没有正确选择起点干管！"));
|
||
return;
|
||
}
|
||
|
||
ads_name entMain;
|
||
acdbGetAdsName(entMain, idMain);
|
||
|
||
SSearchPipeList *pListAll = new SSearchPipeList();
|
||
PickSet ssAll(SS_FREE);
|
||
ssAll += idMain;
|
||
pListAll->m_iType = 1;
|
||
if(!GlobalFunc::SearchSprinkPipeSys(entMain, NULL, pListAll, ssAll))
|
||
{
|
||
AfxMessageBox(_T("系统有回路！"));
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
//第二步，搜索整个系统，计算管长，建立双向链表
|
||
CalcPipeLength2(pListAll, NULL);
|
||
|
||
//第三步，标注节点
|
||
int idx = 1;
|
||
SSearchPipeList *pNode = GlobalFunc::GetNextDimNode2(pListAll, NULL);
|
||
while(pNode)
|
||
{
|
||
idx = DoSerialNumber2(pNode, idx); //标注节点编号
|
||
pNode = GlobalFunc::GetNextDimNode2(pListAll, NULL); //得到下一支路起点节点
|
||
}
|
||
DoDimPipeSerialNumber(pListAll); //标注管段编号
|
||
|
||
CTemporaryResourceOverride over;
|
||
CCalcFeedIndustryDlg dlg;
|
||
dlg.SetListAll(pListAll);
|
||
if(dlg.DoModal() != IDOK)
|
||
{
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CCalcFeedIndustryDlg dialog
|
||
|
||
|
||
CCalcFeedIndustryDlg::CCalcFeedIndustryDlg(CWnd* pParent /*=NULL*/)
|
||
: CDialog(CCalcFeedIndustryDlg::IDD, pParent)
|
||
{
|
||
//{{AFX_DATA_INIT(CCalcFeedIndustryDlg)
|
||
m_csLost = _T("");
|
||
m_bIsCalc = FALSE;
|
||
//}}AFX_DATA_INIT
|
||
}
|
||
|
||
|
||
void CCalcFeedIndustryDlg::DoDataExchange(CDataExchange* pDX)
|
||
{
|
||
CDialog::DoDataExchange(pDX);
|
||
//{{AFX_DATA_MAP(CCalcFeedIndustryDlg)
|
||
DDX_Text(pDX, IDC_EDIT_LOST, m_csLost);
|
||
//}}AFX_DATA_MAP
|
||
}
|
||
|
||
|
||
BEGIN_MESSAGE_MAP(CCalcFeedIndustryDlg, CDialog)
|
||
//{{AFX_MSG_MAP(CCalcFeedIndustryDlg)
|
||
ON_BN_CLICKED(IDC_RECACULATE, OnRecaculate)
|
||
ON_BN_CLICKED(IDC_BOOKBTN, OnBookbtn)
|
||
ON_BN_CLICKED(IDC_SHEETBTN, OnSheetbtn)
|
||
//}}AFX_MSG_MAP
|
||
END_MESSAGE_MAP()
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CCalcFeedIndustryDlg message handlers
|
||
|
||
BOOL CCalcFeedIndustryDlg::OnInitDialog()
|
||
{
|
||
CDialog::OnInitDialog();
|
||
m_publicGrid.Create(this,IDC_LIST_CACLARCH);
|
||
m_publicGrid.Refresh();
|
||
m_publicGrid.AppendCol(_T("管段名称"),60);
|
||
m_publicGrid.AppendCol(_T("管道流量L/s"),80);
|
||
m_publicGrid.AppendCol(_T("管长m"),45);
|
||
// m_publicGrid.AppendCol(_T("百分数"),50);
|
||
m_publicGrid.AppendCol(_T("标注管径"),60);
|
||
// m_publicGrid.AppendCol(_T("额定流量"),60);
|
||
m_publicGrid.AppendCol(_T("水力坡降mH2O/m"),88);
|
||
m_publicGrid.AppendCol(_T("流速m/s"),60);
|
||
m_publicGrid.AppendCol(_T("沿程损失mH2O"),80);
|
||
|
||
m_publicGrid.GetCol(0).SetReadOnly();
|
||
m_publicGrid.GetCol(1).SetReadOnly();
|
||
m_publicGrid.GetCol(2).SetReadOnly();
|
||
// m_publicGrid.GetCol(3).SetReadOnly();
|
||
// m_publicGrid.GetCol(5).SetReadOnly();
|
||
m_publicGrid.GetCol(3).SetComboSel();
|
||
m_publicGrid.GetCol(4).SetReadOnly();
|
||
m_publicGrid.GetCol(5).SetReadOnly();
|
||
m_publicGrid.GetCol(6).SetReadOnly();
|
||
|
||
m_publicGrid.GetCol(3).SetTextColor(RGB(255,0,0));
|
||
m_publicGrid.GetCol(4).SetTextColor(RGB(0,0,255));
|
||
m_publicGrid.GetCol(5).SetTextColor(RGB(0,0,255));
|
||
m_publicGrid.GetCol(6).SetTextColor(RGB(0,0,255));
|
||
|
||
CacluatePipe(1);
|
||
UpdatePublicGrid(m_listNode,FALSE);
|
||
|
||
return TRUE; // return TRUE unless you set the focus to a control
|
||
// EXCEPTION: OCX Property Pages should return FALSE
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::SetListAll(SSearchPipeList *pListAll)
|
||
{
|
||
m_pListAll = pListAll;
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::ResetList(SSearchPipeList *pListAll)
|
||
{
|
||
pListAll->m_nDang = 0;
|
||
pListAll->m_nLost = 0;
|
||
pListAll->m_nLength = 0;
|
||
pListAll->m_nI = 0;
|
||
pListAll->m_nPipeQ = 0;
|
||
pListAll->m_nStartPress = 0;
|
||
pListAll->m_nV = 0;
|
||
pListAll->m_nSpare = 0;
|
||
pListAll->m_bNeedCale = FALSE;
|
||
|
||
long len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++)
|
||
{
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
ResetList(pList);
|
||
}
|
||
}
|
||
//更新管径
|
||
void CCalcFeedIndustryDlg::UpdatePipeRadius()
|
||
{
|
||
CString sText;
|
||
int nLen = m_arId.length();
|
||
for (int i = 0; i < nLen; ++i)
|
||
{
|
||
OPENOBJ_BEGIN(m_arId.at(i), AcDb::kForWrite, CDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
sText = m_publicGrid.GetCell(i,3).GetText();
|
||
pPipe->SetDnDiameter(_ttoi(sText));
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
|
||
//得到最不利节点
|
||
SSearchPipeList* CCalcFeedIndustryDlg::GetFeedDisadvantageNode(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
double nCurPipeLength(0);
|
||
nCurPipeLength = pListAll->m_nLength;
|
||
|
||
if(GlobalFunc::IsEquipment(id)){
|
||
if(!pDisadvantage || (pDisadvantage && nCurPipeLength > pDisadvantage->m_nLength))
|
||
pDisadvantage = pListAll;
|
||
}
|
||
int len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++){
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
pDisadvantage = GetFeedDisadvantageNode(pList, pDisadvantage);
|
||
}
|
||
return pDisadvantage;
|
||
}
|
||
|
||
//计算总的沿程水头损失
|
||
void CCalcFeedIndustryDlg::DoCalcFeedWaterLost(SSearchPipeList *pDisadvantage, double &dAllLostRet)
|
||
{
|
||
double nAllLost(-1);
|
||
nAllLost = pDisadvantage->m_nLost;
|
||
if(pDisadvantage->m_pPrevious)
|
||
{
|
||
// pDisadvantage->m_pPrevious->m_nLost += nAllLost;
|
||
if(pDisadvantage->m_iType == 0)
|
||
dAllLostRet += nAllLost;
|
||
DoCalcFeedWaterLost(pDisadvantage->m_pPrevious, dAllLostRet);
|
||
}
|
||
}
|
||
|
||
//计算 nMode = 0 初算 1 复算
|
||
void CCalcFeedIndustryDlg::CacluatePipe(int nMode)
|
||
{
|
||
UpdateData();
|
||
//更新管径
|
||
UpdatePipeRadius();
|
||
|
||
//计算
|
||
ResetList(m_pListAll);
|
||
m_listNode.Reset();
|
||
DoCalcPipeQ(m_pListAll, nMode);
|
||
DoDimFeedPipeDn(m_pListAll, nMode);
|
||
|
||
GlobalFunc::UpdateMultDim();
|
||
double dAllLost(0);
|
||
CalcPipeLength2(m_pListAll, NULL);
|
||
SSearchPipeList *pDisadvantage = NULL;
|
||
pDisadvantage = GetFeedDisadvantageNode(m_pListAll, NULL);
|
||
if(pDisadvantage != NULL)
|
||
DoCalcFeedWaterLost(pDisadvantage, dAllLost);
|
||
CalcPipeLength(m_pListAll);
|
||
m_csLost.Format(_T("%.2f"), dAllLost);
|
||
UpdateData(FALSE);
|
||
|
||
std::map<CString,int> mapLable;
|
||
SSearchPipeList *pNode = GetNextExportNode2(m_pListAll, NULL,mapLable);
|
||
int i = 0;
|
||
CString sText;
|
||
while(pNode)
|
||
{
|
||
SSearchPipeList *pNodeNew = new SSearchPipeList();
|
||
pNodeNew->m_ID = pNode->m_ID;
|
||
pNodeNew->m_iDn = pNode->m_iDn;
|
||
pNodeNew->m_csName = pNode->m_csName;
|
||
pNodeNew->m_nLength = pNode->m_nLength;
|
||
pNodeNew->m_nPipeQ = pNode->m_nPipeQ;
|
||
pNodeNew->m_nSpare = pNode->m_nSpare;
|
||
pNodeNew->m_nDang = pNode->m_nDang;
|
||
pNodeNew->m_nStartPress = pNode->m_nStartPress;
|
||
pNodeNew->m_nI = pNode->m_nI;
|
||
pNodeNew->m_nV = pNode->m_nV;
|
||
pNodeNew->m_nLost = pNode->m_nLost;
|
||
|
||
//更新数据结构管径的值
|
||
if (m_publicGrid.GetRowNum() > 0)
|
||
{
|
||
OPENOBJ_BEGIN(pNodeNew->m_ID, AcDb::kForWrite, CDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
sText = m_publicGrid.GetCell(i,3).GetText();
|
||
if (nMode == 1)
|
||
pNodeNew->m_iDn = _ttoi(sText);
|
||
}
|
||
OPENOBJ_END();
|
||
i++;
|
||
}
|
||
m_listNode.Append(pNodeNew);
|
||
mapLable[pNode->m_csName] = 0;
|
||
pNode = GetNextExportNode2(m_pListAll, NULL,mapLable);
|
||
}
|
||
}
|
||
|
||
//得到下一个导出WORD节点 根据节点计算顺序排序
|
||
SSearchPipeList *CCalcFeedIndustryDlg::GetNextExportNode2(SSearchPipeList *pListAll, SSearchPipeList *pDisadvantage,std::map<CString,int> mapLable)
|
||
{
|
||
if (mapLable.find(pListAll->m_csName) == mapLable.end())
|
||
{
|
||
CString csName = pListAll->m_csName;
|
||
int idx = csName.Find(_T("-"));
|
||
CString csFront;
|
||
if(idx > -1)
|
||
{
|
||
csFront = csName.Left(idx);
|
||
int iFront = _ttoi(csFront);
|
||
if(!pDisadvantage)
|
||
pDisadvantage = pListAll;
|
||
else
|
||
{
|
||
csName = pDisadvantage->m_csName;
|
||
idx = csName.Find(_T("-"));
|
||
csFront = csName.Left(idx);
|
||
if(iFront < _ttoi(csFront))
|
||
pDisadvantage = pListAll;
|
||
}
|
||
}
|
||
}
|
||
|
||
int len = pListAll->m_lstNode.Length();
|
||
for(long i=0;i<len;i++)
|
||
{
|
||
SSearchPipeList *pList = pListAll->m_lstNode[i];
|
||
pDisadvantage = GetNextExportNode2(pList, pDisadvantage,mapLable);
|
||
}
|
||
return pDisadvantage;
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::DoCalcPipeQ(SSearchPipeList *pListAll, int iMode)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
pListAll->m_iNum = 0;
|
||
|
||
double nDang(0), dRateQ(0), nQ(0);
|
||
if(pListAll->m_iType == -1)
|
||
{
|
||
AcDbObjectId id = pListAll->m_ID;
|
||
OPENOBJ_BEGIN(id, AcDb::kForRead, CDbEquipment, pEquip);
|
||
if(pEquip){
|
||
nDang = pEquip->GetDang();
|
||
dRateQ = pEquip->GetSpare();
|
||
|
||
AcDbObjectId idBlk = pEquip->GetBlock2d();
|
||
CString csBlkName = GlobalFunc::GetBlkNameById(idBlk);
|
||
CString csSysName = pEquip->GetSysBlock();
|
||
if(_tcsicmp(_T("$TWTSYS$00000290"), csBlkName) == 0 || //大便器自闭式冲洗阀
|
||
_tcsicmp(_T("$TWTSYS$00000291"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000292"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000293"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000502"), csBlkName) == 0 || //大便器感应式冲洗阀
|
||
_tcsicmp(_T("$TWTSYS$00000503"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000504"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000505"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000430"), csBlkName) == 0 || //脚踏式大便器 sr 2009-8-22 add
|
||
_tcsicmp(_T("$TWTSYS$00000431"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000432"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("$TWTSYS$00000433"), csBlkName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000502)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000503)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000504)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000505)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000430)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000431)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000432)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000433)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000290)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000291)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000292)"), csSysName) == 0 ||
|
||
_tcsicmp(_T("TWTSYS(00000293)"), csSysName) == 0 )
|
||
{ //大便器自闭式冲洗阀
|
||
pListAll->m_bNeedCale = TRUE; //临时存一下
|
||
}
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
pListAll->m_nDang = nDang;
|
||
pListAll->m_nSpare = dRateQ;
|
||
if(pListAll->m_bNeedCale)
|
||
{
|
||
pListAll->m_nLost = 0;
|
||
pListAll->m_nV = nDang*dRateQ/100;
|
||
}
|
||
else
|
||
{
|
||
pListAll->m_nLost = nDang*dRateQ/100;
|
||
pListAll->m_nV = 0;
|
||
}
|
||
pListAll->m_nStartPress = dRateQ;
|
||
|
||
}
|
||
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];
|
||
pList->m_pPrevious = pListAll;
|
||
DoCalcPipeQ(pList, iMode);
|
||
if(pList->m_nStartPress > pListAll->m_nStartPress) //记录本管段最大额定流量
|
||
pListAll->m_nStartPress = pList->m_nStartPress;
|
||
if(pListAll->m_iType == 0 )
|
||
{
|
||
pListAll->m_nDang = pList->m_nDang;
|
||
pListAll->m_nSpare = pList->m_nSpare;
|
||
}
|
||
if(pList->m_bNeedCale)//如果下面节点有大便器自闭式冲洗阀
|
||
{
|
||
pListAll->m_bNeedCale = TRUE;
|
||
pListAll->m_nV += pList->m_nV; //记录本管道总计算流量(大便器）
|
||
}
|
||
// else
|
||
pListAll->m_nLost += pList->m_nLost; //记录本管道总计算流量(非大便器）
|
||
}
|
||
if(pListAll->m_bNeedCale)//如果是大便器自闭式冲洗阀
|
||
{
|
||
nQ = pListAll->m_nV;
|
||
if(pListAll->m_nV < 1.2)
|
||
nQ = 1.2;
|
||
nQ += pListAll->m_nLost;
|
||
if(nQ < pListAll->m_nStartPress)
|
||
nQ = pListAll->m_nStartPress;
|
||
|
||
}
|
||
else
|
||
{
|
||
nQ = pListAll->m_nLost;
|
||
if(nQ < pListAll->m_nStartPress)
|
||
nQ = pListAll->m_nStartPress;
|
||
}
|
||
|
||
pListAll->m_nPipeQ = nQ;
|
||
if(pListAll->m_iType != 0 || pListAll->m_nPipeQ < 0.001)
|
||
return;
|
||
/*
|
||
double nLost(-1), nI(-1), nSpeed(0);
|
||
int iDn(0);
|
||
if(iMode == 0){
|
||
iDn = GetPipeDnByQ(nQ, pListAll->m_ID, nLost, nI, nSpeed);
|
||
}
|
||
else{
|
||
CString csMat;
|
||
double nLength(1);
|
||
OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, CDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
iDn = (int)pPipe->GetDnDiameter();
|
||
csMat = GetPipeMaterialByIdx(pPipe->GetMaterial());
|
||
nLength = pPipe->Length();
|
||
}
|
||
OPENOBJ_END();
|
||
double nCh(140); // 海澄－威廉系数
|
||
if(csMat == _T("镀锌钢管") || csMat == _T("给水铸铁管") || csMat == _T("排水铸铁管") || csMat == _T("焊接钢管") || csMat == _T("无缝钢管"))
|
||
nCh = 100;
|
||
else
|
||
nCh = 140;
|
||
|
||
double nRetDj = GetPipeDjByDn(csMat, iDn);
|
||
nQ = nQ /1000;
|
||
nSpeed = nQ / (0.25*PI*nRetDj*nRetDj);
|
||
nI = 105 * (pow(nRetDj, -4.87)) * (pow(nQ, 1.85)) * (pow(nCh, -1.85)) / 10;
|
||
nLost = nI * nLength;
|
||
}
|
||
|
||
pListAll->m_nLost = nLost;
|
||
pListAll->m_nI = nI;
|
||
pListAll->m_iDn = iDn;
|
||
pListAll->m_nV = nSpeed;
|
||
|
||
DoDimPipeDn(ent, iDn, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
|
||
*/
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::DoDimFeedPipeDn(SSearchPipeList *pListAll, int iMode)
|
||
{
|
||
AcDbObjectId id = NULL;
|
||
id = pListAll->m_ID;
|
||
|
||
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];
|
||
DoDimFeedPipeDn(pList, iMode);
|
||
|
||
}
|
||
|
||
if(pListAll->m_iType != 0 || pListAll->m_nPipeQ < 0.001)
|
||
return;
|
||
|
||
double nQ = pListAll->m_nPipeQ;
|
||
double nLost(-1), nI(-1), nSpeed(0);
|
||
int iDn(0);
|
||
if(iMode == 0){
|
||
iDn = GetPipeDnByQ(nQ, pListAll->m_ID, nLost, nI, nSpeed);
|
||
}
|
||
else{
|
||
CString csMat;
|
||
double nLength(1);
|
||
OPENOBJ_BEGIN(pListAll->m_ID, AcDb::kForRead, CDbPipe, pPipe);
|
||
if(pPipe)
|
||
{
|
||
iDn = (int)pPipe->GetDnDiameter();
|
||
csMat = GlobalFunc::GetPipeMaterialByIdx(pPipe->GetMaterial());
|
||
nLength = pPipe->Length();
|
||
}
|
||
OPENOBJ_END();
|
||
double nCh(140); // 海澄－威廉系数
|
||
if(csMat == _T("镀锌钢管") || csMat == _T("给水铸铁管") || csMat == _T("排水铸铁管") || csMat == _T("焊接钢管") || csMat == _T("无缝钢管"))
|
||
nCh = 100;
|
||
else
|
||
nCh = 140;
|
||
|
||
double nRetDj = GlobalFunc::GetPipeDjByDn(csMat, iDn);
|
||
nQ = nQ /1000;
|
||
nSpeed = nQ / (0.25*PI*nRetDj*nRetDj);
|
||
nI = 105 * (pow(nRetDj, -4.87)) * (pow(nQ, 1.85)) * (pow(nCh, -1.85)) / 10;
|
||
nLost = nI * nLength;
|
||
}
|
||
|
||
pListAll->m_nLost = nLost;
|
||
pListAll->m_nI = nI;
|
||
pListAll->m_iDn = iDn;
|
||
pListAll->m_nV = nSpeed;
|
||
|
||
GlobalFunc::DoDimPipeDn(ent, iDn, _T("自动"), g_Option::instance().g_nPipeDnHeight, FALSE, FALSE);
|
||
|
||
}
|
||
|
||
|
||
|
||
//显示表中的类容 bshowre = TRUE 显示计算结果 否则不显示计算结果
|
||
void CCalcFeedIndustryDlg::UpdatePublicGrid(DList<SSearchPipeList> &lstNode,BOOL bShowRe)
|
||
{
|
||
m_publicGrid.Clear();
|
||
CString csTmp;
|
||
|
||
int nLen = lstNode.Length();
|
||
while (m_arId.length() > 0)
|
||
{
|
||
m_arId.removeAt(0);
|
||
}
|
||
|
||
for (int i = 0; i < nLen; ++i)
|
||
{
|
||
m_publicGrid.AppendRow();
|
||
m_publicGrid.GetCell(i,0).SetText(lstNode[i]->m_csName);
|
||
|
||
csTmp.Format(_T("%.3f"), lstNode[i]->m_nPipeQ);
|
||
m_publicGrid.GetCell(i,1).SetText(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nLength);
|
||
m_publicGrid.GetCell(i,2).SetText(csTmp);
|
||
|
||
// csTmp.Format(_T("%.2f"), lstNode[i]->m_nDang);
|
||
// m_publicGrid.GetCell(i,3).SetText(csTmp);
|
||
|
||
csTmp.Format(_T("%d"), lstNode[i]->m_iDn);
|
||
m_publicGrid.GetCell(i,3).SetText(csTmp);
|
||
|
||
// csTmp.Format(_T("%.2f"), lstNode[i]->m_nSpare);
|
||
// m_publicGrid.GetCell(i, 5).SetText(csTmp);
|
||
|
||
if (bShowRe)
|
||
{
|
||
csTmp.Format(_T("%.3f"), lstNode[i]->m_nI);
|
||
m_publicGrid.GetCell(i,4).SetText(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nV);
|
||
m_publicGrid.GetCell(i,5).SetText(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nLost);
|
||
m_publicGrid.GetCell(i,6).SetText(csTmp);
|
||
}
|
||
|
||
m_arId.append(lstNode[i]->m_ID);
|
||
}
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::OnOK()
|
||
{
|
||
m_bIsCalc = TRUE;
|
||
|
||
UpdateData(TRUE);
|
||
//第三步，计算管径
|
||
CacluatePipe(0);
|
||
UpdatePublicGrid(m_listNode);
|
||
|
||
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::OnRecaculate()
|
||
{
|
||
m_bIsCalc = TRUE;
|
||
|
||
CacluatePipe(1);
|
||
UpdatePublicGrid(m_listNode);
|
||
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::OnBookbtn()
|
||
{
|
||
ImportFeedCalcWord(m_listNode);
|
||
}
|
||
|
||
//输出计算书函数
|
||
void CCalcFeedIndustryDlg::ImportFeedCalcWord(DList<SSearchPipeList> &lstNode)
|
||
{
|
||
if (m_pListAll == NULL)
|
||
return;
|
||
|
||
int len = lstNode.Length();
|
||
if(!m_bIsCalc)
|
||
{
|
||
MessageBox(_T("请先计算!"));
|
||
return;
|
||
}
|
||
//初始化
|
||
COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR), vtTrue((short)TRUE), vtFalse((short)FALSE);
|
||
_Application wordApplication;
|
||
Documents wordDocuments;
|
||
_Document activeDocument;
|
||
Paragraphs wordParagraphs;
|
||
Selection wordSelection;
|
||
|
||
if (!wordApplication.CreateDispatch(_T("Word.Application")))
|
||
{
|
||
AfxMessageBox(_T("不能执行Microsoft Word 8.0!"));
|
||
return;
|
||
}
|
||
|
||
// cet 2010.6.28 add 打开公式模板
|
||
TWordFormulasTemplet wdFormula;
|
||
CString sPathName = GlobalFunc::GetSysDir();
|
||
sPathName += _T("formula.doc");
|
||
if (!wdFormula.OpenWordFormulasTempletFile(sPathName))
|
||
{
|
||
return;
|
||
}
|
||
|
||
wordApplication.SetVisible(TRUE);
|
||
wordDocuments = wordApplication.GetDocuments();
|
||
activeDocument = wordDocuments.Add(vtOptional,vtOptional);
|
||
|
||
//写一行字
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordParagraphs = wordSelection.GetParagraphs();
|
||
wordParagraphs.SetAlignment(0); // 0: 居左 1：居中 2：居右
|
||
|
||
// cet 2010.6.28 del
|
||
// wordSelection.TypeText(_T("按照建筑给水排水设计规范 （GB 50015-2003）进行计算：\n"));
|
||
// wordSelection.TypeText(_T("计算公式 \n"));
|
||
// wordSelection.TypeText(_T("工业企业的生活间、公共浴室、职工食堂或营业餐馆的厨房、体育场馆运动员休息室、剧院"));
|
||
// wordSelection.TypeText(_T("的化妆间、普通理化实验室等建筑的生活给水管道的设计秒流量，应按下式计算\n"));
|
||
// wordSelection.TypeText(_T("\n Qg=∑q0×N0×b\n"));
|
||
// wordSelection.TypeText(_T("\n式中 Qg--计算管段的给水设计秒流量（L/S）\n"));
|
||
// wordSelection.TypeText((_T("\n q0--同类型的一个卫生器具给水额定流量（L/S）\n")));
|
||
// wordSelection.TypeText((_T("\n N0--同类型卫生器具数\n")));
|
||
// wordSelection.TypeText((_T("\n b--卫生器具同时给水百分数\n")));
|
||
|
||
// cet 2010.6.28 add
|
||
_Font font;
|
||
font = wordSelection.GetFont();
|
||
wordSelection.TypeText(_T("按照建筑给水排水设计规范 （GB 50015-2003）（2009年版）进行计算：\n"));
|
||
wordSelection.TypeText(_T("宿舍（Ⅲ、Ⅳ类）、工业企业的生活间、公共浴室、职工食堂或营业餐馆的厨房、体育场馆、剧院"));
|
||
wordSelection.TypeText(_T("普通理化实验室等建筑的生活给水管道的设计秒流量，应按下式计算：\n"));
|
||
wordSelection.TypeText(_T(" "));
|
||
wdFormula.InsertFormula(5, wordSelection);
|
||
wordSelection.TypeText(_T("\n 式中"));
|
||
wordSelection.TypeText(_T(" q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("g"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T("--计算管段的给水设计秒流量（L/S）\n"));
|
||
wordSelection.TypeText(_T(" q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("0"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText((_T("--同类型的一个卫生器具给水额定流量（L/S）\n")));
|
||
wordSelection.TypeText(_T(" n"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("0"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText((_T("--同类型卫生器具数\n")));
|
||
wordSelection.TypeText((_T(" b--同类型卫生器具的同时给水百分数\n")));
|
||
|
||
wordSelection.TypeText(_T("\n注：1如果计算值小于该管段上一个最大卫生器具的给水额定流量时，应采用一个最大的卫"));
|
||
wordSelection.TypeText(_T("生器具给水额定流量作为设计秒流量\n"));
|
||
wordSelection.TypeText(_T("\t2大便器自闭式冲洗阀应单列计算，当单列计算值小于1.2L/S时，以1.2L/S计；"));
|
||
wordSelection.TypeText(_T("大于1.2L/S时，以计算计\n"));
|
||
|
||
wordSelection.TypeText(_T("\n计算结果：\n"));
|
||
|
||
Selection wSelection2 = wordApplication.GetSelection();
|
||
wSelection2.TypeParagraph();
|
||
|
||
//画表格
|
||
int rows(len+1), columns(8);
|
||
|
||
Selection wSelection = wordApplication.GetSelection();
|
||
Range oRange = wSelection.GetRange();
|
||
Tables oTables = activeDocument.GetTables();
|
||
_Table oTable = oTables.Add(oRange, rows, columns);
|
||
// cet 2010.3.25 add
|
||
Borders oBorders = oTable.GetBorders();
|
||
oBorders.SetInsideLineStyle(1); // 设置表格线型
|
||
oBorders.SetOutsideLineStyle(1);
|
||
|
||
Columns oColumns;
|
||
Column oColumn;
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(40, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(50, 0);
|
||
oColumn = oColumns.Item(3);
|
||
oColumn.SetWidth(40, 0);
|
||
oColumn = oColumns.Item(4);
|
||
oColumn.SetWidth(55, 0);
|
||
oColumn = oColumns.Item(5);
|
||
oColumn.SetWidth(60, 0);
|
||
oColumn = oColumns.Item(6);
|
||
oColumn.SetWidth(60, 0);
|
||
oColumn = oColumns.Item(7);
|
||
oColumn.SetWidth(70, 0);
|
||
oColumn = oColumns.Item(8);
|
||
oColumn.SetWidth(55, 0);
|
||
|
||
Cell oCell;
|
||
oCell = oTable.Cell(1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管段名称"));
|
||
|
||
oCell = oTable.Cell(1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管道流量L/s"));
|
||
|
||
oCell = oTable.Cell(1, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管长m"));
|
||
|
||
oCell = oTable.Cell(1, 4);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("标注管径"));
|
||
|
||
oCell = oTable.Cell(1, 5);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("水力坡降mH2O/m"));
|
||
|
||
oCell = oTable.Cell(1, 6);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("流速m/s"));
|
||
|
||
oCell = oTable.Cell(1, 7);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("沿程损失mH2O"));
|
||
|
||
oCell = oTable.Cell(1, 8);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("管材"));
|
||
|
||
|
||
for(int i=0; i<len; i++){
|
||
CString csTmp;
|
||
oCell = oTable.Cell(i+2, 1); //管段名称
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(lstNode[i]->m_csName);
|
||
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nPipeQ);
|
||
oCell = oTable.Cell(i+2, 2); //管道流量L/s
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nLength);
|
||
oCell = oTable.Cell(i+2, 3); //管长m
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%d"), lstNode[i]->m_iDn);
|
||
oCell = oTable.Cell(i+2, 4); //管径mm
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.3f"), lstNode[i]->m_nI);
|
||
oCell = oTable.Cell(i+2, 5); //水力坡降mH2O/m
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nV);
|
||
oCell = oTable.Cell(i+2, 6); //流速m/s
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
csTmp.Format(_T("%.2f"), lstNode[i]->m_nLost);
|
||
oCell = oTable.Cell(i+2, 7); //损失mH2O
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csTmp);
|
||
|
||
int iMat(0);
|
||
OPENOBJ_BEGIN(lstNode[i]->m_ID, AcDb::kForRead, CDbPipe, pPipe);
|
||
if(pPipe){
|
||
iMat = pPipe->GetMaterial();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
CString csMat = GlobalFunc::GetPipeMaterialByIdx(iMat);
|
||
oCell = oTable.Cell(i+2, 8); //管材
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csMat);
|
||
}
|
||
|
||
COleVariant vtOptional2((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3),
|
||
COleVariant((short)-1),vtOptional2,vtOptional2);
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
UpdateData(TRUE);
|
||
wordSelection.TypeText(XString(_T("总沿程水头损失= %s mH2O\n"), m_csLost));
|
||
wdFormula.CloseFile(); // cet 2010.6.28 add
|
||
}
|
||
|
||
void CCalcFeedIndustryDlg::OnSheetbtn()
|
||
{
|
||
UpdateData(TRUE);
|
||
GlobalFunc::HideDialog(this, TRUE);
|
||
XPoint pt;
|
||
if(acedGetPoint(NULL, _T("\n点取表格左上角位置:<返回>"), pt) != RTNORM)
|
||
{
|
||
GlobalFunc::HideDialog(this, FALSE);
|
||
return;
|
||
}
|
||
|
||
double nTextSize = g_Option::instance().g_nSheetHeight; //字高
|
||
double nTableHeight = g_Option::instance().g_nSheetHeight+2;
|
||
|
||
AcDbObjectId idTextStyle=GlobalFunc::InitTwtTextStyle(g_Option::instance().g_csSheetStyle);
|
||
CDbSheet *pSheet = new CDbSheet;
|
||
|
||
GridStyle gridStyle;
|
||
gridStyle.SetOverrideAll(TRUE);
|
||
gridStyle.SetTextHeight(nTextSize);
|
||
gridStyle.SetTextStyleId(idTextStyle);
|
||
|
||
SheetTitle &title=pSheet->GetTitle();
|
||
title.SetHeight(nTextSize);
|
||
title.SetText(_T("工业建筑给水计算表"));
|
||
|
||
GridStyle &gridStyle2=title.GetGridStyle();
|
||
gridStyle2.SetTextHeight(nTextSize);
|
||
gridStyle2.SetTextStyleId(idTextStyle);
|
||
|
||
DividerStyle &style=title.GetDividerStyle();
|
||
style.SetDividerFlag(DividerStyle::kNone);
|
||
|
||
gridStyle.SetHorMode(AcDb::kTextCenter);
|
||
gridStyle.SetVerMode(AcDb::kTextVertMid);
|
||
gridStyle.SetLineSpaceFactor(0.2);
|
||
gridStyle.SetTextWrap(FALSE);
|
||
pSheet->SetGridStyle(gridStyle);
|
||
pSheet->SetRowHeight(nTableHeight);
|
||
pSheet->SetLayoutRotation(GlobalFunc::Ucs2Wcs(0.0));
|
||
pSheet->SetLocation(GlobalFunc::Ucs2Wcs(pt));
|
||
int nAllRow = (int)m_publicGrid.GetRowNum();
|
||
pSheet->InitSheet(nAllRow + 1, 7, nTableHeight, 50);
|
||
|
||
DividerStyle &styleBorder = pSheet->GetBorderStyle();
|
||
styleBorder.SetLineWidth(0.2);
|
||
SheetRow *pRow = pSheet->GetRow(0);
|
||
if (pRow != NULL)
|
||
{
|
||
DividerStyle &styleRow = pRow->GetDividerStyle();
|
||
styleRow.SetLineWidth(0.2);
|
||
styleRow.SetDividerFlag(DividerStyle::kLocal);
|
||
}
|
||
|
||
pSheet->SetLocation(GlobalFunc::Ucs2Wcs(pt));
|
||
XPoint ptex = pSheet->GetExtents(FALSE);
|
||
|
||
SheetColumn column;
|
||
column.SetWidth(15);
|
||
pSheet->SetColumnAt(0, column);
|
||
column.SetWidth(20);
|
||
pSheet->SetColumnAt(1, column);
|
||
column.SetWidth(15);
|
||
pSheet->SetColumnAt(2, column);
|
||
column.SetWidth(15);
|
||
pSheet->SetColumnAt(3, column);
|
||
column.SetWidth(30);
|
||
pSheet->SetColumnAt(4, column);
|
||
column.SetWidth(15);
|
||
pSheet->SetColumnAt(5, column);
|
||
column.SetWidth(25);
|
||
pSheet->SetColumnAt(6, column);
|
||
|
||
GridCell &cell01=*(*pSheet)(0, 0);
|
||
cell01.SetText(_T("管段名称"));
|
||
|
||
GridCell &cell02=*(*pSheet)(0, 1);
|
||
cell02.SetText(_T("管道流量L/s"));
|
||
|
||
GridCell &cell03=*(*pSheet)(0, 2);
|
||
cell03.SetText(_T("管长m"));
|
||
|
||
GridCell &cell04=*(*pSheet)(0, 3);
|
||
cell04.SetText(_T("标注管径"));
|
||
|
||
GridCell &cell05=*(*pSheet)(0, 4);
|
||
cell05.SetText(_T("水力坡降mH2O/m"));
|
||
|
||
GridCell &cell06=*(*pSheet)(0, 5);
|
||
cell06.SetText(_T("流速m/s"));
|
||
|
||
GridCell &cell07=*(*pSheet)(0, 6);
|
||
cell07.SetText(_T("沿程损失mH2O"));
|
||
|
||
for(int j = 1; j < m_publicGrid.GetRowNum() + 1; j++)
|
||
{
|
||
for (int i = 0; i < m_publicGrid.GetColNum(); i++)
|
||
{
|
||
GridCell &Cell=*(*pSheet)(j, i);
|
||
CString sText = (LPCTSTR)m_publicGrid.GetCell(j-1,i).GetText();
|
||
Cell.SetText(sText);
|
||
}
|
||
}
|
||
GlobalFunc::AddToModelSpace(pSheet);
|
||
//pSheet->AddToCSpace(TRUE);
|
||
TCHAR szTmp[32];
|
||
ads_getstring(NULL, _T("\n按任意键返回对话框:<返回>"), szTmp);
|
||
GlobalFunc::HideDialog(this, FALSE);
|
||
}
|