ArcOjects 3D开发方法简介

您的位置:

ArcOjects 3D开发方法简介

2008-02-26 GPS之家来源:中国GIS资讯网作者：

一、ArcOjects 3D开发方法简介

众所周知，在ArcGIS 3D分析扩展模块中提供了丰富的三维可视化和分析功能：你可以通过不同的视角查看表面数据，对表面数据进行查询，以及对表面数据进行坡度、坡向、视域分析等操作，进行三维动画模拟等等。其中所涉及的3D对象都是ArcObjects的一部分，针对3D的开发，实际上是ArcObjects的开发，所以具体的开发方法有：

基于ArcScene中内嵌的VBA开发；

通过VB、VC＋＋等兼容COM的开发语言进行开发新的3D组件和功能。

二、基本的3D对象模型

按此在新窗口浏览图片

在3D开发中，我们可以用ArcMap对应ArcScene，其中MxDocument对象对应SxDocument对象，Map对象对应着Scene对象，而相对于Display显示对象，在ArcScene中有SceneGraph对象。在对象模型图的顶部是Application对象，从它我们可以执行和应用相关的任务，比如打开文档或者访问和应用相关的其它对象。在VBA中，我们可以直接获得Application对象：

Dim pApp as IApplicaiton

Set pApp = Application

如果你在VB DLL中实现命令和工具，那么在具体实例化这个类时你可以获得和Application对象挂接的钩子（hook）：

Implements ICommand

Private m_pApp as esriCore.Iapplication

Private Sub ICommand_OnCreate(ByVal Hook As Object)

Set m_pApp = Hook

…

End Sub

有了Application对象，你就可以访问它所包含的其它所有对象了。比如可以获得SxDocument对象，而它包含一个Scene对象，Scene对应的SceneGraph对象包含了一个或多个SceneViewer对象，每个SceneViewer对象中有一个Camera对象，它代表了观察点的特性。在Scene对象中可以访问Layer对象和GraphicsLayer3D对象，这两个对象都包含着一个3DProperties对象，用来控制图层中有关三维方面的特性。具体有关对象的特性可以参考联机帮助中对象上提供的接口所属的方法和属性。

　

三、3D几何模型和定制对象介绍
3D模型可以包括两种：矢量模型和表面模型，表面模型包括TIN和Raster，有关表面模型的创建、数据结构访问和分析在本文中不做介绍。在此只介绍三维矢量模型的生成和访问等。3D矢量模型包括所有含有Z值的几何对象：点、线、面，以及MultiPatch（多片）。其中多片又可以分为：三角条带（Triangle Strip）、三角扇（Triangle Fan）和环（Ring）。

按此在新窗口浏览图片

在ArcScene中可以通过二维的点、线、面数据来构建三维模型，通过ArcScene中提供的拉伸功能可以将点要素构建成垂直的线，线要素构建成墙，而多边形要素构建成块，拉伸的值的大小可以是一定常数，也可以是通过要素属性字段中的值计算得出，或者通过数据自身记录的Z值。在ArcObjects中可以通过在Geometry几何对象构建过程中，任意点除了X、Y坐标值，指定坐标Z值来构建三维点、线和面对象；对于多片，则通过构建相应的Multipatch对象，并指定每一个顶点的X、Y和Z值。下面的代码描述了如何由多片来构建一个房子对象，它的房顶由三角扇构建，没有窗户的墙由三角条带构建，带窗户的墙由环构建。

Dim pMultiPatch As esriCore.IMultiPatch

Set pMultiPatch = New MultiPatch

Dim pGeoCol As esriCore.IGeometryCollection

Set pGeoCol = pMultiPatch

Dim pPoints As esriCore.IPointCollection

Dim pPoint As IPoint

‘创建屋顶

Set pPoints = New esriCore.TriangleFan

Set pPoint = New Point

pPoint.PutCoords 5, 4

pPoint.Z = 10

pPoints.AddPoint pPoint

Set pPoint = New Point

pPoint.PutCoords 0, 0

pPoint.Z = 5

pPoints.AddPoint pPoint

‘屋顶的其它顶点:

. . . (10, 0, 5); (10, 8, 5); ( 0, 8, 5); ( 0, 0, 5)

‘将扇加到MultiPatch

pGeoCol.AddGeometry pPoints

‘为没有窗户的墙创建条带

Set pPoints = New esriCore.TriangleStrip

‘添加条带顶点:

. . . (10, 0, 5); (10, 0, 0); (10, 8, 5)

. . . (10, 8, 0); ( 0, 8, 5); ( 0, 8, 0)

. . . ( 0, 0, 5); ( 0, 0, 0)

‘将条带添加到MultiPatch

pGeoCol.AddGeometry pPoints

‘为前面的墙创建外环

Set pPoints = New esriCore.Ring

‘添加外环顶点:

. . . (10, 0, 5); (10, 0, 0); (10, 8, 5)

. . . (10, 8, 0); ( 0, 8, 5); ( 0, 8, 0)

. . . ( 0, 0, 5); ( 0, 0, 0)

　

‘将外环添加到MultiPatch

pGeoCol.AddGeometry pPoints

pMultiPatch.PutRingType pPoints, esriMultiPatchOuterRing

‘为前面的墙创建内环

Set pPoints = New esriCore.Ring

‘添加内环顶点:

. . .(1, 0, 2);(3, 0, 2);(3, 0, 4);(1, 0, 4);(1, 0, 2)

pGeoCol.AddGeometry pPoints

pMultiPatch.PutRingType pPoints, esriMultiPatchInnerRing

　

Set pPoints = New esriCore.Ring

‘添加内环顶点:

. . .(7, 0, 2);(9, 0, 2);(9, 0, 4);(7, 0, 4);(7, 0, 2)

pGeoCol.AddGeometry pPoints

pMultiPatch.PutRingType pPoints, esriMultiPatchInnerRing
责任编辑:伍龙飞

共2页: 上一页 1 [2] 下一页上一篇：探讨在3G中实现LBS的定位技术和GIS系统下一篇：奥运智能交通使者宇达电通C320t