gjm/envi-code
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
710566e65b87dcec11cbb32c04e1f42a17743562
envi-code/SourceCode/Code2026/Dimension/SprinklerByInterDlg.cpp
T
gjm 345044cb46 初始化提交
2026-09-28 15:28:50 +08:00

461 lines
14 KiB
C++
Raw Blame History

#include "stdafx.h"
#include "SprinklerByInterDlg.h"
#include "DbEquipment.h"
#include "dbpipe.h"
#include "AcDbObjectPtr.h"
#include "PickEntSet.h"
#include "layerdef.h"
extern AcDbObjectId InitLayer(const TCHAR *szLayer, AcDbDatabase *pDb = NULL);
extern bool GlobalFunc::IsStrAllNum(CString csText);
//**************************************************************************
// 交点喷头
//**************************************************************************
void SprinklerByInter(int idx, double nRadius, BOOL bDrawCir)
{
CString csDwb = g_csDwbPath + _T("TwtSys");
XString xsTmp, xsTmp2, xsTmp3d;
const TCHAR *szBlkName = NULL;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000125"), xsTmp) != RTNORM)
return;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000128"), xsTmp2) != RTNORM)
return;
if(g_Option::instance().g_bBlk3D){
if(idx == 0){
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000365"), xsTmp3d) != RTNORM)
return;
}
else if(idx == 1){
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000366"), xsTmp3d) != RTNORM)
return;
}
else if(idx == 2){
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000367"), xsTmp3d) != RTNORM)
return;
}
}
if(idx == 2)
xsTmp = xsTmp2;
CString m_csSysBlk1 = _T("TWTSYS(00000283)");
PickSet ssAll;
XPoint ptTmp1, ptTmp2;
if(ads_getpoint(NULL, _T("\n请输入第一角点(辅助线LINE,ARC,CIRCLE):<退出>"), ptTmp1) != RTNORM)
return;
// ptTmp1 = Ucs2Wcs(ptTmp1);
if(ads_getcorner(ptTmp1, _T("\n再点取其对角点(辅助线LINE,ARC,CIRCLE) <退出>:"), ptTmp2) != RTNORM)
return;
// ptTmp2 = Ucs2Wcs(ptTmp2);
Entity entTmp;
CString csLay = _T("*");
RBList rb;
if(GlobalFunc::SelectEntity(_T("\n如果希望指定辅助线图层，请选取其中一个图元:<不指定>"), entTmp, rb) == RTNORM){
TCHAR szLay[256];
entTmp.GetData(8, szLay);
csLay = szLay;
}
RBList rbMask = ads_buildlist( -4, _T("<or"),
-4, _T("<and"), RTDXF0, _T("CIRCLE"), 8, csLay, -4, _T("and>"),
-4, _T("<and"), RTDXF0, _T("ARC"), 8, csLay, -4, _T("and>"),
-4, _T("<and"), RTDXF0, _T("LINE"), 8, csLay, -4, _T("and>"),
-4, _T("or>"), NULL);
ssAll.Get(_T("C"), ptTmp1, ptTmp2, rbMask);
XPointList lstPt;
for(long i=0;i<ssAll.Length();i++){
Entity entTmp = ssAll[i];
XCurveSegment seg(entTmp);
seg.StartPoint().z = 0;
seg.EndPoint().z = 0;
for(long j=0;j<ssAll.Length();j++){
Entity entTmp2 = ssAll[j];
if(entTmp == entTmp2)
continue;
XCurveSegment seg2(entTmp2);
seg2.StartPoint().z = 0;
seg2.EndPoint().z = 0;
XPoint p1, p2;
seg.Intersection(seg2, p1, p2);
if(!!p1)
lstPt.NewAppend(p1);
if(!!p2)
lstPt.NewAppend(p2);
}
}
for(int m=0;m<lstPt.Length();m++){
XPoint ptTmp = *lstPt[m];
CDbEquipment *pEquip = new CDbEquipment;
pEquip->SetBlock2d(GlobalFunc::GetBlkIdByName(xsTmp));
if(idx == 1){
pEquip->SetHidePipe(FALSE);//下喷
pEquip->SetPipeLength(-250);
}
else{
pEquip->SetHidePipe(TRUE);
pEquip->SetPipeLength(250);
}
pEquip->SetBlock3d(GlobalFunc::GetBlkIdByName(xsTmp3d));
pEquip->SetLocation(ptTmp);
pEquip->SetAngle(0);
pEquip->SetNumber(_T("CIRCLE-1"));
pEquip->SetScale(g_Option::instance().g_nSprinklerRadius);
pEquip->SetSysBlock(m_csSysBlk1);
pEquip->setLayer(LAY_EQUIP_SPRINKLE);
pEquip->setColor(AcCmColor()); //随层
GlobalFunc::AddToCurrentSpace(pEquip, Adesk::kTrue);
if(bDrawCir){
Entity entLast;
entLast.GetLast();
GlobalFunc::WriteXdata(entLast, _T("HYDRANT_RADIUS"), XString(_T("%.2f"), nRadius));
}
}
SHads_command(RTNONE);
return;
}
//**************************************************************************
// 交点喷头
//**************************************************************************
XCurveSegment GetPipeCurve(Entity ent)
{
XCurveSegment seg;
OPENOBJ_BEGIN(ent, AcDb::kForRead, CDbPipe, pPipe);
if(pPipe && !pPipe->IsVertical()){
seg = (XCurveSegment)*pPipe;
}
OPENOBJ_END();
return seg;
}
void SprinklerByInter()
{
int nOsMode=0;
xg_getvar(_T("OSMODE"), &nOsMode);
nOsMode &= ~0x4000;
nOsMode |= OS_INT|OS_NEA|OS_CEN|OS_PER;
XPushVar<int> vOsMode(_T("OSMODE"), nOsMode);
XPoint ptStart, ptEnd;
CString csDwb = g_csDwbPath + _T("TwtSys");
XString xsTmp, xsTmp2, xsTmp3, xsTmp4, xsTmp5, xsTmp2d, xsTmp3d;
XString xsTmp8, xsTmp9, xsTmp10;//zxl 2011.12.19 add 增加水喷雾喷头
const TCHAR *szBlkName = NULL;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000125"), xsTmp) != RTNORM)
return;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000128"), xsTmp2) != RTNORM)
return;
if (GlobalFunc::LoadDwbBlock(csDwb, _T("00000283"), XString()) != RTNORM) // cet 2011.2.28 add 剖切时需要的图块
{
return;
}
if (GlobalFunc::LoadDwbBlock(csDwb, _T("00000529"), xsTmp8) != RTNORM)//zxl 2011.12.19 add 增加水喷雾喷头
{
return;
}
if (GlobalFunc::LoadDwbBlock(csDwb, _T("00000540"), xsTmp9) != RTNORM) // cet 2013.1.5 add 直立型水幕
{
return;
}
if (GlobalFunc::LoadDwbBlock(csDwb, _T("00000541"), xsTmp10) != RTNORM) // cet 2013.1.5 add 下垂型水幕
{
return;
}
if(g_Option::instance().g_bBlk3D){
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000365"), xsTmp3) != RTNORM)
return;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000366"), xsTmp4) != RTNORM)
return;
if(GlobalFunc::LoadDwbBlock(csDwb, _T("00000367"), xsTmp5) != RTNORM)
return;
}
CString m_csSysBlk1 = _T("TWTSYS(00000283)");
CString m_csSysBlk2 = _T("TWTSYS(00000530)");//水喷雾 系统 zxl 2011.12.19 add
CSprinklerByInterDlg dlg(acedGetAcadFrame());
{
CTemporaryResourceOverride vTemp;
dlg.Create(IDD_SPRINKLER_INTER, acedGetAcadFrame());
dlg.ShowWindow(SW_SHOW);
acedGetAcadDwgView()->SetFocus();
}
GlobalFunc::InitPipeLayer(LAY_PIPE_SPRINKLE);
InitLayer(LAY_EQUIP_SPRINKLE);
while(1){
PickSet ssAll;
XPoint ptTmp1, ptTmp2;
if(ads_getpoint(NULL, _T("\n请输入第一角点(辅助线LINE,ARC,CIRCLE):<退出>"), ptTmp1) != RTNORM)
break;
if(ads_getcorner(ptTmp1, _T("\n再点取其对角点(辅助线LINE,ARC,CIRCLE) <退出>:"), ptTmp2) != RTNORM)
break;
Entity entTmp;
CString csLay = _T("*");
dlg.UpdateData(TRUE);
if(dlg.m_bLay){
RBList rb;
if(GlobalFunc::SelectEntity(_T("\n如果希望指定辅助线图层，请选取其中一个图元:<不指定>"), entTmp, rb) == RTNORM){
TCHAR szLay[256];
entTmp.GetData(8, szLay);
csLay = szLay;
}
}
RBList rbMask = ads_buildlist( -4, _T("<or"),
-4, _T("<and"), RTDXF0, _T("CIRCLE"), 8, csLay, -4, _T("and>"),
-4, _T("<and"), RTDXF0, _T("ARC"), 8, csLay, -4, _T("and>"),
-4, _T("<and"), RTDXF0, _T("LINE"), 8, csLay, -4, _T("and>"),
-4, _T("<and"), RTDXF0, _T("AEC_ZT_PIPE"), 8, csLay, -4, _T("and>"),
-4, _T("or>"), NULL);
dlg.UpdateData(TRUE);
ssAll.Get(_T("C"), ptTmp1, ptTmp2, rbMask);
//zxl 2011.12.19 add
if(dlg.m_iType == 0){
xsTmp2d = xsTmp;
xsTmp3d = xsTmp4;
}
else if(dlg.m_iType == 1){
xsTmp2d = xsTmp;
xsTmp3d = xsTmp3;
}
else if(dlg.m_iType == 2){
xsTmp2d = xsTmp2;
xsTmp3d = xsTmp5;
}
else if (dlg.m_iType == 3)//zxl 2011.12.19 add 增加水喷雾喷头
{
xsTmp2d = xsTmp8;
xsTmp3d = xsTmp3;
}
else if (dlg.m_iType == 4) // cet 2013.1.5 add 直立型水幕
{
xsTmp2d = xsTmp9;
xsTmp3d = xsTmp4;
}
else if (dlg.m_iType == 5) // cet 2013.1.5 add 下垂型水幕
{
xsTmp2d = xsTmp10;
xsTmp3d = xsTmp3;
}
XPointList lstPt;
for(long i=0;i<ssAll.Length();i++){
Entity entTmp = ssAll[i];
if(entTmp.Is(_T("AEC_ZT_PIPE")) && !dlg.m_bPipe)
continue;
XCurveSegment seg(entTmp);
if(entTmp.Is(_T("AEC_ZT_PIPE")))
seg = GetPipeCurve(entTmp);
seg.StartPoint().z = 0;
seg.EndPoint().z = 0;
for(long j=0;j<ssAll.Length();j++){
Entity entTmp2 = ssAll[j];
if(entTmp2.Is(_T("AEC_ZT_PIPE")) && !dlg.m_bPipe)
continue;
if(entTmp == entTmp2)
continue;
XCurveSegment seg2(entTmp2);
if(entTmp2.Is(_T("AEC_ZT_PIPE")))
seg2 = GetPipeCurve(entTmp2);
seg2.StartPoint().z = 0;
seg2.EndPoint().z = 0;
XPoint p1, p2;
seg.Intersection(seg2, p1, p2);
if(!!p1)
lstPt.NewAppend(p1);
if(!!p2)
lstPt.NewAppend(p2);
}
}
for(int m=0;m<lstPt.Length();m++){
XPoint ptTmp = *lstPt[m];
CDbEquipment *pEquip = new CDbEquipment;
pEquip->SetBlock2d(GlobalFunc::GetBlkIdByName(xsTmp2d));
if(dlg.m_iType == 1){
pEquip->SetHidePipe(FALSE);//下喷
pEquip->SetPipeLength(-250);
pEquip->SetSysBlock(m_csSysBlk1);
}
else if (dlg.m_iType == 3)//zxl 2011.12.19 add 增加水喷雾喷头
{
pEquip->SetHidePipe(TRUE);
pEquip->SetPipeLength(-250);
pEquip->SetSysBlock(m_csSysBlk2);
}
else if (dlg.m_iType == 4) // cet 2013.1.5 add 增加直立型水幕
{
pEquip->SetHidePipe(TRUE);
pEquip->SetPipeLength(250);
pEquip->SetSysBlock(_T("TWTSYS(00000542)"));
}
else if (dlg.m_iType == 5) // cet 2013.1.5 add 增加下垂型水幕
{
pEquip->SetHidePipe(TRUE);
pEquip->SetPipeLength(-250);
pEquip->SetSysBlock(_T("TWTSYS(00000542)"));
}
else
{
pEquip->SetHidePipe(TRUE);
pEquip->SetPipeLength(250);
pEquip->SetSysBlock(m_csSysBlk1);
}
pEquip->SetBlock3d(GlobalFunc::GetBlkIdByName(xsTmp3d));
ptTmp.z = dlg.m_nEle*1000;
pEquip->SetLocation(ptTmp);
pEquip->SetAngle(0);
pEquip->SetNumber(_T("CIRCLE-1"));
pEquip->SetScale(g_Option::instance().g_nSprinklerRadius);
//pEquip->SetSysBlock(m_csSysBlk1);
pEquip->setLayer(LAY_EQUIP_SPRINKLE);
pEquip->setColor(AcCmColor()); //随层
GlobalFunc::AddToCurrentSpace(pEquip, Adesk::kTrue);
if(dlg.m_bDrawCir){
Entity entLast;
entLast.GetLast();
GlobalFunc::WriteXdata(entLast, _T("HYDRANT_RADIUS"), dlg.m_csRadius);
}
}
}
SHads_command(RTNONE);
dlg.DestroyWindow();
return;
}
/////////////////////////////////////////////////////////////////////////////
// CSprinklerByInterDlg dialog
IMPLEMENT_DYNAMIC(CSprinklerByInterDlg, CDialog)
int CSprinklerByInterDlg::m_iType = 1;
CSprinklerByInterDlg::CSprinklerByInterDlg(CWnd* pParent /*=NULL*/)
: CDialog(CSprinklerByInterDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CSprinklerByInterDlg)
m_bDrawCir = TRUE;
m_csRadius = _T("");
m_nEle = 0.0;
m_bLay = FALSE;
m_bPipe = FALSE;
//}}AFX_DATA_INIT
}
void CSprinklerByInterDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CSprinklerByInterDlg)
DDX_Control(pDX, IDC_EDIT_ELE, m_editEle);
DDX_Check(pDX, IDC_CHECK_DRAW, m_bDrawCir);
DDX_CBString(pDX, IDC_COMBO_RADIUS, m_csRadius);
DDX_Text(pDX, IDC_EDIT_ELE, m_nEle);
DDX_Check(pDX, IDC_CHECK_LAY, m_bLay);
DDX_Check(pDX, IDC_CHECK_PIPE, m_bPipe);
DDX_Radio(pDX, IDC_RADIO_POS1, m_iType);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CSprinklerByInterDlg, CDialog)
//{{AFX_MSG_MAP(CSprinklerByInterDlg)
ON_BN_CLICKED(IDC_CHECK_DRAW, OnCheckDraw)
ON_WM_CLOSE()
ON_EN_KILLFOCUS(IDC_EDIT_ELE, OnKillfocusEditEle)
ON_CBN_KILLFOCUS(IDC_COMBO_RADIUS, OnKillfocusComboRadius)
ON_MESSAGE(WM_ACAD_KEEPFOCUS, onAcadKeepFocus)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CSprinklerByInterDlg message handlers
void CSprinklerByInterDlg::OnCheckDraw()
{
UpdateData();
CWnd *pWnd1 = GetDlgItem(IDC_COMBO_RADIUS);
pWnd1->EnableWindow(m_bDrawCir);
}
void CSprinklerByInterDlg::OnClose()
{
CDialog::OnClose();
acedPostCommand(_T("\33\33"));
}
BOOL CSprinklerByInterDlg::OnInitDialog()
{
CDialog::OnInitDialog();
m_editEle.SetDataType(CRealEdit::eReal);
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
void CSprinklerByInterDlg::OnKillfocusEditEle()
{
double dData = m_nEle;
CString sText;
m_editEle.GetWindowText(sText);
m_nEle = _tstof(sText);
if (sText.IsEmpty() || !GlobalFunc::IsStrAllNum(sText))
{
m_nEle = dData;
UpdateData(FALSE);
acedGetAcadDwgView()->SetFocus();
m_editEle.SetFocus();
m_editEle.SetSel(0, -1);
}
}
void CSprinklerByInterDlg::OnKillfocusComboRadius()
{
CString csData = m_csRadius;
CEdit *pWnd = (CEdit *)GetDlgItem(IDC_COMBO_RADIUS);
if (pWnd == NULL)
{
return;
}
CString sText;
pWnd->GetWindowText(sText);
double dNewData = _tstof(sText);
if (dNewData <= 0 || !GlobalFunc::IsStrAllNum(sText))
{
m_csRadius = csData;
UpdateData(FALSE);
acedGetAcadDwgView()->SetFocus();
pWnd->SetFocus();
pWnd->SetSel(0, -1);
}
}
LONG_PTR CSprinklerByInterDlg::onAcadKeepFocus(UINT_PTR, LONG_PTR)
{
POINT pt;
::GetCursorPos(&pt);
CRect rect;
GetWindowRect(&rect);
if (!(rect.PtInRect(pt)))
{
return FALSE;
}
return TRUE;
}
Reference in new issue View Git Blame Copy Permalink