基于COORD四参数坐标转换

这篇博客介绍了平面坐标系之间的转换原理,包括旋转、缩放和平移。通过最小二乘法计算转换参数,并提供了Python和LISP代码示例,用于批量处理坐标转换。同时,文中还提到了一个名为COORD的坐标转换工具。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1、原理

两个平面坐标系通过旋转、缩放、平移即可从一个坐标系转换到另外一个坐标系。

请添加图片描述

转换前坐标点(x2,y2),转换后坐标点(x1,y1);
转换公式如下:
在这里插入图片描述
求解方程一般用最小二乘法计算,这里提供计算工具,也可以自行代码。

2、计算方法

(1) 先记录两个坐标系的公共点坐标(至少两对)

在这里插入图片描述
(2) 打开COORD工具(见博客资源:坐标转换工具(四参数七参数计算)COORD软件.zip),选择计算四参数
在这里插入图片描述

(3) 输入公共点坐标信息
在这里插入图片描述
(4) 计算得到转换参数
在这里插入图片描述
DX表示x轴平移参数
DY表示y轴平移参数
T表示旋转角的弧度值
K表示缩放系数

(5) 代入公式进行坐标转换
这里提供的是python代码批处理坐标

def transfer(x,y):
    dx=391090.650080
    dy=2473060.653080
    T=0.017260
    K=0.999697
    x2=dx+K*(math.cos(T)*x-math.sin(T)*y)
    y2=dy+K*(math.sin(T)*x+math.cos(T)*y)
    return(x2,y2)

也可用LISP语言对CAD文件整体进行坐标转换

(defun c:sz2cgcs()
    ;定义一个函数 
(setq pt1 (getpoint "First Pt:"))
(setq pt2 (getpoint "Second Pt:"))
(setq ss (ssget "c" pt1 pt2))
(setq jd (* (/ 0.017260 pi) 180))
(command "rotate" ss "" "0,0" jd)
(command "scale" ss "" "0,0" 0.999697  )
(command "move" ss "" "0,0" "391090.650080,2473060.653080" )
(princ)
          ;清除 nil
)   ;函数定义结束
public void Polygon_Trans4(IFeatureClass pFeatureCls, string strPath, string strFilename, ProgressBar pBar) { if (pFeatureCls == null || strPath == "" || strFilename == "") return; createNewShape(strPath, strFilename, pFeatureCls); IFeatureCursor pFeatCursor = pFeatureCls.Search(null, false); IFeature pFeature = pFeatCursor.NextFeature(); //打开目标图层 IWorkspaceFactory pWSF = new ShapefileWorkspaceFactoryClass(); IWorkspace pWS = pWSF.OpenFromFile(strPath, 0); IFeatureWorkspace pFWS = (IFeatureWorkspace)pWS; IFeatureClass pTargetFClass = pFWS.OpenFeatureClass(strFilename); IWorkspaceEdit pWSEdit = pWS as IWorkspaceEdit; pWSEdit.StartEditOperation(); pWSEdit.StartEditing(false); ITable pTble = (ITable)pFeatureCls; int lCunt = pTble.RowCount(null); pBar.Visible = true; pBar.Minimum = 0; pBar.Maximum = lCunt; pBar.Step = 1; IFeature pNewFeature; IPolygon pOutPolygon; IGeometryCollection pOutGeos; IPolygon pInPolygon; IGeometryCollection pInGeos; IPoint pOutPnt = new PointClass(); IPointCollection pOutPnts; while (pFeature != null) { pBar.PerformStep(); pNewFeature = pTargetFClass.CreateFeature(); pOutPolygon = new PolygonClass(); pOutGeos = pOutPolygon as IGeometryCollection; //获取原图形 pInPolygon = pFeature.Shape as IPolygon; pInGeos = pInPolygon as IGeometryCollection; for (int m = 0; m < pInGeos.GeometryCount; m++) { IGeometry pInGeo = pInGeos.get_Geometry(m); IPointCollection pInPnts = pInGeo as IPointCollection; pOutPnts = new PolygonClass(); object missing = Type.Missing; for (int n = 0; n < pInPnts.PointCount; n++) { IPoint pInPnt = pInPnts.get_Point(n); //转换点坐标 pOutPnt.X = ClsParas4.m_OffY + pInPnt.Y * ClsParas4.m_vb + pInPnt.X * ClsParas4.m_va; pOutPnt.Y = ClsParas4.m_OffX + pInPnt.Y * ClsParas4.m_va - pInPnt.X * ClsParas4.m_vb; pOutPnts.AddPoint(pOutPnt, ref missing, ref missing); } ISegmentCollection pSegmentCols = new RingClass(); pSegmentCols.AddSegmentCollection(pOutPnts as ISegmentCollection); pOutGeos.AddGeometry(pSegmentCols as IGeometry, ref missing, ref missing); } for (int i = 0; i < pFeature.Fields.FieldCount; i++) { if (pNewFeature.Fields.get_Field(i).Name.ToString().Equals("FID", StringComparison.CurrentCultureIgnoreCase) || pNewFeature.Fields.get_Field(i).Name.ToString().Equals("SHAPE", StringComparison.CurrentCultureIgnoreCase)) continue; pNewFeature.set_Value(i, pFeature.get_Value(i)); } pNewFeature.Shape = pOutPolygon as IGeometry; pNewFeature.Store(); pFeature = pFeatCursor.NextFeature(); } pBar.Visible = false; pWSEdit.StopEditOperation(); pWSEdit.StopEditing(true); }
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值