花舞月咏潭-CSDN博客

3在显示的栅格转多点对话框内，输入栅格选择下载的dem数据，为了保证正常输出，输出要素类最好是默认，方法选择ZTOLERANCE 1.0，该方法生成的点比较多。11在显示的提取值至点对话框内，输入要素选择上一步生成的单点，输入栅格选择下载的DEM数据，输出点要素默认，如下图所示。在ArcToolbox中点击“数据管理工具\要素\多部件至单部件”，调用多部件至单部件工具，如下图所示。5打开属性表，可以看到生成的多点属性，可以看到只有一条记录，如下图所示。4点击确定之后可以看到生成的多点，如下图所示。

2023-11-05 15:36:57 1056

原创全球测图（开源：DEMSRTM,AW3D30,CESAT激光高程）

ASTER GDEM，即先进星载热发射和反射辐射仪全球数字高程模型，与SRTM一样为数字高程DEM，其全球空间分辨率为30米。CESAT:美国航空航天局NASA于上周的美国东部时间9月15日早上发射了“冰、云和陆地高程”2号卫星（ICESat-2），它搭载了星载激光雷达，按照任务要求，主要用于测量海冰变化、地表三维信息，并测量植被冠层高度用以估计全球生物总量。SRTM（Shuttle Radar Topography Mission），由美国太空总署（NASA）和国家测绘局（NIMA）联合测量。

2023-11-05 15:25:19 317

原创 GNSS精密解算软件介绍

美国太空总署（NASA）喷气推进实验室（JPL）研发的GIPSY-OASIS软件，GIPSY解算方式为单点定位，直接处理载波非差观测量，卫星钟差和接收机钟差被视为具有白噪声性质的平稳随机过程直接估算。美国麻省理工学院（MIT）和加州大学圣地亚哥分校的海洋研究所（SIO）开发的GAMIT/GLOBK软件， GAMIT为双差网解，利用双差直接消除卫星及测站的时间误差。武汉大学卫星导航定位技术研究中心自主研发的卫星导航定位数据分析软件PANDA，PANDA软件支持精密单点定位以及非差网解。

2023-11-05 08:45:41 322

原创 GIS图书列表（国外）

参考地址：Search Results - Springer

2023-11-03 10:48:56 83

原创 MATLAB BP神经网络与二次多项式拟合正常高总结

问题总结：神经网络单执行，收敛较慢，需要训练多次才会有较好的结果。数据发散，不易收敛。数据太收敛，又有数据失真的现象。所以去取7/3的，进行验证实验。思路：先用二次多项式拟合，缩小范围。再训练神经网络，得到较好的结果。

2023-11-03 10:39:10 87

原创 CAD vba 字典

出现下面添加引用：

2023-11-03 10:01:55 72

原创 cad vba 二次开发统计管线图中含有B的块名

End IfNextEnd Sub。

2023-11-03 09:08:26 93

原创 Arxdbg读取cad扩展属性

xdlist可以读取CAD实体属性，子实体的扩展属性看不到。查看xdata,dxfdata都可以看到扩展信息。鼠标右键即可看见，选Entity Info。下载arxdbg,appload加载。

2023-10-06 11:17:08 154

原创 VBA CAD循环画直线

一个button,一个textbox,一个label控制循环次数

2023-10-05 15:58:49 141

原创 vba cad控制展点样式和大小

' 定义点的位置' 创建点ZoomAllEnd Sub。

2023-09-18 22:11:52 79

原创 cad vba控制图层

' 遍历集合msg = ""NextMsgBox msgEnd Sub。

2023-09-18 21:47:59 219

原创正元管线安装

正元管线客户端安装，完成后找到安装目录Zyspps，删除。cad2008,破解序列号666-69696969。更新替换：复制到bin目录在。2007 access安装。

2023-09-17 10:23:12 512

原创江苏房地一体化工作反思

a三维扫描，南京省测下属金威公司扫描效果不佳，由于南京村里房屋密集，墙树阻挡，致使扫描视野不足。c中国建筑材料工业地质勘查中心江苏总队，在苏州昆山周庄锦溪施测地籍，采用全站仪测量，精度虽高但效率低下。更有甚者从二调库里面调出房屋数据建库，造成房屋数学基础错误，房屋缺失，简直就是瞎干。里面写实际宗地面积，确权登记宗地面积，实际建筑面积，确权登记面积。确权房屋面积会不会出现在未确权的宗地里面，哪一块是确权了，哪一块没有。模糊不清，一旦发生纠纷，不知依据出处。2房屋拓扑错误多：如相交，悬挂，不及，房屋缝隙空洞。

2023-09-17 10:15:55 42

原创 cad vba提取块名属性方法

' 将属性的标记字符串。' 复制到 Excel。' 创建新的工作簿并查找活动电子表格。' 启动 Excel。' 遍历模型空间，查找。

2023-09-15 20:17:05 422

原创地图表示法

普通地图：1独立地物的表示2自然要素的表示。

2023-08-31 20:31:52 76

原创测绘规范的思考

但是没有将现有的如：林业调查，河湖确权，排污水调查，土壤调查，自然风险灾害普查分门别类突出各自调查的特点。这些项目普遍用arcgis建库，实地调查+互联网举，用遥感和互联网地图为底图。中国测绘技术研究院对互联网地图进行了不可逆的加密，加上阴影误差，有些不好用。但是数据量少，电脑cpu负担少，兴趣点poi标注突出。遥感数据胜在数据新，但是得经过般来说预处理涉及的步骤会比较多，包含几何校正、几何精校正、辐射校正、影像融合、镶嵌、裁剪分幅。普遍精度要求不高，约在1:5000比例尺，平面允许误差1米。

2023-08-31 20:07:48 75

原创千寻服务及覆盖范围查询

千寻见微-FindMM（静态毫米级高精度定位服务）在设备支持、监测环境良好的情况下，后处理的精度<1cm。其中，使用场景最多的还是千寻知寸-FindCM，所以我们一般谈到的千寻cors账号基本都是说的是千寻知寸。千寻知寸-FindCM（厘米级高精度定位服务）在设备支持、监测环境良好的情况下，精度可达1-5cm左右；千寻跬步-FindM（亚米级高精度定位服务）在设备支持、监测环境良好的情况下，精度可达0.5m左右；

2023-08-31 19:22:04 563

原创 vbacad给定坐标绘制管线矩形（长7.5，高1.995）

CAD绘制管线，vbacad给定坐标绘制管线矩形（长7.5，高1.995）

2023-07-10 00:24:56 210

转载 RTK与PPK

RTK与PPK

2023-03-25 16:34:27 1166 1

原创 RTKLIB简介

RTKLIB是全球导航卫星系统GNSS(global navigation satellite system)的标准&精密定位开源程序包，RTKLIB由日本东京海洋大学（Tokyo University of Marine Science and Technology）的高须知二（Tomoji Takasu）开发。RTKLIB由一个便携式程序库和多个AP（应用程序）工具库组成

2023-03-21 11:14:54 3786

原创 arcgis python(面转点添加xy坐标）

arcgis python(面转点添加xy坐标）

2022-12-22 17:35:04 492

原创 cad vba计算两点之间距离

CAD vba二次开发，计算两点之间距离

2022-10-13 10:09:23 460

原创 cass断面法两期土方

说明：两期（开挖前和竣工后）

2022-09-05 10:40:19 279

原创光学四等红黑尺编数据（点号处理）

Sub 点号递增()Dim i As IntegerDim j As IntegerDim Z As IntegerDim X As IntegerDim M As IntegerDim N As IntegerFor i = 9 To 24 Step 4Z = Cells(i, 18)j = Cells(i, 18) * 4 + 7If i = 9 Then '处理第二行首末站行号Cells(i, 2) = Cells(i, 15)...

2022-05-27 10:37:32 214

原创 vba CAD提取图元属性

Sub cad属性提取()Dim objEntity As AcadEntityDim ptPicked As VariantThisDrawing.Utility.GetEntity objEntity, ptPickedStopEnd Sub

2022-05-26 14:01:12 993

原创 vba 光学四等水准

得到点

2022-05-25 11:08:10 89

原创 CAD2006 ----VBA(Hello World)

Sub Hello()ThisDrawing.Application.Documents.AddDim insPoint(0 To 2) As Double '定义插入点Dim textHeight As Double '定义文本高度Dim textStr As String '定义文本字符Dim textObj As AcadText '定义文本对象insPoint(0) = 2 '设定插入点 X 坐标insPoint(1) = 4 '设定插入点 Y 坐标insPoint(2) = 0 '

2022-05-13 14:10:10 463

原创 VBA已知高差编四等水准数据

Sub 高差()Dim I, Z As IntegerZ = Cells(9, 17)Dim G As DoubleG = Cells(9, 18)For I = 9 To (Z * 4 + 1) Step 4Cells(I, 12) = Rnd() * 0.4 - 0.2Cells(I + 2, 9) = Cells(I, 12) + Rnd() * 0.006 - 0.003NextCells(I, 12) = G - (Cells(I - 4, 12) + Cells...

2022-05-08 09:34:40 310

原创 GPS原始数据vba行互换、设置单元格时间、检查验测点（+-5公分）

Sub x() Dim a As Variant a = Range("c1:c224").Value Range("c1:c224").Value = Range("d1:d224").Value Range("d1:d224").Value = aEnd Sub

2022-05-02 09:24:53 228

原创 DIDI3（数字转为TP，小写转换大写）

Sub DINI3处理()Dim i As IntegerFor i = 2 To 319If IsNumeric(Cells(i, 1)) ThenCells(i, 1) = "TP"ElseCells(i, 1) = Cells(i, 1)End IfNextEnd Sub

2022-04-27 13:02:51 251 2

原创安装清华三维平差2000

1 gpedit.msc2计算机配置-管理模块-Windows组件-应用程序兼容性-防止访问16位应用程序-未配置3regeditHKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\WOWDisallowedPolicyDefault(改为1）4没有权限打开16位软件5 gpedit.msc6 windows-windows设置-安全设置-本地策略-账户-管理员状态（开启）7防火墙状态...

2022-04-02 08:03:22 660 1

原创 VBA水准平差

水准

2022-03-21 13:41:11 332 2

原创生成链接表

SELECT T.*,B.LSHFROM BDC_林权 T,JD_JGSLB A,JD_JZB BWHERE T.XH=B.LSH AND A.JGSLBID=B.JGSLBID AND A.KFBID=170 AND B.TPMC IS NOT NULL ORDER BY B.LSH

2022-01-21 10:26:37 152

excel vba批量填表.rar

农村不动产批量生成报表，证明，或者三级确认表

2021-03-27

cass格式转换成苏交科（EICAD)格式自创源码.txt

vba断面转换--cass格式转换成苏交科（EICAD)格式

2021-02-16

2000坐标.zip

CGCS2000课件-刘光明-20180720和CGCS2000转换软件-刘光明-20180711，里面有详细的讲解。含有B 布尔莎七参数转换 XYZ_XYZ，B 莫洛金斯基七参法 XYZ_XYZ，B 三维七参数法转换 BLH_BLH，B 三维四参数法转换 XYZ_XYZ，C 平面二阶多项式拟合 xy_xy，C 平面二维四参数转换 xy_xy，C 平面格网双线性内插 xy_xy，C 平面三阶多项式拟合 xy_xy，C 椭面二阶多项式拟合 BL_BL等。

2020-02-06