数字地面模型论文数字高程模型论文

《数字地面模型论文数字高程模型论文》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、数字地面模型论文数字高程模型论文：矿山数字地图信息自动提取研究　摘要：数字高程模型数据是建立数字地面模型的基础。实现数字地图地形信息的自动提取就是本文所要解决的问题。AUTOLISP是一种潜入AUTOCAD内部的LISP语言。通过AUTOLISP语言实现了从数字地图上提取离散点和等高线信息。随着网络技术的发展，设计、开发工作的数字化、异地也是必然的发展趋势，CAD软件二次开发工程的实现将更加灵活、有效。　　关键词：数字地面模型；数字高程模型；等高线；离散点　　0前言　　地理信息系统与机助制图技术的完善和发展，改变了人们对传统地图的定义和认识以及地图的生产工艺，同时也出现了崭新的地图形式—数字地

2、图。　　第四界全国地图学会议以来，许多地图制图单位和计算机行业联手，开发了多项制图软件。一部分能在屏幕显示和打印输出，一部分能与制版接口，实现地图制印的自动化。　　虽然如此，我国还处于起步阶段，也可以说我国的数字地图的应用规模并没有同各行业计算机应用的逐步普及同步发展。通过对某些测绘部门的调查发现，在利用解析制图仪完成地形制图后，绝大部分用户往往只索取地形等高线图，而对于同时产生的DTM都不屑一顾，其实，在实际工作中DTM可更有效地进行地形要素分析，还可进行三维立体显示和辅助航片自动转绘、纠正，等高线自动绘制等方面的运作。所以，这也是我国测绘及有关部门对数字地图应用还没有足够重视的体现。　　因

3、此，现在提供DEM数据已经成为各测绘部门的基本任务和日常工作之一。为了推动DEM的发展，本论文从DEM数据来源及数据质量要求，并结合AUTOLISP开发AUTOCAD技术，对自动提取矿山数字地图信息的实现进行了讨论和研究。　　1方法实现　　1.1获取离散点所在图层选择集ss1　　AutoLISP提供了一些用来操作选择集的函数。其中ssget函数提供了一个最通用的方法来生成一个选择集。它可以提示用户选择实体，并返回这个所选择的实体的集合。应用到该例子中，该数字地图的离散点共有两个层的：“8310”和“LSD”则可用一下语句来获取离散点的选择集：　　运行后可以很容易得到两个选择集：　　.“8310

4、”层的ss1=　　.“LSD”层的ss1=　　这两个选择集就是所需要的离散点的选择集。下一步的提取实体数据就以这两个选择集为基础。　　1.2获取选择集各实体的实体数据表　　函数sslength返回一个选择集中实体的数量，函数ssmemb测试某个制定的实体是否是一个选择集的成员。因此我们可以利用下面的语句获得选择集内各成员所对应的实体的实体名。　　(setqlst'())　　(setqn(sslengthss1))　　(setqin)　　(while(>=i1)　　(setqent(ssnamess1(-i1)))　　(setqi(-i1))　　(textpage)　　(setqlst(cons

5、entlst))　　)　　我们可以得出在“LSD”层选择集内各实体的实体名字。各实体的名字得到了，就可以依次得到各实体的实体数据表。　　各离散点数据表得到后，下一步就是从这些数据的项目中选取我们所需要的信息，即各点的三维坐标。这就涉及到从表中选择数据的问题。　　Assoc函数可以在一个表中查找某个制定类型的组，如果在这个表中没有提供指定的DXF组码（或者不是一个有效的DXF组），assoc函数会返回nil。　　1.3等高线信息提取　　等高线上的地形信息存储与离散点信息存储方式不同，导致了提取方法的相应改变。　　首先，同一条等高线上存储有许多高程点，因此首要的任务就是将这些高程点的信息都提取出来

6、。这需要在同一对象名作多次循环，直至找出所有的高程点。实现的代码段如下：　　(while(/=(setqentll(assoc'10entl))nil)　　(setqentll(assoc'10entl))　　(setqentl(subst'(0)entllentl))　　(setqentlll(cons(cdrentll)entlll))　　)　　但这样提取的高程点信息只是二维信息，因此地形信息并不完整。这就引发下列问题：　　同一等高线上的高程点的高程都等于该等高线的标高信息，即组码为38的属性信息。因此，应当将该标高加到每个高程点信息中去。具体实现如下：　　(setqentllll(lis

7、t(cdr(assoc'38entl))))　　(while(/=(setqentll(assoc'10entl))nil)　　(setqentll(assoc'10entl))　　(setqentl(subst'(0)entllentl))　　(setqentll(appendentllentllll))　　(setqentlll(cons(cdrentll)entlll))　　)　　这样就可提