GIS与公共安全课件

1、北京市主要公共场所应急设备空间位置分布合理性分析（CAD绘图） 文无第一武无第二GIS 在公共安全中的应用 危险评估和规划（ Risk Assessment and Planning ） ： 分析、存储恐怖袭击事件，紧急突发事件，灾难事故以及对生命、财产、环境有潜在危险的因素可能性的必要工作。这包括做出危险评估，发生的可能性，以及做出缓解灾情，预防，快速反映，恢复重建的正确决策和有效措施。 灾情缓解 (Mitigation) ： 降低和消除灾难发生可能性的工作。如：提高航线安全以避免恐怖袭击，以立法的方式要求地震多发区的建筑严格编号等。还包括为降低不可避免的灾害所进行的长期的工作，如：更完善的

2、防恐怖袭击体系，环境检测，应急物资的储备和规划等。 快速反应 (Response) ： 恐怖袭击，紧急事件和灾难发生后的应急反应和紧急救援工作。主要是为受难者提供救援服务。如：搜寻和营救，避难，医疗供应，食物供给。此阶段的工作还包括快速稳定社会局势以及避免再次遭到重大损失等。如：封锁污染水源，进行区域警戒以防止事态蔓延，避免趁火打劫等。快速恢复工作在这里也是必要的，如：损失评估等。 恢复重建 (Recovery) ：当对人身安全，财产以及基础设施的威胁消失时，恢复重建的工作将随即开始。这一工作分两步进行：短期恢复和长期恢复。 短期恢复：短期恢复主要恢复必须的服务和系统。包括为无家可归的市民提供

3、临时避难所，食物和水。这意味着保证受伤者得到医治，恢复电力供应和通信系统等。事故的后果是持续的，但基本的服务和生命攸关的必需品将被恢复。 GIS 在此阶段的工作扮演极其重要的角色。最重要的一项就是损失评估。 GIS 与 GPS 的结合可以快速定位每一个受损设施，标出其具体受损程度和数量，并帮助建立采取措施的优先次序。 通过不同方式，利用膝上型计算机或掌上电脑可以在野外更新中心数据库的数据。与中心数据库连接的 GIS 系统将对损失做出准确的评估。紧急疏散中心根据地区受损和人口分布等情况进行避难所配给。 GIS 还可以显示紧急避难所的数量和具体位置。 利用 GIS 显示已经恢复基本服务的区域，从而

4、把恢复工作的重点放在最急需的地方。为特定地区制定的恢复计划还可以很快地图文并茂地打印出来。避难处还可以更新数据库，使指挥部可以为所有避难处制定供给措施。立即恢复工作可以可视地直观显示出来并随时更新，直到短期恢复阶段的工作完成。重要决策者可以远程访问和浏览这些可视信息。这一点对于处理在大范围、多个地方发生的紧急事件和重大灾难是至关重要的。GIS简介什么是GIS？简单的说，GIS地理信息系统（Geographic Information System,简称GIS）将描述位置（地方）的层信息结合在一起，通过这些信息可以使你更好地认识这个位置（地方）。你可以按照需要选择运用哪些层信息，比如找一个更好的

5、地段设立店铺、分析环境危害、通过综合城市中相同的犯罪，发现犯罪类型等等。 建立一个 GIS 系统你需要哪些？一个完整的GIS和地理信息系统，包括： 硬件（计算机和外设） 软件 (链接到“GIS 软件”) 数据 （链接到“数据”） 人 培训GIS产品有哪些？面向社会公众的桌面GIS，以它的简单通用占领市场，随着WEBGIS的发展其网络化趋向十分明显。主流产品包括:Mapinfo公司的 Mapinfo Professional ；ESRI公司的 Arcview；Intergraph公司的 GeoMedia。GIS可以做什么？管理海量数据GIS可以做什么？浏览查询GIS可以做什么？路径分析GIS可以

6、做什么？动态分段GIS可以做什么？生成数字地面模型GIS可以做什么？三维地下体分析国外GIS产品ESRI 公司和Arc/info系列1）ESRI 公司ESRI（Environment System Research Institute)美国环境系统研究所，创建1982年， 1000人；80年代进入中国，在国内最有影响的国外GIS开发商；产品已成为GIS主流。2）Arc/info系列产品Arc/info UNIX、Arc/info PC；Arcview GIS；ArcGIS 8.x (产品系列）2001年9月起推出8.1， 8.3 包括：ArcGIS Disktop（ 含Arc/info 8.1

7、、 ArcEditor8.1、 Arcview 8.1及扩展模块如 ArcGIS Spatial Analyst, ArcGIS 3D Analyst, ArcGIS Geoststistical Analyst等）；ArcSDE空间数据管理引擎（数据管理的接口）；ArcIMS基于Internet的数据发布和应用产品。ProjectTheme(layer)二次开发语言 早期Arc/info的AML语言、 Arcview的AVENUE语言； 目前有Mapobject、Arcobject组件开发。支持的数据库Oracle , INFO 、Informix , Sybase , Foxbase 等文

8、件格式 Arc/info coverage ; Arcview shap; 外部交换格式 E00; ArcGIS 8.x GeodatabaseVb几分钟链接mapobject;/old/index.htm Arcview矢量层数据文件. shp 无拓朴关系几何数据.shx 图形要素的几何数据索引.dbf 属性数据.sbn 空间索引.sbx 空间索引.ain 属性索引.aib 属性索引执行表格连接等操作后生成执行空间连接等操作后生成33GIS和AutoCAD有多远？在信息化高度发达的现代社会，人们规划、管理、决策、事物处理及信息咨询的内容常常必须与周围的地理环境和地理位置相联系，就像人们经常使

9、用的地图或图纸，不仅要能表达事件发生的结果和过程，还要表达时间发生的地点、周围环境以及其他事物之间的空间相互关系等，这就产生了地理信息系统（Geographic Information System,简称GIS）。GIS从产生到现在，已经被各个行业所广泛采用。特别是民航领域的机场应急救援方面，由于时间和空间信息量大，应急决策复杂的情况下，机场建立自己的GIS就势在必行。电子地图的绘制是构建机场GIS的关键。现在，GIS作为一个成熟的产业，世界各国已经设计出大量的地理信息系统，常用的GIS软件达400多种。他们彼此有自己的电子地图格式，如：ESRI研究所的Mapobjects支持SHP的格式，M

10、apInfo公司的MapX支持的MapInfo格式等等。笔者在帮助某机场构建GIS时发现，该机场的原有地理信息资料大部分是AutoCAD图纸，而且该机场的工作人员对AutoCAD也是相当的熟悉。那么能不能利用现有的资源结合AutoCAD而开发出一套针对企业人员使用的GIS系统呢？经研究发现，利用AutoCAD提供的ActiveX Automation 技术结合数据库以及VBA技术，能够较快较好的实现上述。ActiveX技术来源于OLE技术。OLE最初是对象链接与嵌入，后来发展成为复合文档技术，包括文字、图片、声音、动画片和视频等媒体可以共同存在一个文档中。AutoCAD从R14开始提供Acti

11、veX Automation 技术。由于本程序是使用VB6.0进行开发调试的，所以为了在VB6.0中使用 AutoCAD的Automation对象，必须在VB6.0中引用该对象类型库acad.tlb，其方法是：选择 VB6.0的“工程引用”菜单，在“可使用的引用(A)”中选择“AutoCAD Object Library”。AutoCAD R14的所有对象组成一个层状结构。我们使用到的对象有Application对象、Document对象、图象对象、非图象对象和Utility及对象集合等。其中Application对象是最高层对象，而图象对象也被称为实体，是图象的可见对象，包括Lines（线段

12、）、Arcs（圆弧）、Polylines（多义线）等。详细的使用请查阅相关的资料，基本的用法是在VB的通用窗口中添加如下代码：Public acadApp As ObjectAutoCAD的application对象Public acadDoc As ObjectAutoCAD的document对象Public moSpace As ObjectModelSpace模型空间对象集合Public paSpace As ObjectPaperSpace图纸空间对象集合主函数main的使用如下：Sub main()Set fMainForm = New frmMain On Error Resume

13、 Next Set acadApp = GetObject(, AutoCAD.Application) If Err Then Err.Clear Set acadApp = CreateObject(AutoCAD.Application) If Err Then MsgBox Err.Description Exit Sub End If End If Set acadDoc = acadApp.ActiveDocument Set moSpace = acadDoc.ModelSpace Set paSpace = acadDoc.PaperSpace acadApp.Visible

14、= acTrue fMainForm.Show End sub图形对象的使用一个例子如下：Private Sub drawDbline_Click() Dim acadutil As Object Set acadutil = acadDoc.Utility Dim stpt, enpt As Variant Dim prompt1, prompt2 As String prompt1 = NL & 起点 prompt2 = NL & 终点 stpt = acadutil.GetPoint(, prompt1) 使用无参考点的getpoint函数 enpt = acadutil.GetPoint(stpt, prompt2) 使用第一点作为参考点 Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2