zoukankan      html  css  js  c++  java
  • 高程处理(Tin)

    Sub 高程处理()

    Dim app As IApplication
    Set app = Application

    Dim pMxDocument As IMxDocument
    Set pMxDocument = Application.Document

    Dim pMap As IMap
    Set pMap = pMxDocument.FocusMap

    Dim pFeatureLayer As IFeatureLayer
    Set pFeatureLayer = pMap.Layer(0)

    Dim pTinLayer As ITinLayer
    Set pTinLayer = pMap.Layer(1)

    Dim pFuncSurf As IFunctionalSurface
    Set pFuncSurf = pTinLayer.Dataset

    Dim pFeatureCursor As IFeatureCursor
    Set pFeatureCursor = pFeatureLayer.FeatureClass.Search(Nothing, False)

    Dim pFeature As IFeature
    Set pFeature = pFeatureCursor.NextFeature

    Dim pPoint As IPoint
    Dim x As Double
    Dim y As Double
    Dim z As Double

    Dim index As Integer
    Dim pFields As IFields

    While Not pFeature Is Nothing

    Set pPoint = pFeature.ShapeCopy
    x = pPoint.x
    y = pPoint.y
    z = pFuncSurf.z(x, y)


    Set pFields = pFeature.Fields
    index = pFields.FindField("Elevation")

    pFeature.Value(index) = z
    pFeature.Store


    Set pFeature = pFeatureCursor.NextFeature
    Wend


    MsgBox "转化完成"
    End Sub

  • 相关阅读:
    UVa -- 401 Palindromes
    ffplay播放PCM裸流
    VLC2.2.4命令参数
    kurento搭建以及运行kurento-hello-world
    webrtp官方demo运行
    webrtc相关概念
    linux下面用Mingw编译libx264
    learning webrtc 使用node.js
    ffmpeg转码指南
    rtmpdump禁用openssl
  • 原文地址:https://www.cnblogs.com/zhangjun1130/p/1796566.html
Copyright © 2011-2022 走看看