旧图幅号计算

最新推荐文章于 2021-09-14 09:24:52 发布
最新推荐文章于 2021-09-14 09:24:52 发布
阅读量1.6k 收藏 3
点赞数
分类专栏： 算法 国土资源 ArcGIS Engine开发
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hsg77/article/details/79054752
版权 
//获取旧图幅号
        private string GetOldTFBH(decimal old_d_B, decimal old_f_B, decimal old_s_B, decimal old_d_L, decimal old_f_L, decimal old_s_L, AbstractMapScale mapScale)
        {
            decimal a = 0M;
            decimal b = 0M;
            //西南图廓点 转为度
            decimal B = old_d_B + old_f_B / 60M + old_s_B / 3600M;
            decimal L = old_d_L + old_f_L / 60M + old_s_L / 3600M;
            //            
            string bit_1 = "";
            string bit_2 = "";
            //-----
            a = Math.Floor(B / 4.0M) + 1;    //商取整【B/4】+1                    
            b = Math.Floor(L / 6.0M) + 31;   //商取整【L/6】+31
            //
            switch (a.ToString())
            {
                case "1": bit_1 = "A"; break;
                case "2": bit_1 = "B"; break;
                case "3": bit_1 = "C"; break;
                case "4": bit_1 = "D"; break;
                case "5": bit_1 = "E"; break;
                case "6": bit_1 = "F"; break;
                case "7": bit_1 = "G"; break;
                case "8": bit_1 = "H"; break;
                case "9": bit_1 = "I"; break;
                case "10": bit_1 = "J"; break;
                case "11": bit_1 = "K"; break;
                case "12": bit_1 = "L"; break;
                case "13": bit_1 = "M"; break;
                case "14": bit_1 = "N"; break;
                case "15": bit_1 = "O"; break;
                case "16": bit_1 = "P"; break;
                case "17": bit_1 = "Q"; break;
                case "18": bit_1 = "R"; break;
                case "19": bit_1 = "S"; break;
                default:
                    break;
            }
            bit_2 = b.ToString();
            //-----
            if (mapScale.MapScale == EnumMapScale.EnumMapScale_1000000)
            {
                //返回1:100万图幅号
                return bit_1 + "-" + bit_2;
            }
            else
            {
                string bit_3 = "";
                string bit_4 = "";
                string bit_5 = "";
                //获取新编号的行，列号
                decimal c = 0M;
                decimal d = 0M;
                GetMapScaleRowsCols(B, L, mapScale, ref c, ref d);
                //
                switch (mapScale.MapScale)
                {                   
                    case EnumMapScale.EnumMapScale_500000:   //1:50万
                        {
                            bit_3 = "";
                            decimal X50 = (c - 1) * 2 + (d - 1) + 1;     //旧图幅号对应的地图代码  50W
                            switch (X50.ToString())
                            {
                                case "1": bit_3 = "A"; break;                                   
                                case "2": bit_3 = "B"; break; 
                                case "3": bit_3 = "C"; break;
                                case "4": bit_3 = "D"; break; 
                            }
                            return bit_1 + "-" + bit_2 + "-" + bit_3;
                        }
                        break;
                    case EnumMapScale.EnumMapScale_B_250000:
                        {
                            bit_3 = "";
                            decimal X25 = (c - 1) * 4 + (d - 1) + 1;      //旧图幅号对应的地图代码  25W
                            bit_3 = X25.ToString();
                            bit_3 = bit_3.PadLeft(2, '0');
                            return bit_1 + "-" + bit_2 + "-[" + bit_3 + "]";
                        }
                        break;
                    case EnumMapScale.EnumMapScale_C_200000:
                        {
                            bit_3 = "";
                            decimal X25 = (c - 1) * 6 + (d - 1) + 1;      //旧图幅号对应的地图代码  20W  
                            bit_3 = X25.ToString();
                            bit_3 = bit_3.PadLeft(2, '0');
                            return bit_1 + "-" + bit_2 + "-(" + bit_3 + ")";
                        }
                        break;
                    case EnumMapScale.EnumMapScale_D_100000:
                        {
                            bit_3 = "";
                            decimal X10 = (c - 1) * 12 + (d - 1) + 1;   //旧图幅号对应的地图代码    10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            return bit_1 + "-" + bit_2 + "-" + bit_3;
                        }
                        break;
                    case EnumMapScale.EnumMapScale_E_50000:
                        {
                            bit_3 = "";
                            decimal c10 = Math.Floor((c - 1) / 2) + 1;
                            decimal d10 = Math.Floor((d - 1) / 2) + 1;
                            decimal X10 = (c10 - 1) * 12 + (d10 - 1) + 1;      //10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            //
                            bit_4 = "";
                            decimal X5 = (c - 2 * c10 + 1) * 2 + (d - 2 * d10 + 1) + 1; //旧图幅号对应的地图代码   5W
                            switch (X5.ToString())
                            {
                                case "1": bit_4 = "A"; break;
                                case "2": bit_4 = "B"; break;
                                case "3": bit_4 = "C"; break;
                                case "4": bit_4 = "D"; break;
                            }
                            return bit_1 + "-" + bit_2 + "-" + bit_3+"-"+bit_4;
                        }
                        break;
                    case EnumMapScale.EnumMapScale_F_25000:
                        {
                            decimal c5 = Math.Floor((c - 1) / 2) + 1;
                            decimal d5 = Math.Floor((d - 1) / 2) + 1;                            
                            bit_3 = "";
                            decimal c10 = Math.Floor((c5 - 1) / 2) + 1;
                            decimal d10 = Math.Floor((d5 - 1) / 2) + 1;
                            decimal X10 = (c10 - 1) * 12 + (d10 - 1) + 1;   //10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            //
                            bit_4 = "";
                            decimal X5 = (c5 - 2 * c10 + 1) * 2 + (d5 - 2 * d10 + 1) + 1; //旧图幅号对应的地图代码  5W  by 10W
                            switch (X5.ToString())
                            {
                                case "1": bit_4 = "A"; break;
                                case "2": bit_4 = "B"; break;
                                case "3": bit_4 = "C"; break;
                                case "4": bit_4 = "D"; break;
                            }
                            decimal X2_5 = (c - 2*c5+1) * 2 + (d - 2*d5+1) + 1;  //旧图幅号对应的地图代码  2.5w  by 5W
                            bit_5 = X2_5.ToString();
                            // 
                            return bit_1 + "-" + bit_2 + "-" + bit_3 + "-" + bit_4+"-"+ bit_5;
                        }
                        break;
                    case EnumMapScale.EnumMapScale_G_10000:
                        {
                            bit_3 = "";
                            decimal c10 = Math.Floor((c - 1) / 8) + 1;
                            decimal d10 = Math.Floor((d - 1) / 8) + 1;
                            decimal X10 = (c10 - 1) * 12 + (d10 - 1) + 1;      //10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            //
                            bit_4 = "";
                            decimal X1 = (c - 8 * c10 + 7) * 8 + (d - 8 * d10 + 1) +7; //旧图幅号对应的地图代码   1W
                            bit_4 = X1.ToString();
                            bit_4 = bit_4.PadLeft(2, '0');
                            return bit_1 + "-" + bit_2 + "-" + bit_3 + "-(" + bit_4+")";
                        }
                        break;
                    case EnumMapScale.EnumMapScale_H_5000:
                        {
                            //计算1w的新行，列号c1,d1
                            decimal c1 = Math.Floor((c - 1) / 2) + 1;
                            decimal d1 = Math.Floor((d - 1) / 2) + 1;
                            bit_3 = "";
                            decimal c10 = Math.Floor((c1 - 1) / 8) + 1;
                            decimal d10 = Math.Floor((d1 - 1) / 8) + 1;
                            decimal X10 = (c10 - 1) * 12 + (d10 - 1) + 1;      //10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            //
                            bit_4 = "";
                            decimal X1 = (c1 - 8 * c10 + 7) * 8 + (d1 - 8 * d10 + 7) + 1; //旧图幅号对应的地图代码   1W  by 10W
                            bit_4 = X1.ToString();
                            bit_4 = bit_4.PadLeft(2, '0');
                            //5K
                            bit_5 = "";
                            decimal X5 = (c - 2*c1+1) * 2 + (d - 2*d1+1) + 1;     //旧图幅号对应的地图代码  5k   by 1W
                            switch (X5.ToString())
                            {
                                case "1": bit_5 = "a"; break;
                                case "2": bit_5 = "b"; break;
                                case "3": bit_5 = "c"; break;
                                case "4": bit_5 = "d"; break;
                            }
                            return bit_1 + "-" + bit_2 + "-" + bit_3 + "-(" + bit_4 + ")-"+ bit_5;
                        }
                        break;
                    case EnumMapScale.EnumMapScale_I_2000:
                        {
                            //计算1w的新行，列号c1,d1
                            decimal c1 = Math.Floor((c - 1) / 6) + 1;
                            decimal d1 = Math.Floor((d - 1) / 6) + 1;
                            bit_3 = "";
                            decimal c10 = Math.Floor((c1 - 1) / 8) + 1;
                            decimal d10 = Math.Floor((d1 - 1) / 8) + 1;
                            decimal X10 = (c10 - 1) * 12 + (d10 - 1) + 1;      //10W
                            bit_3 = X10.ToString();
                            bit_3 = bit_3.PadLeft(3, '0');
                            //
                            bit_4 = "";
                            decimal X1 = (c1 - 8 * c10 + 7) * 8 + (d1 - 8 * d10 + 1) + 7; //旧图幅号对应的地图代码   1W  by 10W
                            bit_4 = X1.ToString();
                            bit_4 = bit_4.PadLeft(2, '0');
                            //2K
                            bit_5 = "";
                            decimal X2 = (c - 6 * c1 + 5) * 6 + (d - 6 * d1 + 5) + 1;     //旧图幅号对应的地图代码  2k   by 1W
                            bit_5 = X2.ToString();
                            bit_5 = bit_5.PadLeft(2, '0');
                            return bit_1 + "-" + bit_2 + "-" + bit_3 + "-(" + bit_4 + ")-" + bit_5;
                        }
                        break;
                    default:
                        break;
                }                
                //
            }
            return "";            
        }
hsg77
关注
专栏目录
【测绘程序设计】——地形图图幅号计算
C_xxy's blog
12-13 1983
基于梯形分幅法的图幅号计算程序（Python版）。
lisp 所在图幅号计算_图幅编号的计算
weixin_39685578的博客
12-22 686
图幅编号的计算经纬度(λ,φ)，可按下式计算出1：100万比例尺的地形图图幅编号a=[φ/4º]+1b=[λ/6º]+31某点经度为121º31‘30“，纬度为31º16‘40“，计算其所在1:100万比例尺地形图图幅的编号a=[121º31‘30“/4º]+1=8b=[31º16‘40“/6º]+31=51由a可得出，其所对应的字符码为H故该点所在1:100万比例尺地形图图幅的编号为H51(3...
图幅号计算
01-17
输入经纬度，计算图幅号。1W比例，2.5W比例，5W比例，10W比例，25W比例，50W比例，100W比例，输入只能输入度数。
图幅号计算工具,可以进行图幅号计算
01-14
你只要输入经纬度，就可以进行你所需要的任何比例尺图幅号计算
图幅号计算 新老图号换算.exe
06-07
新老图幅之间相互转换，由已知点坐标可以轻松计算80坐标系下的带号。
1：10000新老图幅号转换器
05-30
图号转换软件通常包含用户友好的界面，允许用户输入或导入旧图幅号，然后一键完成转换，输出新图幅号。此外，一些高级版本的软件可能还支持批量转换、错误检查和数据导出等功能，以满足更复杂的需求。 总之，1:...
计算图幅号的ExcelVBA代码.txt
02-05
通过已知点坐标，批量计算坐标所在新版和旧版图幅号的ExcelVBA代码，可减轻工程管理填表查图的工作量，特别适合林业类工程管理。
国家基本比例尺图幅编号计算.zip
06-15
随着时间的推移，国家可能会对图幅编号系统进行更新和优化，这可能导致新的编号体系与旧的不兼容。此工具可以确保在新旧系统之间无缝转换，从而保证数据的连续性和一致性。 总的来说，国家基本比例尺图幅编号计算是...
新旧图幅号转换
02-24
用户可以导入包含旧图幅号的数据，通过软件内置的工具进行批量转换，生成新的图幅号。这些软件通常支持多种坐标系统和分幅标准，使得转换过程更加便捷。 5. **数据一致性**：图幅号转换后，确保数据一致性是关键。...
图幅号转换工具
11-11
1、经纬度范围生成标准新、旧图幅号，包括1：100万、1：50万、1：25万、1：10万、1：5万、 1：2.5万、1：1万和1：5000比例尺的图幅号； 2、标准图幅号查询经纬度坐标和投影坐标（北京54、西安80坐标系）； 3、...
图幅编号计算器
05-21
为了方便从业人员查询国家标准比例尺图幅号，利用C#编程设计这个小型软件。 望各位用户及时反映使用中的问题。谢谢
计算国家分幅标准图幅编号以及图幅范围
08-31
输入待查询区域的xy的最大值最小值 选择比例尺 计算待查区域覆盖的图幅的所有图幅号 以及每个图幅号对应的图幅范围（最大、最小经纬度）计算结果保存在txt文件中
1：1万地形图新旧图幅号转换公式及算法(vb)
03-28
该文件包含了1：1万地形图新旧图幅号转换公式的描述及实现算法(vb版),可以根据此算法实现新旧图幅号的批量转换。尤其在山东省第二次土地调查影像元数据的批量生成中起到了事半功倍的小股。
根据坐标查询新旧图幅号及图幅范围，并计算各坐标系下的平面直角坐标
09-09
根据坐标查询新旧图幅号及图幅范围，并计算各坐标系下的平面直角坐标
经纬度计算图幅号，图幅号计算带号
07-14
根据一个点的经纬度，计算这个点所在的图幅号。
新旧图幅号转换公式及示例代码(C#)
爱莫能助
03-29 1977
转载地址：http://blog.csdn.net/rrrrssss00/article/details/6218454 新旧图幅号转换的公式如下图所示：   共有50W，25W，10W，5W，2.5W，1W几种比例尺 下面的公式中，字母的下标表示对应的比例尺 H代表新图幅号中的行号，例如：J49E016003中的016，共三位，不足三位的在前面补0 L代表新图幅号中的列号，例
图幅号计算（JS、HTML）
weixin_45647889的博客
03-06 1023
背景：图幅号计算一般有两种：excel表输入经纬度查询或者用.exe应用程序。但是excel打开时间稍微长，而且容易造成公式改变，.exe运行需要安装或者占内存较大。 需求：写一个HTML加快图幅号计算。与传统方法相比，优点在于打开速度快且不占内存，只要电脑有任意浏览器即可。源代码如下所示： <!DOCTYPE html> <html lang="en"> <head...
新图幅号计算和图幅框计算
LongJ_Sir的博客
09-14 1633
本文的图幅号计算直接引用了博客园地址：使用Java实现的新版地图图幅编号计算公式（新版图幅规则(GB/T 13989—2012)） - JuCheap - 博客园 的代码，微小的调整了一下，计算图幅框四至是参照 地图学第02章：地图的分幅和编号来实现，地图学第02章 地图的分幅和编号 （新） - 道客巴巴 /** * <p> * 地图坐标对象 * </p> * * @Author jucheap * @Email jucheap@jucheap.com */ p.
姚博文 图幅号计算
姚博文的专栏
02-17 789
// char *MapNo：图幅号  // int lon_deg：经度-度  // lon_min：经度-分  // lon_sec：经度-秒  // lat_deg：纬度-度  // lat_min：纬度-分  // lat_sec：纬度-秒  // long lscale：比例尺  // 传入秒单位的经纬度值  public static String getMeshId
各种比例尺图幅号计算excel表格
最新发布
08-02
要在Excel表格中计算各种比例尺图幅号，首先需要了解比例尺和图幅号之间的关系。比例尺是指图上距离与实际距离之间的比例关系，比如1:50000表示图上的1厘米代表实际的50000厘米。而图幅号则是地理信息系统中进行图幅管理的一种方法，常用于地图上的划分和索引。 在Excel中计算各种比例尺图幅号，可以按照以下步骤进行： 1. 打开Excel表格，并创建两列，分别命名为“比例尺”和“图幅号”。 2. 在“比例尺”列中输入各种比例尺的数值，例如1:10000、1:50000等等。 3. 在“图幅号”列中使用公式计算每种比例尺对应的图幅号。根据比例尺与图幅号的关系，我们可以得到如下公式： 图幅号 = 实际距离 / 图上距离 4. 根据具体情况，选择一种比例尺，例如1:50000作为示例。在对应的图幅号单元格中输入公式：=B2*50000，其中B2是指比例尺单元格的位置。 5. 将公式拖至其他图幅号单元格，完成所有比例尺对应图幅号的计算。 6. 最后，为了使输出结果更直观，可以对图幅号列进行格式设置，以展示图幅号的统一格式。 以上就是用Excel表格计算各种比例尺图幅号的方法。通过这种方式，可以快速准确地计算各种比例尺对应的图幅号，并将结果整理在表格中，方便查阅和使用。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值