作者MAGICXX (逢甲阿法)
看板Geography
标题[问题] 关於GIS内的VBA...
时间Mon Apr 11 00:24:20 2011
唔 本来打算不要用VBA
现在情势所逼 需要用到了Orz
有几个问题想要问一下 看大大们能不能帮我解一下
1.我该如何在vba内呼叫idw程式?
现在就是 我在图层内已经有资料了
x y field1 field2
1 2 123 123
1 2 456 456
我想要用vba下去进行idw field1的处理
然後把结果输出在gis图层内(另外开个新的图层)
他的程式码应该怎麽写呢?
Dim pInterpolationOp As IInterpolationOp
Set pInterpolationOp = New RasterInterpolationOp
' Create the input point object
Dim pInputDataset As IGeoDataset
' Calls function to open the point dataset from disk
Set pInputDataset = OpenFeatureDataset("D:\SpatialData", "inputpoints")
^^^^^^^^^^^^^^^^^^
' Define the search radius
Dim pRadius As IRasterRadius
Set pRadius = New RasterRadius
pRadius.SetVariable 12
' Create the output dataset object
Dim pOutputDataset As IGeoDataset
' Calls the method
Set pOutputDataset = pInterpolationOp.IDW(pInputDataset, 3, pRadius)
我是有在support center内找到上面这段程式码
不过...在上面 OpenFeatureDataset 这边会说 我没有定义
而且我看是觉得它是从另外一个档案内叫出资料来处理的
跟我想要的不太一样Orz
2.text 的定义
因为我之後可能会采取由user输入资料 下去进行idw的动作
所以我现在想要知道 当user输入资料之後 要怎麽让我的idw下去抓到他并且处理?
因为真的是程式新手......(最多玩过fortran...囧)
有没有大大可以帮帮忙的~!?
--
不是说好不开灯吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.146.41
※ MAGICXX:转录至看板 Visual_Basic 04/11 16:58