/********************************************************************
	created:	2004/03/18
	created:	18:3:2004   11:28
	filename: 	f:\tg_dev\telecdev\twtkernal\sprinkleredit.cpp
	file path:	f:\tg_dev\telecdev\twtkernal
	file base:	sprinkleredit
	file ext:	cpp
	author:		沈睿
	
	purpose:	喷头编辑文件, 主要是喷头定位
*********************************************************************/

#include "stdafx.h"
//#include <dbwall.h>
#include <TipWnd.h>
#include <DbEquipment.h>
#include <DbDimension.h>
#include "DbVPipeDim.h"

//***************************************************************************************************
//                                        喷头定位
//***************************************************************************************************
XCurveSegment GetBlkPickSegment(Entity entBlk, XPoint ptPick, BOOL &bTrue);

// cet 2011.9.1 add 移动立管标注
void MoveVPipeDim(const XPoint &pt, const AcGeMatrix3d &mat, double dLen)
{
    PickSet ssDim(SS_FREE);
    RBList rbMaskDim(RTDXF0, _T("ATS_VPIPEDIM"), NULL);
    XRectAngle rect(Wcs2Ucs(pt), dLen, dLen);
    ssDim.Get(_T("C"), rect.GetLowLeft(), rect.GetUpRight(), rbMaskDim);
	for (long i = 0; i < ssDim.Length(); i++)
	{
		OPENOBJ_BEGIN(ssDim[i], AcDb::kForWrite, TDbVPipeDim , pDim);
		if (pDim != NULL)
		{
			pDim->subTransformBy(mat);
		}
		OPENOBJ_END();
	}
}

void DoModifySprinklerLoc(Entity entRef, Entity entSprink, XPoint ptPick)
{
    RBList rbMask = ads_buildlist( -4, _T("<or"),
        -4, _T("<and"), RTDXF0, _T("ATS_EQUIPMENT"), 8, LAY_EQUIP_SPRINKLE, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_SPRINKLE, -4, _T("and>"),  
        -4, _T("or>"), NULL);
    
    CPoint ptDwgView;
    int cvport=0;
    VERIFY(xg_getvar(_T("CVPORT"), &cvport)==RTNORM);
    acedCoordFromWorldToPixel(cvport, ptPick, ptDwgView);
    CTemporaryResourceOverride vTmp;
    XPoint ptSprink;
    if(entSprink.Is(_T("ATS_EQUIPMENT"))){
        OPENOBJ_BEGIN(entSprink, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            ptSprink = pEquip->GetLocation();
            ptSprink.z = 0;
        }            
        OPENOBJ_END();
    }
    else if(entSprink.Is(_T("ATS_PIPE"))){
        OPENOBJ_BEGIN(entSprink, AcDb::kForRead, TDbPipe, pPipe);
        if(!pPipe || !pPipe->IsVertical()){
            AfxMessageBox(_T("不是立管!"));
            return;
        }       
        ptSprink = pPipe->StartPoint();
        ptSprink.z = 0;
        OPENOBJ_END();
    }
    
    CString csText;
    XPoint ptInt;
    double nDist(0);
  
    if(entRef.Is(_T("LINE"))){
        XLine line(entRef, 1);
        ptSprink.Project(&line, ptInt);
        ptInt.z = 0;
        nDist = ads_distance(ptSprink, ptInt);
    }
    else if(entRef.Is(_T("ATS_EQUIPMENT"))){
        XPoint ptNewLoc;
        OPENOBJ_BEGIN(entRef, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            ptInt = pEquip->GetLocation();
            ptInt.z = 0;
        }            
        OPENOBJ_END();
        nDist = ads_distance(ptSprink, ptInt);
    }
    else if(entRef.Is(_T("ATS_WALL"))){
        XCurveSegment lCurve, rCurve;
        OPENOBJ_BEGIN(entRef, AcDb::kForRead, TDbWall, pWall);
        if(pWall) {
            XPoint ptNew1, ptNew2;
            pWall->GetSideCurve(lCurve, rCurve);
            lCurve.ProjectToMe(ptSprink, ptNew1);
            rCurve.ProjectToMe(ptSprink, ptNew2);
			ptNew1.z = 0.0; // cet 2011.9.1 add 
			ptNew2.z = 0.0; // cet 2011.9.1 add 
            double nDist1 = ads_distance(ptSprink, ptNew1);
            double nDist2 = ads_distance(ptSprink, ptNew2);
            if(nDist1 < nDist2){
                nDist = nDist1;
                ptInt = ptNew1;
            }
            else{
                nDist = nDist2;
                ptInt = ptNew2;
            }
        }                    
        OPENOBJ_END();
    }
	else if (entRef.Is(_T("INSERT")))// cet 2011.5.24 add
	{
		XCurveSegment SelCurve;
		BOOL bIsLeft = TRUE;
		SelCurve = GetBlkPickSegment(entRef, ptPick, bIsLeft); 
		if(!!SelCurve)
		{
			XPoint ptTmp;
			ptSprink.Project(&SelCurve, ptTmp);
			ptTmp.z = 0.0; // cet 2011.9.1 add 
			nDist = ads_distance(ptSprink, ptTmp);
			ptInt = ptTmp;
		}
		else // 获取参考失败直接返回
		{
			return;
		}
	}
	else if (entRef.Is(_T("ATS_COLUMN"))) // cet 2011.8.31 add 支持柱子
	{ 
		XCurveSegment seg;
		OPENOBJ_BEGIN(entRef, AcDb::kForRead, TDbColumn, pColumn);
		if(pColumn != NULL)
		{
			XPoly2D poly;
			pColumn->GetOutline(poly);
			int nNum = poly.TotalSegments();
			for (int i = 0; i < nNum; i++)
			{
				poly.Nth(i, seg);
				if (seg.GetCurveType() == CURVE_LINE)
				{
					XLine line(seg.GetStartPoint(), seg.GetEndPoint(), 1);
					if (IsPtOnLine(ptPick, line, 50))
					{
						break;
					}
				}
			}
		}            
		OPENOBJ_END();
		
		if (!seg) // 未找到直接返回
		{
			return;
		}
		
		XPoint ptTmp;
		ptSprink.Project(&seg, ptTmp);
		ptTmp.z = 0.0;
		nDist = ads_distance(ptSprink, ptTmp);
		ptInt = ptTmp;
	}
	else if (entRef.Is(_T("LWPOLYLINE")) || entRef.Is(_T("POLYLINE")))// zxl 2013.10.30 add 支持pline线
	{
		XCurveSegment seg, seg1;
		XPoly2D poly(entRef);
		int nNum = poly.TotalSegments();
		for (int i = 0; i < nNum; i++)
		{
			poly.Nth(i, seg1);
			if (seg1.GetCurveType() == CURVE_LINE)
			{
				XLine line(seg1.GetStartPoint(), seg1.GetEndPoint(), 0);
				if (IsPtOnLine(ptPick, line, 50))
				{
					seg = seg1;
					break;
				}
			}
		}
		
		if (!seg) // 未找到直接返回
		{
			return;
		}
		
		XPoint ptTmp;
		ptSprink.Project(&seg, ptTmp);
		ptTmp.z = 0.0;
		nDist = ads_distance(ptSprink, ptTmp);
		ptInt = ptTmp;
	}
    else 
        return;
    csText.Format(_T("%.0f"), nDist);
    XPoint ptTmp;
    double nAng = ads_angle(ptSprink, ptInt);
    InitSheetHook(TRUE);
    CEdit *pEdit = new CEdit();
    pEdit->Create(WS_CHILD | WS_VISIBLE | WS_TABSTOP |WS_BORDER | ES_AUTOHSCROLL | ES_WANTRETURN, 
        CRect(ptDwgView.x, ptDwgView.y,ptDwgView.x+100,ptDwgView.y +20), acedGetAcadDwgView(), IDC_USER_SHEET_EDIT);
    pEdit->SetWindowText(csText);
    int lenText = csText.GetLength();
    pEdit->SetSel(0, lenText);
    pEdit->SetFocus();	
    int nKey, ret;
    ads_prompt(_T("\n请在编辑框内输入新的距离<回车键完成, ESC键退出>"));
    while(1){
        ret = ads_getint(_T(""), &nKey);
        if(ret == RTNONE && g_nKey != 0)	{ 
            if(g_nKey == VK_ESCAPE)
                break;
            if(g_nKey == VK_RETURN || g_nKey == VK_RBUTTON){
                CString csTmp;
                pEdit->GetWindowText(csTmp);
                double nEle = _tstof(csTmp);
                ads_polar(ptSprink, nAng, nDist - nEle, ptTmp);
                break;
            }
        }
        else if(ret == RTCAN)
            break;
    }
    InitSheetHook(FALSE);
    if(pEdit)
        pEdit->DestroyWindow();
    delete pEdit;

    if(!ptTmp)
        return;

    if(entSprink.Is(_T("ATS_PIPE"))){
		AcGeMatrix3d mat;  // cet 2011.9.1 add 
		XPoint pt;         // cet 2011.9.1 add 立管原来位置
		double dLen = 100; // cet 2011.9.1 add 标注搜索范围
        OPENOBJ_BEGIN(entSprink, AcDb::kForWrite, TDbPipe, pPipe);
        if(!pPipe || !pPipe->IsVertical()){
            return;
        }
		// cet 2011.9.1 add 获得联动立管标注的矩阵
		dLen = pPipe->GetRadius()*pPipe->GetPScale();
		pt = pPipe->StartPoint();
		AcGeVector3d vt = ptTmp - pt;
		vt.z = 0.0;
		mat.setToTranslation(vt);

        ptTmp.z = pPipe->StartPoint().z;
        pPipe->SetStartPoint(ptTmp);
        ptTmp.z = pPipe->EndPoint().z;
        pPipe->SetEndPoint(ptTmp);
        OPENOBJ_END();
		MoveVPipeDim(pt, mat, dLen); // cet 2011.9.1 add 移动立管编号
        return;
    }
    
    AcGeVector3d vectTmp(ptTmp.x - ptSprink.x, ptTmp.y - ptSprink.y, 0);
    AcGeVector3d vectTmp2(ptSprink.x - ptTmp.x, ptSprink.y - ptTmp.y, 0);
    AcGeMatrix3d mat;
    mat.setToTranslation(vectTmp2);
 
    XPushVar<int> vOsMode(_T("OSMODE"), 0);
    PickSet ss(SS_FREE);
	if(SelectEntities(_T("\n请选择联动喷头及管线:<只移动本喷头>"), ss, rbMask) != RTNORM){
        ss+=entSprink;
        OPENOBJ_BEGIN(entSprink, AcDb::kForWrite, TDbEquipment, pEquip);
        if(pEquip){
            ptTmp.z = pEquip->GetLocation().z;
            pEquip->SetLocation(ptTmp);
            pEquip->SetInsert(ptTmp);
        }            
        OPENOBJ_END();
    }
    else{
        ss+=entSprink;
		// zxl 2013.11.05 modify 未考虑ucs
//         SHads_command(RTSTR, _T("MOVE"), RTPICKS, (TLong_ptr *)ss, RTSTR, _T(""),
//             RT3DPOINT, &ptSprink, RT3DPOINT, &ptTmp, RTNONE);

		TADSGePoint3d _pt1(Wcs2Ucs(ptSprink)), _pt2(Wcs2Ucs(ptTmp));
		SHads_command(RTSTR, _T("MOVE"), RTPICKS, (TLong_ptr *)ss, RTSTR, _T(""),
            RT3DPOINT, &_pt1, RT3DPOINT, &_pt2, RTNONE);

    }
    for(long j=0;j<ss.Length();j++){
        Entity ent = ss[j];
        XPoint ptOldLoc, ptNewLoc;
        OPENOBJ_BEGIN(ent, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            int num = pEquip->GetInterfaceNum();
            ptNewLoc = pEquip->GetLocation();
            ptOldLoc = ptNewLoc;
            ptOldLoc.TransformBy(mat);
            if(num == 1){
                TPipeInterface face;
                pEquip->GetInterface(0, face);
                AcDbObjectId PipeId = face.m_idPipe; 
                OPENOBJ_BEGIN(PipeId, AcDb::kForWrite, TDbPipe, pPipe);
                if(pPipe){
                    XPoint ptStart, ptEnd;
                    pPipe->getStartPoint(ptStart);
                    pPipe->getEndPoint(ptEnd);
                    if(ptStart == ptOldLoc)
                        pPipe->SetStartPoint(ptNewLoc);
                    else if(ptEnd == ptOldLoc)
                        pPipe->SetEndPoint(ptNewLoc);
                }
                OPENOBJ_END();
            }
        }            
        OPENOBJ_END();
   }


    PickSet ssDim(SS_FREE);
    RBList rbMaskDim(RTDXF0, _T("ATS_DIMENSION2"), NULL);
    XRectAngle rect(ptSprink, 650, 650);
    ssDim.Get(_T("C"), rect.GetLowLeft(), rect.GetUpRight(), rbMaskDim);
    long len = ssDim.Length();
    ptSprink.z = 0;
    for(long i=0;i<len;i++){
        Entity entDim = ssDim[i];
        OPENOBJ_BEGIN(entDim, AcDb::kForWrite, TDbDimension2, pDim);
        if(pDim){
            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 == ptSprink){
                    AcDbIntArray indices;
                    indices.append(n);
                    pDim->moveGripPointsAt(indices, vectTmp);
                }
            }                
        }
        OPENOBJ_END();
    }
 
}

 
XCurveSegment GetBlkPickSegment(Entity entBlk, XPoint ptPick, BOOL &bTrue)
{
    //第一步，得到块参考矩阵
    AcDbBlockReference *pBlkRef = NULL;
    AcDbObjectId id = NULL;
    acdbGetObjectId(id, entBlk);
    acdbOpenObject(pBlkRef, id, AcDb::kForRead);
    if(!pBlkRef)
        return XCurveSegment();
    AcGeMatrix3d mat = pBlkRef->blockTransform();
    if(pBlkRef)
        pBlkRef->close();

    double xscale;
    entBlk.GetData(41, &xscale);
    xscale = fabs(xscale);

    //第二步，得到块记录遍历器
    TCHAR szBlkName[256];
    entBlk.GetData(2, szBlkName);
    AcDbBlockTable* pBlockTable = NULL;
    AcDbBlockTableRecord *pRecord = NULL; 
    acdbCurDwg()->getBlockTable(pBlockTable, AcDb::kForRead);
    if(Acad::eOk != pBlockTable->getAt(szBlkName, pRecord, AcDb::kForRead))
        return XCurveSegment();
    pBlockTable->close();
    if(pRecord->isFromExternalReference() == true){
        XPoint ptOrigin = pRecord->origin();
        AcGeMatrix3d mat2;
        mat2.setToTranslation(AcGeVector3d(-ptOrigin[0], -ptOrigin[1], -ptOrigin[2]));
        mat *= mat2;
    }


	AcDbBlockTableRecordIterator *pIterator = NULL;
	pRecord->newIterator(pIterator);
	BOOL bIsWall5 = FALSE;               
	XCurveSegment seg;
    if(pRecord)
        pRecord->close();
 
	for(pIterator->start(); !pIterator->done(); pIterator->step()){
		AcDbEntity *pEnt;
		pIterator->getEntity(pEnt, AcDb::kForRead);
 		AcDbLine  *pLine = NULL;
 		TDbWall  *pWall = NULL;
		TDbColumn *pColumn = NULL; // cet 2011.8.31 add

		// zxl 2013.10.30 add
		Entity ent;
		ads_name name;
		acdbGetAdsName(name, pEnt->id());
		ent = name;

		if(pWall = TDbWall::cast(pEnt)){   //特别支持5。0墙体
			XCurveSegment lCurve, rCurve;
			pWall->GetSideCurve(lCurve, rCurve);
			if(lCurve.Is(CURVE_LINE)){
				AcGePoint3d ptStart = lCurve.GetStartPoint();
				ptStart = ptStart.transformBy(mat);
				AcGePoint3d ptEnd = lCurve.GetEndPoint();
				ptEnd = ptEnd.transformBy(mat);
				ptStart.z = 0.0; // cet 2011.9.1 add
				ptEnd.z = 0.0;   // cet 2011.9.1 add
				XLine line(asDblArray(ptStart), asDblArray(ptEnd), 1);
				seg = line;
				if(IsPtOnLine(ptPick, line, 50)){
					bTrue = TRUE;
					bIsWall5 = TRUE;
					pEnt->close();
					delete pIterator;
					return seg;
				}
			}
 			if(rCurve.Is(CURVE_LINE)){
 				AcGePoint3d ptStart = rCurve.GetStartPoint();
				ptStart = ptStart.transformBy(mat);
				AcGePoint3d ptEnd = rCurve.GetEndPoint();
   				ptEnd = ptEnd.transformBy(mat);
				ptStart.z = 0.0; // cet 2011.9.1 add
				ptEnd.z = 0.0;   // cet 2011.9.1 add
				XLine line(asDblArray(ptStart), asDblArray(ptEnd), 1);
				seg = line;
				if(IsPtOnLine(ptPick, line, 50)){
					bIsWall5 = TRUE;
					bTrue = FALSE;
					pEnt->close();
					delete pIterator;
					return seg;
				}
			}
		}
		else if (pLine = AcDbLine::cast(pEnt)) // cet 2011.5.24 add
		{
			AcGePoint3d ptStart, ptEnd;
			pLine->getStartPoint(ptStart);
			pLine->getEndPoint(ptEnd);
			ptStart = ptStart.transformBy(mat);
			ptEnd = ptEnd.transformBy(mat);
			ptStart.z = 0.0; // cet 2011.9.1 add
			ptEnd.z = 0.0;   // cet 2011.9.1 add
			XLine line(asDblArray(ptStart), asDblArray(ptEnd), 1);
			seg = line;
			if(IsPtOnLine(ptPick, line, 50))
			{
				bTrue = FALSE;
				pEnt->close();
				delete pIterator;
				return seg;
			}
		}
		else if (pColumn = TDbColumn::cast(pEnt)) // cet 2011.8.31 add 支持柱子
		{
			XPoly2D poly;
			pColumn->GetOutline(poly);
			int nNum = poly.TotalSegments();
			XPoint ptS, ptE;
			for (int i = 0; i < nNum; i++)
			{
				poly.Nth(i, seg);
				if (seg.GetCurveType() == CURVE_LINE)
				{
					ptS = seg.GetStartPoint();
					ptE = seg.GetEndPoint();
					ptS.TransformBy(mat);
					ptE.TransformBy(mat);
					ptS.z = 0.0; 
			    	ptE.z = 0.0; 
					XLine line(ptE, ptS, 1);
					if (IsPtOnLine(ptPick, line, 50))
					{
						bTrue = FALSE;
						pEnt->close();
						delete pIterator;
						seg.SetStartPoint(ptS);
						seg.SetEndPoint(ptE);
						return seg;
					}
				}
			}
			
		}
		else if (ent.Is(_T("LWPOLYLINE")) || ent.Is(_T("POLYLINE"))) // zxl 2013.10.30 add 支持pline线
		{
			XPoly2D poly(ent);
			int nNum = poly.TotalSegments();
			XPoint ptS, ptE;
			XCurveSegment seg1;
			for (int i = 0; i < nNum; i++)
			{
				poly.Nth(i, seg1);
				if (seg.GetCurveType() == CURVE_LINE)
				{
					ptS = seg1.GetStartPoint();
					ptE = seg1.GetEndPoint();
					ptS.TransformBy(mat);
					ptE.TransformBy(mat);
					ptS.z = 0.0; 
					ptE.z = 0.0; 
					XLine line(ptE, ptS, 1);
					if (IsPtOnLine(ptPick, line, 50))
					{
						bTrue = FALSE;
						pEnt->close();
						delete pIterator;
						seg.SetStartPoint(ptS);
						seg.SetEndPoint(ptE);
						return seg;
					}
				}
			}
			
		}
		pEnt->close();
	}
    if(pIterator)
        delete pIterator;
    
	return XCurveSegment();
}




void SprinklerOrientation()
{
    Entity entSel;
    RBList rbMaskSel = ads_buildlist( -4, _T("<or"),
        -4, _T("<and"), RTDXF0, _T("ATS_EQUIPMENT"), 8, LAY_EQUIP_SPRINKLE, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, GetLayerNames(_T("管")), -4, _T("and>"),  
        -4, _T("or>"), NULL);
    

	if(SelectEntity(_T("\n请选择需要定位的喷头或立管<退出>:"), entSel, rbMaskSel) != RTNORM)
        return;
    XPoint ptSprink;
    if(entSel.Is(_T("ATS_EQUIPMENT"))){
        OPENOBJ_BEGIN(entSel, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            ptSprink = pEquip->GetLocation();
            ptSprink.z = 0;
        }            
        OPENOBJ_END();
    }
    else if(entSel.Is(_T("ATS_PIPE"))){
        OPENOBJ_BEGIN(entSel, AcDb::kForRead, TDbPipe, pPipe);
        if(!pPipe || !pPipe->IsVertical()){
            AfxMessageBox(_T("不是立管!"));
            return;
        }       
        ptSprink = pPipe->StartPoint();
        ptSprink.z = 0;
        OPENOBJ_END();
    }
    entSel.Redraw(3);
    
    RBList rbMask1(RTDXF0, _T("ATS_EQUIPMENT"), 8, LAY_EQUIP_SPRINKLE, NULL);
    RBList rbMask2(RTDXF0, _T("LINE"), 8, _T("*"), NULL);
    RBList rbMask3(RTDXF0, _T("ATS_WALL"), 8, _T("*"), NULL);
    RBList rbMask4(RTDXF0, _T("INSERT"), 8, _T("*"), NULL);
	RBList rbMask5(RTDXF0, _T("ATS_COLUMN"), 8, _T("*"), NULL); // cet 2011.8.31 add 
	RBList rbMask6(RTDXF0, _T("LWPOLYLINE"), 8, _T("*"), NULL);// zxl 2013.10.29 add
	RBList rbMask7(RTDXF0, _T("POLYLINE"), 8, _T("*"), NULL);// zxl 2013.10.29 add

   
    int pickbox;
    int type(0);
    XPoint pt1,pt2;
    Entity entTag;
    PickSet ssAll(SS_FREE);
    VERIFY(xg_getvar(_T("PICKBOX"), &pickbox)==RTNORM);
    CTipWnd *pTextDlg = NULL;
	ads_prompt(_T("\n请选择参考位置,如墙、喷头<退出>:"));
    for (;;) {
	

		resbuf result;
		type = 2;
		if (ads_grread(5,&type,&result) != RTNORM) break;
		if (type != 5 && type!=3 && type!=12 && type!=11) break;
		pt1[0] = result.resval.rpoint[0];
		pt1[1] = result.resval.rpoint[1];
		pt1[2] = 0.0;
		if(type==3) {
			PickSet s(SS_FREE);
			if (ads_ssget(NULL,pt1,NULL,NULL,s) == RTNORM ) {
				entTag = s[0L];
				if(!entTag.MatchBase(rbMask1) && !entTag.MatchBase(rbMask2) && !entTag.MatchBase(rbMask3) && !entTag.MatchBase(rbMask4) && !entTag.MatchBase(rbMask5) && !entTag.MatchBase(rbMask6) && !entTag.MatchBase(rbMask7)) // cet 2011.8.31 modify 支持柱子
					continue;
				if (pTextDlg) {
					pTextDlg->DestroyWindow();
					delete pTextDlg;
					pTextDlg = NULL;
				}
                DoModifySprinklerLoc(entTag, entSel, Ucs2Wcs(pt1));
                break;
			}
			continue;
		}
		else if(type == 11){  //右键进行编辑
			break;
		}

		if (ads_distance(pt1,pt2) > 0.1) {
			if (pTextDlg) {
				pTextDlg->DestroyWindow();
				delete pTextDlg;
				pTextDlg = NULL;
			}
			PickSet s(SS_FREE);
			if (ads_ssget(NULL,pt1,NULL,NULL,s) != RTNORM ) {
			    continue;
			}
			Groups g1(1), g0(0);
            ads_trans(XPoint(pt1), (resbuf *)&g1, (resbuf *)&g0, 0, pt1);

            // 构造WCS到Dcs的转换矩阵
            AcGeMatrix3d transWcsToDcs;
            XPoint xAxesWcs(1,0,0), yAxesWcs(0,1,0), zAxesWcs(0,0,1),
                xAxesDcs, yAxesDcs, zAxesDcs;
            XPoint ptOrginWcs(0,0,0), ptOrginDcs(0,0,0);
            Groups fromWcs(0), toDcs(2);
            ads_trans(ptOrginWcs, (resbuf *)&fromWcs, (resbuf *)&toDcs, 0, ptOrginDcs);
            ads_trans(xAxesWcs, (resbuf *)&fromWcs, (resbuf *)&toDcs, 1, xAxesDcs);
            ads_trans(yAxesWcs, (resbuf *)&fromWcs, (resbuf *)&toDcs, 1, yAxesDcs);
            ads_trans(zAxesWcs, (resbuf *)&fromWcs, (resbuf *)&toDcs, 1, zAxesDcs);
            transWcsToDcs.setCoordSystem(ptOrginDcs, xAxesDcs, yAxesDcs, zAxesDcs);

            double nMinDist=0.0;
            Entity entNearest;
            long lCount=s.Length();
            for(long i=0L; i<lCount; i++) {
                Entity ent=s[i];
				if(!ent.MatchBase(rbMask1) && !ent.MatchBase(rbMask2) && !ent.MatchBase(rbMask3) && !ent.MatchBase(rbMask4) && !entTag.MatchBase(rbMask5) && !entTag.MatchBase(rbMask6)&& !entTag.MatchBase(rbMask7)) // cet 2011.8.31 modify 支持柱子
					continue;
                OPENOBJ_BEGIN(ent, AcDb::kForRead, AcDbEntity, pEnt);
                if(!pEnt)
                    continue;
                AcGePoint3dArray points;
                XPoint ptTemp;
				AcDbIntArray ar;
                pEnt->getOsnapPoints(AcDb::kOsModeNear, 0, pt1, ptTemp, transWcsToDcs, points, ar);
                XPoint ptNear;
                if(!GetNearestPoint(points, pt1, ptNear))
                    continue;
                ptNear.z=pt1.z;
                double nDist=ptNear.Distance(pt1);
                if(!entNearest || nDist<nMinDist) {
                    entNearest=ent;
                    nMinDist=nDist;
                } 
                OPENOBJ_END();
            }
            if(!entNearest) {
                if(lCount>0)
                    entNearest=s[0L];
                if(!entNearest)
                    continue;
            }
            if(entNearest == entSel)
                continue;
			DList<CBlockStruct> lstInfo;
            double nDist(0);
			if(entNearest.MatchBase(rbMask2)){
                XLine line(entNearest, 1);
                XPoint ptTmp;
                ptSprink.Project(&line, ptTmp);
				ptTmp.z = 0.0; // cet 2011.9.1 add 
                nDist = ads_distance(ptSprink, ptTmp);
			}
            else if(entNearest.MatchBase(rbMask1)){
                XPoint ptNewLoc;
                OPENOBJ_BEGIN(entNearest, AcDb::kForRead, TDbEquipment, pEquip);
                if(pEquip){
                    ptNewLoc = pEquip->GetLocation();
                    ptNewLoc.z = 0;
                }            
                OPENOBJ_END();
                nDist = ads_distance(ptSprink, ptNewLoc);
            }
            else if(entNearest.MatchBase(rbMask3)){
                XCurveSegment lCurve, rCurve;
                OPENOBJ_BEGIN(entNearest, AcDb::kForRead, TDbWall, pWall);
                if(pWall) {
                    XPoint ptNew1, ptNew2;
                    pWall->GetSideCurve(lCurve, rCurve);
                    lCurve.ProjectToMe(ptSprink, ptNew1);
                    rCurve.ProjectToMe(ptSprink, ptNew2);
					ptNew1.z = 0.0; // cet 2011.9.1 add 
					ptNew2.z = 0.0; // cet 2011.9.1 add 
                    nDist = ads_distance(ptSprink, ptNew1) < ads_distance(ptSprink, ptNew2) ? ads_distance(ptSprink, ptNew1) : ads_distance(ptSprink, ptNew2);
                }                    
                OPENOBJ_END();
            }
            else if(entNearest.MatchBase(rbMask4))//外部参考 2011-5-24 sr
			{ 
				XCurveSegment SelCurve;
				BOOL bIsLeft = TRUE;
                SelCurve = GetBlkPickSegment(entNearest, pt1, bIsLeft);
				if(!!SelCurve)
				{
					XPoint ptTmp;
					ptSprink.Project(&SelCurve, ptTmp);
					ptTmp.z = 0.0; // cet 2011.9.1 add 
					nDist = ads_distance(ptSprink, ptTmp);
				}
				else // 获取参考失败直接返回
				{
					continue;
				}	
            }
			else if (entNearest.MatchBase(rbMask5)) // cet 2011.8.31 add 支持柱子
			{ 
				XCurveSegment seg;
                OPENOBJ_BEGIN(entNearest, AcDb::kForRead, TDbColumn, pColumn);
                if(pColumn != NULL)
				{
					XPoly2D poly;
					pColumn->GetOutline(poly);
					int nNum = poly.TotalSegments();
					for (int i = 0; i < nNum; i++)
					{
						poly.Nth(i, seg);
						if (seg.GetCurveType() == CURVE_LINE)
						{
							XLine line(seg.GetStartPoint(), seg.GetEndPoint(), 1);
							if (IsPtOnLine(pt1, line, 50))
							{
								break;
							}
						}
					}
                }            
                OPENOBJ_END();

				if (!seg) // 未找到直接返回
				{
					continue;
				}

				XPoint ptTmp;
				ptSprink.Project(&seg, ptTmp);
				ptTmp.z = 0.0;
				nDist = ads_distance(ptSprink, ptTmp);
			}
			else if (entNearest.MatchBase(rbMask6) || entNearest.MatchBase(rbMask7))// zxl 2013.10.30 add 支持pline线
			{
				XCurveSegment seg, seg1;
				XPoly2D poly(entNearest);
				int nNum = poly.TotalSegments();
				for (int i = 0; i < nNum; i++)
				{
					poly.Nth(i, seg1);
					if (seg1.GetCurveType() == CURVE_LINE)
					{
						XLine line(seg1.GetStartPoint(), seg1.GetEndPoint(), 0);
						if (IsPtOnLine(pt1, line, 50))
						{
							seg = seg1;
							break;
						}
					}
				}

				if (!seg) // 未找到直接返回
				{
					continue;
				}
				
				XPoint ptTmp;
				ptSprink.Project(&seg, ptTmp);
				ptTmp.z = 0.0;
				nDist = ads_distance(ptSprink, ptTmp);
			}
            
			else
				continue;
            if(fabs(pt1.z - pt2.z) < _distSnap && nDist > 0){
                CBlockStruct *pInfo = new CBlockStruct();
                pInfo->m_csRecord = _T("离喷头距离");
                pInfo->m_csDesName.Format(_T("%.0f"), nDist);
                lstInfo.Append(pInfo);
            }
			else // cet 2011.5.24 add
			{
				continue;
			}
            
			if(!pTextDlg){
				CPoint pt;
				int cvport;
				VERIFY(xg_getvar(_T("CVPORT"), &cvport)==RTNORM);
				acedCoordFromWorldToPixel(cvport, pt1, pt);
				acedGetAcadDwgView()->ClientToScreen(&pt);
				acedGetAcadFrame()->ScreenToClient(&pt);
				pTextDlg = new CTipWnd();
				pTextDlg->Create(lstInfo, pt.x+pickbox*2, pt.y+pickbox*2, acedGetAcadFrame());
				acedGetAcadDwgView()->SetFocus();
			}

		}
    }
    entSel.Redraw(4);
    if(pTextDlg){
        pTextDlg->DestroyWindow();
        delete pTextDlg;
    }
    SHads_command(RTSTR, _T(".REDRAW"), RTNONE);
}