#include "stdafx.h" #include "AcDbObjectPtr.h" #include "dbgridsheet.h" #include "WellCalcEarthworkDlg.h" void CalcEarthwork() { Entity ent; RBList rbMask(RTDXF0, _T("AEC_ZT_VERTICALSECTION,AEC_ZT_VERTICALSECTION_FEED"), NULL); if (GlobalFunc::SelectEntity(_T("\n请选择纵断面图<退出>:"), ent, rbMask) != RTNORM) return; CTemporaryResourceOverride vTemp; CWellCalcEarthworkDlg dlg; OPENOBJ_BEGIN(ent, AcDb::kForRead, CDbVerticalSection, pVS); if (pVS) { pVS->GetWellDatas(dlg.m_lstWellSys); } OPENOBJ_END(); OPENOBJ_BEGIN(ent, AcDb::kForRead, CDbVerticalSectionFeed, pVS); if (pVS) { pVS->GetWellDatas(dlg.m_lstFeedWell); dlg.m_bIsFeed = TRUE; } OPENOBJ_END(); dlg.DoModal(); if (dlg.m_dRet > 0.001) { int rows = dlg.m_grid.GetRowNum() + 1; AcDbObjectId idTextStyle = GlobalFunc::InitTwtTextStyle(g_Option::instance().g_csSheetStyle); CDbSheet *pSheet = new CDbSheet; GridStyle gridStyle; gridStyle.SetOverrideAll(TRUE); gridStyle.SetTextHeight(g_Option::instance().g_nSheetHeight); gridStyle.SetTextStyleId(idTextStyle); SheetTitle &title = pSheet->GetTitle(); title.SetHeight(7.0); title.SetText(_T("土方计算表")); 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(g_Option::instance().g_nSheetHeight + 2); pSheet->InitSheet(rows, 6, g_Option::instance().g_nSheetHeight + 2, 50); SheetColumn column; column.SetWidth(15); pSheet->SetColumnAt(0, column); GridCell &cell = *(*pSheet)(0, 0); cell.SetText(_T("序号")); column.SetWidth(15); pSheet->SetColumnAt(1, column); GridCell &cell4 = *(*pSheet)(0, 1); cell4.SetText(_T("管长(m)")); column.SetWidth(15); pSheet->SetColumnAt(2, column); GridCell &cell5 = *(*pSheet)(0, 2); cell5.SetText(_T("管径(mm)")); column.SetWidth(15); pSheet->SetColumnAt(3, column); GridCell &cell6 = *(*pSheet)(0, 3); cell6.SetText(_T("坡度‰")); column.SetWidth(20); pSheet->SetColumnAt(4, column); GridCell &cell7 = *(*pSheet)(0, 4); cell7.SetText(_T("槽底挖宽m")); column.SetWidth(20); pSheet->SetColumnAt(5, column); GridCell &cell8 = *(*pSheet)(0, 5); cell8.SetText(_T("土方量(立方米)")); int idx(1); for (dlg.m_grid.MoveToFirst(); !dlg.m_grid.IsOut(); dlg.m_grid.MoveToNext()) { WDGridRow *pRow = dlg.m_grid.CurRow(); CString csFrom = (LPCTSTR)(*pRow)[0].GetText(); CString csTo = (LPCTSTR)(*pRow)[1].GetText(); CString csLen = (LPCTSTR)(*pRow)[2].GetText(); CString csDn = (LPCTSTR)(*pRow)[3].GetText(); CString csI = (LPCTSTR)(*pRow)[4].GetText(); CString csWidth = (LPCTSTR)(*pRow)[7].GetText(); CString csV = (LPCTSTR)(*pRow)[8].GetText(); csFrom = csFrom + _T("-") + csTo; GridCell &cell9 = *(*pSheet)(idx, 0); cell9.SetText(csFrom); GridCell &cell10 = *(*pSheet)(idx, 1); cell10.SetText(csLen); GridCell &cell11 = *(*pSheet)(idx, 2); cell11.SetText(csDn); GridCell &cell12 = *(*pSheet)(idx, 3); cell12.SetText(csI); GridCell &cell13 = *(*pSheet)(idx, 4); cell13.SetText(csWidth); GridCell &cell14 = *(*pSheet)(idx, 5); cell14.SetText(csV); idx++; } XPoint pt; if (XGetPoint(NULL, _T("\n点取表格位置:<退出>"), pt) != RTNORM) return; pSheet->SetLocation(pt); //pSheet->AddToCSpace(TRUE); GlobalFunc::AddToCurrentSpace(pSheet, TRUE); } } ///////////////////////////////////////////////////////////////////////////// // CWellCalcEarthworkDlg dialog CWellCalcEarthworkDlg::CWellCalcEarthworkDlg(CWnd* pParent /*=NULL*/) : CDialog(CWellCalcEarthworkDlg::IDD, pParent) { //{{AFX_DATA_INIT(CWellCalcEarthworkDlg) m_dGradient = 1; m_dRet = 0.0; m_dDeep = 100; m_bIsFeed = FALSE; //}}AFX_DATA_INIT } void CWellCalcEarthworkDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CWellCalcEarthworkDlg) DDX_Text(pDX, IDC_EDIT_GRADIENT, m_dGradient); DDX_Text(pDX, IDC_EDIT_RET, m_dRet); DDX_Text(pDX, IDC_EDIT_DEEP, m_dDeep); //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CWellCalcEarthworkDlg, CDialog) //{{AFX_MSG_MAP(CWellCalcEarthworkDlg) ON_BN_CLICKED(IDC_BUTTON_HELP, OnButtonHelp) ON_WM_PAINT() //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CWellCalcEarthworkDlg message handlers BOOL CWellCalcEarthworkDlg::OnInitDialog() { CDialog::OnInitDialog(); m_grid.Clear(); m_grid.AppendCol(_T("起点"), 35); m_grid.AppendCol(_T("终点"), 35); m_grid.AppendCol(_T("管长m"), 50); m_grid.AppendCol(_T("管径mm"), 50); m_grid.AppendCol(_T("坡度‰"), 55); m_grid.AppendCol(_T("超挖深度mm"), 65); m_grid.AppendCol(_T("边坡坡度"), 60); m_grid.AppendCol(_T("槽底挖宽m"), 60); m_grid.AppendCol(_T("土方量(立方米)"), 60); m_grid.Create(this, IDC_LIST_PIPE); m_grid.FitLastCol(); m_grid.SetNoAppendButton(TRUE); m_grid.SetNoDefaultMenu(true); COLORREF color = RGB(255, 0, 0); m_grid.GetCol(5).SetTextColor(color); m_grid.GetCol(6).SetTextColor(color); COLORREF color2 = RGB(0, 0, 255);; m_grid.GetCol(7).SetTextColor(color2); m_grid.GetCol(8).SetTextColor(color2); UpdateGrid(); return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } void CWellCalcEarthworkDlg::UpdateGrid() { long iCurRow = m_grid.GetCurRowIndex(); m_grid.Clear(); int idx = 0; if (!m_bIsFeed) { for (int i = 0; i < m_lstWellSys.Length() - 1; i++) { if (m_lstWellSys[i]->m_bIsWell) { //井 if (i == m_lstWellSys.Length() - 2) break; CString csName1 = m_lstWellSys[i]->m_csName; CString csName2 = m_lstWellSys[i + 2]->m_csName; if (csName1 == _T("") || csName2 == _T("")) continue; CString csArea, csAllArea, csFactor, csQ, csTime; m_grid.AppendRow(); m_grid.GetCell(idx, 0).SetText(csName1); m_grid.GetCell(idx, 1).SetText(csName2); } else { //管 if (i == m_lstWellSys.Length() - 1) continue; int iDn = m_lstWellSys[i]->m_iDn; CString csDn, csPipeLen, csI, csWidth, csGradient; csDn.Format(_T("%d"), iDn); csI.Format(_T("%.3f"), m_lstWellSys[i]->m_nI * 1000); csPipeLen.Format(_T("%.2f"), m_lstWellSys[i]->m_nLength); m_grid.GetCell(idx, 2).SetText(csPipeLen); m_grid.GetCell(idx, 3).SetText(csDn); m_grid.GetCell(idx, 4).SetText(csI); m_grid.GetCell(idx, 5).SetText(_T("默认")); m_grid.GetCell(idx, 6).SetText(_T("默认")); m_lstWellSys[i]->m_nFrondDownEle = -1; m_lstWellSys[i]->m_nSpare = -1; idx++; } } } else { for (int i = 0; i < m_lstFeedWell.Length() - 1; i++) { if (m_lstFeedWell[i]->m_bIsWell) { //井 if (i == m_lstFeedWell.Length() - 2) break; CString csName1 = m_lstFeedWell[i]->m_csName; CString csName2 = m_lstFeedWell[i + 2]->m_csName; if (csName1 == _T("") || csName2 == _T("")) continue; CString csArea, csAllArea, csFactor, csQ, csTime; m_grid.AppendRow(); m_grid.GetCell(idx, 0).SetText(csName1); m_grid.GetCell(idx, 1).SetText(csName2); } else { //管 if (i == m_lstFeedWell.Length() - 1) continue; int iDn = m_lstFeedWell[i]->m_iDn; CString csDn, csPipeLen, csI, csWidth, csGradient; csDn.Format(_T("%d"), iDn); csI.Format(_T("%.3f"), m_lstFeedWell[i]->m_nI * 1000); double dPipeLengthAll(0); int iPipeNum = m_lstFeedWell[i]->m_lstID.Length(); for (int j = 0; j < iPipeNum; j++) { AcDbObjectId id = *m_lstFeedWell[i]->m_lstID[j]; double dPipeLength(0); OPENOBJ_BEGIN(id, AcDb::kForRead, CDbPipe, pPipe); if (pPipe) { dPipeLength = pPipe->Length(); dPipeLengthAll += dPipeLength; } OPENOBJ_END(); } csPipeLen.Format(_T("%.2f"), dPipeLengthAll); m_grid.GetCell(idx, 2).SetText(csPipeLen); m_grid.GetCell(idx, 3).SetText(csDn); m_grid.GetCell(idx, 4).SetText(csI); m_grid.GetCell(idx, 5).SetText(_T("默认")); m_grid.GetCell(idx, 6).SetText(_T("默认")); m_lstFeedWell[i]->m_nFrondDownEle = -1; m_lstFeedWell[i]->m_nSpare = -1; idx++; } } } m_grid.SelectRow(iCurRow, TRUE); } double CWellCalcEarthworkDlg::GetPipeThickness(AcDbObjectId id) { int iDn(0); CString csMat; OPENOBJ_BEGIN(id, AcDb::kForRead, CDbPipe, pPipe); if (pPipe) { iDn = (int)pPipe->GetDnDiameter(); csMat = GlobalFunc::GetPipeMaterialByIdx(pPipe->GetMaterial()); } OPENOBJ_END(); double dOutD = GlobalFunc::GetPipeOutDByDn(csMat, iDn) * 1000 - iDn; return dOutD; } //详<<给水排水管道工程施工及验收规范>> GB50268-97 3.2.1条 double CWellCalcEarthworkDlg::GetLowWidth(AcDbObjectId id) { double dRet(0); int iDn(0); CString csMat; OPENOBJ_BEGIN(id, AcDb::kForRead, CDbPipe, pPipe); if (pPipe) { iDn = (int)pPipe->GetDnDiameter(); csMat = GlobalFunc::GetPipeMaterialByIdx(pPipe->GetMaterial()); } OPENOBJ_END(); double dB1(0); if (csMat.Find(_T("混凝土")) > -1) { //非金属管道 if (iDn <= 500) dB1 = 400; else if (iDn <= 1000) dB1 = 500; else if (iDn <= 1500) dB1 = 600; else dB1 = 800; } else { if (iDn <= 500) dB1 = 300; else if (iDn <= 1000) dB1 = 400; else if (iDn <= 1500) dB1 = 600; else dB1 = 800; } double dB2 = 200;//b2——管道一侧的支撑厚度，可取150~200mm; double dOutD = GlobalFunc::GetPipeOutDByDn(csMat, iDn) * 1000; double dPipeThickness = (dOutD - iDn) / 2.0; dRet = iDn + 2 * (dB1 + dB2 + dPipeThickness);//B=D1+2(b1+b2+b3) return dRet / 1000.0; } void CWellCalcEarthworkDlg::OnOK() { UpdateData(TRUE); for (m_grid.MoveToFirst(); !m_grid.IsOut(); m_grid.MoveToNext()) { WDGridRow *pRow = m_grid.CurRow(); int idx = pRow->GetIndex(); CString csDeep = (LPCTSTR)(*pRow)[5].GetText(); //超挖深度 CString csGradient = (LPCTSTR)(*pRow)[6].GetText();//边坡坡度 if (m_bIsFeed) { if (csDeep != _T("默认")) m_lstFeedWell[idx * 2 + 1]->m_nFrondDownEle = _tstof(csDeep); if (csGradient != _T("默认")) m_lstFeedWell[idx * 2 + 1]->m_nSpare = _tstof(csGradient); } else { if (csDeep != _T("默认")) m_lstWellSys[idx * 2 + 1]->m_nFrondDownEle = _tstof(csDeep); if (csGradient != _T("默认")) m_lstWellSys[idx * 2 + 1]->m_nSpare = _tstof(csGradient); } } int idx = 0; double dAllV(0); if (!m_bIsFeed) { for (int i = 0; i < m_lstWellSys.Length() - 1; i++) { if (!m_lstWellSys[i]->m_bIsWell) { //管 if (i == m_lstWellSys.Length() - 1) continue; int iDn = m_lstWellSys[i]->m_iDn; CString csWidth, csV; AcDbObjectId id = m_lstWellSys[i]->m_ID; double dB = GetLowWidth(id); csWidth.Format(_T("%.3f"), dB); m_grid.GetCell(idx, 7).SetText(csWidth); double dPipeThick = GetPipeThickness(id) / 1000; double nUpEle1 = m_lstWellSys[i - 1]->m_nUpEle; double nDownEle1 = m_lstWellSys[i - 1]->m_nDownEle; double nUpEle2 = m_lstWellSys[i + 1]->m_nUpEle; double nDownEle2 = m_lstWellSys[i + 1]->m_nFrondDownEle; double dDeepOver(0); //超挖深度 double dSlopeGradient(0);//边坡坡度 double dPipeLen = m_lstWellSys[i]->m_nLength; if (m_lstWellSys[i]->m_nFrondDownEle < 0) dDeepOver = m_dDeep; else dDeepOver = m_lstWellSys[i]->m_nFrondDownEle; dDeepOver = dDeepOver / 1000; if (m_lstWellSys[i]->m_nSpare < 0) dSlopeGradient = m_dGradient; else dSlopeGradient = m_lstWellSys[i]->m_nSpare; //如果是负数，说明采用默认值。 double dDeep1 = nUpEle1 - nDownEle1 + dPipeThick + dDeepOver; //起点井挖深 double dWidthUp1 = (dDeep1 * dSlopeGradient) * 2 + dB; //起点井地面挖宽 double dDeep2 = nUpEle2 - nDownEle2 + dPipeThick + dDeepOver; //终点井挖深 double dWidthUp2 = (dDeep2 * dSlopeGradient) * 2 + dB; //终点井地面挖宽 double dS1 = (dB + dWidthUp1) / 2.0 * dDeep1; double dS2 = (dB + dWidthUp2) / 2.0 * dDeep2; double dV(0); dV = (sqrt(dS1 * dS2) + dS1 + dS2) * dPipeLen / 3.0; dAllV += dV; csV.Format(_T("%.3f"), dV); m_grid.GetCell(idx, 8).SetText(csV); idx++; } } } else { for (int i = 0; i < m_lstFeedWell.Length() - 1; i++) { if (!m_lstFeedWell[i]->m_bIsWell) { //管 if (i == m_lstFeedWell.Length() - 1) continue; int iPipeNum = m_lstFeedWell[i]->m_lstID.Length(); double dBAll(0), dVAllPipe(0);; for (int j = 0; j < iPipeNum; j++) { AcDbObjectId id = *m_lstFeedWell[i]->m_lstID[j]; double dB = GetLowWidth(id); dBAll += dB; double dDn(0); double dPipeLength(0); OPENOBJ_BEGIN(id, AcDb::kForRead, CDbPipe, pPipe); if (pPipe) { dDn = pPipe->GetDnDiameter(); dPipeLength = pPipe->Length(); } OPENOBJ_END(); double dPipeThick = GetPipeThickness(id) / 1000; double nUpEle1 = m_lstFeedWell[i - 1]->m_nUpEle; double nDownEle1 = m_lstFeedWell[i - 1]->m_nDownEle; double nUpEle2 = m_lstFeedWell[i + 1]->m_nUpEle; double nDownEle2 = m_lstFeedWell[i + 1]->m_nFrondDownEle; double dDeepOver(0); //超挖深度 double dSlopeGradient(0);//边坡坡度 // double dPipeLen = m_lstFeedWell[i]->m_nLength; if (m_lstFeedWell[i]->m_nFrondDownEle < 0) dDeepOver = m_dDeep; else dDeepOver = m_lstFeedWell[i]->m_nFrondDownEle; dDeepOver = dDeepOver / 1000; if (m_lstFeedWell[i]->m_nSpare < 0) dSlopeGradient = m_dGradient; else dSlopeGradient = m_lstFeedWell[i]->m_nSpare; //如果是负数，说明采用默认值。 double dDeep1 = nUpEle1 - nDownEle1 + dDn / 2000 + dPipeThick + dDeepOver; //起点井挖深 double dWidthUp1 = (dDeep1 * dSlopeGradient) * 2 + dB; //起点井地面挖宽 double dDeep2 = nUpEle2 - nDownEle2 + dDn / 2000 + dPipeThick + dDeepOver; //终点井挖深 double dWidthUp2 = (dDeep2 * dSlopeGradient) * 2 + dB; //终点井地面挖宽 double dS1 = (dB + dWidthUp1) / 2.0 * dDeep1; double dS2 = (dB + dWidthUp2) / 2.0 * dDeep2; double dV(0); dV = (sqrt(dS1 * dS2) + dS1 + dS2) * dPipeLength / 3.0; dVAllPipe += dV; } CString csWidth, csV; csWidth.Format(_T("%.3f"), dBAll); m_grid.GetCell(idx, 7).SetText(csWidth); csV.Format(_T("%.3f"), dVAllPipe); m_grid.GetCell(idx, 8).SetText(csV); dAllV += dVAllPipe; /* double dPipeThick = GetPipeThickness(id) / 1000; double nUpEle1 = m_lstFeedWell[i-1]->m_nUpEle; double nDownEle1 = m_lstFeedWell[i-1]->m_nDownEle; double nUpEle2 = m_lstFeedWell[i+1]->m_nUpEle; double nDownEle2 = m_lstFeedWell[i+1]->m_nFrondDownEle; double dDeepOver(0); //超挖深度 double dSlopeGradient(0);//边坡坡度 double dPipeLen = m_lstFeedWell[i]->m_nLength; if(m_lstFeedWell[i]->m_nFrondDownEle < 0) dDeepOver = m_dDeep; else dDeepOver = m_lstFeedWell[i]->m_nFrondDownEle; dDeepOver = dDeepOver / 1000; if(m_lstFeedWell[i]->m_nSpare < 0) dSlopeGradient = m_dGradient; else dSlopeGradient = m_lstFeedWell[i]->m_nSpare; //如果是负数，说明采用默认值。 double dDeep1 = nUpEle1 - nDownEle1 + dPipeThick + dDeepOver; //起点井挖深 double dWidthUp1 = (dDeep1*dSlopeGradient)*2+dB; //起点井地面挖宽 double dDeep2 = nUpEle2 - nDownEle2 + dPipeThick + dDeepOver; //终点井挖深 double dWidthUp2 = (dDeep2*dSlopeGradient)*2+dB; //终点井地面挖宽 double dS1 = (dB + dWidthUp1)/2.0*dDeep1; double dS2 = (dB + dWidthUp2)/2.0*dDeep2; double dV(0); dV = (sqrt(dS1*dS2)+dS1 + dS2)*dPipeLen/3.0; dAllV+=dV; csV.Format(_T("%.3f"), dV); m_grid.GetCell(idx, 8).SetText(csV); */ idx++; } } } m_grid.Invalidate(); m_dRet = dAllV; UpdateData(FALSE); // UpdateGrid(); } void CWellCalcEarthworkDlg::OnButtonHelp() { AfxMessageBox(_T("\n") _T("《给水排水管道工程施工及验收规范》边坡坡度 (高：宽) \n\n") _T("土的类别 坡顶无荷载 坡顶有静载 坡顶有动载 \n\n") _T("中密的砂土 1:1 1:1.25 1:1.5 \n") _T("硬塑的轻亚粘土 1:0.67 1:0.75 1:1\n") _T("中密的碎石类土(充填物为砂土) 1:0.75 1:1 1:1.25\n") _T("中密的碎石类土(充填物为粘性土) 1:0.5 1:0.67 1:0.75\n") _T("硬塑的亚粘土、粘土 1:0.33 1:0.5 1:0.67\n") _T("老黄土 1:0.1 1:0.25 1:0.33\n") _T("软土 1:1 - -\n")); } void CWellCalcEarthworkDlg::OnPaint() { CPaintDC dc(this); // device context for painting CWnd *pImageBox1 = GetDlgItem(IDC_PREVIEW1); GlobalFunc::DrawSlide(_T("TWT(EARTHWORK)"), pImageBox1); }