Scene三维闪烁相关的一些代码 VB.docVIP

Scene三维闪烁相关的一些代码 下面是闪烁相关的几个函数  summary?? 闪烁scene中选中的feature?? /summary?? param name=pOwner图层/param?? param name=pObjectfeature/param?? param name=pSceneGraphScene中的场景/param?? remarks/remarks??Public Shared Sub FlashGeometry(ByVal pOwner As Object, ByVal pObject As IFeature, ByVal pSceneGraph As ISceneGraph)? ? If Not pObject Is Nothing Then? ?? ?闪烁代码, 有效果? ?? ?Dim pDisplay3D As IDisplay3D = pSceneGraph? ?? ?Dim pSR As ISpatialReference = pSceneGraph.Scene.SpatialReference? ?? ?pObject.Shape.SpatialReference = pSR? ?? ?pDisplay3D.FlashGeometry(pOwner, pObject.Shape)? ? End If??