第一个vba 程序

arc ojbects VBA 学习

打开ArcMap应用程序，选择TOOLS菜单下的MACROS子菜单，打开其中的VBA环境。选择Project工程下的Ar cMap Object ,双击打开其中的ThisDocument对象，在右边的编辑环境中选择对象列表中的MxDocument对象，在任务列表中选 择OpenDocumen，然后键入以下的代码：
//Private Function MxDocument_OpenDocument() As Boolean
Dim pmap As IMap
Set pmap = New Map
pmap.Name = "Hello,world"
MsgBox pmap.Name
//End Function
    然后按CTRL+S保存后退出ArcMap。当你再次打开你所保存的工程文档时看到了什么？呵呵呵，不知道ESRI的设计人员看 到这样的一个SAMPLE会不会晕掉。