838 lines
21 KiB
C++
838 lines
21 KiB
C++
#include "StdAfx.h"
|
||
#include "TAPI.h"
|
||
#include "PipeTools.h"
|
||
#include <map>
|
||
#include "TwtDef.h"
|
||
#include <functional>
|
||
|
||
/*============================================================================*
|
||
* Copyright(c), 1994-2007, Beijing Tangent Engineering Software Co.Ltd.
|
||
* 作 者: 陈恩涛
|
||
* 创建时间: 2010-3-15
|
||
* 描 述: 垂距表
|
||
* 归属项目: 给排水
|
||
* 历史记录:
|
||
=============================================================================*/
|
||
|
||
//extern CString GetPipeNameBySys(TPipeSys::SysType sys);
|
||
|
||
typedef struct
|
||
{
|
||
CString strPipeType; // 管道类型
|
||
CString strPipeSpec; // 管道规格
|
||
CString strPipeHigh; // 管道高程
|
||
CString strHighType; // 标高类型
|
||
CString strOppositePos; // 相对位置
|
||
}PIPEINFO;
|
||
|
||
typedef struct
|
||
{
|
||
CString strNum; // 交点编号
|
||
PIPEINFO pipeInfo1;
|
||
PIPEINFO pipeInfo2;
|
||
CString strDist; // 垂直净距
|
||
CString strRemark; // 备注
|
||
}TABLEIFO;
|
||
|
||
//用于比较编号大小
|
||
class LESS
|
||
{
|
||
public:
|
||
|
||
bool operator() (const CString &strA, const CString &strB) const
|
||
{
|
||
CString strChA, strChB, strNumA, strNumB;
|
||
SplitString(strA, strChA, strNumA);
|
||
SplitString(strB, strChB, strNumB);
|
||
|
||
if (strChA < strChB)
|
||
{
|
||
return true;
|
||
}
|
||
else if (strChA > strChB)
|
||
{
|
||
return false;
|
||
}
|
||
else
|
||
{
|
||
int nA = 0, nB = 0;
|
||
nA = _ttoi(strNumA);
|
||
nB = _ttoi(strNumB);
|
||
|
||
if (nA <= nB)
|
||
{
|
||
return true;
|
||
}
|
||
|
||
return false;
|
||
}
|
||
|
||
return true;
|
||
}
|
||
|
||
private:
|
||
|
||
void SplitString(const CString &str, CString &strCh, CString &strNum) const
|
||
{
|
||
int nLen = str.GetLength();
|
||
int i = nLen - 1;
|
||
TCHAR ch;
|
||
for (; i >= 0; i--)
|
||
{
|
||
ch = str.GetAt(i);
|
||
if (ch >= _T('0') && ch <= _T('9'))
|
||
{
|
||
continue;
|
||
}
|
||
break;
|
||
}
|
||
|
||
strNum = str.Right(nLen - i - 1);
|
||
strCh = str.Left(i + 1);
|
||
}
|
||
};
|
||
|
||
// 获取管道高程
|
||
// 输入: strPipeTye 管道类型; ptIns 交叉编号图块插入点
|
||
// 输出: dHigh 管道高程; strHighType 标高类型
|
||
void GetPipeElevation(const TDbPipe *pPipe, const XPoint &ptIns, const CString &strPipeType, double &dHigh, CString &strHighType)
|
||
{
|
||
if (pPipe != NULL)
|
||
{
|
||
// cet 2013.1.24 modify 给水、中水、消防有低中高三种类型，名称不同
|
||
// if(strPipeType.Compare(_T("给水")) == 0 || strPipeType.Compare(_T("中水")) == 0
|
||
// || strPipeType.Compare(_T("消防")) == 0)
|
||
|
||
// zxl 2013.07.05 modify 其他管线都为压力流
|
||
// if(strPipeType.Find(_T("给水")) != -1 || strPipeType.Find(_T("中水")) != -1
|
||
// || strPipeType.Find(_T("消防")) != -1 || strPipeType.Find(_T("喷淋")) != -1)
|
||
// {
|
||
strHighType = _T("CEN"); // 管子中心的标高
|
||
// }
|
||
// else
|
||
if (strPipeType.Compare(_T("污水")) == 0 || strPipeType.Compare(_T("废水")) == 0
|
||
|| strPipeType.Compare(_T("雨水")) == 0 || strPipeType.Compare(_T("其它管")) == 0)
|
||
{
|
||
strHighType = _T("BOT"); // 管内底标高
|
||
}
|
||
|
||
double dUnitMeter = 1000;
|
||
if(DocGetMeterUnitDraw())
|
||
{
|
||
dUnitMeter = 1;
|
||
}
|
||
|
||
double dI = pPipe->GetPipeGradient();
|
||
double dn = pPipe->GetDnDiameter();
|
||
int iMaterial = pPipe->GetMaterial();
|
||
CString csMat = GetPipeMaterialByIdx(iMaterial);
|
||
dn = GetPipeDjByDn(csMat, (int)dn); //内径
|
||
|
||
// zxl modify 2013.07.04
|
||
// TPipeSys::FlowDirection dir = pPipe->GetFlowDir();
|
||
// XPoint ptWell;
|
||
// if(dir == TPipeSys::kFromStart)
|
||
// {
|
||
// if (strHighType.Compare(_T("CEN")) == 0)
|
||
// {
|
||
// dHigh = pPipe->StartPoint().z / dUnitMeter;
|
||
// }
|
||
// else
|
||
// {
|
||
// dHigh = pPipe->StartPoint().z / dUnitMeter - dn / 2;
|
||
// }
|
||
// ptWell = pPipe->StartPoint();
|
||
// }
|
||
// else
|
||
// {
|
||
// if (strHighType.Compare(_T("CEN")) == 0)
|
||
// {
|
||
// dHigh = pPipe->EndPoint().z / dUnitMeter;
|
||
// }
|
||
// else
|
||
// {
|
||
// dHigh = pPipe->EndPoint().z / dUnitMeter - dn / 2;
|
||
// }
|
||
// ptWell = pPipe->EndPoint();
|
||
// }
|
||
// ptWell.z = 0;
|
||
// double nDistWell = ads_distance(ptIns, ptWell) / dUnitMeter;
|
||
// dHigh = dHigh - nDistWell * dI;
|
||
|
||
AcGePoint3d pt = ptIns;
|
||
pt.z = 100;
|
||
AcDbLine line(pt, ptIns);
|
||
AcGePoint3dArray arrays;
|
||
arrays.setLogicalLength(0);
|
||
line.intersectWith(pPipe, AcDb::kExtendBoth, arrays);
|
||
if (arrays.length() == 1)
|
||
{
|
||
pt = arrays[0];
|
||
}
|
||
|
||
if (strHighType.Compare(_T("CEN")) == 0)
|
||
{
|
||
dHigh = pt.z / dUnitMeter;
|
||
}
|
||
else
|
||
{
|
||
dHigh = pt.z / dUnitMeter - dn / 2;
|
||
}
|
||
}
|
||
}
|
||
|
||
// 获取图块插入点和编号
|
||
// zxl 2013.07.05 modify
|
||
// void GetBlockPosNum(Entity &ent, XPoint &ptIns, CString& strNum)
|
||
void GetBlockPosNum(Entity &ent, XPoint &ptIns, CString& strNum, double &dSc)
|
||
{
|
||
AcDbBlockReference *pRef = NULL;
|
||
AcDbObjectId ident;
|
||
acdbGetObjectId(ident, ent);
|
||
acdbOpenObject(pRef, ident, AcDb::kForRead);
|
||
if (pRef != NULL)
|
||
{
|
||
ptIns = pRef->position();
|
||
// zxl 2013.07.05 add
|
||
AcGeScale3d sc = pRef->scaleFactors();
|
||
dSc = sc[0];
|
||
|
||
AcDbObjectIterator *pIter=pRef->attributeIterator();
|
||
if (pIter != NULL)
|
||
{
|
||
AcDbObjectId idAtt = AcDbObjectId::kNull;
|
||
for (pIter->start(); !pIter->done(); pIter->step())
|
||
{
|
||
idAtt = pIter->objectId();
|
||
AcDbEntity *pEntAtrri = NULL;
|
||
Acad::ErrorStatus stus = acdbOpenAcDbEntity(pEntAtrri, idAtt, AcDb::kForWrite);
|
||
if (stus == Acad::eOk)
|
||
{
|
||
AcDbAttribute *pAtt = AcDbAttribute::cast(pEntAtrri);
|
||
if (pAtt != NULL)
|
||
{
|
||
TCHAR *pszName = pAtt->tag(); //得到标记
|
||
if(_tcsicmp(pszName, _T("交点编号")) == 0)
|
||
{
|
||
strNum = pAtt->textString();
|
||
}
|
||
}
|
||
|
||
pEntAtrri->close();
|
||
}
|
||
}
|
||
|
||
delete pIter;
|
||
pIter = NULL;
|
||
}
|
||
pRef->close();
|
||
}
|
||
}
|
||
|
||
// 获取两管相对位置
|
||
void GetPipeOppositePos(const AcDbObjectId id1, const AcDbObjectId id2, CString &strPos1, CString &strPos2)
|
||
{
|
||
TDbPipe *pPipe1 = NULL, *pPipe2 = NULL;
|
||
AcGePoint3d ptS1, ptS2, ptE1, ptE2;
|
||
double dDia1 = 0.0, dDia2 = 0.0;
|
||
acdbOpenObject(pPipe1, id1, AcDb::kForRead);
|
||
if (pPipe1 != NULL)
|
||
{
|
||
ptS1 = pPipe1->StartPoint();
|
||
ptE1 = pPipe1->EndPoint();
|
||
dDia1 = GetPipeOutDByDn(pPipe1->GetMaterial(), pPipe1->GetDnDiameter());
|
||
pPipe1->Close();
|
||
}
|
||
|
||
acdbOpenObject(pPipe2, id2, AcDb::kForRead);
|
||
if (pPipe2 != NULL)
|
||
{
|
||
ptS2 = pPipe2->StartPoint();
|
||
ptE2 = pPipe2->EndPoint();
|
||
dDia2 = GetPipeOutDByDn(pPipe2->GetMaterial(), pPipe2->GetDnDiameter());
|
||
pPipe2->Close();
|
||
}
|
||
|
||
// 构造经过原点的平面
|
||
AcGeVector3d vePipe1, vePipe2;
|
||
vePipe1 = ptE1 - ptS1;
|
||
vePipe2 = ptE2 - ptS2;
|
||
AcGePlane plan(AcGePoint3d::kOrigin, vePipe1, vePipe2);
|
||
AcGePoint3d pt1, pt2;
|
||
pt1 = ptS1.orthoProject(plan); // 获得管线上的一点到平面的投影
|
||
pt2 = ptS2.orthoProject(plan);
|
||
|
||
double dDist1 = 0.0, dDist2 = 0.0;
|
||
dDist1 = pt1.distanceTo(ptS1);
|
||
dDist2 = pt2.distanceTo(ptS2);
|
||
|
||
if (dDist1 >= dDist2)
|
||
{
|
||
strPos1 = _T("上行");
|
||
strPos2 = _T("下行");
|
||
}
|
||
else
|
||
{
|
||
strPos1 = _T("下行");
|
||
strPos2 = _T("上行");
|
||
}
|
||
}
|
||
|
||
// 垂直净距
|
||
// 重新定义垂直净距 zxl 2013.07.04 modify
|
||
// double Get2PipeDistance(const AcDbObjectId id1, const AcDbObjectId id2)
|
||
double Get2PipeDistance(const AcDbObjectId id1, const AcDbObjectId id2, const AcGePoint3d ptInt)
|
||
{
|
||
double dDist = 0.0;
|
||
TDbPipe *pPipe1 = NULL, *pPipe2 = NULL;
|
||
AcGePoint3d ptS1, ptS2, ptE1, ptE2;
|
||
double dDia1 = 0.0, dDia2 = 0.0;
|
||
|
||
AcGePoint3d pt = ptInt;
|
||
pt.z = 100;
|
||
AcDbLine line(ptInt, pt);
|
||
AcGePoint3dArray arrays;
|
||
|
||
acdbOpenObject(pPipe1, id1, AcDb::kForRead);
|
||
if (pPipe1 != NULL)
|
||
{
|
||
// zxl 2013.07.04 modify
|
||
// ptS1 = pPipe1->StartPoint();
|
||
// ptE1 = pPipe1->EndPoint();
|
||
arrays.setLogicalLength(0);
|
||
line.intersectWith(pPipe1, AcDb::kExtendBoth, arrays);
|
||
if (arrays.length() == 1)
|
||
{
|
||
pt = arrays[0];
|
||
}
|
||
|
||
dDia1 = GetPipeOutDByDn(pPipe1->GetMaterial(), pPipe1->GetDnDiameter());
|
||
pPipe1->Close();
|
||
}
|
||
|
||
acdbOpenObject(pPipe2, id2, AcDb::kForRead);
|
||
if (pPipe2 != NULL)
|
||
{
|
||
// zxl 2013.07.04 modify
|
||
// ptS2 = pPipe2->StartPoint();
|
||
// ptE2 = pPipe2->EndPoint();
|
||
|
||
arrays.setLogicalLength(0);
|
||
line.intersectWith(pPipe2, AcDb::kExtendBoth, arrays);
|
||
if (arrays.length() == 1)
|
||
{
|
||
ptS2 = arrays[0];
|
||
}
|
||
|
||
dDia2 = GetPipeOutDByDn(pPipe2->GetMaterial(), pPipe2->GetDnDiameter());
|
||
pPipe2->Close();
|
||
}
|
||
|
||
// zxl 2013.07.04 modify
|
||
// AcGeVector3d vePipe1, vePipe2;
|
||
// vePipe1 = ptE1 - ptS1;
|
||
// vePipe2 = ptE2 - ptS2;
|
||
// AcGePlane plan(ptS1, vePipe1, vePipe2);
|
||
// AcGePoint3d pt;
|
||
// pt = ptS2.orthoProject(plan);
|
||
|
||
double dUnitMeter = 1;
|
||
if(DocGetMeterUnitDraw())
|
||
{
|
||
dUnitMeter = 1000;
|
||
}
|
||
dDist = pt.distanceTo(ptS2) - (dDia1 + dDia2) / (2 * dUnitMeter);
|
||
// 转换为m
|
||
if (!DocGetMeterUnitDraw())
|
||
{
|
||
dDist /= 1000;
|
||
}
|
||
|
||
return dDist;
|
||
}
|
||
|
||
void InsPerpeDistTable(std::multimap<CString, TABLEIFO, LESS> &mapData)
|
||
{
|
||
double nTextSize = g_nSheetHeight; //字高
|
||
double nTableHeight = g_nSheetHeight+2;
|
||
|
||
XPoint pt;
|
||
if(acedGetPoint(NULL, _T("\n点取表格左上角位置"), pt) != RTNORM)
|
||
{
|
||
return;
|
||
}
|
||
|
||
AcDbObjectId idTextStyle=InitTwtTextStyle(g_csSheetStyle);
|
||
TDbSheet *pSheet = new TDbSheet;
|
||
|
||
TGridStyle gridStyle;
|
||
gridStyle.SetOverrideAll(TRUE);
|
||
gridStyle.SetTextHeight(nTextSize);
|
||
gridStyle.SetTextStyleId(idTextStyle);
|
||
|
||
TSheetTitle &title=pSheet->GetTitle();
|
||
title.SetHeight(7.0);
|
||
title.SetText(_T("管道交叉垂距表"));
|
||
TGridStyle &gridStyle2=title.GetGridStyle();
|
||
gridStyle2.SetTextHeight(nTextSize);
|
||
gridStyle2.SetTextStyleId(idTextStyle);
|
||
|
||
TDividerStyle &style=title.GetDividerStyle();
|
||
style.SetDividerFlag(TDividerStyle::kNone);
|
||
|
||
gridStyle.SetHorMode(AcDb::kTextCenter);
|
||
gridStyle.SetVerMode(AcDb::kTextVertMid);
|
||
gridStyle.SetLineSpaceFactor(0.2);
|
||
gridStyle.SetTextWrap(FALSE);
|
||
pSheet->SetGridStyle(gridStyle);
|
||
pSheet->SetRowHeight(nTableHeight);
|
||
pSheet->SetLayoutRotation(Ucs2Wcs(0.0));
|
||
int nAllRow(0);
|
||
nAllRow = (int)mapData.size() * 2;
|
||
|
||
pSheet->InitSheet(nAllRow + 1, 8, nTableHeight, 50);
|
||
TSheetColumn column;
|
||
column.SetWidth(15); //交点编号
|
||
pSheet->SetColumnAt(0, column);
|
||
column.SetWidth(15); //管道类型
|
||
pSheet->SetColumnAt(1, column);
|
||
column.SetWidth(15); //管道规格
|
||
pSheet->SetColumnAt(2, column);
|
||
column.SetWidth(20); //管道高程
|
||
pSheet->SetColumnAt(3, column);
|
||
column.SetWidth(15); //标高类型
|
||
pSheet->SetColumnAt(4, column);
|
||
column.SetWidth(15); //相对位置
|
||
pSheet->SetColumnAt(5, column);
|
||
column.SetWidth(20); //垂直净距
|
||
pSheet->SetColumnAt(6, column);
|
||
column.SetWidth(15); //备注
|
||
pSheet->SetColumnAt(7, column);
|
||
|
||
TGridCell &cell=*(*pSheet)(0, 0);
|
||
cell.SetText(_T("交点编号"));
|
||
TGridCell &cell2=*(*pSheet)(0, 1);
|
||
cell2.SetText(_T("管道类型"));
|
||
TGridCell &cell3=*(*pSheet)(0, 2);
|
||
cell3.SetText(_T("管道规格"));
|
||
TGridCell &cell4=*(*pSheet)(0, 3);
|
||
cell4.SetText(_T("管道高程（m）"));
|
||
TGridCell &cell5=*(*pSheet)(0, 4);
|
||
cell5.SetText(_T("标高类型"));
|
||
TGridCell &cell6=*(*pSheet)(0, 5);
|
||
cell6.SetText(_T("相对位置"));
|
||
TGridCell &cell7=*(*pSheet)(0, 6);
|
||
cell7.SetText(_T("垂直净距（m）"));
|
||
TGridCell &cell8=*(*pSheet)(0, 7);
|
||
cell8.SetText(_T("备注"));
|
||
pSheet->SetLocation(Ucs2Wcs(pt));
|
||
|
||
int index=0;
|
||
std::multimap<CString, TABLEIFO, LESS>::iterator iter;
|
||
TABLEIFO info;
|
||
for(iter = mapData.begin(); iter != mapData.end(); iter++)
|
||
{
|
||
info = (*iter).second;
|
||
index++;
|
||
index++;
|
||
pSheet->MergeCells(index - 1, 0, index, 0);
|
||
TGridCell &Cell11=*(*pSheet)(index, 0);
|
||
Cell11.SetText(info.strNum);
|
||
|
||
TGridCell &Cell12=*(*pSheet)(index - 1, 1);
|
||
Cell12.SetText(info.pipeInfo1.strPipeType);
|
||
|
||
TGridCell &Cell22=*(*pSheet)(index, 1);
|
||
Cell22.SetText(info.pipeInfo2.strPipeType);
|
||
|
||
TGridCell &Cell13=*(*pSheet)(index - 1, 2);
|
||
Cell13.SetText(info.pipeInfo1.strPipeSpec);
|
||
|
||
TGridCell &Cell23=*(*pSheet)(index, 2);
|
||
Cell23.SetText(info.pipeInfo2.strPipeSpec);
|
||
|
||
TGridCell &Cell14=*(*pSheet)(index - 1, 3);
|
||
Cell14.SetText(info.pipeInfo1.strPipeHigh);
|
||
|
||
TGridCell &Cell24=*(*pSheet)(index, 3);
|
||
Cell24.SetText(info.pipeInfo2.strPipeHigh);
|
||
|
||
TGridCell &Cell15=*(*pSheet)(index - 1, 4);
|
||
Cell15.SetText(info.pipeInfo1.strHighType);
|
||
|
||
TGridCell &Cell25=*(*pSheet)(index, 4);
|
||
Cell25.SetText(info.pipeInfo2.strHighType);
|
||
|
||
TGridCell &Cell16=*(*pSheet)(index - 1, 5);
|
||
Cell16.SetText(info.pipeInfo1.strOppositePos);
|
||
|
||
TGridCell &Cell26=*(*pSheet)(index, 5);
|
||
Cell26.SetText(info.pipeInfo2.strOppositePos);
|
||
|
||
pSheet->MergeCells(index - 1, 6, index, 6);
|
||
TGridCell &Cell17=*(*pSheet)(index, 6);
|
||
Cell17.SetText(info.strDist);
|
||
|
||
pSheet->MergeCells(index - 1, 7, index,7);
|
||
TGridCell &Cell18=*(*pSheet)(index, 7);
|
||
Cell18.SetText(info.strRemark);
|
||
}
|
||
|
||
pSheet->AddToCSpace(TRUE);
|
||
}
|
||
|
||
// 改变图块颜色
|
||
void SetBlockColor(const AcDbObjectId idBlock, int nColor)
|
||
{
|
||
AcDbBlockReference *pRef = NULL;
|
||
Acad::ErrorStatus sts = acdbOpenObject(pRef, idBlock, AcDb::kForWrite);
|
||
if (pRef != NULL)
|
||
{
|
||
//设置块颜色
|
||
pRef->setColorIndex(nColor);
|
||
AcDbObjectId idBlkRec = AcDbObjectId::kNull;
|
||
idBlkRec = pRef->blockTableRecord();
|
||
if (!idBlkRec.isValid())
|
||
{
|
||
return;
|
||
}
|
||
|
||
//设置块引用颜色
|
||
AcDbBlockTableRecord *pBlkRec = NULL;
|
||
Acad::ErrorStatus st = acdbOpenObject(pBlkRec, idBlkRec, AcDb::kForWrite);
|
||
if (pBlkRec != NULL)
|
||
{
|
||
AcDbBlockTableRecordIterator *pItr = NULL;
|
||
pBlkRec->newIterator(pItr);
|
||
AcDbEntity *pEnt = NULL;
|
||
for (pItr->start(); !pItr->done(); pItr->step())
|
||
{
|
||
pItr->getEntity(pEnt, AcDb::kForWrite);
|
||
if (pEnt != NULL)
|
||
{
|
||
pEnt->setColorIndex(nColor);
|
||
pEnt->close();
|
||
}
|
||
}
|
||
pBlkRec->close();
|
||
delete pItr;
|
||
pItr = NULL;
|
||
}
|
||
|
||
//设置属性字颜色
|
||
AcDbObjectIterator *pIter=pRef->attributeIterator();
|
||
if (pIter != NULL)
|
||
{
|
||
AcDbObjectId idAtt = AcDbObjectId::kNull;
|
||
for (pIter->start(); !pIter->done();pIter->step())
|
||
{
|
||
idAtt = pIter->objectId();
|
||
AcDbEntity *pEntAtrri = NULL;
|
||
Acad::ErrorStatus stus = acdbOpenAcDbEntity(pEntAtrri, idAtt, AcDb::kForWrite);
|
||
if (stus == Acad::eOk)
|
||
{
|
||
AcDbAttribute *pAtt = AcDbAttribute::cast(pEntAtrri);
|
||
if (pAtt != NULL)
|
||
{
|
||
pAtt->setColorIndex(nColor);
|
||
}
|
||
|
||
pEntAtrri->close();
|
||
}
|
||
}
|
||
|
||
delete pIter;
|
||
pIter = NULL;
|
||
}
|
||
pRef->close();
|
||
}
|
||
}
|
||
|
||
// 检查有几根管线经过ptIns点,并将经过ptIns点的管线保存于ssSel中
|
||
void CheckIsPtOnPipe(XPoint ptIns, PickSet& ssSel)
|
||
{
|
||
Entity ent;
|
||
XPoint pt1, pt2, pt3;
|
||
ptIns.z = 0;
|
||
PickSet ssAll(SS_FREE);
|
||
for (long i = 0; i < ssSel.Length(); i++)
|
||
{
|
||
ent = ssSel[i];
|
||
GetPipePoint(ent, pt1, pt2);
|
||
pt1.z = 0;
|
||
pt2.z = 0;
|
||
AcDbLine line(pt1, pt2);
|
||
line.getClosestPointTo(ptIns, pt3);
|
||
if (ptIns.Distance(pt3) < 1e-3)
|
||
{
|
||
ssAll += ent;
|
||
}
|
||
}
|
||
|
||
ssSel.Free();
|
||
ssSel += ssAll;
|
||
}
|
||
|
||
// 垂距表
|
||
void PerpeDistanceTable()
|
||
{
|
||
// 选择交点编号
|
||
RBList rbMask(RTDXF0, _T("INSERT"), 8, _T("TWT_室外"), NULL);
|
||
PickSet ssAll(SS_FREE);
|
||
int nStatus(0);
|
||
TCHAR chKey;
|
||
INITGET_BEG(0, _T("P"));
|
||
nStatus = SelectEntities(_T("\n请框选范围{选择闭合pline线(P)}:<整张图>"), ssAll, rbMask, _T("P"), chKey);
|
||
INITGET_END();
|
||
|
||
if (nStatus == RTKWORD) //选择关键字
|
||
{
|
||
Entity entPoly;
|
||
RBList rbMask2(RTDXF0, _T("LWPOLYLINE"), 8, _T("*"), NULL);
|
||
if(SelectEntity(_T("\n请选择表示范围的闭合PLINE:<退出>"), entPoly, rbMask2) != RTNORM)
|
||
{
|
||
return;
|
||
}
|
||
AcDbObjectId idLine;
|
||
acdbGetObjectId(idLine, entPoly);
|
||
AcDbPolyline *pPLine = NULL;
|
||
acdbOpenObject(pPLine, idLine, AcDb::kForRead);
|
||
if (pPLine != NULL)
|
||
{
|
||
if (!pPLine->isClosed())
|
||
{
|
||
pPLine->close();
|
||
return;
|
||
}
|
||
pPLine->close();
|
||
}
|
||
XPoly2D poly2(entPoly);
|
||
XPoint ptLow3, ptUp3;
|
||
poly2.GetExtend(ptLow3, ptUp3);
|
||
poly2.TransUCS(Groups(0), Groups(1)); //Groups(0) wcs, Groups(1) ucs
|
||
RBList rbFence = poly2.Fence();
|
||
AssureInCurrentView(ptLow3, ptUp3);
|
||
ssAll.Get(_T("CP"), rbFence, NULL, rbMask);
|
||
}
|
||
else if (nStatus == RTERROR) //默认选择
|
||
{
|
||
acedSSGet(_T("A"), NULL, NULL, rbMask, ssAll);
|
||
}
|
||
else if(nStatus != RTNORM)
|
||
{
|
||
return;
|
||
}
|
||
|
||
if (ssAll.Length() == 0)
|
||
{
|
||
return;
|
||
}
|
||
|
||
Entity ent;
|
||
AcDbObjectId idPipe1, idPipe2;
|
||
Entity entPipe1, entPipe2;
|
||
AcDbObjectId idBlock;
|
||
std::multimap<CString, TABLEIFO, LESS> mapData;
|
||
for (long i = 0; i < ssAll.Length(); i++)
|
||
{
|
||
ent = ssAll[i];
|
||
acdbGetObjectId(idBlock, ent);
|
||
|
||
// 获取图块插入点和属性字编号
|
||
XPoint ptIns;
|
||
CString strNum;
|
||
// zxl 2013.07.05 modify
|
||
// GetBlockPosNum(ent, ptIns, strNum);
|
||
double dScale = 0.0;
|
||
GetBlockPosNum(ent, ptIns, strNum, dScale);
|
||
ptIns.z = 0;
|
||
|
||
// 获取交点编号处的管子
|
||
XPoint pt1, pt2, pt3, pt4;
|
||
// zxl 2013.07.05 modify
|
||
//const double dLen = 2 * DocGetPScale();
|
||
const double dLen = 2 * dScale;
|
||
ptIns = Wcs2Ucs(ptIns);
|
||
pt1 = ptIns - AcGeVector3d::kXAxis * dLen + AcGeVector3d::kYAxis * dLen;
|
||
pt2 = ptIns - AcGeVector3d::kXAxis * dLen - AcGeVector3d::kYAxis * dLen;
|
||
pt3 = pt2 + AcGeVector3d::kXAxis * 2 * dLen;
|
||
pt4 = pt1 + AcGeVector3d::kXAxis * 2 * dLen;
|
||
ptIns = Ucs2Wcs(ptIns);
|
||
PickSet ssSel(SS_FREE);
|
||
RBList rbMask2(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
RBList rbPt = acutBuildList(RTPOINT,&pt1,RTPOINT,&pt2,RTPOINT,&pt3,RTPOINT,&pt4,NULL);
|
||
acedSSGet(_T("CP"),rbPt,NULL,rbMask2,ssSel);
|
||
|
||
if (ssSel.Length() == 2)
|
||
{
|
||
entPipe1 = ssSel[0l];
|
||
entPipe2 = ssSel[1l];
|
||
}
|
||
else if (ssSel.Length() > 2)
|
||
{
|
||
// 检查有几根管线经过ptIns点
|
||
CheckIsPtOnPipe(ptIns, ssSel);
|
||
if (ssSel.Length() != 2)
|
||
{
|
||
TABLEIFO info;
|
||
info.strNum = strNum;
|
||
info.strRemark = _T("错误");
|
||
mapData.insert(std::make_pair(strNum, info));
|
||
continue;
|
||
}
|
||
|
||
entPipe1 = ssSel[0l];
|
||
entPipe2 = ssSel[1l];
|
||
}
|
||
else
|
||
{
|
||
TABLEIFO info;
|
||
info.strNum = strNum;
|
||
info.strRemark = _T("错误");
|
||
mapData.insert(std::make_pair(strNum, info));
|
||
continue;
|
||
}
|
||
|
||
acdbGetObjectId(idPipe1, entPipe1);
|
||
acdbGetObjectId(idPipe2, entPipe2);
|
||
|
||
// 求交点
|
||
GetPipePoint(entPipe1, pt1, pt2); // 获取管线起始点
|
||
GetPipePoint(entPipe2, pt3, pt4);
|
||
pt1[Z] = 0;
|
||
pt2[Z] = 0;
|
||
pt3[Z] = 0;
|
||
pt4[Z] = 0;
|
||
|
||
AcDbLine l1(pt1, pt2), l2(pt3, pt4);
|
||
AcGePoint3dArray arPt;
|
||
l1.intersectWith(&l2, AcDb::kOnBothOperands, arPt);
|
||
AcGePoint3d ptInt;
|
||
if (arPt.length() == 1) // 相交
|
||
{
|
||
ptInt = arPt[0];
|
||
}
|
||
else // 无交点
|
||
{
|
||
TABLEIFO info;
|
||
info.strNum = strNum;
|
||
info.strRemark = _T("错误");
|
||
mapData.insert(std::make_pair(strNum, info));
|
||
continue;
|
||
}
|
||
|
||
// 获取管子信息
|
||
TDbPipe *pPipe1 = NULL;
|
||
TPipeSys::SysType sys1;
|
||
CString strPipeType1; // 管道类型
|
||
CString strPipeSpec1; // 管道规格
|
||
double dHigh1 = 0.0; // 管道高程
|
||
CString strType1; // 标高类型
|
||
acdbOpenObject(pPipe1, idPipe1, AcDb::kForRead);
|
||
if (pPipe1 != NULL)
|
||
{
|
||
sys1 = pPipe1->GetSysType();
|
||
CString strLabel = pPipe1->GetLabel();
|
||
double dPipeDia = pPipe1->GetDnDiameter();
|
||
CString strTmp;
|
||
strTmp.Format(_T("%.0f"), dPipeDia);
|
||
strPipeSpec1 = strLabel + strTmp;
|
||
strPipeType1 = GetPipeNameBySys(sys1);
|
||
GetPipeElevation(pPipe1, ptInt, strPipeType1, dHigh1, strType1);
|
||
pPipe1->close();
|
||
}
|
||
|
||
TDbPipe *pPipe2 = NULL;
|
||
TPipeSys::SysType sys2;
|
||
CString strPipeType2; // 管道类型
|
||
CString strPipeSpec2; // 管道规格
|
||
double dHigh2 = 0.0; // 管道高程
|
||
CString strType2; // 标高类型
|
||
acdbOpenObject(pPipe2, idPipe2, AcDb::kForRead);
|
||
if (pPipe2 != NULL)
|
||
{
|
||
sys2 = pPipe2->GetSysType();
|
||
CString strLabel = pPipe2->GetLabel();
|
||
double dPipeDia = pPipe2->GetDnDiameter();
|
||
CString strTmp;
|
||
strTmp.Format(_T("%.0f"), dPipeDia);
|
||
strPipeSpec2 = strLabel + strTmp;
|
||
strPipeType2 = GetPipeNameBySys(sys2);
|
||
GetPipeElevation(pPipe2, ptInt, strPipeType2, dHigh2, strType2);
|
||
pPipe2->close();
|
||
}
|
||
|
||
CString strPos1, strPos2;
|
||
double dDist = 0.0;
|
||
|
||
// 求两管相对位置: 上行, 下行
|
||
// GetPipeOppositePos(idPipe1, idPipe2, strPos1, strPos2); zxl 2013.07.05 modify
|
||
if (dHigh1 >= dHigh2)
|
||
{
|
||
strPos1 = _T("上行");
|
||
strPos2 = _T("下行");
|
||
}
|
||
else
|
||
{
|
||
strPos1 = _T("下行");
|
||
strPos2 = _T("上行");
|
||
}
|
||
|
||
// 求垂直净距
|
||
// 重新定义垂直净距 zxl 2013.07.04 modify
|
||
// dDist = Get2PipeDistance(idPipe1, idPipe2);
|
||
dDist = Get2PipeDistance(idPipe1, idPipe2, ptInt);
|
||
|
||
// 保存信息
|
||
TABLEIFO info;
|
||
int nNum = _ttoi(strNum);
|
||
info.strNum = strNum;
|
||
CString strTmp;
|
||
if (strPos1.Compare(_T("上行")) == 0)
|
||
{
|
||
info.pipeInfo1.strPipeType = strPipeType1;
|
||
info.pipeInfo2.strPipeType = strPipeType2;
|
||
info.pipeInfo1.strPipeSpec = strPipeSpec1;
|
||
info.pipeInfo2.strPipeSpec = strPipeSpec2;
|
||
strTmp.Format(_T("%.3f"), dHigh1);
|
||
info.pipeInfo1.strPipeHigh = strTmp;
|
||
strTmp.Format(_T("%.3f"), dHigh2);
|
||
info.pipeInfo2.strPipeHigh = strTmp;
|
||
info.pipeInfo1.strHighType = strType1;
|
||
info.pipeInfo2.strHighType = strType2;
|
||
info.pipeInfo1.strOppositePos = strPos1;
|
||
info.pipeInfo2.strOppositePos = strPos2;
|
||
}
|
||
else
|
||
{
|
||
info.pipeInfo1.strPipeType = strPipeType2;
|
||
info.pipeInfo2.strPipeType = strPipeType1;
|
||
info.pipeInfo1.strPipeSpec = strPipeSpec2;
|
||
info.pipeInfo2.strPipeSpec = strPipeSpec1;
|
||
strTmp.Format(_T("%.3f"), dHigh2);
|
||
info.pipeInfo1.strPipeHigh = strTmp;
|
||
strTmp.Format(_T("%.3f"), dHigh1);
|
||
info.pipeInfo2.strPipeHigh = strTmp;
|
||
info.pipeInfo1.strHighType = strType2;
|
||
info.pipeInfo2.strHighType = strType1;
|
||
info.pipeInfo1.strOppositePos = strPos2;
|
||
info.pipeInfo2.strOppositePos = strPos1;
|
||
}
|
||
|
||
if (dDist > 0.0)
|
||
{
|
||
strTmp.Format(_T("%.3f"), dDist);
|
||
info.strDist = strTmp;
|
||
}
|
||
else
|
||
{
|
||
info.strDist = _T("相交");
|
||
}
|
||
|
||
mapData.insert(std::make_pair(strNum, info));
|
||
}
|
||
|
||
// 生成表格
|
||
InsPerpeDistTable(mapData);
|
||
}
|