懒人一号,好久没更新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