envi-code/SourceCode/Code2026/EarthWormCmd/KTHangzhouLispCommand.cpp

#include "StdAfx.h"
#include "StdArx.h"
#include "acedxref.h"
#include "KTCadUtility.h"
#include "KTCadTempOverrides.h"

#ifndef _ttof
#define _ttof(pszVal)	_tcstod((pszVal), NULL)
#endif

int SplitDirSegments(LPCTSTR pszFullDir,CStringArray& arFields)
{
	//_T("e:\\mydwgdir\\mydwgdir\\sample\\");
	CString sText = pszFullDir;
	sText.TrimLeft();
	sText.TrimRight();

	CString sTemp;
	for (int i = 0;i < sText.GetLength();i++)
	{
		if (sText.GetAt(i) == _T('\\') )
		{
			arFields.Add(sTemp);
			sTemp = _T("");
		}
		else
		{
			sTemp += sText.GetAt(i);
			if (i == sText.GetLength() - 1)
			{
				arFields.Add(sTemp);
			}
		}
	}
	return arFields.GetSize();
}

DWORD  CreateFolder(LPCTSTR pszFullDir)
{
	//create comp info global data
	PSECURITY_DESCRIPTOR pSec = (PSECURITY_DESCRIPTOR)::LocalAlloc(LMEM_FIXED, SECURITY_DESCRIPTOR_MIN_LENGTH);
	if(pSec == NULL)
	{
		return GetLastError();
	}

	if(!::InitializeSecurityDescriptor(pSec, SECURITY_DESCRIPTOR_REVISION))
	{
		LocalFree(pSec);
		return GetLastError();
	}

	if(!::SetSecurityDescriptorDacl(pSec, TRUE, NULL, TRUE))
	{
		LocalFree(pSec);
		return GetLastError();
	}

	SECURITY_ATTRIBUTES attr;
	attr.bInheritHandle = FALSE;
	attr.lpSecurityDescriptor = pSec;
	attr.nLength = sizeof(SECURITY_ATTRIBUTES);

	CStringArray arFields;
	SplitDirSegments(pszFullDir,arFields);

	CString sDir,sFullDir;
	for(int i = 0;i < arFields.GetSize();i++)
	{
		sDir = arFields.GetAt(i);
		sFullDir += sDir;
		sFullDir += _T("\\");

		if (i > 0)
		{
			CreateDirectory(sFullDir,&attr);
		}
	}
	LocalFree(pSec);
	return 0;
}

/*
(defun c:dxload()

(setq po (getpoint "拾取一点插入地形，右键退出："))
(while (not (null po))
(setq  x (car po))
;(princ x)
(setq  y (car (cdr po)))
;(princ y)
(calth500 y x)
(setq strmapname500 (strcat "//hzgis/dwg_zx$/500/"  strmapname ".dwg"))
(calth1000 y x)
(setq strmapname1000 (strcat "//hzgis/dwg$/1000/"  strmapname ".dwg"))
;(if (findfile strmapname500) (command "xref" "" strmapname500 "0,0,0" "" "" "") (progn (princ "\n对不起,500地形图库中没有该幅地形图\n.") (princ)))
;(if (findfile strmapname1000) (command "xref" "" strmapname1000 "0,0,0" "" "" "") (progn (princ "\n对不起,1000地形图库中没有该幅地形图\n.")(princ)) )

(if (findfile strmapname1000) (command "xref" "" strmapname1000 "0,0,0" "" "" "") (progn (if (findfile strmapname500) (command "xref" "" strmapname500 "0,0,0" "" "" "") (progn (princ "\n对不起,500地形图库中没有该幅地形图\n.")(princ)) )(princ "\n对不起,1000地形图库中没有该幅地形图\n.") (princ)))


(setq po (getpoint "拾取一点插入地形，右键退出："))
)
(princ)
)
*/

extern Acad::ErrorStatus AddToModelSpace(AcDbEntity* pEnt,AcDbDatabase* pDb,bool bClose);

void calth500(double fx,double fy,CString& strmapname)
{
	//;    calculate the first letter of the sheetID
	int iState1 = 0;
	if (fy > 80000 && fx > 80000)
		iState1 = 1;
	if (fx > 80000 && fy < 80000)
		iState1 = 4;
	if (fy < 80000 && fx < 80000)
		iState1 = 3;
	if (fx < 80000 && fy > 80000)
		iState1 = 2;

	strmapname.Format(_T("%d"),iState1);//象限

	// 象限-xnynABCD
	//calculate the second and third letter of the sheetID
	int iState2 = (int)(fabs( (fx - 80000) / 1000 ) );//  
	int iState3 = (int)(fabs( (fy - 80000) / 800 ) );//

	CString sTemp = _T("");
	if ( (iState2 + 1) < 10)//0--9
	{
		strmapname += _T("0");
		sTemp.Format(_T("%d"),iState2+1);
		strmapname += sTemp;
		//08
	}
	else
	{
		sTemp.Format(_T("%d"),iState2+1);
		strmapname += sTemp;
		//10
	}

	if ( (iState3 + 1) < 10)
	{
		strmapname += _T("0");
		sTemp.Format(_T("%d"),iState3+1);
		strmapname += sTemp;
	}
	else
	{
		sTemp.Format(_T("%d"),iState3+1);
		strmapname += sTemp;
	}

	//lower left point within the 1:2000
	double fxstart = iState2 * 1000;
	double fystart = iState3 * 800;

	//the offset within 1：2000
	double fxoffset = fabs(80000 - fx) - fxstart;
	double fyoffset = fabs(80000 - fy) - fystart;

	if (iState1 == 2 || iState1 == 3 )
		fxoffset -= 800;

	if (iState1 == 3 || iState1 == 4)
		fyoffset -= 1000;

	//the forth letter with of sheetID
	iState2 = (int)(fabs(fxoffset / 200));
	iState3 = (int)(fabs(fyoffset / 250));

	int iState4 = (iState2 * 4 - 13) + iState3;
	if (iState4 > 9)
	{
		sTemp.Format(_T("%d"),iState4);
		strmapname += sTemp;
	}
	else
	{
		strmapname += _T("0");
		sTemp.Format(_T("%d"),abs(iState4));
		strmapname += sTemp;
	}

	if (strmapname.GetAt(0) == _T('2'))
	{
		strmapname.SetAt(0,_T('4'));
		return;
	}

	if (strmapname.GetAt(0) == _T('4'))
	{
		strmapname.SetAt(0,_T('2'));
		return;
	}
}

void calth1000(double fx,double fy,CString& strmapname)
{
	//;    calculate the first letter of the sheetID
	int iState1 = 0;
	if (fy > 80000 && fx > 80000)
		iState1 = 1;
	if (fx > 80000 && fy < 80000)
		iState1 = 4;
	if (fy < 80000 && fx < 80000)
		iState1 = 3;
	if (fx < 80000 && fy > 80000)
		iState1 = 2;
	
	strmapname.Format(_T("%d"),iState1);

	// 象限-xnynABCD
	//calculate the second and third letter of the sheetID
	int iState2 = (int)(fabs( (fx - 80000) / 1000 ));//  
	int iState3 = (int)(fabs( (fy - 80000) / 800));//

	CString sTemp = _T("");
	if ( (iState2 + 1) < 10)//0--8
	{
		strmapname += _T("0");
		sTemp.Format(_T("%d"),iState2+1);
		strmapname += sTemp;
		//08
	}
	else
	{
		sTemp.Format(_T("%d"),iState2+1);
		strmapname += sTemp;
		//10
	}

	if ( (iState3 + 1) < 10)//0--8
	{
		strmapname += _T("0");
		sTemp.Format(_T("%d"),iState3+1);
		strmapname += sTemp;
	}
	else
	{
		sTemp.Format(_T("%d"),iState3+1);
		strmapname += sTemp;
	}

	//;   lower left point within the 1:2000
	double fxstart = iState2 * 1000;
	double fystart = iState3 * 800;

	double fxoffset = fabs(fx - 80000) - fxstart;
	double fyoffset = fabs(fy - 80000) - fystart;

 	if (iState1 == 2 || iState1 == 3)
 		fxoffset -= 1000;

 	if (iState1 == 3 || iState1 == 4)
  		fyoffset -= 800;


	//;   the offset within 1：2000
	iState2 = (int)(fabs(fyoffset / 400));
	iState3 = (int)(fabs(fxoffset / 500));
	
	CString iState4 = _T("");//A?
	if (iState2 == 0 && iState3 == 0)
		iState4 = _T("C");
	if (iState2 == 1 && iState3 == 0)
		iState4 = _T("A");
	if (iState2 == 0 && iState3 == 1)
		iState4 = _T("D");
	if (iState2 == 1 && iState3 == 1)
		iState4 = _T("B");

	strmapname += iState4;
	
	if (strmapname.GetAt(0) == _T('2'))
	{
		strmapname.SetAt(0,_T('4'));
		return;
	}

	if (strmapname.GetAt(0) == _T('4'))
	{
		strmapname.SetAt(0,_T('2'));
		return;
	}
}

void EraseBlockRecord(CString& _strmapname1000)
{
	AcDbDatabase* pDb = acdbCurDwg();

	AcDbBlockTable* pTbl = NULL;
	if (Acad::eOk == pDb->getBlockTable(pTbl,AcDb::kForRead))
	{
		AcDbBlockTableRecord* pRec = NULL;
		if (Acad::eOk == pTbl->getAt(_strmapname1000,pRec,AcDb::kForWrite))
		{
			if (!pRec->isFromExternalReference())
			{
				AcDbObjectIdArray arIds;
				pRec->getBlockReferenceIds(arIds);

				AcDbEntity* pEnt = NULL;
				for (int ii = 0;ii < arIds.length();ii++)
				{
					if (Acad::eOk == acdbOpenAcDbEntity(pEnt,arIds.at(ii),AcDb::kForWrite))
					{
						pEnt->erase();
						pEnt->close();
					}
				}
				pRec->erase();
			}
			pRec->close();
		}
		pTbl->close();
	}
}

void KTDxload()
{
	//文件复制到 Dwghelp/1000下
	TCHAR szfileName[MAX_PATH],szFullPath[MAX_PATH];
	GetModuleFileName(_hdllInstance,szfileName,MAX_PATH);

	TCHAR	drive[_MAX_DRIVE] = _T(""),
		dir[_MAX_DIR] = _T(""),
		fname[_MAX_FNAME] = _T(""), 
		ext[_MAX_EXT] = _T("");

	//e:\,program files\autodesk\,myarx,exe
	_tsplitpath(szfileName, drive, dir, fname, ext);
	_tcscpy(szFullPath, drive);
	_tcscat(szFullPath, dir);

	CString sFullPath = szFullPath;
	sFullPath.TrimRight(_T('\\'));

	//上一级目录
	int nPos = sFullPath.ReverseFind(_T('\\'));
	CString sPath = sFullPath.Mid(0,nPos + 1);

	sFullPath = sPath + _T("1000\\");
	//CreateFolder(sFullPath);

	CString sLicenseIni = sPath + _T("sys\\product.ini");
	TCHAR szGisPath[MAX_PATH];
	_tcscpy(szGisPath,_T("//hzgis/dwg$/1000/"));
	::GetPrivateProfileString(_T("GIS"), _T("PATH"), _T(""), szGisPath, MAX_PATH, sLicenseIni);
	CString sGisPath = szGisPath;

	ads_point pt1,pt;
	while(true)
	{
		int nRes = acedGetPoint(NULL,_T("\n拾取一点插入地形，右键退出:"),pt1);
		if (nRes != RTNORM)
		{
			return;
		}
		//pt[X] = 79250;
		//pt[Y] = 80200;

		//测试
		/*CString sName = _T("hzgis\\dwg_zx$\\500\\123.dwg");
		TCHAR szFile[MAX_PATH];
		memset(szFile,0,MAX_PATH);

		nRes = acedFindFile(sName,szFile);
		acutPrintf(_T("\n%d : %s"),nRes,szFile);
		*/

		acdbUcs2Wcs(pt1,pt,false);

		double dX = pt[X];
		double dY = pt[Y];

		CString strmapname;
		calth500(dX,dY,strmapname);
		//strmapname = _T("demo");//测试
		CString strmapname500,_strmapname500;

		_strmapname500 = strmapname;
		strmapname500.Format(_T("//hzgis/dwg_zx$/500/%s.dwg"),strmapname);

		strmapname = _T("");
		calth1000(dX,dY,strmapname);
		//strmapname = _T("demo");//测试
		CString strmapname1000,_strmapname1000;
		_strmapname1000 = strmapname;
		//strmapname1000.Format(_T("//hzgis/dwg$/1000/%s.dwg"),strmapname);

		if (sGisPath.Find(_T("//hzgis")) != -1)
		{
			sGisPath.TrimRight(_T('/'));
			strmapname1000.Format(_T("%s/%s.dwg"),sGisPath,strmapname);
		}
		else
		{
			sGisPath.TrimRight(_T('\\'));
			strmapname1000.Format(_T("%s\\%s.dwg"),sGisPath,strmapname);
		}

		//TCHAR szDwgFile500[MAX_PATH];
		//TCHAR szDwgFile1000[MAX_PATH];

		//根据相对路径找文件
		//int nRes1 = acedFindFile(strmapname500,szDwgFile500);
		//int nRes2 = acedFindFile(strmapname1000,szDwgFile1000);
		//if (nRes2 == RTNORM)
		{
			//完整路径的文件
			//strmapname500 = szDwgFile500;
			//strmapname1000 = szDwgFile1000;

			//LISP
			/*(if (findfile strmapname1000)
			(command "xref" "" strmapname1000 "0,0,0" "" "" "")
			(progn (if (findfile strmapname500) 
			(command "xref" "" strmapname500 "0,0,0" "" "" "") 
			(progn (princ "\n对不起,500地形图库中没有该幅地形图\n.")
			(princ)) )(princ "\n对不起,1000地形图库中没有该幅地形图\n.") (princ)))*/

			CString sCmd;
			Acad::ErrorStatus es = Acad::eNotImplementedYet;
			//if (nRes2 == RTNORM)
			{
				AcGeScale3d scale(1.0,1.0,1.0);

				//判断对方图默认为米单位
				AcDb::UnitsValue nOther = kUnitsMeters;

				AcDbDatabase db(Adesk::kFalse);
				if (Acad::eOk == (es = db.readDwgFile(strmapname1000)))
				{
					nOther = db.insunits();
				}
				else
				{
					acutPrintf(_T("\n错误:%d 不能访问文件 %s "),es,strmapname1000);

					CFileFind find;
					if (!find.FindFile(strmapname1000))
					{
						acutPrintf(_T("\n错误:没有找到文件 %s "),strmapname1000);
					}
					else
					{
						acutPrintf(_T("\n找到文件 %s "),strmapname1000);
					}
					continue;;
				}

				struct resbuf rb;
				acedGetVar(_T("INSUNITS"),&rb);

				//提示,如果当前地形图单位不是米,分米,厘米,毫米,无单位,给与提示
				if (rb.resval.rint != AcDb::kUnitsMillimeters &&
					rb.resval.rint != AcDb::kUnitsCentimeters &&
					rb.resval.rint != AcDb::kUnitsUndefined)
				{
					AfxMessageBox(_T("当前图形单位不是米单位!不能插入地形图!\n请运行主菜单: 格式/单位 调整为米单位!"));
					break;
				}

				if (nOther != rb.resval.rint)
				{
					if (rb.resval.rint == AcDb::kUnitsMeters) //当前图是米制
					{
						if (nOther == AcDb::kUnitsMillimeters)//毫米
						{
							//对方毫米
							scale.set(1000.0,1000.0,1000.0);
						}
						else if (nOther == AcDb::kUnitsCentimeters)//厘米单位
						{
							//对方厘米
							scale.set(100.0,100.0,100.0);
						}
						else if (nOther == AcDb::kUnitsDecimeters)//分米单位
						{
							//分米
							scale.set(10.0,10.0,10.0);
						}
						else if (nOther == AcDb::kUnitsUndefined)
						{
							//对方无单位
							scale.set(1000.0,1000.0,1000.0);
						}
						else if (nOther == AcDb::kUnitsMeters)
						{
							//对方米 
							scale.set(1.0,1.0,1.0);
						}
					}
					else if(rb.resval.rint == AcDb::kUnitsMillimeters)//当前是毫米
					{
						if (nOther == AcDb::kUnitsMillimeters)//毫米
						{
							//对方毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsCentimeters)//厘米单位
						{
							//对方厘米
							scale.set(0.1,0.1,0.1);
						}
						else if (nOther == AcDb::kUnitsDecimeters)//分米单位
						{
							//对方分米
							scale.set(0.01,0.01,0.01);
						}
						else if (nOther == AcDb::kUnitsUndefined)
						{
							//对方无单位,按毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsMeters)
						{
							//对方米 
							scale.set(0.001,0.001,0.001);
						}
					}
					else if(rb.resval.rint == AcDb::kUnitsCentimeters)//当前是厘米单位
					{
						if (nOther == AcDb::kUnitsMillimeters)//毫米
						{
							//对方毫米
							scale.set(10.0,10.0,10.0);
						}
						else if (nOther == AcDb::kUnitsCentimeters)//厘米单位
						{
							//对方毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsDecimeters)//分米单位
						{
							//对方分米
							scale.set(0.1,0.1,0.1);
						}
						else if (nOther == AcDb::kUnitsUndefined)//无单位
						{
							//对方无单位
							scale.set(10.0,10.0,10.0);
						}
						else if (nOther == AcDb::kUnitsMeters)
						{
							//对方米 
							scale.set(0.01,0.01,0.01);
						}
					}
					else if(rb.resval.rint == AcDb::kUnitsCentimeters)//当前是分米单位
					{
						if (nOther == AcDb::kUnitsMillimeters)//毫米
						{
							//对方毫米
							scale.set(100.0,100.0,100.0);
						}
						else if (nOther == AcDb::kUnitsCentimeters)//厘米单位
						{
							//对方毫米
							scale.set(10.0,10.0,10.0);
						}
						else if (nOther == AcDb::kUnitsDecimeters)//分米单位
						{
							//对方毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsUndefined)
						{
							//对方无单位,按毫米
							scale.set(100.0,100.0,100.0);
						}
						else if (nOther == AcDb::kUnitsMeters)
						{
							//对方米 
							scale.set(0.1,0.1,0.1);
						}
					}
					else if(rb.resval.rint == AcDb::kUnitsUndefined)//当前图无单位
					{
						if (nOther == AcDb::kUnitsMillimeters)//毫米
						{
							//对方毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsCentimeters)//厘米单位
						{
							//对方毫米
							scale.set(0.1,0.1,0.1);
						}
						else if (nOther == AcDb::kUnitsDecimeters)//分米单位
						{
							//对方分米
							scale.set(0.01,0.01,0.01);
						}
						else if (nOther == AcDb::kUnitsUndefined)
						{
							//对方无单位,按毫米
							scale.set(1.0,1.0,1.0);
						}
						else if (nOther == AcDb::kUnitsMeters)
						{
							//对方米 
							scale.set(0.001,0.001,0.001);
						}
					}
				}

				//去除非参照的块定义,和删除对应的Ref
				EraseBlockRecord(_strmapname1000);

				AcDbObjectId idRec1,idRec2;
				es = acedXrefAttach(strmapname1000,_strmapname1000,&idRec1,NULL,NULL,&scale);
				if (es == Acad::eFileAccessErr)
				{
					acutPrintf(_T("\n错误:%d 不能访问文件 %s "),es,strmapname1000);
				}
			}
		}
	}
}

void KTdfdel()
{
	//文件复制到 Dwghelp/1000下
	TCHAR szfileName[MAX_PATH],szFullPath[MAX_PATH];
	GetModuleFileName(_hdllInstance,szfileName,MAX_PATH);

	TCHAR	drive[_MAX_DRIVE] = _T(""),
		dir[_MAX_DIR] = _T(""),
		fname[_MAX_FNAME] = _T(""), 
		ext[_MAX_EXT] = _T("");

	//e:\,program files\autodesk\,myarx,exe
	_tsplitpath(szfileName, drive, dir, fname, ext);
	_tcscpy(szFullPath, drive);
	_tcscat(szFullPath, dir);

	CString sFullPath = szFullPath;
	sFullPath.TrimRight(_T('\\'));

	//上一级目录
	int nPos = sFullPath.ReverseFind(_T('\\'));
	CString sPath = sFullPath.Mid(0,nPos + 1);

	sFullPath = sPath + _T("1000\\");
	CreateFolder(sFullPath);

	CString sLicenseIni = sPath + _T("sys\\product.ini");
	TCHAR szGisPath[MAX_PATH];
	_tcscpy(szGisPath,_T("//hzgis/dwg$/1000/"));
	::GetPrivateProfileString(_T("GIS"), _T("PATH"), _T(""), szGisPath, MAX_PATH, sLicenseIni);
	CString sGisPath = szGisPath;

	ads_point pt1,pt;
	while(true)
	{
		int nRes = acedGetPoint(NULL,_T("\n拾取一点卸载地形，右键退出:"),pt1);
		if (nRes != RTNORM)
		{
			return;
		}

		acdbUcs2Wcs(pt1,pt,false);

		double dX = pt[X];
		double dY = pt[Y];

		CString strmapname;
		calth500(dX,dY,strmapname);
		//strmapname = _T("demo");//测试
		CString strmapname500,_strmapname500;

		_strmapname500 = strmapname;
		strmapname500.Format(_T("hzgis\\dwg_zx$\\500\\%s.dwg"),strmapname);

		calth1000(dX,dY,strmapname);
		//strmapname = _T("demo");//测试
		CString strmapname1000,_strmapname1000;

		_strmapname1000 = strmapname;

		if (sGisPath.Find(_T("//hzgis")) != -1)
		{
			sGisPath.TrimRight(_T('/'));
			strmapname1000.Format(_T("%s/%s.dwg"),sGisPath,strmapname);
		}
		else
		{
			sGisPath.TrimRight(_T('\\'));
			strmapname1000.Format(_T("%s\\%s.dwg"),sGisPath,strmapname);
		}

		//TCHAR szDwgFile500[MAX_PATH];
		//TCHAR szDwgFile1000[MAX_PATH];
		//int nRes1 = acedFindFile(strmapname500,szDwgFile500);
		//int nRes2 = acedFindFile(strmapname1000,szDwgFile1000);
		//if (nRes1 == RTNORM && nRes2 == RTNORM)
		{
			//strmapname500 = szDwgFile500;
			//strmapname1000 = szDwgFile1000;
			//if (nRes2 == RTNORM)
			{
				//LISP
				/*(if (findfile strmapname1000)
				(command "xref" "d" mpname1000)
				(progn (if (findfile strmapname500) 
				(command "xref" "d" mpname500) (princ))))*/

				//acedPostCommand(_T("filedia\n0\n"));
			
				//CString sCmd;
				//(command "xref" "d" mpname1000)
				//sCmd.Format(_T("-xref\nd\n%s\n"),_strmapname1000);
				//acedPostCommand(sCmd);

				acedXrefDetach(_strmapname1000);
				//if (nRes1 == RTNORM)
				{
					//sCmd.Format(_T("-xref\nd\n%s\n"),_strmapname500);
					//acedPostCommand(sCmd);
					//acedXrefDetach(_strmapname500);
				}
				//acedPostCommand(_T("filedia\n1\n"));
			}
		}
	}
}

//(RTOS  number  [mode  [precision] ] )
double rtos(double dn,int nm,int np)
{
	//nm 2,3
	struct resbuf rbu;
	acedGetVar(_T("LUPREC"),&rbu);

	if (np != 0)
		rbu.resval.rint = np;

	//%.nf
	CString sUn,sTmp;
	sUn.Format(_T(".%df"),rbu.resval.rint);
	sUn.Insert(0,_T('%'));

	sTmp.Format(sUn,dn);
	return _ttof(sTmp);
}

void FormatTo9Numbstr(double dx,CString& sX)
{
	sX.Format(_T("%.3f"),dx);
}

void KTzbload()
{
	double dScale = 1.0;
	ads_point pt1;

	int nRes = acedGetPoint(NULL,_T("请选择要标注的点::"),pt1);
	if (nRes != RTNORM)
	{
		return;
	}
	CKTTempSetSysVar var(_T("osnap"),0);

	ads_point pt2;
	nRes = acedGetPoint(pt1,_T("请选择标注方向:"),pt2);
	if (nRes != RTNORM)
	{
		return;
	}

	CString sX,sY;
	FormatTo9Numbstr(pt1[X],sX);
	FormatTo9Numbstr(pt1[Y],sY);

	AcDbObjectId idSt = CKTCadUtility::InitTextStyle(_T("romand"));

	AcGeVector3d vt1(1,1,0),vt2(-1,1,0),vt3(-1,-1,0),vt4(1,-1,0);
	AcGeVector3d vtDir,vtText;
	vtDir = asPnt3d(pt2) - asPnt3d(pt1);

	if (vtDir.x > 1.e-10 && vtDir.y > 1.e-10)//I
	{
		vtDir = vt1;
		vtText = AcGeVector3d::kXAxis;
	}
	else if (vtDir.x < 1.e-10 && vtDir.y > 1.e-10)//II
	{
		vtDir = vt2;
		vtText = -AcGeVector3d::kXAxis;
	}
	else if (vtDir.x < 1.e-10 && vtDir.y < 1.e-10)//III
	{
		vtDir = vt3;
		vtText = -AcGeVector3d::kXAxis;
	}
	else if (vtDir.x > 1.e-10 && vtDir.y < 1.e-10)//IV
	{
		vtDir = vt4;
		vtText = AcGeVector3d::kXAxis;
	}

	AcDbCircle* pCir = new AcDbCircle;
	pCir->setCenter(asPnt3d(pt1));
	pCir->setRadius(2.0 * dScale);
	pCir->setNormal(AcGeVector3d::kZAxis);
	AddToModelSpace(pCir,acdbCurDwg(),true);

	vtDir.normalize();
	vtDir *= 17.0 * dScale;

	//杭州要求 XY数值调换
	CString sTemp;
	sTemp = sX;
	sX = sY;
	sY = sTemp;

	sX.Insert(0,_T("X="));
	sY.Insert(0,_T("Y="));

	AcGiTextStyle style;
	fromAcDbTextStyle(style,idSt);
	style.setTextSize(5.0 * dScale);
	style.setXScale(1.0);
	AcGePoint2d ptMin,ptMax;
	style.extentsBox(sX,Adesk::kFalse,sX.GetLength(),Adesk::kTrue,ptMin,ptMax);
	double dLen1 = ptMax.x - ptMin.x;

	style.extentsBox(sX,Adesk::kFalse,sY.GetLength(),Adesk::kTrue,ptMin,ptMax);
	double dLen2 = ptMax.x - ptMin.x;
	double dLen = __max(dLen1,dLen2) + 2 * dScale;//文字的起点水平距离

	AcGePoint3d ptGe[3];
	ptGe[0] = asPnt3d(pt1);
	ptGe[1] = asPnt3d(pt1) + vtDir;
	ptGe[2] = ptGe[1] + vtText * dLen;

	vtText.normalize();
	AcGePoint3d ptText[2];

	if (vtText.isCodirectionalTo(AcGeVector3d::kXAxis))
	{
		ptText[0] = ptGe[1];
		ptText[0] += vtText * 2 * dScale;
		ptText[0] += AcGeVector3d::kYAxis * 2 * dScale;

		ptText[1] = ptGe[1];
		ptText[1] += vtText * 2 * dScale;
		ptText[1] -= AcGeVector3d::kYAxis * 7 * dScale;//文字高度5
	}
	else
	{
		ptText[0] = ptGe[2];
		ptText[0] += AcGeVector3d::kYAxis * 2 * dScale;

		ptText[1] = ptGe[2];
		ptText[1] -= AcGeVector3d::kYAxis * 7 * dScale;//文字高度5
	}

	AcDbPolyline* pPl = new AcDbPolyline;
	for (int i = 0;i < 3;i++)
	{
		pPl->addVertexAt(i,ptGe[i].convert2d(AcGePlane::kXYPlane));
	}
	AddToModelSpace(pPl,acdbCurDwg(),true);

	AcDbText* pText = new AcDbText;
	pText->setTextStyle(idSt);
	pText->setTextString(sX);
	pText->setPosition(ptText[0]);
	pText->setHeight(5.0 * dScale);
	pText->setWidthFactor(1.0);
	AddToModelSpace(pText,acdbCurDwg(),true);

	pText = new AcDbText;
	pText->setTextStyle(idSt);
	pText->setTextString(sY);
	pText->setPosition(ptText[1]);
	pText->setHeight(5.0 * dScale);
	pText->setWidthFactor(1.0);
	AddToModelSpace(pText,acdbCurDwg(),true);
}

void KTthload()
{
	double dScale = 1.0;
	ads_point pt1,pt;

	int nRes = acedGetPoint(NULL,_T("拾取一点插入图号，右键退出:"),pt1);
	if (nRes != RTNORM)
	{
		return;
	}

	acdbUcs2Wcs(pt1,pt,false);

	double dx = pt[X];
	double dy = pt[Y];

	CString strmapname;
	calth1000(dx,dy,strmapname);

	struct resbuf rbu;
	acedGetVar(_T("LUPREC"),&rbu);

	CString sUn,sTmp;
	sUn.Format(_T(".%df"),rbu.resval.rint);
	sUn.Insert(0,_T('%'));
	sTmp = sUn + _T(",") + sUn;

	CString spi1;
	spi1.Format(sTmp,dx,dy);

	AcDbObjectId idSt = CKTCadUtility::InitTextStyle(_T("romand"));
	
	//sTmp.Format(_T("text\ns\nromand\n%s\n10\n\n%s\n"),spi1,strmapname);
	//acedPostCommand(sTmp);

	int nPos = spi1.Find(_T(','));
	dx = _ttof(spi1.Mid(0,nPos));
	dy = _ttof(spi1.Mid(nPos + 1));
	pt[X] = dx;
	pt[Y] = dy;
	pt[Z] = 0.0;

	ads_point pt2;
	acdbUcs2Wcs(pt,pt2,false);

	AcDbText* pText = new AcDbText;
	pText->setTextStyle(idSt);
	pText->setTextString(strmapname);
	pText->setHeight(10.0 * dScale);
	pText->setWidthFactor(1.0);
	pText->setPosition(asPnt3d(pt2));
	AddToModelSpace(pText,acdbCurDwg(),true);

	AcGiTextStyle style;
	fromAcDbTextStyle(style,idSt);
	style.setTextSize(10.0 * dScale);
	style.setXScale(1.0);

	AcGePoint2d ptMin,ptMax;
	style.extentsBox(strmapname,Adesk::kFalse,strmapname.GetLength(),Adesk::kTrue,ptMin,ptMax);

	double dDist = (ptMax.x - ptMin.x + 2); //加上0.25个字符宽度

	AcGePoint2d ptGe[2];
	ptGe[0] = asPnt2d(pt2);
	ptGe[1] = ptGe[0];
	ptGe[1].x += dDist;

	ptGe[0].y -= 2.0;
	ptGe[1].y -= 2.0;

	AcDbPolyline* pPl = new AcDbPolyline;
	pPl->addVertexAt(0,ptGe[0]);
	pPl->addVertexAt(1,ptGe[1]);
	pPl->setColorIndex(3);
	pPl->setConstantWidth(0.7);
	AddToModelSpace(pPl,acdbCurDwg(),true);
}

//三维地形
void EW_SWDXCmdFnc()
{
	
}