createRaster -- 根据例子修改（arcgis VBA）

createRaster -- 根据例子修改（VBA）

                                      

 

Sub yuxiCreateRaster()
    Dim sDir As String, sFile As String
    sDir = "c:/temp"
    sFile = "yuxi" & Format(Now(), "hhmmss") & Int(10000 * Rnd)
    Dim strFormat As String
    strFormat = "GRID"
    Dim pPoint As IPoint
    Set pPoint = New Point
    pPoint.PutCoords 0, 0
    Dim WW As Long, HH As Long
    Dim WC As Double, HC As Double
    Dim BC As Long
    WW = 128
    HH = 128
    WC = 1
    HC = 1
    BC = 1
    Dim pixType As rstPixelType
    pixType = PT_UCHAR
    Dim pSR As ISpatialReference
    Set pSR = New UnknownCoordinateSystem
    '--------------------------------------
    Debug.Print "start time=" & Now()
    Dim pWs As I