【办公自动化】探秘少了22种用地的空间规划新国标并更新国标相关内容
我们在整理最新空间规划用地分类的时候发现,网传最新国标是132种分类,而2019年5月的《市县国土空间规划分区与用途分类指南》(试行,送审稿)中有154种用地分类,难道有一个差了22种用地的新版本?
经多天搜索,只发现了多篇文章中有提到:“2020年2月自然资源部制定了《国土空间规划用地用海用途分类指南》(试行,征求意见稿),……”。
这是一个找不到具体内容,找不到发布信息的神秘版本。
————————————————
几经求证,我们拿到了《国土空间规划用地用海用途分类指南》(试行,征求意见稿)PDF的扫描件,所以在此更新前几天文章中所有涉及到国标标准的内容。
这里涉及到之前发的几篇
【办公自动化】国土“三调”用地分类“一键”转南京分类
【办公自动化】国土“三调”用地分类“一键”转国标分类
【办公自动化】Excel“一键”生成国土“三调”转换代码
【办公自动化】“一键”生成国土空间规划CAD标准图层
1、新旧国标对比
2019年5月的《市县国土空间规划分区与用途分类指南》(试行,送审稿)设置 28种一级类、102 种二级类 、 24种三级类,共154种 。
2020年2月的《国土空间规划用地用海用途分类指南》(试行,征求意见稿) 设置22种一级类、80种二级类及,30种三级类,共132种,少了22种 。
我们特地整理了两版国标的对照表(后文获取),部分截图如下:
2、三调用地“一键”转换至国标用地
三调转换国土空间用地四种类型说明参照《【办公自动化】国土“三调”用地分类“一键”转国标分类》中用地转换说明。在此我们更新了最新用地转换对照表(后文获取),可以看到四种用地分类的对比。部分截图如下:
注:红字为一对多用地,需根据实际情况调整划分用地。
转换操作如下:
- GIS中打开属性表,添加字段layer,类型文本;
- 右击Layer图层打开字段计算器…,
- 加载 三调转国标2.0.cal 文件(后文获取),
- 点选上面的Python,
- 点确定,就自动转换生成了Layer的数据。
若需要CAD文件,自行导出CAD,CAD中就形成了国土空间规划的用地图层。
3、CAD国标图层“一键”生成
我们按照《国土空间规划用地用海用途分类指南》(试行,征求意见稿)设置了图层名称,并配置了颜色。需要的同学可在Excel中自行修改CAD色号。相关配色说明参照《【三调转换】“一键”生成CAD用地标准图层》中颜色对照表说明。
CAD国标图层及配色表(后文获取)部分截图如下:
生成操作如下:
- 打开GIS生成的CAD,或新开CAD并新建页面
- 打开我们提供的 CAD国标图层及配色1.0.xlsx Excel文件(后文获取)
- 快捷键 Alt+F11 打开Excel的VB编辑器
- 点文件 > 导入文件…
- 对话框中选到 CAD图层生成.bas 文件(后文获取),打开
- 按F5 或者点绿色箭头运行,出现下面宏对话框,有宏名称就加载正确
- 点运行,会弹出提示框“提示:打开CAD,点击确定生成图层”
确保打开了CAD文件或新开CAD并新建了页面,不然会报错。 - 点确定,生成完毕,会弹出提示框 “图层创建完毕,请至CAD查看”
Excel会按照颜色对照表,在CAD中给相应的图层设置颜色,没有的图层会自动添加图层并设置颜色。
CAD图层生成结果截图如下:
————————————————
4、代码部分
代码在excel中运行,链接CAD,把excel中的图层和颜色信息添加至CAD中,比python进行CAD链接更稳定。在excel中无法设置CAD的RGB颜色,所以一色号来代替,VBA在CAD中是可以设置RGB的。
Public Sub CAD_layers()
MsgBox ("提示:打开CAD,点击确定生成图层")
'连接CAD
Set acadapp = GetObject(, "autocad.application")
Set acad = acadapp.ActiveDocument'读取数据生成图层和颜色
For Row = 2 To Cells(Rows.Count, "d").End(xlUp).Row
Name = Cells(Row, "a") + Cells(Row, "b")
acad.layers.Add (Name)
acad.layers.Item(Name).color = Int(Cells(Row, "c"))
NextMsgBox ("图层创建完毕,请至CAD查看!")
End Sub
excel中设置RGB底色的代码,将填有RGB颜色数字的表格填入对应的颜色,方便查看。
Public Sub color()Column = "d"
For Row = 2 To Cells(Rows.Count, Column).End(xlUp).Rowcol = Cells(Row, Column)If col <> "" Then'Mid(col, 9, 3) 切分会出错,部分RGB颜色不足9位s = Split(col, ",") R = Int(s(0))G = Int(s(1))B = Int(s(2))Cells(Row, Column).Interior.color = RGB(R, G, B)End If
NextEnd Sub
8月12日最新发布GIS转换工具箱,转换文件已停止更新
对原转换文件感兴趣的同学可以点击下方网盘链接
链接:https://pan.baidu.com/s/1fIaDrvwfElGWeqtqwAyZWg
提取码:0817
需要相关文件的同学,
关注公众号,回复 “图层” ,自动发送链接
【办公自动化】探秘少了22种用地的空间规划新国标并更新国标相关内容相关推荐
- 史上最全! 全球 22 种开源商业收入模式
来源 | <开源观止> 作者|郭炜(郭大侠) 近些年来开源在全球成为越来越火爆的话题,越来越多的开源项目获得了大量的投资或者最终上市.开源是根据一些开源协议把代码公开在互联网上并拥有开源社 ...
- 世界首富的22种习惯,值得你…
原文地址:世界首富的22种习惯,值得你学习(转载)作者:但斌 世界首富的22种习惯,值得你学习 2013-10-15 1.订目标,达目标 一个没有目标的人,就好比大海中航行的船只没有指南 ...
- 值得用心学习的22种习惯与风格
转载自:http://www.managershare.com/2013/07/19/worth-22-kinds-of-habits-and-styles-of-learning-by-heart/ ...
- 22种代码坏味道及重构手段
为什么80%的码农都做不了架构师?>>> 思维导图 引用 22种代码味道(Martin Fowler与Kent Beck) 代码味道及重构手段 参考 <重构 改善既有代码 ...
- 开源ImageFilter库v0.3:新增22种图片效果
开源ImageFilter库v0.3:新增22种图片效果 在原有50多套滤镜(v0.1)基础上,又新增实现22种图片效果.目前三个平台的源码已同步并测试完毕. 下面是图片效果: 原图: ZoomBlu ...
- IT民工——全世界最齐全的条形码库!包括Code128/Code93/Code39/EAN13等22种条形码
前言: 我是一名IT民工,热爱计算机 热爱软件.我从事.net平台开发也有几年了,专注c#.熟悉: ORM/RBAC/AOP/OO/持久层/数据流/工作流/信息流/企业系统开发/Excel等解密等. ...
- 22种代码味道(Martin Fowler与Kent Beck)
Martin Fowler在Refactoring: Improving the Design of Existing Code(中译名:<重构--改善既有代码的设计>)一书中与Kent ...
- 测试设计中需要考虑的22种测试类型
测试设计中需要考虑的22种测试类型 测试设计中需要考虑的22种测试类型 纪玉春 来自21CMM 黑盒测试:不基于内部设计和代码的任何知识,而是基于需求和功能性. 白盒测试:基于一个应用代码的内部逻辑知 ...
- 22种编程语言新年快乐
请允许我用22种编程语言,祝大家新年快乐 C语言:printf("祝大家新年快乐"); C++ : cout<<"祝大家新年快乐"; OC: NSL ...
最新文章
- 怎么把圆角变直角_明式圆角柜的还原(下)——信民木工DIY达人大赛作品
- spoj Test(hash)
- 视频直播技术详解(2)采集
- 如何利用 “集群流控” 保障微服务的稳定性?
- 10.python网络编程(socket server 实现并发 part 2)
- UBIFS - UBI File-System
- mac下svn常用命令
- mongo-关于仲裁节点
- 目标检测网络 -- FasterRCNN
- 初中计算机考试素材,初中信息技术素材.ppt
- ajax回调的data,。。。Ajax的回调函数function(data)中,data的返回类型。。。
- MWEC:一种基于多语义词向量的中文新词发现方法
- good website
- 中学生应该养成的良好习惯
- 一步一步构建手机WebApp开发——环境搭建
- k8s-最新版k8s安装(基于Centos)
- win10+wget
- CnOpenData中国高校专利授权数量统计
- 6S大气校正原理、实现方法
- 克鲁斯卡尔kruskal算法(Java)
热门文章
- 关于服务器上安装新版Python报错的问题
- SpringBoot/Spring Cloud/Docker
- u盘启动 联想一体机_联想一体机如何进入bios设置u盘启动_联想一体机设置U盘启动步骤...
- HDU6608 Fansblog
- 517编程 【初级班】 第八课 D. 结尾0的个数
- 网络工程设计教程系统集成方法第3版-第1章 网络工程设计概述
- SpringBoot中重试框架——Spring-retry与Guava-Retry
- matlab做机器人运动轨迹,matlab机器人工具箱学习笔记——机器人的运动轨迹
- 在win10系统安装linux系统,win10系统安装Linux子系统的操作方法
- 风场可视化:绘制粒子