arcgis 导出指定范围的地形图

                                      

 

懒人一号，好久没更新gis的心得了，按照惯例，在心得里还是放一些小程序（我这人懒得讲系统构成、接口关系、设计模式这些大道理了，这些大道理牛人们多的是，比我讲的好多了，我还是时不时放一些短小实用的小例子吧，以面向新手和实用为主）

 

---------------------例子如下-----------------------

Sub outputMapBlock()
    If (MsgBox("是否开始导出图片，按指定范围？", vbYesNo) = vbNo) Then Exit Sub
   
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Dim pActiveView As IActiveView
    Set pActiveView = pMxDoc.ActiveView

    Dim pExport As IExport
    Set pExport = New ExportJPEG
    pExport.ExportFileName = "C:/Test0.jpg"
    pExport.Resolution = 300
   
    Dim exportRECT As tagRECT
    With exportRECT
        .Left = 100
        .Right = 600
        .Top = 100
        .bottom = 600
    End With
'    e