唔 本來打算不要用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