2177 lines
68 KiB
C++
2177 lines
68 KiB
C++
/********************************************************************
|
||
created: 2004/02/24
|
||
created: 24:2:2004 14:27
|
||
filename: f:\tg_dev\telecdev\twtkernal\editpipe.cpp
|
||
file path: f:\tg_dev\telecdev\twtkernal
|
||
file base: editpipe
|
||
file ext: cpp
|
||
author: 沈睿
|
||
|
||
purpose: edit pipe
|
||
*********************************************************************/
|
||
|
||
|
||
#include "stdafx.h"
|
||
#include <DbEquipment.h>
|
||
#include <DbPipeFitting.h>
|
||
#include <DbDimension.h>
|
||
#include <PipeWireMonitor.h>
|
||
#include <PipeTools.h>
|
||
#include <dbwell.h>
|
||
#include <dbxline.h>
|
||
|
||
#include "jig.h"
|
||
#include "DrawStandPipeDlg.h"
|
||
|
||
void GetPipeFPickSet(Entity ent, PickSet &ss, BOOL bIsEqElevation = FALSE)
|
||
{
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
double nElevation(0);
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
XPoint p1 = pPipe->StartPoint();
|
||
XPoint p2 = pPipe->EndPoint();
|
||
nElevation = p1.z;
|
||
p1 = Wcs2Ucs(p1);
|
||
p2 = Wcs2Ucs(p2);
|
||
|
||
ads_polar(p1, ads_angle(p1, p2), 50, p1);
|
||
ads_polar(p2, ads_angle(p2, p1), 50, p2);
|
||
XPoint pt1, pt2, pt3, pt4;
|
||
ads_polar(p1, ads_angle(p1, p2)+ PI/2, g_nBreakPipeWidth*DocGetPScale(), pt1);
|
||
ads_polar(p2, ads_angle(p1, p2)- PI/2, g_nBreakPipeWidth*DocGetPScale(), pt2);
|
||
ads_polar(p1, ads_angle(p2, p1)+ PI/2, g_nBreakPipeWidth*DocGetPScale(), pt3);
|
||
ads_polar(p2, ads_angle(p2, p1)- PI/2, g_nBreakPipeWidth*DocGetPScale(), pt4);
|
||
|
||
PickSet ssF(SS_FREE);
|
||
struct resbuf *pointlist;
|
||
pointlist = ads_buildlist(RTPOINT, &pt1, RTPOINT, &pt3, RTPOINT, &pt2, RTPOINT, &pt4, NULL);
|
||
ss.Get(_T("F"), pointlist, NULL, rbMask);
|
||
ads_relrb(pointlist);
|
||
}
|
||
OPENOBJ_END();
|
||
long len = ss.Length();
|
||
if(ss.Length() == 0)
|
||
return;
|
||
if(bIsEqElevation){
|
||
PickSet ssDel(SS_FREE);
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity entTmp = ss[i];
|
||
OPENOBJ_BEGIN(entTmp, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe && !pPipe->IsVertical()){
|
||
if(fabs(pPipe->StartPoint().z - nElevation) > 0.1)
|
||
ssDel += entTmp;
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
ss -= ssDel;
|
||
}
|
||
}
|
||
|
||
void GetPipeFPickSet(XPoint p1, XPoint p2, PickSet &ss)
|
||
{
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
ads_polar(p1, ads_angle(p1, p2), 50, p1);
|
||
ads_polar(p2, ads_angle(p2, p1), 50, p2);
|
||
XPoint pt1, pt2, pt3, pt4;
|
||
ads_polar(p1, ads_angle(p1, p2)+ PI/2, g_nBreakPipeWidth*DocGetPScale(), pt1);
|
||
ads_polar(p2, ads_angle(p1, p2)- PI/2, g_nBreakPipeWidth*DocGetPScale(), pt2);
|
||
ads_polar(p1, ads_angle(p2, p1)+ PI/2, g_nBreakPipeWidth*DocGetPScale(), pt3);
|
||
ads_polar(p2, ads_angle(p2, p1)- PI/2, g_nBreakPipeWidth*DocGetPScale(), pt4);
|
||
XRectAngle rect(pt1, pt2);
|
||
// rect.Make();
|
||
|
||
PickSet ssF(SS_FREE);
|
||
struct resbuf *pointlist;
|
||
pointlist = ads_buildlist(RTPOINT, &pt1, RTPOINT, &pt3, RTPOINT, &pt2, RTPOINT, &pt4, RTPOINT, &pt1, NULL);
|
||
// ss.Get(_T("F"), pointlist, NULL, rbMask);
|
||
ss.Get(_T("CP"), pointlist, NULL, rbMask); // 2008-7-1 sr 改为cp，F有时候选不中
|
||
int len = ss.Length();
|
||
ads_relrb(pointlist);
|
||
}
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 删除管线
|
||
//***************************************************************************************************
|
||
void ErasePipeCmd()
|
||
{
|
||
|
||
g_ssPickFirst.Free();
|
||
RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
PickSet ss(SS_FREE);
|
||
while(1){
|
||
if(SelectEntities(_T("\n请选择要删除的管线<退出>:"), ss, rbMaskPipe) != RTNORM)
|
||
break;
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
AcDbObjectId nodeId1(NULL), nodeId2(NULL);
|
||
nodeId1 = pPipe->GetNode(0);
|
||
nodeId2 = pPipe->GetNode(1);
|
||
ss += nodeId1;
|
||
ss += nodeId2;
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
ss.Erase();
|
||
}
|
||
}
|
||
|
||
//***************************************************************************************************
|
||
// 图块加粗
|
||
//***************************************************************************************************
|
||
void ThickBlkPLine(const TCHAR* szBlkName, double dWidth = 0)
|
||
{
|
||
|
||
AcDbBlockTableRecord *pRecord = NULL;
|
||
AcDbBlockTable* pBlockTable = NULL;
|
||
acdbCurDwg()->getBlockTable(pBlockTable, AcDb::kForRead);
|
||
if(!pBlockTable)
|
||
return;
|
||
if(Acad::eOk != pBlockTable->getAt(szBlkName, pRecord, AcDb::kForRead)){
|
||
pBlockTable->close();
|
||
return;
|
||
}
|
||
pBlockTable->close();
|
||
if(!pRecord)
|
||
return;
|
||
|
||
AcDbBlockTableRecordIterator *pIterator;
|
||
pRecord->newIterator(pIterator);
|
||
pRecord->close();
|
||
if(!pIterator)
|
||
return;
|
||
for(pIterator->start(); !pIterator->done(); pIterator->step()){
|
||
AcDbEntity *pEnt = NULL;
|
||
pIterator->getEntity(pEnt, AcDb::kForWrite);
|
||
if(pEnt){
|
||
AcDbPolyline *pll = NULL;
|
||
if(pll = AcDbPolyline::cast(pEnt)){
|
||
pll->setConstantWidth(dWidth*DocGetPScale());
|
||
}
|
||
pEnt->close();
|
||
}
|
||
}
|
||
delete pIterator;
|
||
|
||
}
|
||
|
||
|
||
void SetBlockWidth()
|
||
{
|
||
RBList rbMask = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("INSERT"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
Entity ent;
|
||
if(SelectEntity(_T("\n请选择要设定宽度的图块或上华设备<退出>"), ent, rbMask) != RTNORM)
|
||
return;
|
||
double nDist(0);
|
||
if(ads_getdist(NULL, _T("\n请输入图块的宽度 (0 ~ 1)<退出>:"), &nDist) != RTNORM)
|
||
return;
|
||
if(nDist > 1 || nDist < 0)
|
||
return;
|
||
CString csBlkName;
|
||
TCHAR szBlkName[256];
|
||
if(ent.Is(_T("INSERT"))){
|
||
ent.GetData(2, szBlkName);
|
||
csBlkName = szBlkName;
|
||
}
|
||
else{
|
||
csBlkName = GetEquipBlkName(ent);
|
||
ent.GetData(8, szBlkName);
|
||
}
|
||
ThickBlkPLine(csBlkName, nDist);
|
||
PickSet ss(SS_FREE);
|
||
if(ent.Is(_T("INSERT"))){
|
||
RBList rbMask2(RTDXF0, _T("INSERT"), 2, csBlkName, NULL);
|
||
ss.Get(_T("X"), NULL, NULL, rbMask2);
|
||
}
|
||
else{
|
||
RBList rbMask2(RTDXF0, _T("ATS_EQUIPMENT"), 8, szBlkName, NULL);
|
||
ss.Get(_T("X"), NULL, NULL, rbMask2);
|
||
}
|
||
UpdateGraphic(ss);
|
||
|
||
}
|
||
|
||
//***************************************************************************************************
|
||
// 管线粗细
|
||
//***************************************************************************************************
|
||
int GetBoldPipeState()
|
||
{
|
||
ads_retint(g_bIsPipeThick);
|
||
return RTNORM;
|
||
}
|
||
|
||
int SetBoldPipeState()
|
||
{
|
||
PostCommand(_T("gxcx "), false);
|
||
return RTNORM;
|
||
}
|
||
|
||
void SetPipeThickOrThin()
|
||
{
|
||
|
||
// RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
// PickSet ss(SS_FREE);
|
||
// ss.Get(_T("X"), NULL, NULL, rbMaskPipe);
|
||
|
||
TDbPsConfig *pConfig = GetDwgPsGlobal(AcDb::kForWrite);
|
||
if (pConfig){
|
||
g_bIsPipeThick = pConfig->IsLineWeight();
|
||
g_bIsPipeThick = !g_bIsPipeThick;
|
||
pConfig->SetLineWeight(g_bIsPipeThick);
|
||
pConfig->close();
|
||
}
|
||
PickSet ssObj(SS_FREE);
|
||
if(GetEntByDxf(ssObj, _T("ATS_PIPE,ATS_DOUBLELINEPIPE,ATS_FLANGE,ATS_PIPECANAL"), 1)==Acad::eOk) {
|
||
UpdateGraphic(ssObj);
|
||
}
|
||
|
||
// SHads_command(RTSTR, _T("REGEN"), NULL); //更快一些
|
||
acedRedraw(NULL,0);
|
||
}
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 管线打断
|
||
//***************************************************************************************************
|
||
void PipeWireBreak()
|
||
{
|
||
RBList rbMask = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_DOUBLELINEPIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
|
||
Entity entSel;
|
||
XPoint ptPick, ptPick2;
|
||
if(SelectEntity1(g_nCurPipeWidth*DocGetPScale(), _T("\n请选取要打断管线的第一截断点<退出>:"), entSel, ptPick, rbMask)==RTNORM) {
|
||
int nOsMode=0;
|
||
nOsMode |= OS_INT|OS_NEA;
|
||
XPushVar<int> vOsMode(_T("OSMODE"), nOsMode);
|
||
entSel.Redraw(3);
|
||
if(ads_getpoint(ptPick, _T("\n再点取该管线上另一截断点<退出>: "), ptPick2) != RTNORM)
|
||
BreakEntity(entSel, ptPick, ptPick);
|
||
else
|
||
BreakEntity(entSel, ptPick, ptPick2);
|
||
entSel.Redraw(4);
|
||
}
|
||
return;
|
||
}
|
||
//***************************************************************************************************
|
||
// 双线倒角
|
||
//***************************************************************************************************
|
||
void ChamferPipe(Entity entFirst, Entity entSecond, XPoint ptFirst, XPoint ptSecond)
|
||
{
|
||
|
||
XPoint ptFirstS, ptFirstE, ptSecondS, ptSecondE, ptInt;
|
||
GetPipePoint(entFirst, ptFirstS, ptFirstE);
|
||
GetPipePoint(entSecond, ptSecondS, ptSecondE);
|
||
if(IsPipeVertical(entFirst) || IsPipeVertical(entSecond)){
|
||
adsout << _T("\n不能选择立管！");
|
||
return;
|
||
}
|
||
if(fabs(ptFirstS.z - ptSecondS.z) > 0.01){ //2管线不在同一平面上
|
||
adsout << _T("\n2管线不在同一平面上！");
|
||
return;
|
||
}
|
||
if(GetPipeSys(entFirst) != GetPipeSys(entSecond)){
|
||
adsout << _T("\n2管线类型不一致！");
|
||
return;
|
||
}
|
||
XLine l1(ptFirstS, ptFirstE, 1);
|
||
XLine l2(ptSecondS, ptSecondE, 1);
|
||
l1.SetLineFlag(LS_FINITE);
|
||
l2.SetLineFlag(LS_FINITE);
|
||
int ret = l2.Intersection(&l1, ptInt);
|
||
if(ret == 1){
|
||
adsout << _T("\n2管线已经相连！");
|
||
return;
|
||
}
|
||
l1.SetLineFlag(LS_INFINITE);
|
||
l2.SetLineFlag(LS_INFINITE);
|
||
ret = l2.Intersection(&l1, ptInt);
|
||
if(ret == 0){
|
||
adsout << _T("\n2管线平行，无法连接！");
|
||
return;
|
||
}
|
||
int ret1 = ptInt&l1;
|
||
int ret2 = ptInt&l2;
|
||
if(ret1 == PR_EXTEND){ //交点在第一根管线延长线上
|
||
double nDist1 = ads_distance(ptInt, ptFirstS);
|
||
double nDist2 = ads_distance(ptInt, ptFirstE);
|
||
OPENOBJ_BEGIN(entFirst, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
if(nDist1 < nDist2)
|
||
pPipe->SetStartPoint(ptInt);
|
||
else
|
||
pPipe->SetEndPoint(ptInt);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
else if(ret1 == PR_INSIDE){//交点在第一根管线上
|
||
double nDist1 = ads_distance(ptInt, ptFirstS);
|
||
double nDist2 = ads_distance(ptFirst, ptFirstS);
|
||
OPENOBJ_BEGIN(entFirst, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
if(nDist1 < nDist2)
|
||
pPipe->SetStartPoint(ptInt);
|
||
else
|
||
pPipe->SetEndPoint(ptInt);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
if(ret2 == PR_EXTEND){ //交点在第二根管线延长线上
|
||
double nDist1 = ads_distance(ptInt, ptSecondS);
|
||
double nDist2 = ads_distance(ptInt, ptSecondE);
|
||
OPENOBJ_BEGIN(entSecond, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
if(nDist1 < nDist2)
|
||
pPipe->SetStartPoint(ptInt);
|
||
else
|
||
pPipe->SetEndPoint(ptInt);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
else if(ret2 == PR_INSIDE){//交点在第二根管线上
|
||
double nDist1 = ads_distance(ptInt, ptSecondS);
|
||
double nDist2 = ads_distance(ptSecond, ptSecondS);
|
||
OPENOBJ_BEGIN(entSecond, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
if(nDist1 < nDist2)
|
||
pPipe->SetStartPoint(ptInt);
|
||
else
|
||
pPipe->SetEndPoint(ptInt);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
|
||
}
|
||
|
||
//***************************************************************************************************
|
||
// 管线连接
|
||
//***************************************************************************************************
|
||
void GetLineMax2Pt(XPoint pt1, XPoint pt2, XPoint &pt3, XPoint &pt4)
|
||
{
|
||
XLine l1(pt1, pt3, LS_FINITE);
|
||
XLine l2(pt2, pt3, LS_FINITE);
|
||
XLine l3(pt1, pt4, LS_FINITE);
|
||
XLine l4(pt2, pt4, LS_FINITE);
|
||
double nMaxLen = 0.0;
|
||
XPoint ptStart, ptEnd;
|
||
nMaxLen = l1.GetLength() > nMaxLen ? l1.GetLength() : nMaxLen;
|
||
nMaxLen = l2.GetLength() > nMaxLen ? l2.GetLength() : nMaxLen;
|
||
nMaxLen = l3.GetLength() > nMaxLen ? l3.GetLength() : nMaxLen;
|
||
nMaxLen = l4.GetLength() > nMaxLen ? l4.GetLength() : nMaxLen;
|
||
if(nMaxLen == l1.GetLength()){
|
||
pt3 = l1.StartPoint();
|
||
pt4 = l1.EndPoint();
|
||
return;
|
||
}
|
||
if(nMaxLen == l2.GetLength()){
|
||
pt3 = l2.StartPoint();
|
||
pt4 = l2.EndPoint();
|
||
return;
|
||
}
|
||
if(nMaxLen == l3.GetLength()){
|
||
pt3 = l3.StartPoint();
|
||
pt4 = l3.EndPoint();
|
||
return;
|
||
}
|
||
if(nMaxLen == l4.GetLength()){
|
||
pt3 = l4.StartPoint();
|
||
pt4 = l4.EndPoint();
|
||
return;
|
||
}
|
||
}
|
||
|
||
BOOL IsParallel(XLine &l1, XLine &l2)
|
||
{
|
||
AcGeVector3d vt1 = XVector3D(l1.EndPoint() - l1.StartPoint()).AsAcGeVector3d();
|
||
AcGeVector3d vt2 = XVector3D(l2.EndPoint() - l2.StartPoint()).AsAcGeVector3d();
|
||
if(vt1.isParallelTo(vt2)==Adesk::kTrue) //平行
|
||
return TRUE;
|
||
else if(vt1.isCodirectionalTo(vt2)==Adesk::kTrue) //相反
|
||
return TRUE;
|
||
return FALSE;
|
||
}
|
||
|
||
BOOL Is2PipeParallel(AcDbObjectId id1, AcDbObjectId id2)
|
||
{
|
||
XPoint p1, p2, p3, p4;
|
||
OPENOBJ_BEGIN(id1, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p1 = pPipe->StartPoint();
|
||
p2 = pPipe->EndPoint();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
OPENOBJ_BEGIN(id2, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p3 = pPipe->StartPoint();
|
||
p4 = pPipe->EndPoint();
|
||
}
|
||
OPENOBJ_END();
|
||
XLine line1(p1, p2, 1);
|
||
XLine line2(p3, p4, 1);
|
||
if(IsParallel(line1,line2))
|
||
return TRUE;
|
||
else
|
||
return FALSE;
|
||
}
|
||
|
||
BOOL Is2PipeParallel(Entity ent1, Entity ent2)
|
||
{
|
||
XPoint p1, p2, p3, p4;
|
||
OPENOBJ_BEGIN(ent1, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p1 = pPipe->StartPoint();
|
||
p2 = pPipe->EndPoint();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
OPENOBJ_BEGIN(ent2, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p3 = pPipe->StartPoint();
|
||
p4 = pPipe->EndPoint();
|
||
}
|
||
OPENOBJ_END();
|
||
XLine line1(p1, p2, 1);
|
||
XLine line2(p3, p4, 1);
|
||
if(IsParallel(line1,line2))
|
||
return TRUE;
|
||
else
|
||
return FALSE;
|
||
}
|
||
|
||
//判断2根管线是否是同一直线，且相邻的，且同类型，如果是：返回2端端点
|
||
BOOL Is2PipeOnLine(Entity entSel1, Entity entSel2, XPoint &ptMax1, XPoint &ptMax2)
|
||
{
|
||
XPoint p1, p2, p3, p4;
|
||
TPipeSys::SysType sysType1, sysType2;
|
||
OPENOBJ_BEGIN(entSel1, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p1 = pPipe->StartPoint();
|
||
p2 = pPipe->EndPoint();
|
||
sysType1 = pPipe->GetSysType();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p3 = pPipe->StartPoint();
|
||
p4 = pPipe->EndPoint();
|
||
sysType2 = pPipe->GetSysType();
|
||
}
|
||
OPENOBJ_END();
|
||
if(sysType1 != sysType2){
|
||
return FALSE;
|
||
}
|
||
XLine line1(p1, p2, 1);
|
||
XLine line2(p3, p4, 1);
|
||
if(Is2LineOnLine(line1,line2)){
|
||
XPoint ptMin1, ptMin2, ptTmp3, ptTmp4, ptTmp1(p3), ptTmp2(p4);
|
||
GetLineMax2Pt(p1, p2, ptTmp1, ptTmp2);
|
||
ptMax1 = ptTmp1;
|
||
ptMax2 = ptTmp2;
|
||
if(ptTmp1 != p3 && ptTmp1 != p4){
|
||
ptMin1 = ptTmp2 == p3 ? p4 : p3;
|
||
ptMin2 = ptTmp1 == p2 ? p1 : p2;
|
||
ptTmp3 = ptTmp1 == p1 ? p2 : p1;
|
||
ptTmp1 = ptTmp2; //自己的端点
|
||
}
|
||
else{
|
||
ptMin1 = ptTmp1 == p3 ? p4 : p3;
|
||
ptMin2 = ptTmp2 == p2 ? p1 : p2;
|
||
ptTmp3 = ptTmp2 == p1 ? p2 : p1;
|
||
ptTmp1 = ptTmp1;
|
||
}
|
||
if(ptMin1 == ptMin2){ //端点相同，说明他们相连
|
||
return TRUE;
|
||
}
|
||
}
|
||
|
||
return FALSE;
|
||
|
||
}
|
||
|
||
|
||
|
||
|
||
void Join2Pipe()
|
||
{
|
||
RBList rbMask = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_DOUBLELINEPIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
Entity entSel1, entSel2;
|
||
XPoint ptPick1, ptPick2;
|
||
if(SelectEntity1(g_nCurPipeWidth*DocGetPScale(), _T("\n请拾取要连接的第一根管线 <退出>:"), entSel1, ptPick1, rbMask)!=RTNORM)
|
||
return;
|
||
if(SelectEntity1(g_nCurPipeWidth*DocGetPScale(), _T("\n请拾取要连接的第二根管线 <退出>:"), entSel2, ptPick2, rbMask)!=RTNORM)
|
||
return;
|
||
if(entSel1 == entSel2)
|
||
return;
|
||
XPushVar<int> vOsMode(_T("OSMODE"), 0);
|
||
|
||
XPoint p1, p2, p3, p4;
|
||
TPipeSys::SysType sysType1, sysType2;
|
||
OPENOBJ_BEGIN(entSel1, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p1 = pPipe->StartPoint();
|
||
p2 = pPipe->EndPoint();
|
||
sysType1 = pPipe->GetSysType();
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
p3 = pPipe->StartPoint();
|
||
p4 = pPipe->EndPoint();
|
||
sysType2 = pPipe->GetSysType();
|
||
}
|
||
OPENOBJ_END();
|
||
if(sysType1 != sysType2){
|
||
ads_alert(_T("不是同类型管线！"));
|
||
return;
|
||
}
|
||
XLine line1(p1, p2, 1);
|
||
XLine line2(p3, p4, 1);
|
||
if(Is2LineOnLine(line1,line2)){
|
||
XPoint ptTmp3, ptTmp4, ptTmp1(p3), ptTmp2(p4);
|
||
GetLineMax2Pt(p1, p2, ptTmp1, ptTmp2);
|
||
XPoint ptMin1, ptMin2, ptMax1(ptTmp1), ptMax2(ptTmp2);
|
||
if(ptTmp1 != p3 && ptTmp1 != p4){
|
||
ptMin1 = ptTmp2 == p3 ? p4 : p3;
|
||
ptMin2 = ptTmp1 == p2 ? p1 : p2;
|
||
ptTmp3 = ptTmp1 == p1 ? p2 : p1;
|
||
ptTmp1 = ptTmp2; //自己的端点
|
||
}
|
||
else{
|
||
ptMin1 = ptTmp1 == p3 ? p4 : p3;
|
||
ptMin2 = ptTmp2 == p2 ? p1 : p2;
|
||
ptTmp3 = ptTmp2 == p1 ? p2 : p1;
|
||
ptTmp1 = ptTmp1;
|
||
}
|
||
/////////////////////////////////////////////////////////////////////////////////
|
||
// 以下处理4通的管线，选中的2管线合并，置上
|
||
//自定义实体缺陷：修改2根相连的管线的遮挡系数，使他们和交叉的另2根管线发生“强制遮挡”，这2根相连的管线无法合并，也就无法遮挡
|
||
//处理办法：把和他们交叉的另2管管线也做同样的连接操作，ok
|
||
if(ptMin1 == ptMin2){
|
||
int up, low;
|
||
|
||
BOOL ret = GetInterPipeLevel(ptMax1, ptMax2, ptMax1.z, up, low);
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
pPipe->SetEndPoint(ptMax1);
|
||
pPipe->SetStartPoint(ptMax2);
|
||
if(up != 256)
|
||
pPipe->SetHideLevel(up+1);
|
||
else
|
||
pPipe->SetHideLevel(low+1);
|
||
}
|
||
OPENOBJ_END();
|
||
entSel1.Erase();
|
||
PickSet ss(SS_FREE);
|
||
XPoint ptF1(ptMax1), ptF2(ptMax2);
|
||
double nAng = ads_angle(ptF1, ptF2);
|
||
ads_polar(ptF1, nAng, 50, ptF1);
|
||
ads_polar(ptF2, nAng, -50, ptF2);
|
||
GetPipeFPickSet(ptF1, ptF2, ss);
|
||
// DrawLine(ptF2, ptF1);
|
||
ss-=entSel2;
|
||
int len = ss.Length();
|
||
if(len > 2){
|
||
PickSet ssDel(SS_FREE);
|
||
XLine line1(ptMax1, ptMax2, 1);
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity entTmp = ss[i];
|
||
XPoint pt1, pt2, ptInt;
|
||
GetPipePoint(entTmp, pt1, pt2);
|
||
XLine line2(pt1, pt2, 1);
|
||
int ret = line1.Intersection(&line2, ptInt);
|
||
if(ret == 1){
|
||
ret = ptInt&line2;
|
||
// cet 2011.1.4 modify 无法过滤掉与待连接的两管线相连的无用管线
|
||
int nRet2 = ptMin1 & line2;
|
||
// if(ret != 1 && ret != 2)
|
||
// ssDel += entTmp;
|
||
if(ret != 1 && ret != 2 ||
|
||
nRet2 != 1 && nRet2 != 2)
|
||
ssDel += entTmp;
|
||
}
|
||
}
|
||
ss-=ssDel;
|
||
}
|
||
if(ss.Length() == 2){
|
||
//形成4通的另外2根管线
|
||
Entity ent1, ent2;
|
||
ent1 = ss[0L];
|
||
ent2 = ss[1L];
|
||
XPoint ptMax3, ptMax4;
|
||
if(Is2PipeOnLine(ent1, ent2, ptMax3, ptMax4)){
|
||
OPENOBJ_BEGIN(ent1, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
pPipe->SetEndPoint(ptMax3);
|
||
pPipe->SetStartPoint(ptMax4);
|
||
}
|
||
OPENOBJ_END();
|
||
ent2.Erase();
|
||
}
|
||
}
|
||
return;
|
||
}
|
||
/////////////////////////////////////////////////////////////////////////////////
|
||
// 以下处理同一直线上不连接的2管线连接
|
||
//修改其中一根管线延长至另一根，他们会自动合并成一根
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
if(pPipe->StartPoint() == ptTmp1)
|
||
pPipe->SetEndPoint(ptTmp3);
|
||
else
|
||
pPipe->SetStartPoint(ptTmp3);
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
else{
|
||
//管线圆角
|
||
// cet 2011.2.15 modify 增加对异面管线的处理，生成扣弯
|
||
//adsout << _T("\n2根管线不在同一直线上！");
|
||
//ChamferPipe(entSel1, entSel2, ptPick1, ptPick2);
|
||
|
||
XPoint ptFirstS, ptFirstE, ptSecondS, ptSecondE, ptInt;
|
||
GetPipePoint(entSel1, ptFirstS, ptFirstE);
|
||
GetPipePoint(entSel2, ptSecondS, ptSecondE);
|
||
|
||
if(IsPipeVertical(entSel1) || IsPipeVertical(entSel2))
|
||
{
|
||
adsout << _T("\n不能选择立管！");
|
||
return;
|
||
}
|
||
|
||
if(fabs(ptFirstS.z - ptSecondS.z) > 0.01) //2管线不在同一平面上
|
||
{
|
||
XPoint pt1 = ptFirstS, pt2 = ptFirstE, pt3 = ptSecondS, pt4 = ptSecondE;
|
||
pt1.z = 0;
|
||
pt2.z = 0;
|
||
pt3.z = 0;
|
||
pt4.z = 0;
|
||
|
||
XLine l1(pt1, pt2, 1);
|
||
XLine l2(pt3, pt4, 1);
|
||
|
||
l1.SetLineFlag(LS_INFINITE);
|
||
l2.SetLineFlag(LS_INFINITE);
|
||
int ret = l2.Intersection(&l1, ptInt);
|
||
if(ret == 1 || Is2LineOnLine(l1,l2)) // 两管线在XY平面的投影有交点或共线
|
||
{
|
||
if (ret != 1)
|
||
{
|
||
int nOsMode=0;
|
||
xg_getvar(_T("OSMODE"), &nOsMode);
|
||
nOsMode &= ~0x4000;
|
||
nOsMode |= OS_INT|OS_NEA|OS_END|OS_INS;
|
||
XPushVar<int> vOsMode2(_T("OSMODE"), nOsMode);
|
||
XPoint pt;
|
||
if (acedGetPoint(NULL, _T("\n请选择扣弯插入点："), pt) != RTNORM)
|
||
{
|
||
return;
|
||
}
|
||
|
||
pt.Project(&l1, ptInt);
|
||
}
|
||
|
||
if (!ptInt)
|
||
{
|
||
return;
|
||
}
|
||
|
||
XLine line1(ptFirstS, ptFirstE, 1);
|
||
XLine line2(ptSecondS, ptSecondE, 1);
|
||
ptInt.Project(&line1, pt3);
|
||
ptInt.Project(&line2, pt4);
|
||
|
||
// 根据投影点位置设置管线端点
|
||
int ret1 = pt3&line1;
|
||
int ret2 = pt4&line2;
|
||
if(ret1 == PR_EXTEND) //交点在第一根管线延长线上
|
||
{
|
||
double nDist1 = ads_distance(pt3, ptFirstS);
|
||
double nDist2 = ads_distance(pt3, ptFirstE);
|
||
OPENOBJ_BEGIN(entSel1, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe != NULL)
|
||
{
|
||
if(nDist1 < nDist2)
|
||
{
|
||
pPipe->SetStartPoint(pt3);
|
||
}
|
||
else
|
||
{
|
||
pPipe->SetEndPoint(pt3);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
if(ret2 == PR_EXTEND) //交点在第二根管线延长线上
|
||
{
|
||
double nDist1 = ads_distance(pt4, ptSecondS);
|
||
double nDist2 = ads_distance(pt4, ptSecondE);
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe != NULL)
|
||
{
|
||
if(nDist1 < nDist2)
|
||
{
|
||
pPipe->SetStartPoint(pt4);
|
||
}
|
||
else
|
||
{
|
||
pPipe->SetEndPoint(pt4);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
|
||
TDbPipe *pNewPipe = NULL;
|
||
OPENOBJ_BEGIN(entSel2, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe != NULL)
|
||
{
|
||
pNewPipe = ClonePipe(pPipe);
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
if (pNewPipe != NULL)
|
||
{
|
||
pNewPipe->SetStartPoint(pt3);
|
||
pNewPipe->SetEndPoint(pt4);
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
ChamferPipe(entSel1, entSel2, ptPick1, ptPick2);
|
||
}
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 设备连管
|
||
//***************************************************************************************************
|
||
|
||
|
||
extern void DoLinkHydrant(Entity entEq, Entity entPipe);
|
||
|
||
BOOL IsSamePipeSys(Entity entPipe, Entity entEq)
|
||
{
|
||
BOOL bRet = FALSE;
|
||
TCHAR szPipeLay[256];
|
||
TCHAR szEqLay[256];
|
||
entPipe.GetData(8, szPipeLay);
|
||
entEq.GetData(8, szEqLay);
|
||
if((_tcsicmp(szPipeLay, LAY_PIPE_FEED) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_FEED2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_FEED3) == 0) && _tcsicmp(szEqLay, LAY_EQ_FEED) == 0)
|
||
bRet = TRUE;
|
||
else if((_tcsicmp(szPipeLay, LAY_PIPE_HEADFEED) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_HEADFEED2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_HEADFEED3) == 0) && _tcsicmp(szEqLay, LAY_EQ_HEADFEED) == 0)
|
||
bRet = TRUE;
|
||
else if((_tcsicmp(szPipeLay, LAY_PIPE_HEADBACK) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_HEADBACK2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_HEADBACK3) == 0) && _tcsicmp(szEqLay, LAY_EQ_HEADBACK) == 0)
|
||
bRet = TRUE;
|
||
else if(_tcsicmp(szPipeLay, LAY_PIPE_DIRT) == 0 && (_tcsicmp(szEqLay, LAY_EQ_DIRT) == 0 || _tcsicmp(szEqLay, LAY_EQUIP_LEAK) == 0))
|
||
bRet = TRUE;
|
||
else if(_tcsicmp(szPipeLay, LAY_PIPE_USELESS) == 0 && _tcsicmp(szEqLay, LAY_EQ_USELESS) == 0)
|
||
bRet = TRUE;
|
||
else if(_tcsicmp(szPipeLay, LAY_PIPE_RAIN) == 0 && _tcsicmp(szEqLay, LAY_EQ_RAIN))
|
||
bRet = TRUE;
|
||
else if((_tcsicmp(szPipeLay, LAY_PIPE_USED) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_USED2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_USED3) == 0) && _tcsicmp(szEqLay, LAY_EQ_USED) == 0)
|
||
bRet = TRUE;
|
||
else if((_tcsicmp(szPipeLay, LAY_PIPE_FIRE) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_FIRE2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_FIRE3) == 0) && (_tcsicmp(szEqLay, LAY_EQ_FIRE) == 0 || _tcsicmp(szEqLay, LAY_EQUIP_HYDRANT) == 0))
|
||
bRet = TRUE;
|
||
else if((_tcsicmp(szPipeLay, LAY_PIPE_SPRINKLE) == 0 || _tcsicmp(szPipeLay, LAY_PIPE_SPRINKLE2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_PIPE_SPRINKLE3) == 0) && (_tcsicmp(szEqLay, LAY_EQ_SPRINKLE) == 0 || _tcsicmp(szEqLay, LAY_EQUIP_SPRINKLE) == 0))
|
||
bRet = TRUE;
|
||
else if(_tcsicmp(szPipeLay, LAY_PIPE_COAGULATE) == 0 && _tcsicmp(szEqLay, LAY_EQ_COAGULATE) == 0)
|
||
bRet = TRUE;
|
||
else if ((_tcsicmp(szPipeLay, LAY_VPIPE_FIRE) == 0 ||_tcsicmp(szPipeLay, LAY_VPIPE_FIRE2) == 0
|
||
|| _tcsicmp(szPipeLay, LAY_VPIPE_FIRE3) == 0)&& _tcsicmp(szEqLay, LAY_EQUIP_HYDRANT) == 0) // cet 2010.8.31 add 支持消防立管与消火栓的连接
|
||
{
|
||
bRet = TRUE;
|
||
}
|
||
else if (_tcsicmp(szPipeLay, LAY_PIPE_USELESS) == 0 && _tcsicmp(szEqLay, LAY_EQUIP_LEAK) == 0) // cet 2010.11.22 add 支持废水与地漏连接
|
||
{
|
||
bRet = TRUE;
|
||
}
|
||
return bRet;
|
||
}
|
||
|
||
void EquipLineToPipe()
|
||
{
|
||
Entity entMain;
|
||
RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), NULL);
|
||
RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
if(SelectEntity(_T("\n请选择干管<退出>:"), entMain, rbMaskPipe) != RTNORM)
|
||
return;
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择需要连接管线的设备<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
|
||
//先把和干管无关的设备剔除
|
||
PickSet ssDel(SS_FREE);
|
||
for(long m=0;m<ss.Length();m++)
|
||
{
|
||
Entity ent3 = ss[m];
|
||
if(!IsSamePipeSys(entMain, ent3))
|
||
ssDel += ent3;
|
||
}
|
||
ss -= ssDel;
|
||
|
||
//－－－－－－－－－－－－－连接立管与消火栓－－－－－－－－－－－－－－－－－
|
||
if(IsPipeVertical(entMain) && ss.Length() == 1){
|
||
XPoint ptLoc, ptNew, ptIns, ptS, ptE;
|
||
GetPipePoint(entMain, ptS, ptE);
|
||
Entity ent = ss[0L];
|
||
BOOL bIsHydrant = IsHydrant(ent);
|
||
if(bIsHydrant){
|
||
DoLinkHydrant(ent, entMain);
|
||
return;
|
||
}
|
||
}
|
||
else if (IsPipeVertical(entMain)) // cet 2010.8.31 add 支持消防立管与单个消火栓相连，其他情况暂不处理
|
||
{
|
||
return;
|
||
}
|
||
|
||
//－－－－－－－－－－－－－ 连接干管与喷头 －－－－－－－－－－－－－－－－－
|
||
XPoint ptStart, ptEnd, ptNew;
|
||
GetPipePoint(entMain, ptStart, ptEnd);
|
||
XLine lineMain(ptStart, ptEnd, 1);
|
||
AcGeVector3d vtMain = ptStart - ptEnd;
|
||
// 一，首先进行连管
|
||
double dShortDist(DocGetPScale()/2.0);
|
||
PickSet ssDone(SS_FREE);
|
||
AcGePoint3dArray ptArrMain; //最终落在干管上的投影点
|
||
OPENOBJ_BEGIN(entMain, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
while(ss.Length() > 0){
|
||
AcGePoint3dArray ptArr;
|
||
PickSet ssPartner(SS_FREE);
|
||
Entity ent = ss[0L];
|
||
XPoint ptLoc;
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
ptLoc = pEquip->GetLocation();
|
||
}
|
||
OPENOBJ_END();
|
||
// ptLoc.Project(lineMain, ptNew);//支持干管延长线上连设备
|
||
pPipe->getClosestPointTo(ptLoc, ptNew, Adesk::kTrue);
|
||
ptNew.z = ptLoc.z;
|
||
ptArr.append(ptLoc);
|
||
XPoint ptProject = ptNew;
|
||
ptProject.z = ptStart.z;
|
||
ptArrMain.append(ptProject);
|
||
AcGeVector3d vt1 = ptLoc - ptNew;
|
||
//1进行分组
|
||
for(long j=0;j<ss.Length();j++){
|
||
Entity ent2 = ss[j];
|
||
if(ent == ent2)
|
||
continue;
|
||
XPoint ptLoc2, ptNew2;
|
||
OPENOBJ_BEGIN(ent2, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
ptLoc2 = pEquip->GetLocation();
|
||
// ptLoc2.Project(lineMain, ptNew2);
|
||
pPipe->getClosestPointTo(ptLoc2, ptNew2, Adesk::kTrue);
|
||
ptNew2.z = ptLoc.z;
|
||
}
|
||
OPENOBJ_END();
|
||
double dDist = ads_distance(ptNew2, ptNew);
|
||
AcGeVector3d vt2 = ptLoc2 - ptNew2;
|
||
if(ads_distance(ptNew2, ptNew) < dShortDist && vt1.dotProduct(vt2) > 0){//共线
|
||
ssPartner += ent2;
|
||
ptArr.append(ptLoc2);
|
||
}
|
||
|
||
}
|
||
ssPartner+=ent;
|
||
ss-=ssPartner;
|
||
AcDbXline xline;
|
||
xline.setUnitDir(vt1);
|
||
xline.setBasePoint(ptLoc);
|
||
//2进行排序
|
||
if(ssPartner.Length() > 1){
|
||
SortPoints(ptArr, &xline, FALSE);
|
||
int nCount = ptArr.length();
|
||
for(int i=0; i<nCount-1; i++) {
|
||
XPoint ptTmp1 = ptArr[i];
|
||
XPoint ptTmp2 = ptArr[i+1];
|
||
TDbPipe *pNewPipe = new TDbPipe;
|
||
pNewPipe = (TDbPipe*)pPipe->clone();
|
||
pNewPipe->SetBulge(0);
|
||
pNewPipe->SetStartPoint(ptTmp1);
|
||
pNewPipe->SetEndPoint(ptTmp2);
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
}
|
||
ptLoc = ptArr[0];
|
||
pPipe->getClosestPointTo(ptLoc, ptNew, Adesk::kTrue);
|
||
ptNew.z = ptLoc.z;
|
||
|
||
if(ptNew != ptLoc)
|
||
{
|
||
TDbPipe *pNewPipe = new TDbPipe;
|
||
pNewPipe = (TDbPipe*)pPipe->clone();
|
||
pNewPipe->SetBulge(0);
|
||
pNewPipe->SetStartPoint(ptNew);
|
||
pNewPipe->SetEndPoint(ptLoc);
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
|
||
|
||
//3 如果连接喷头的管线与干管有高度差，自动生成扣弯
|
||
if(fabs(pPipe->StartPoint().z - ptLoc.z) > 0.01){
|
||
XPoint pt1, pt2;
|
||
pt1 = ptNew;
|
||
pt2 = ptNew;
|
||
pt2.z = pPipe->StartPoint().z;
|
||
TDbPipe *pNewPipe2 = new TDbPipe;
|
||
pNewPipe2 = (TDbPipe*)pPipe->clone();
|
||
pNewPipe2->SetBulge(0);
|
||
pNewPipe2->SetStartPoint(pt1);
|
||
pNewPipe2->SetEndPoint(pt2);
|
||
AcDbObjectId id2 = AddToCurrentSpace(pNewPipe2, Adesk::kTrue);
|
||
}
|
||
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
// 二，如果有的设备连在干管的延长线上，现在进行延长干管
|
||
// 2008-7-24 支持LINE管， 不支持ARC管 sr
|
||
OPENOBJ_BEGIN(entMain, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
double dBulge = pPipe->GetBulge();
|
||
if(fabs(dBulge) > 0.001) //弧就不考虑了
|
||
return;
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
AcDbXline xlineMain;
|
||
xlineMain.setUnitDir(vtMain);
|
||
xlineMain.setBasePoint(ptStart);
|
||
ptArrMain.append(ptStart);
|
||
ptArrMain.append(ptEnd);
|
||
SortPoints(ptArrMain, &xlineMain, FALSE);
|
||
int nCountAll = ptArrMain.length();
|
||
XPoint ptTmpS = ptArrMain[0]; //第一个投影点
|
||
XPoint ptTmpE = ptArrMain[nCountAll-1]; //最后1个投影点
|
||
|
||
XLine lineTmp(ptTmpS, ptTmpE, 1);
|
||
if(lineTmp.GetLength() - lineMain.GetLength() > 0.1)
|
||
{
|
||
OPENOBJ_BEGIN(entMain, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
double dBulge = pPipe->GetBulge();
|
||
if(fabs(dBulge) < 0.001)
|
||
pPipe->SetPoints(ptTmpS, ptTmpE);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
return;
|
||
}
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 断管符号
|
||
//***************************************************************************************************
|
||
extern CString GetEquipLayBySys(TPipeSys::SysType sys);
|
||
|
||
void InsBreakPipeSign()
|
||
{
|
||
g_ssPickFirst.Free();
|
||
RBList rbMask = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_DOUBLELINEPIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
|
||
// RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择需要插入断管符号的管线<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
CString csDwb = g_csDwbPath + _T("TwtSys");
|
||
XString xsTmp, xsTmp2;
|
||
if(LoadDwbBlock(csDwb, _T("00000132"), xsTmp) != RTNORM) //断线
|
||
return;
|
||
if(LoadDwbBlock(csDwb, _T("00000478"), xsTmp2) != RTNORM) //双线管断线
|
||
return;
|
||
Entity entLast;
|
||
double nRotate(0), dDn(0);
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
TCHAR szLayer[256];
|
||
ent.GetData(8, szLayer);
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe && !pPipe->IsVertical()){
|
||
nRotate = ads_angle(pPipe->GetStartPoint(), pPipe->GetEndPoint());
|
||
// zxl modify 2013.04.22
|
||
// dDn = pPipe->GetDnDiameter();
|
||
dDn = pPipe->GetDnDiameter() * 100;
|
||
dDn = dDn / DocGetPScale();
|
||
if (DocGetMeterUnitDraw())
|
||
{
|
||
dDn = dDn / 1000.0;
|
||
}
|
||
|
||
AcDbObjectId nodeId1(NULL), nodeId2(NULL);
|
||
nodeId1 = pPipe->GetNode(0);
|
||
OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, TDbPipeNode, pNode1);
|
||
if(pNode1){
|
||
int num = pNode1->GetInterfaceNum();
|
||
if(num == 1){
|
||
if(pPipe->isKindOf(TDbDoubleLinePipe::desc()))
|
||
{
|
||
// cet 2011.8.18 modify 图层没有设置上，图层改为随双线水管图层
|
||
// InsEquipmentByName(xsTmp2, pNode1->GetLocation(), nRotate, GetEquipLayBySys(pPipe->GetSysType()), FALSE, FALSE);
|
||
InsEquipmentByName(xsTmp2, pNode1->GetLocation(), nRotate, pPipe->GetLayer(), FALSE, FALSE);
|
||
}
|
||
else
|
||
InsEquipmentByName(xsTmp, pNode1->GetLocation(), nRotate, GetEquipLayBySys(pPipe->GetSysType()), FALSE, FALSE);
|
||
|
||
entLast.GetLast();
|
||
WriteXdata(entLast, _T("TG-LAYER"), szLayer);
|
||
if(pPipe->isKindOf(TDbDoubleLinePipe::desc())){
|
||
OPENOBJ_BEGIN(entLast, AcDb::kForWrite, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
pEquip->SetScale(dDn);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
nodeId2 = pPipe->GetNode(1);
|
||
OPENOBJ_BEGIN(nodeId2, AcDb::kForRead, TDbPipeNode, pNode2);
|
||
if(pNode2){
|
||
int num = pNode2->GetInterfaceNum();
|
||
if(num == 1){
|
||
if(pPipe->isKindOf(TDbDoubleLinePipe::desc()))
|
||
{
|
||
// cet 2011.8.18 modify 图层没有设置上，图层改为随双线水管图层
|
||
// InsEquipmentByName(xsTmp2, pNode2->GetLocation(), nRotate, GetEquipLayBySys(pPipe->GetSysType()), FALSE, FALSE);
|
||
InsEquipmentByName(xsTmp2, pNode2->GetLocation(), nRotate, pPipe->GetLayer(), FALSE, FALSE);
|
||
}
|
||
else
|
||
InsEquipmentByName(xsTmp, pNode2->GetLocation(), nRotate, GetEquipLayBySys(pPipe->GetSysType()), FALSE, FALSE);
|
||
entLast.GetLast();
|
||
WriteXdata(entLast, _T("TG-LAYER"), szLayer);
|
||
if(pPipe->isKindOf(TDbDoubleLinePipe::desc())){
|
||
OPENOBJ_BEGIN(entLast, AcDb::kForWrite, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
pEquip->SetScale(dDn);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 设备移动
|
||
//***************************************************************************************************
|
||
|
||
void MoveEquipment()
|
||
{
|
||
g_ssPickFirst.Free();
|
||
XPushVar<int> vOrthoMode(_T("ORTHOMODE"), 1); //f8
|
||
RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), NULL);
|
||
RBList rbMaskPipe(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
|
||
// zxl 2014.02.10 add 去除提示
|
||
xg_setvar(_T("CMDECHO"), 0);
|
||
int nOsMode=0;
|
||
xg_getvar(_T("OSMODE"), &nOsMode);
|
||
if(g_bTgOsnap)
|
||
{
|
||
nOsMode &= ~0x4000;
|
||
nOsMode |= OS_INT|OS_NEA|OS_PER|OS_END|OS_CEN;
|
||
}
|
||
XPushVar<int> vOsMode(_T("OSMODE"), nOsMode);
|
||
double dCeltScale = 1;
|
||
xg_getvar(_T("CELTSCALE"), &dCeltScale);
|
||
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择需要移动的设备<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
XPoint ptIns, ptTemp;
|
||
double x,y,z;
|
||
XPointList lstPT;
|
||
ss.GetExtend(ptIns, &x, &y, &z);
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
XPoint ptLoc = pEquip->GetLocation();
|
||
lstPT.NewAppend(ptLoc);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
XPoint ptUcs = Wcs2Ucs(ptIns);
|
||
ptUcs.z = 0;
|
||
int nRet = DragPickSet1(ss, ptUcs);
|
||
if(nRet != RTNORM)
|
||
return;
|
||
for(i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
BOOL flag = IsSprinkler(ent);
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
XPoint ptLoc = pEquip->GetLocation();
|
||
|
||
PickSet ssDim(SS_FREE);
|
||
RBList rbMaskDim(RTDXF0, _T("ATS_DIMENSION2"), NULL);
|
||
XPoint ptOldLoc = *lstPT[i];
|
||
if(fabs(ptLoc.z - ptOldLoc.z) > 0.01)
|
||
if(pEquip->upgradeOpen()==Acad::eOk) {
|
||
ptLoc.z = ptOldLoc.z;
|
||
pEquip->SetLocation(ptLoc);
|
||
pEquip->SetInsert(ptLoc);
|
||
pEquip->downgradeOpen();
|
||
}
|
||
|
||
ptOldLoc.z = 0;
|
||
GetPointPickSet(ptOldLoc, ssDim, rbMaskDim, 650);
|
||
long lenDim = ssDim.Length();
|
||
if(ssDim.Length() == 1){
|
||
Entity entDim = ssDim[0L];
|
||
OPENOBJ_BEGIN(entDim, AcDb::kForWrite, TDbDimension2, pDim);
|
||
if(pDim){
|
||
AcGeVector3d vectTmp(ptLoc.x - ptOldLoc.x, ptLoc.y - ptOldLoc.y, 0);
|
||
|
||
AcGePoint3dArray gripPoints;
|
||
AcDbIntArray osnapModes;
|
||
AcDbIntArray geomIds;
|
||
pDim->getGripPoints(gripPoints,osnapModes,geomIds);
|
||
int ptlen = gripPoints.length();
|
||
for (int n=0;n<ptlen;n++) {
|
||
XPoint pti = gripPoints[n];
|
||
if(pti == ptOldLoc){
|
||
AcDbIntArray indices;
|
||
indices.append(n);
|
||
pDim->moveGripPointsAt(indices, vectTmp);
|
||
}
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
|
||
PickSet ssPipe(SS_FREE);
|
||
GetPointPickSet(ptLoc, ssPipe, rbMaskPipe, 10);
|
||
int num = pEquip->GetInterfaceNum();
|
||
if(num < 1)
|
||
continue;
|
||
AcDbObjectId PipeId = NULL;
|
||
//如果移动后新位置有管线，而且是自己所接管线，则更新管线起始点
|
||
if(ssPipe.Length() > 0){
|
||
if(ssPipe.Length() == 1){
|
||
Entity entNewPosPipe = ssPipe[0L];
|
||
acdbGetObjectId(PipeId, entNewPosPipe);
|
||
BOOL bFlag = FALSE;
|
||
for(int m=0;m<num;m++){
|
||
TPipeInterface face;
|
||
pEquip->GetInterface(m, face);
|
||
if(PipeId == face.m_idPipe){
|
||
bFlag = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
if(!bFlag)
|
||
continue;
|
||
for(m=0;m<num;m++){
|
||
TPipeInterface face;
|
||
pEquip->GetInterface(m, face);
|
||
OPENOBJ_BEGIN(face.m_idPipe, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe && !pPipe->IsVertical()){
|
||
XPoint ptStart, ptEnd;
|
||
pPipe->getStartPoint(ptStart);
|
||
pPipe->getEndPoint(ptEnd);
|
||
ptOldLoc.z = ptStart.z;
|
||
if(ptStart == ptOldLoc)
|
||
pPipe->SetStartPoint(ptLoc);
|
||
else if(ptEnd == ptOldLoc)
|
||
pPipe->SetEndPoint(ptLoc);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
}
|
||
continue;
|
||
}
|
||
//如果移动后新位置没有管线，就生成一个新的
|
||
double nDnNew(-1);
|
||
//新引出的管线，管径为设备所接管中最小的一个
|
||
for(int m=0;m<num;m++){
|
||
TPipeInterface face;
|
||
pEquip->GetInterface(m, face);
|
||
PipeId = face.m_idPipe;
|
||
OPENOBJ_BEGIN(PipeId, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
double nDnTmp = pPipe->GetDnDiameter();
|
||
if(nDnTmp < nDnNew || nDnNew < 0)
|
||
nDnNew = nDnTmp;
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
OPENOBJ_BEGIN(PipeId, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
TDbPipe *pNewPipe = new TDbPipe;
|
||
pNewPipe = (TDbPipe*)pPipe->clone();
|
||
pNewPipe->SetStartPoint(ptLoc);
|
||
pNewPipe->SetDnDiameter(nDnNew);
|
||
pNewPipe->SetEndPoint(*lstPT[i]);
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
}
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 管线置上
|
||
//***************************************************************************************************
|
||
|
||
void SetPipeUp()
|
||
{
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择需要置上的管线<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
PickSet ssF(SS_FREE);
|
||
GetPipeFPickSet(ent, ssF, TRUE);
|
||
ssF -= ent;
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
int up(1000);
|
||
for(long j=0;j<ssF.Length();j++){
|
||
Entity entF = ssF[j];
|
||
OPENOBJ_BEGIN(entF, AcDb::kForRead, TDbPipe, pPipeF);
|
||
if(pPipeF){
|
||
int level = pPipeF->GetHideLevel();
|
||
if(up < pPipeF->GetHideLevel() || up == 1000)
|
||
up = pPipeF->GetHideLevel();
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
if(ssF.Length() == 0)
|
||
pPipe->SetHideLevel(pPipe->GetHideLevel()+1);
|
||
else
|
||
pPipe->SetHideLevel(up+1);
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
|
||
//***************************************************************************************************
|
||
// 管线置下
|
||
//***************************************************************************************************
|
||
|
||
void SetPipeDown()
|
||
{
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择需要置下的管线<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
PickSet ssF(SS_FREE);
|
||
GetPipeFPickSet(ent, ssF, TRUE);
|
||
ssF -= ent;
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
int low(-1000);
|
||
long len = ssF.Length();
|
||
for(long j=0;j<len;j++){
|
||
Entity entF = ssF[j];
|
||
OPENOBJ_BEGIN(entF, AcDb::kForRead, TDbPipe, pPipeF);
|
||
if(pPipeF){
|
||
int level = pPipeF->GetHideLevel();
|
||
if(low > pPipeF->GetHideLevel() || low == -1000)
|
||
low = pPipeF->GetHideLevel();
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
if(ssF.Length() == 0)
|
||
pPipe->SetHideLevel(pPipe->GetHideLevel()-1);
|
||
else
|
||
pPipe->SetHideLevel(low-1);
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 多线倒角
|
||
//***************************************************************************************************
|
||
|
||
void DoFilletPipe(Entity entMain, PickSet &ss, double iFilletDist)
|
||
{
|
||
// zxl 2012.07.23 add
|
||
if (iFilletDist <= 0.0)
|
||
{
|
||
return;
|
||
}
|
||
SHads_command(RTSTR, _T(".UNDO"), RTSTR, _T("MARK"), RTNONE); // Make a undo mark cet 2011.5.23 add 取消操作后恢复管线原始长度
|
||
XPoint p1, p2, p3, p4, ptMove, ptInter;
|
||
GetPipePoint(entMain, p1, p2);
|
||
XLine line1(p1, p2);
|
||
double nRotate = ads_angle(p1, p2);
|
||
Entity entTmp;
|
||
DList<XPoint> lstPt, lstPt2, lstPt3;
|
||
XCurveSegment seg;
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
if(ent == entMain)
|
||
continue;
|
||
entTmp = ent;
|
||
GetPipePoint(ent, p3, p4);
|
||
XLine line2(p3, p4);
|
||
seg = line2;
|
||
XPoint ptInt, ptTmp1, ptTmp2, ptTmp3, ptTmp4, ptTmp5;
|
||
int ret = line1.Intersection(&line2, ptInt);
|
||
ptInter = ptInt;
|
||
ptTmp3 = ads_distance(p3, ptInt) > ads_distance(p4, ptInt) ? p3 : p4;
|
||
ptTmp4 = ads_distance(p3, ptInt) < ads_distance(p4, ptInt) ? p3 : p4;
|
||
double nRotate2 = ads_angle(ptInt, ptTmp3);
|
||
ads_polar(ptInt, nRotate-PI, iFilletDist, ptTmp1);
|
||
ads_polar(ptInt, nRotate, iFilletDist, ptTmp5);
|
||
ads_polar(ptInt, nRotate2, iFilletDist, ptTmp2);
|
||
XLine line3(ptTmp1, ptTmp2, 1);
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
XPoint ptLoc = pPipe->GetLabelLocation();
|
||
pPipe->SetStartPoint(ptTmp2);
|
||
pPipe->SetEndPoint(ptTmp3);
|
||
pPipe->SetLabelLocation(ptLoc);
|
||
}
|
||
OPENOBJ_END();
|
||
lstPt.Append(new XPoint(ptTmp2));
|
||
lstPt2.Append(new XPoint(ptTmp1));
|
||
lstPt3.Append(new XPoint(ptTmp5));
|
||
}
|
||
TPipePerDocData *pData = GetCurPipeDocData();
|
||
pData->ApplyUpdates();
|
||
|
||
int itype;
|
||
struct resbuf pointbuf;
|
||
ads_grread(5, &itype, &pointbuf);//得到动态点pointbuf
|
||
|
||
while(1){
|
||
int iRet = ads_grread(5, &itype, &pointbuf);//得到动态点pointbuf
|
||
ads_point_set(pointbuf.resval.rpoint, ptMove);//ptMove动态点
|
||
ptMove = Ucs2Wcs(ptMove);
|
||
|
||
ads_redraw(NULL, 1); //不画线演示
|
||
if(itype != 5 && itype != 3)
|
||
{
|
||
SHads_command(RTSTR, _T("UNDO"), RTSTR, _T("BACK"), RTNONE); // cet 2011.5.23 add 恢复管线原始长度
|
||
break;
|
||
}
|
||
AcGeVector3d vectBase(seg.EndPoint().x - seg.StartPoint().x, seg.EndPoint().y - seg.StartPoint().y, 0);
|
||
AcGeVector3d vectTmp(ptMove.x - ptInter.x, ptMove.y - ptInter.y, 0);
|
||
double dAng = vectBase.angleTo(vectTmp, AcGeVector3d::kZAxis);
|
||
for(int j=0;j<lstPt.Length();j++){
|
||
XPoint pt1 = *lstPt[j];
|
||
XPoint pt2 = *lstPt2[j];
|
||
XPoint pt3 = *lstPt3[j];
|
||
XPoint ptend;
|
||
if(dAng > PI)
|
||
ptend = pt2;
|
||
else
|
||
ptend = pt3;
|
||
if(itype == 3){
|
||
OPENOBJ_BEGIN(entTmp, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
TDbPipe *pNewPipe = new TDbPipe;
|
||
// zxl 2013.05.30 add 新生成管线标注位置
|
||
pNewPipe = (TDbPipe*)pPipe->clone();
|
||
bool bDown = true;
|
||
AcGePoint3d pt = pPipe->GetLabelLocation();
|
||
AcGePoint3d ptOnPipe;
|
||
pPipe->getClosestPointTo(pt, ptOnPipe);
|
||
double dDist = pt.distanceTo(ptOnPipe);
|
||
AcGeVector3d vt = pt - ptOnPipe;
|
||
double dAngle = vt.angleTo(AcGeVector3d::kXAxis);
|
||
if (dAngle >= 0 && dAngle < PI)
|
||
{
|
||
bDown = false;
|
||
}
|
||
|
||
pNewPipe->SetStartPoint(pt1);
|
||
pNewPipe->SetEndPoint(ptend);
|
||
|
||
double nRotate1 = ads_angle(Wcs2Ucs(pt1), Wcs2Ucs(ptend));
|
||
if(nRotate > PI/2 && nRotate <=PI*3/2)
|
||
nRotate += PI;
|
||
|
||
XPoint ptPick = pNewPipe->MidPoint();
|
||
ptPick = Wcs2Ucs(ptPick);
|
||
if(bDown)
|
||
ads_polar(ptPick, nRotate1+PI/2, -dDist, ptPick);
|
||
else
|
||
ads_polar(ptPick, nRotate1+PI/2, dDist, ptPick);
|
||
ptPick = Ucs2Wcs(ptPick);
|
||
pNewPipe->SetLabelLocation(ptPick);
|
||
|
||
// zxl 2013.05.29 add
|
||
if (pNewPipe->IsLabelValid())
|
||
{
|
||
pNewPipe->EnableDrawLabel(FALSE);
|
||
}
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
else {
|
||
XPoint ptTmpUcs1 = Wcs2Ucs(pt1);
|
||
XPoint ptTmpUcs2 = Wcs2Ucs(ptend);
|
||
|
||
ads_grdraw(ptTmpUcs1, ptTmpUcs2, -1, 0); //演示
|
||
}
|
||
}
|
||
if(itype == 3)
|
||
return;
|
||
}
|
||
}
|
||
|
||
// 2011.01.04 add 支持弧度倒角
|
||
void ArcChamferPipe(Entity ent1, Entity ent2, double dRadius)
|
||
{
|
||
// zxl 2012.07.23 add
|
||
if (dRadius <= 0.0)
|
||
{
|
||
return;
|
||
}
|
||
|
||
double dLen1 = 0.0, dLen2 = 0.0; // 管长
|
||
XPoint pt1, pt2, pt3, pt4, ptMid1, ptMid2;
|
||
GetPipePoint(ent1, pt1, pt2, ptMid1);
|
||
GetPipePoint(ent2, pt3, pt4, ptMid2);
|
||
|
||
|
||
AcDbLine l1(pt1, pt2), l2(pt3, pt4);
|
||
AcGePoint3dArray arPt1;
|
||
l1.intersectWith(&l2, AcDb::kExtendBoth, arPt1);
|
||
|
||
// 无交点
|
||
if (arPt1.length() != 1)
|
||
{
|
||
return;
|
||
}
|
||
XPoint pt = arPt1[0]; // 两管交点
|
||
|
||
dLen1 = pt1.Distance(pt2);
|
||
dLen2 = pt3.Distance(pt4);
|
||
// 管长必须大于倒角半径
|
||
if (dLen1 < dRadius || dLen2 < dRadius)
|
||
{
|
||
return;
|
||
}
|
||
|
||
AcGeVector3d vt1 = pt - ptMid1, vt2 = pt - ptMid2;
|
||
vt1.normalize();
|
||
vt2.normalize();
|
||
|
||
XPoint pt5 = pt - vt1 * dRadius, pt6 = pt - vt2 * dRadius;
|
||
|
||
//修改支管端点
|
||
OPENOBJ_BEGIN(ent2, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if (pPipe != NULL)
|
||
{
|
||
XPoint ptS, ptE;
|
||
ptS = pPipe->StartPoint();
|
||
ptE = pPipe->EndPoint();
|
||
if (ptS.Distance(pt) < 1e-3)
|
||
{
|
||
pPipe->SetStartPoint(pt6);
|
||
}
|
||
else if (ptE.Distance(pt) < 1e-3)
|
||
{
|
||
pPipe->SetEndPoint(pt6);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
// 修改主干管
|
||
PickSet ss(SS_FREE);
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
GetPointPickSet(Wcs2Ucs(pt), ss, rbMask, 10);
|
||
ss -= ent1;
|
||
ss -= ent2;
|
||
if (ss.Length() == 0) // 没有连接其他管
|
||
{
|
||
OPENOBJ_BEGIN(ent1, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if (pPipe != NULL)
|
||
{
|
||
XPoint ptS, ptE;
|
||
ptS = pPipe->StartPoint();
|
||
ptE = pPipe->EndPoint();
|
||
if (ptS.Distance(pt) < 1e-3)
|
||
{
|
||
pPipe->SetStartPoint(pt5);
|
||
}
|
||
else if (ptE.Distance(pt) < 1e-3)
|
||
{
|
||
pPipe->SetEndPoint(pt5);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
AcGeVector3d vtDir = vt1.crossProduct(vt2);
|
||
vtDir.normalize();
|
||
vt1 = vt1.rotateBy(PI / 2, vtDir);
|
||
vt2 = vt2.rotateBy(PI / 2, vtDir);
|
||
AcDbLine line1(pt5, pt5 + vt1), line2(pt6, pt6 + vt2);
|
||
AcGePoint3dArray arPt;
|
||
line1.intersectWith(&line2, AcDb::kExtendBoth, arPt);
|
||
if (arPt.length() != 1)
|
||
{
|
||
return;
|
||
}
|
||
|
||
XPoint ptIns = arPt[0];
|
||
dRadius = pt5.Distance(ptIns); // 圆弧半径
|
||
|
||
XPoint ptMid;
|
||
ptMid.x = (pt5.x + pt6.x) / 2;
|
||
ptMid.y = (pt5.y + pt6.y) / 2;
|
||
ptMid.z = (pt5.z + pt6.z) / 2;
|
||
|
||
AcGeVector3d vt = ptMid - ptIns;
|
||
vt.normalize();
|
||
XPoint pt7 = ptIns + vt * dRadius; // 弧上一点
|
||
|
||
XArc arc(pt5, pt7, pt6);
|
||
TDbPipe *pNewPipe = NULL;
|
||
OPENOBJ_BEGIN(ent1, AcDb::kForRead, TDbPipe, pPipe)
|
||
if (pPipe != NULL)
|
||
{
|
||
pNewPipe = ClonePipe(pPipe);
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
arc.GetStartPoint(pt5);
|
||
arc.GetEndPoint(pt6);
|
||
pNewPipe->SetPoints(pt5, pt6, arc.Bulge());
|
||
// zxl 2013.05.29 add
|
||
if (pNewPipe->IsLabelValid())
|
||
{
|
||
pNewPipe->EnableDrawLabel(FALSE);
|
||
}
|
||
AddToCurrentSpace(pNewPipe, Adesk::kTrue);
|
||
}
|
||
|
||
// cet 2011.4.27 add 从注册表读取数据
|
||
bool ReadRegData(const CString &strKey, double& dVal)
|
||
{
|
||
CRegProperty regProp(GetRegLocation(), _T("PipeChamfer"));
|
||
regProp.SetTopRootKey(HKEY_CURRENT_USER);
|
||
return regProp.GetValue(strKey, dVal);
|
||
}
|
||
|
||
// cet 2011.4.27 add 将数据写入注册表
|
||
bool WriteRegData(const CString &strKey, double dVal)
|
||
{
|
||
CRegProperty regProp(GetRegLocation(), _T("PipeChamfer"));
|
||
regProp.SetTopRootKey(HKEY_CURRENT_USER);
|
||
return regProp.SetValue(strKey, dVal);
|
||
}
|
||
|
||
void FilletPipe()
|
||
{
|
||
g_ssPickFirst.Free();
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
Entity entMain;
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntity(_T("\n请选择主干管<退出>"), entMain, rbMask) != RTNORM)
|
||
return;
|
||
if(SelectEntities(_T("\n请选择支管<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
double nFilletDist(100);
|
||
// cet 2011.1.5 modify 支持弧度倒角
|
||
// xg_getvar(_T("FilletRad"), &nFilletDist);
|
||
// CString csPrompt;
|
||
// csPrompt.Format(_T("\n请输入倒角距离<%.0f>"), nFilletDist);
|
||
// ads_getreal(csPrompt, &nFilletDist);
|
||
//
|
||
// xg_setvar(_T("FilletRad"), nFilletDist);
|
||
// DoFilletPipe(entMain, ss, nFilletDist);
|
||
|
||
// cet 2011.4.27 add
|
||
CString strPrompt;
|
||
nFilletDist = 0.0;
|
||
ReadRegData(_T("LineChamfer"), nFilletDist);
|
||
strPrompt.Format(_T("\n请输入倒角距离[弧形倒角(A)]<%.0f>:"), nFilletDist);
|
||
int nRet;
|
||
INITGET_BEG(0, _T("A"));
|
||
// cet 2011.4.27 modify
|
||
// nRet = ads_getreal(_T("\n请输入倒角距离[弧形倒角(A)]<退出>:"), &nFilletDist);
|
||
nRet = ads_getreal(strPrompt, &nFilletDist);
|
||
INITGET_END();
|
||
//if (nRet == RTNORM) cet 2011.4.27 modify
|
||
if (nRet == RTNORM || nRet == RTNONE)
|
||
{
|
||
WriteRegData(_T("LineChamfer"), nFilletDist); // cet 2011.4.27 add
|
||
DoFilletPipe(entMain, ss, nFilletDist);
|
||
}
|
||
else if (nRet == RTKWORD)
|
||
{
|
||
CString strTip;
|
||
// cet 2011.4.27 modify
|
||
//strTip.Format(_T("\n请输入倒角半径<退出>:"), nFilletDist);
|
||
//if (ads_getreal(strTip, &nFilletDist) == RTNORM)
|
||
nFilletDist = 0.0;
|
||
ReadRegData(_T("ArcChamfer"), nFilletDist);
|
||
strTip.Format(_T("\n请输入倒角半径<%.0f>:"), nFilletDist);
|
||
nRet = ads_getreal(strTip, &nFilletDist);
|
||
if (nRet == RTNORM || nRet == RTNONE)
|
||
{
|
||
WriteRegData(_T("ArcChamfer"), nFilletDist); // cet 2011.4.27 add
|
||
for (long i = 0; i < ss.Length(); i++)
|
||
{
|
||
ArcChamferPipe(entMain, ss[i], nFilletDist);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 管线延长
|
||
//***************************************************************************************************
|
||
void ExternPipeByEq()
|
||
{
|
||
RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"),NULL);
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择要延长的附件:<退出>"), ss, rbMask) != RTNORM)
|
||
return;
|
||
PickSet ssDo(SS_FREE);
|
||
long len = ss.Length();
|
||
for(long i=0;i<len;i++)
|
||
{
|
||
Entity ent = ss[i];
|
||
|
||
OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
int num = pEquip->GetInterfaceNum();
|
||
if(num == 1)
|
||
{
|
||
ssDo+=ent;
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
len = ssDo.Length();
|
||
if(len < 1)
|
||
return;
|
||
double dDist(1000);
|
||
ads_getreal(_T("\n请输入延长的距离<1000>:"), &dDist);
|
||
|
||
for(i=0;i<len;i++)
|
||
{
|
||
Entity ent = ssDo[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbEquipment, pEquip);
|
||
if(pEquip){
|
||
XPoint ptLoc = pEquip->GetLocation();
|
||
TPipeInterface face;
|
||
pEquip->GetInterface(0, face);
|
||
AcDbObjectId nextPipeId = face.m_idPipe;
|
||
OPENOBJ_BEGIN(nextPipeId, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
XPoint ptStart = pPipe->StartPoint();
|
||
XPoint ptEnd = pPipe->EndPoint();
|
||
if(ptStart == ptLoc)
|
||
{
|
||
AcGeVector3d vt(ptStart - ptEnd);
|
||
vt.normalize();
|
||
vt *= dDist;
|
||
ptStart += vt;
|
||
pPipe->SetStartPoint(ptStart);
|
||
pEquip->SetLocation(ptStart);
|
||
pEquip->SetInsert(ptStart);
|
||
}
|
||
else
|
||
{
|
||
AcGeVector3d vt(ptEnd - ptStart);
|
||
vt.normalize();
|
||
vt *= dDist;
|
||
ptEnd += vt;
|
||
pPipe->SetEndPoint(ptEnd);
|
||
pEquip->SetLocation(ptEnd);
|
||
pEquip->SetInsert(ptEnd);
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
|
||
}
|
||
|
||
void GetLayerColor(const CString &strlayerName, Adesk::UInt16 &nColor)
|
||
{
|
||
AcDbLayerTable *pLayerTbl = NULL;
|
||
acdbCurDwg()->getLayerTable(pLayerTbl, AcDb::kForRead);
|
||
if (pLayerTbl != NULL)
|
||
{
|
||
if (pLayerTbl->has(strlayerName))
|
||
{
|
||
AcDbLayerTableRecord *pRec = NULL;
|
||
pLayerTbl->getAt(strlayerName, pRec, AcDb::kForRead);
|
||
pLayerTbl->close();
|
||
if (pRec != NULL)
|
||
{
|
||
nColor = pRec->color().colorIndex();
|
||
pRec->close();
|
||
}
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
void ExternSysPipe()
|
||
{
|
||
g_ssPickFirst.Free();
|
||
RBList rbMask = ads_buildlist( -4, _T("<or"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("<and"), RTDXF0, _T("ATS_DOUBLELINEPIPE"), 8, _T("*"), -4, _T("and>"),
|
||
-4, _T("or>"), NULL);
|
||
|
||
XPoint ptPick, ptLoc;
|
||
Entity entSel;
|
||
if(SelectEntity1(g_nCurPipeWidth*DocGetPScale(), _T("\n请拾取要延长的管线（注意点取靠近要延长的端点） <选择附件延长管线>:"), entSel, ptPick, rbMask)!=RTNORM)
|
||
{
|
||
ExternPipeByEq();
|
||
return;
|
||
}
|
||
double nRotate(0);
|
||
|
||
CString strLayer; // cet 2010.6.23 add
|
||
Adesk::UInt16 nColor = 0; // cet 2010.6.23 add
|
||
OPENOBJ_BEGIN(entSel, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
nRotate = ads_angle(pPipe->GetStartPoint(), pPipe->GetEndPoint());
|
||
// cet 2011.8.26 modify 求距离时点不在同一坐标系内
|
||
// double nDist1 = ads_distance(ptPick, pPipe->GetStartPoint());
|
||
// double nDist2 = ads_distance(ptPick, pPipe->GetEndPoint());
|
||
double nDist1 = ads_distance(Ucs2Wcs(ptPick), pPipe->GetStartPoint());
|
||
double nDist2 = ads_distance(Ucs2Wcs(ptPick), pPipe->GetEndPoint());
|
||
if(nDist1 < nDist2)
|
||
ptLoc = pPipe->StartPoint();
|
||
else
|
||
ptLoc = pPipe->EndPoint();
|
||
strLayer = pPipe->layer(); // cet 2010.6.23 add
|
||
nColor = pPipe->colorIndex(); // cet 2010.6.23 add
|
||
}
|
||
OPENOBJ_END();
|
||
if(nRotate > PI)
|
||
nRotate -= PI;
|
||
|
||
TPipeEdJig jig(ptLoc, ptLoc, 50);
|
||
jig.m_ptRef = ptLoc;
|
||
jig.m_nLockAng = nRotate;
|
||
jig.m_bLock = FALSE;
|
||
|
||
// cet 2010.6.23 add
|
||
if (nColor == 256) // 随层时查看图层颜色
|
||
{
|
||
GetLayerColor(strLayer, nColor);
|
||
}
|
||
|
||
if (nColor == 1) // 管线颜色为红色时, 将jig操作时颜色显示为绿色
|
||
{
|
||
jig.IsChangeColor(true);
|
||
}
|
||
|
||
jig.SetPrompt(_T("\n请点取延长位置点:<退出>"));
|
||
int ret = jig.DoIt();
|
||
if(ret != RTNORM){
|
||
return;
|
||
}
|
||
ptPick = jig.GetCorrectPt();
|
||
if(!ptPick)
|
||
return;
|
||
AcDbObjectId id = NULL;
|
||
OPENOBJ_BEGIN(entSel, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe){
|
||
AcDbObjectId nodeId1(NULL), nodeId2(NULL);
|
||
nodeId1 = pPipe->GetNode(0);
|
||
nodeId2 = pPipe->GetNode(1);
|
||
OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, TDbPipeNode, pNode);
|
||
if(pNode){
|
||
XPoint ptTmp = pNode->GetLocation();
|
||
if(ptTmp != ptLoc)
|
||
id = nodeId1;
|
||
}
|
||
OPENOBJ_END();
|
||
OPENOBJ_BEGIN(nodeId2, AcDb::kForRead, TDbPipeNode, pNode);
|
||
if(pNode){
|
||
XPoint ptTmp = pNode->GetLocation();
|
||
if(ptTmp != ptLoc)
|
||
id = nodeId2;
|
||
}
|
||
OPENOBJ_END();
|
||
|
||
if(ptLoc == pPipe->StartPoint())
|
||
pPipe->SetStartPoint(ptPick);
|
||
else
|
||
pPipe->SetEndPoint(ptPick);
|
||
}
|
||
OPENOBJ_END();
|
||
SSearchPipeList *pListAll = new SSearchPipeList();
|
||
PickSet ssAll(SS_FREE);
|
||
if(!SearchSprinkPipeSys(entSel, id, pListAll, ssAll)){
|
||
delete pListAll;
|
||
return;
|
||
}
|
||
delete pListAll;
|
||
ssAll-=entSel;
|
||
|
||
AcGeVector3d vectTmp(ptPick.x - ptLoc.x, ptPick.y - ptLoc.y, 0);
|
||
AcGeMatrix3d mat;
|
||
mat.setToTranslation(vectTmp);
|
||
|
||
long len = ssAll.Length();
|
||
|
||
if(len > 1){
|
||
ssAll.Redraw(3);
|
||
TCHAR szTmp[32];
|
||
ads_getstring(0, _T("\n该管线所连接其它管线是否联动<Y>:"), szTmp);
|
||
ssAll.Redraw(4);
|
||
if(_tcsicmp(szTmp, _T("N")) == 0)
|
||
return;
|
||
}
|
||
|
||
for(long i=0;i<len;i++){
|
||
Entity ent = ssAll[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, AcDbEntity, pEnt);
|
||
if(pEnt){
|
||
pEnt->transformBy(mat);
|
||
TDbPipe *pPipe = NULL;
|
||
if(pPipe = TDbPipe::cast(pEnt)){
|
||
DList<AcDbObjectId> lstAttachment;
|
||
pPipe->GetAttachments(lstAttachment);
|
||
int iLen = lstAttachment.Length();
|
||
for(int m=0;m<iLen;m++){
|
||
AcDbObjectId idTmp = *lstAttachment[m];
|
||
OPENOBJ_BEGIN(idTmp, AcDb::kForWrite, TDbPipeAttachment, pValve);
|
||
if(pValve){
|
||
pValve->transformBy(mat);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 管线交叉检查
|
||
//***************************************************************************************************
|
||
|
||
//double GetPipeStartEle(Entity entPipe)
|
||
//{
|
||
// OPENOBJ_BEGIN(entPipe, AcDb::kForRead, TDbPipe, pPipe);
|
||
// if(pPipe){
|
||
// AcDbObjectId nodeId1(NULL);
|
||
// double dn = pPipe->GetDnDiameter();
|
||
// dn = dn / 2.0;
|
||
// TPipeSys::FlowDirection dir = pPipe->GetFlowDir();
|
||
// if(dir == TPipeSys::kFromStart){
|
||
// return (pPipe->StartPoint().z - dn)/1000;
|
||
// }
|
||
// else{
|
||
// return (pPipe->EndPoint().z - dn)/1000;
|
||
// }
|
||
// }
|
||
// OPENOBJ_END();
|
||
//// OPENOBJ_BEGIN(entPipe, AcDb::kForRead, TDbPipe, pPipe);
|
||
//// if(pPipe){
|
||
//// AcDbObjectId nodeId1(NULL);
|
||
//// TPipeSys::FlowDirection dir = pPipe->GetFlowDir();
|
||
//// if(dir == TPipeSys::kFromStart)
|
||
//// nodeId1 = pPipe->GetNode(0);
|
||
//// else
|
||
//// nodeId1 = pPipe->GetNode(1);
|
||
////
|
||
//// OPENOBJ_BEGIN(nodeId1, AcDb::kForRead, TDbEquipment, pEquip);
|
||
//// if(pEquip){
|
||
//// int num = pEquip->GetInterfaceNum();
|
||
//// for(int i=0;i<num;i++){
|
||
//// TPipeInterface face;
|
||
//// pEquip->GetInterface(i, face);
|
||
//// CString csPipeDownEle = pEquip->GetISysLabel(i);
|
||
//// AcDbObjectId nextPipeId = face.m_idPipe;
|
||
//// if(nextPipeId == pPipe->objectId()){
|
||
//// double nPipeEle = _tstof(csPipeDownEle);
|
||
//// return nPipeEle;
|
||
//// }
|
||
//// }
|
||
//// }
|
||
//// OPENOBJ_END();
|
||
//// }
|
||
//// OPENOBJ_END();
|
||
// return 0;
|
||
//}
|
||
//CString GetPipeNameBySys(TPipeSys::SysType sys);
|
||
//extern double GetPipeOutDByDn(const TCHAR* szMat, int iDnIn);
|
||
//
|
||
//void CheckPipeInter()
|
||
//{
|
||
// RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管线")), NULL);
|
||
// PickSet ss(SS_FREE);
|
||
// if(SelectEntities(_T("\n请选择检查范围<整张图>:"), ss, rbMask) != RTNORM){
|
||
// ss.Get(_T("X"), NULL, NULL, rbMask);
|
||
// }
|
||
// BOOL bDim = FALSE;
|
||
// TCHAR szTmp[32];
|
||
// ads_getstring(0, _T("\n没有发生碰撞的交叉管线是否标注<N>:"), szTmp);
|
||
// if(_tcsicmp(szTmp, _T("Y")) == 0)
|
||
// bDim = TRUE;
|
||
//
|
||
// XPointList lstPtInt;
|
||
// BOOL bHasInter = TRUE;
|
||
// for(long i=0;i<ss.Length();i++){
|
||
// Entity ent = ss[i];
|
||
// double nPipeEle(0), nDn(0), nDn2(0), nI(0), nI2(0);
|
||
// TPipeSys::SysType sys1, sys2;
|
||
// nPipeEle = GetPipeStartEle(ent);
|
||
// if(fabs(nPipeEle) < 0.001)
|
||
// continue;
|
||
// XPoint ptStart, ptEnd, ptInt, ptWell;
|
||
// CString csMat;
|
||
// OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbPipe, pPipe);
|
||
// if(pPipe){
|
||
// int iMaterial = pPipe->GetMaterial();
|
||
// csMat = GetPipeMaterialByIdx(iMaterial);
|
||
// sys1 = pPipe->GetSysType();
|
||
// ptStart = pPipe->StartPoint();
|
||
// ptEnd = pPipe->EndPoint();
|
||
// nDn = pPipe->GetDnDiameter();
|
||
// nI = pPipe->GetPipeGradient();
|
||
// TPipeSys::FlowDirection dir = pPipe->GetFlowDir();
|
||
// if(dir == TPipeSys::kFromStart)
|
||
// ptWell = ptStart;
|
||
// else
|
||
// ptWell = ptEnd;
|
||
// }
|
||
// OPENOBJ_END();
|
||
// nDn = GetPipeOutDByDn(csMat, (int)nDn);
|
||
//
|
||
// ptStart.z = 0;
|
||
// ptEnd.z = 0;
|
||
// ptWell.z = 0;
|
||
// XLine line1(ptStart, ptEnd, 1);
|
||
// PickSet ssF(SS_FREE);
|
||
// struct resbuf *pointlist;
|
||
// pointlist = ads_buildlist(RTPOINT, &ptStart, RTPOINT, &ptEnd, NULL);
|
||
// ssF.Get(_T("F"), pointlist, NULL, rbMask);
|
||
// ads_relrb(pointlist);
|
||
// for(long j=0;j<ssF.Length();j++){
|
||
// Entity entTmp = ssF[j];
|
||
// if(entTmp == ent)
|
||
// continue;
|
||
// XPoint pt1, pt2;
|
||
// GetPipePoint(entTmp, pt1, pt2);
|
||
// pt1.z = 0;
|
||
// pt2.z = 0;
|
||
// XLine line2(pt1, pt2, 1);
|
||
// line1.Intersection(line2, ptInt);
|
||
//
|
||
// XPoint *ptFind = lstPtInt.FindPoint(ptInt);
|
||
// if(ptInt == pt1 || ptInt == pt2 || ptFind != NULL)
|
||
// continue;
|
||
// lstPtInt.NewAppend(ptInt);
|
||
//
|
||
// double nDist1 = 15*DocGetPScale();
|
||
// double nDist2 = 5*DocGetPScale();
|
||
//
|
||
// double nPipeEle1(0), nPipeEle2(0);
|
||
// double nDist2Well1 = ads_distance(ptInt, ptWell) / 1000;
|
||
// nPipeEle1 = nPipeEle - nDist2Well1*nI;
|
||
// nPipeEle2 = GetPipeStartEle(entTmp);
|
||
// CString csMat2;
|
||
// OPENOBJ_BEGIN(entTmp, AcDb::kForRead, TDbPipe, pPipe);
|
||
// if(pPipe){
|
||
// int iMaterial = pPipe->GetMaterial();
|
||
// csMat2 = GetPipeMaterialByIdx(iMaterial);
|
||
//
|
||
// sys2 = pPipe->GetSysType();
|
||
// ptStart = pPipe->StartPoint();
|
||
// ptEnd = pPipe->EndPoint();
|
||
// nI2 = pPipe->GetPipeGradient();
|
||
// nDn2 = pPipe->GetDnDiameter();
|
||
// TPipeSys::FlowDirection dir = pPipe->GetFlowDir();
|
||
// if(dir == TPipeSys::kFromStart)
|
||
// ptWell = ptStart;
|
||
// else
|
||
// ptWell = ptEnd;
|
||
// ptWell.z = 0;
|
||
// double nDist2Well2 = ads_distance(ptInt, ptWell) / 1000;
|
||
// nPipeEle2 = nPipeEle2 - nDist2Well2*nI2;
|
||
// }
|
||
// OPENOBJ_END();
|
||
// nDn2 = GetPipeOutDByDn(csMat2, (int)nDn2);
|
||
// XPoint ptTurn;
|
||
//
|
||
// if(bDim || (fabs(nPipeEle2 - nPipeEle1) < nDn || fabs(nPipeEle2 - nPipeEle1) < nDn2)){
|
||
// ads_polar(ptInt, PI/4, nDist1, ptTurn);
|
||
// TDbSymbMultiLeader *pLeader = new TDbSymbMultiLeader;
|
||
// XPointList lstVertexes;
|
||
// lstVertexes.Append(new XPoint(ptInt));
|
||
// pLeader->SetLeaderVertexes(lstVertexes);
|
||
// pLeader->SetText1(XString(_T("%s%.3f"), GetPipeNameBySys(sys2), nPipeEle2));
|
||
// pLeader->SetText2(XString(_T("%s%.3f"), GetPipeNameBySys(sys1),nPipeEle1));
|
||
// pLeader->SetLeaderPoint(ptTurn);
|
||
// pLeader->SetArrow(TDbSymbMultiLeader::kNone);
|
||
// AcDbObjectId idTextStyle = InitTextStyle(g_csTwtDimStyle);
|
||
// pLeader->SetTextStyleId(idTextStyle);
|
||
// pLeader->SetTextLayerId(InitLayer(LAY_TEXT));
|
||
// pLeader->SetTextHeight(g_nTwtDimHeight);
|
||
// pLeader->SetTextBaseLen(pLeader->GetDefaultTextBaseLen()+2);
|
||
// pLeader->AddToCSpace(Adesk::kTrue);
|
||
// }
|
||
//
|
||
// if(fabs(nPipeEle2 - nPipeEle1) < nDn || fabs(nPipeEle2 - nPipeEle1) < nDn2){
|
||
// XPoint p1, p2, p3, p4;
|
||
// ads_polar(ptInt, 0, nDist1, p1);
|
||
// ads_polar(p1, PI/2, nDist1, p1);
|
||
// ads_polar(ptInt, PI, nDist1, p2);
|
||
// ads_polar(p2, PI/2, -nDist1, p2);
|
||
// ads_grdraw(p1, p2, 2, 0);
|
||
// ads_polar(ptInt, PI/2, nDist1, p3);
|
||
// ads_polar(p3, PI, nDist1, p3);
|
||
// ads_polar(ptInt, PI/2, -nDist1, p4);
|
||
// ads_polar(p4, 0, nDist1, p4);
|
||
// ads_grdraw(p3, p4, 2, 0);
|
||
// bHasInter = TRUE;
|
||
// continue;
|
||
// }
|
||
//
|
||
// XPoint p1, p2, p3, p4;
|
||
// ads_polar(ptInt, 0, nDist2, p1);
|
||
// ads_polar(p1, PI/2, nDist2, p1);
|
||
// ads_polar(ptInt, PI, nDist2, p2);
|
||
// ads_polar(p2, PI/2, -nDist2, p2);
|
||
// ads_grdraw(p1, p2, 1, 0);
|
||
// ads_polar(ptInt, PI/2, nDist2, p3);
|
||
// ads_polar(p3, PI, nDist2, p3);
|
||
// ads_polar(ptInt, PI/2, -nDist2, p4);
|
||
// ads_polar(p4, 0, nDist2, p4);
|
||
// ads_grdraw(p3, p4, 1, 0);
|
||
// }
|
||
// }
|
||
// if(bHasInter)
|
||
// adsout << _T("\n黄叉表示室外管线存在碰撞！");
|
||
//}
|
||
|
||
|
||
//***************************************************************************************************
|
||
// 立管半径
|
||
//***************************************************************************************************
|
||
void SetVerPipeRadius()
|
||
{
|
||
g_ssPickFirst.Free();
|
||
RBList rbMask(RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), NULL);
|
||
PickSet ss(SS_FREE);
|
||
if(SelectEntities(_T("\n请选择要修改半径的立管或扣弯<退出>:"), ss, rbMask) != RTNORM)
|
||
return;
|
||
if(ss.Length() < 1)
|
||
return;
|
||
Entity entSel = ss[0L];
|
||
double nRadius(0);
|
||
OPENOBJ_BEGIN(entSel, AcDb::kForRead, TDbPipe, pPipe);
|
||
if(pPipe && pPipe->IsVertical()){
|
||
nRadius = pPipe->GetRadius();
|
||
}
|
||
OPENOBJ_END();
|
||
CString csPrompt;
|
||
csPrompt.Format(_T("\n请给出新半径值mm<%.2f>:"), nRadius);
|
||
ads_getreal(csPrompt, &nRadius);
|
||
|
||
if(nRadius < 0.01)
|
||
return;
|
||
|
||
for(long i=0;i<ss.Length();i++){
|
||
Entity ent = ss[i];
|
||
OPENOBJ_BEGIN(ent, AcDb::kForWrite, TDbPipe, pPipe);
|
||
if(pPipe && pPipe->IsVertical()){
|
||
pPipe->SetRadius(nRadius);
|
||
}
|
||
OPENOBJ_END();
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|