surveynet的专栏

无需登录邮箱批量群发发送电子邮件

无人机像控测量 像控选点略图 曝光点坐标 Google Earth 选点

City Component Census 1.0 软件开发：武雪鹏 联系作者：[email protected] 版权所有：软件版权归著作者所有，如需修改请征得著作者同意。 系统支持：Microsoft Windows XP Professional 软件支持：AutoCAD 2012、ArcEngine 10.0、.Net Framework 4.0 执行标准：CJT 214-2007 城市市政综合监管信息系统 管理部件和事件分类、编码及数据要求 功 能：City Component Census 软件实现了城市部件调查内业成图、属性编辑、部件检查以及建库入库一体化，为建立数字城市管理系统提供了数据基础。 免责声明：软件仅供参考，作者不对数据成果负任何责任。如不遵循此声明，请及时卸载并放弃使用，谢谢合作!

TOPCON碎部点计算程序免责声明 TOPCON碎部点计算程序由武雪鹏设计开发，本程序可对TOPCON全站仪原始数据（边角测量）进行碎部点解算，当前最新版本：20100421。 本程序使用方便，易上手，适用于各比例尺地形测量、地籍测量，程序主界面如下图。其解算模式可分为两种：1有起算点模式，2无起算点模式。程序成果输出提供多种格式：1坐标文件，2AutoCAD交换文件（可直接生成已展点的DXF交换文件，并对相邻的相同代码进行智能连线），3CASS展点文件（即点号，编码，东坐标，北坐标，高程），4CASS点状地物交换文件（由于在CASS绘图过程中点状地物符号化比较繁琐，程序自动生成点状地物交换文件，可实现一键点状地物符号化）。另外程序提供多种全站仪原始数据转换为TOPCON数据格式功能，如未提供您所使用全站仪的数据格式，请告知作者，以便及时修改。 修改记录： ①2009-02-28根据孙绍良同志的要求，“全站仪数据转换”模块加入了南方NTS-312R数据格式与本程序数据格式的转换，并且坐标成果增加了限制小数位数。由于原来的“直接生成DWG格式”模块的动态链接库不适合所有平台，故改为直接生成DXF交换文件，但是写入文件速度较慢，请耐心等候。 ②2009-10-03软件在写入AutoCAD交换文件与CASS点状地物交换文件过程中，由于需要经过大量的智能判断，故写入速度较慢，容易造成程序无响应，所以修改了程序执行代码，消除程序无响应现象。另外QQ好友272596090提出测站后视未置零情况，由于程序在最初设计时就考虑了这种情况，对偏转角度进行了处理，所以不必考虑此情况。 ③2010-04-21修改软件计算过程中盘右测量出现的问题，根据QQ好友423518289需求，“全站仪数据转换”模块加入了拓扑康gt7数据格式与本程序数据格式的转换。感谢QQ好友423518289对程序进行的测试工作。 感谢众多网友对本程序的支持，如需修改请联系作者。由于所有代码均由作者独立开发，故暂时不公开源代码。 本程序为免费版软件，无需安装，直接运行EXE即可进行计算。由于程序未进行大量测试，问题在所难免，请使用者多提宝贵意见。发送邮件至[email protected]或者直接在http://surveynet.blog.sohu.com留言。 本程序仅供参考，作者不对计算成果负任何责任，使用时要慎重。

CAD 插入 带坐标的正射影像 dom raster tif tiff tfw

TOPCON碎部点计算程序免责声明 TOPCON碎部点计算程序由武雪鹏设计开发，本程序可对TOPCON全站仪原始数据（边角测量）进行碎部点解算，当前最新版本：20091003。 本程序使用方便，易上手，适用于各比例尺地形测量、地籍测量，程序主界面如下图。其解算模式可分为两种：1有起算点模式，2无起算点模式。程序成果输出提供多种格式：1坐标文件，2AutoCAD交换文件（可直接生成已展点的DXF交换文件，并对相邻的相同代码进行智能连线），3CASS展点文件（即点号，编码，东坐标，北坐标，高程），4CASS点状地物交换文件（由于在CASS绘图过程中点状地物符号化比较繁琐，程序自动生成点状地物交换文件，可实现一键点状地物符号化）。另外程序提供多种全站仪原始数据转换为TOPCON数据格式功能，如未提供您所使用全站仪的数据格式，请告知作者，以便及时修改。 修改记录： ①2009-02-28根据孙绍良同志的要求，“全站仪数据转换”模块加入了南方NTS-312R数据格式与本程序格式的转换，并且坐标成果增加了限制小数位数。由于原来的“直接生成DWG格式”模块的动态链接库不适合所有平台，故改为直接生成DXF交换文件，但是写入文件速度较慢，请耐心等候。 ②2009-10-03软件在写入AutoCAD交换文件与CASS点状地物交换文件过程中，由于需要经过大量的智能判断，故写入速度较慢，容易造成程序无响应，所以修改了程序执行代码，消除程序无响应现象。另外QQ好友272596090提出测站后视未置零情况，由于程序在最初设计时就考虑了这种情况，对偏转角度进行了处理，所以不必考虑此情况。 感谢众多网友对本程序的支持，如需修改请联系作者。由于所有代码均由作者独立开发，故暂时不公开源代码。 本程序为免费版软件，无需安装，直接运行EXE即可进行计算。由于程序未进行大量测试，问题在所难免，请使用者多提宝贵意见。发送邮件至[email protected]或者直接在http://surveynet.blog.sohu.com留言。 本程序仅供参考，作者不对计算成果负任何责任，使用时要慎重。

删除多段线上的指定节点删除多段线上的指定节点删除多段线上的指定节点

连接远程SQL Server数据库并执行SQL语句(远程IP=192.168.0.1,用户名=sa,密码=surveynet)

'计算图幅号 Option Explicit Type ArrayData Data() As String Count As Integer End Type Public Function getSheetNumber(strLat As String, strLon As String, ScaleID As String) As String Dim strLatErr As String, strLonErr As String Dim dblLatErr As String, dblLonErr As String Dim dblLat As Double, dblLon As Double Dim a As String, b As Integer, c As Integer, d As Integer Select Case ScaleID Case "A" '1:100W strLatErr = "4°00′00″": strLonErr = "6°00′00″" Case "B" '1:50W strLatErr = "2°00′00″": strLonErr = "3°00′00″" Case "C" '1:25W strLatErr = "1°00′00″": strLonErr = "1°30′00″" Case "D" '1:10W strLatErr = "00°20′00″": strLonErr = "00°30′00″" Case "E" '1:5W strLatErr = "00°10′00″": strLonErr = "00°15′00″" Case "F" '1:2.5W strLatErr = "00°05′00″": strLonErr = "00°07′30″" Case "G" '1:1W strLatErr = "00°02′30″": strLonErr = "00°03′45″" Case "H" '1:0.5W strLatErr = "00°01′15″": strLonErr = "00°01′52.5″" Case Else ' getSheetNumber = "比例尺代码错误" Exit Function End Select dblLatErr = changeToSecond(strLatErr): dblLonErr = changeToSecond(strLonErr) dblLat = changeToSecond(strLat): dblLon = changeToSecond(strLon) a = Chr(64 + Int(dblLat / changeToSecond("4°00′00″")) + 1) b = Int(dblLon / changeToSecond("6°00′00″") + 31) If ScaleID <> "A" Then c = changeToSecond("4°00′00″") / dblLatErr - Int(mMod(dblLat, changeToSecond("4°00′00″")) / dblLatErr) d = Int(mMod(dblLon, changeToSecond("6°00′00″")) / dblLonErr) + 1 getSheetNumber = a & b & ScaleID & Format(c, "000") & Format(d, "000") Else getSheetNumber = a & b End If End Function Private Function changeToSecond(strDeg As String) As Double Dim intD As Integer, intM As Integer, dblS As Double intD = Int(strOperate(strDeg, "°").Data(0)) dblS = CDbl(Left(strOperate(strDeg, "′").Data(1), Len(strOperate(strDeg, "′").Data(1)) - 1)) intM = Int(Left(strOperate(strDeg, "°").Data(1), 2)) changeToSecond = intD * 60 + intM + dblS / 60 End Function Private Function strOperate(ByVal strX As String, ByVal strA As String) As ArrayData '分割字符串 Dim i As Integer, j As Integer, k As Integer Dim cnt As Integer, strTemp As String If Trim(strA) <> "" Then strX = Trim(strX) strA = Trim(strA) strX = strX & strA For i = 1 To Len(strX) If Mid(strX, i, Len(Trim(strA))) = strA Then cnt = cnt + 1 i = i + Len(strA) - 1 End If Next i strOperate.Count = cnt ReDim strOperate.Data(cnt - 1) For j = 1 To Len(strX) If Mid(strX, j, Len(strA)) = strA Then strOperate.Data(k) = Left(strX, j - 1) strX = Trim(Right(strX, Len(strX) - Len(strOperate.Data(k)) - Len(strA))) k = k + 1 j = 0 End If Next j Else strX = Trim(strX) strTemp = strX For i = 1 To Len(strTemp) If Mid(strTemp, i, 1) = " " Then cnt = cnt + 1 strTemp = Trim(Right(strTemp, Len(strTemp) - i + 1)) i = 0 End If Next i strX = strX & " " strOperate.Count = cnt + 1 ReDim strOperate.Data(cnt) For i = 1 To Len(strX) If Mid(strX, i, 1) = " " Then strOperate.Data(j) = Left(strX, i - 1) strX = LTrim(Right(strX, Len(strX) - i + 1)) j = j + 1 i = 0 End If Next i End If End Function Private Function mMod(dblF As Double, dblS As Double) As Double Dim intM As Integer intM = Int(dblF / dblS) mMod = dblF - dblS * intM End Function Private Sub Form_Load() Text1 = getSheetNumber("39°22′30″", "114°33′45″", "A") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "B") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "C") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "D") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "E") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "F") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "G") Text1 = Text1 & vbCrLf & getSheetNumber("39°22′30″", "114°33′45″", "H") End Sub

无线电连接开始RTK测量无线电连接开始RTK测量无线电连接开始RTK测量无线电连接开始RTK测量无线电连接开始RTK测量无线电连接开始RTK测量无线电连接开始RTK测量

南方GPS Rinex文件编辑器源代码南方GPS Rinex文件编辑器源代码南方GPS Rinex文件编辑器源代码南方GPS Rinex文件编辑器源代码南方GPS Rinex文件编辑器源代码

“TOPCON碎部点计算”免责声明 TOPCON碎部点计算程序由武雪鹏设计开发，本程序可对TOPCON全站仪原始数据（边角测量）进行碎部点解算。 本程序使用方便，易上手，适用于各比例尺地形测量，地籍测量。其解算模式可分为两种：1有起算点模式，2无起算点模式。程序成果输出提供多种格式：1坐标文件，2AutoCAD标准文件（系统无需安装AutoCAD软件，可直接生成已展点的DWG文件，并对相邻的相同代码进行连线），3CASS展点文件（即点号，编码，东坐标，北坐标，高程），4CASS点状地物交换文件（由于在CASS绘图过程中点状地物符号化比较繁琐，程序自动生成点状地物交换文件，可实现一键点状地物符号化）。 本程序为免费版软件，无需安装，直接运行EXE即可进行计算。由于程序未进行大量测试，问题在所难免，请使用者多提宝贵意见。联系作者：[email protected]或登陆http://surveynet.blog.sohu.com 本程序仅供参考，作者不对计算成果负任何责任，使用时要慎重。

像控点坐标的测定方法可以采用地形测量中用来建立平面控制和高程控制的所有测量方法。平面坐标可采用图根三角锁（网）、图根导线、测角交会点等方法进行测绘。高程的测定根据地形条件不同选用不同的方法。在平地和丘陵地，高程控制点采用图根水准测量或光电测距高程导线测量。在山地、高山地可采用三角高程测量。近年来，GPS定位系统不断的发展，已经逐步取代了常规的测量方法。它不仅用途广泛、观测简便，而且定位精度高、经济效益高。所以，像控测量已由原来的常规测量方法过渡到一个新的时代。

常规的GPS测量方法，如静态、快速静态、动态测量都需要事后进行解算才能获得厘米级的精度，而RTK是能够在野外实时得到厘米级定位精度的测量方法，它采用了载波相位动态实时差分方法，是GPS应用的重大里程碑，它的出现为工程放样、地形测图，各种控制测量带来了新曙光，极大地提高了外业作业效率。 高精度的GPS测量必须采用载波相位观测值，RTK定位技术就是基于载波相位观测值的实时动态定位技术，它能够实时地提供测站点在指定坐标系中的三维定位结果，并达到厘米级精度。在RTK作业模式下，基准站通过数据链将其观测值和测站坐标信息一起传送给流动站。流动站不仅通过数据链接收来自基准站的数据，还要采集GPS观测数据，并在系统内组成差分观测值进行实时处理，同时给出厘米级定位结果，历时不到一秒钟。 RTK技术的关键在于数据处理技术和数据传输技术，RTK定位时要求基准站接收机实时地把观测数据（伪距观测值，相位观测值）及已知数据传输给流动站接收机，数据量比较大，一般都要求9600的波特率，这在无线电上不难实现。由于无线电电台一般传播距离比较短，覆盖范围小，当我们进行大范围的测量工作时，我们需要不停的更换基准站，不仅耗时而且费力，所以这种测量方法在某些程度上就受到了一定的限制。随着科学技术的不断发展，数据传输方面也有了长足的进展，由原先的电台传输发展到现在的GSM，GPRS，Internet网络传输，大大提高了数据的传输效率和范围。RTK技术已由传统的1+1或1+N发展到了广域差分系统WADGPS，有些城市建立起CORS系统，这就大大提高了RTK的测量范围。但是由于建立CORS系统一般费用较高，而且流动性比较差（只能在某一个区域进行），所以对于流动性较强的测绘队伍就不是很适合了。采用GPRS连接方式的RTK就能解决这个问题，既节约了仪器配置经费，又克服了传播距离短的限制，而且流动性极强。

本书适合于有一定的VB开发经验，对AutoCAD、南方CASS有一定了解的工程技术人员使用。本书出发点低，即使你对AutoCAD二次开发一点也都不了解，只要你有一定的VB开发经验，就能上手。几乎没有一个完整实用的程序，只是提供了一个程序设计思路。俗话说得好，师傅领进门，修行在个人，只要你有一定的耐心，相信你也能写出很好的程序。这本书章节设置和我的学习AutoCAD二次开发的路程是一样的，由简入深，一步一步循序渐进。 上面说的那些都是吹牛的，别介意啊。其实写的这些东西很烂，不要贻笑大方哦。反正闲着也是闲着，第一次写点东西，千万不要扔我西红柿和鸡蛋，我的厨艺很高的，尤其擅长西红柿炒鸡蛋，哈哈…开句玩笑，其实目的还是希望能给您带来一些帮助，哪怕是一点点，我也欣慰了。 新建了一个QQ群，有关于AutoCAD二次开发(VBA)的问题，可以放到上面探讨一下，QQ群号码：36768105。闲着没事的时候，帮我增加一下访问率吧。http://surveynet.blog.sohu.com ，俺也有BLOG，上面都是一些不成熟的代码和程序，还希望您给“雅正”一下呢。同时也很希望能和您一起探讨GPS、GIS、测绘等方面的问题，俺的信箱是 [email protected] 。