【正文】 dItem 39。 Use the GUID of the Save mand = {119591DB025511D28D20080009EE4E51} 39。 or you can use the ProgID 39。 = = 3 Set pCommandItem = (pUID) End Sub. 如何創(chuàng)建放大鏡(蟲眼)本例要實現(xiàn)的是如何創(chuàng)建放大鏡(蟲眼)，將所選區(qū)域放大一定的倍數(shù)。l 要點用戶通過定義IMapInset、IMapInsetWindow、IDataWindowFactory三個接口，運用它們的方法、屬性來創(chuàng)建放大鏡(蟲眼)。l 程序說明運用這個子程序生成了一個新的放大鏡窗口，在本例中將放大率設(shè)定為200%代替原來的400%。l 代碼Public Sub CreateMagnifierWindow() Dim pMapInset As IMapInset Dim pMapInsetWindow As IMapInsetWindow Dim pDataWindowFactory As IDataWindowFactory Set pDataWindowFactory = New MapInsetWindowFactory If (Application) Then Set pMapInsetWindow = (Application) Set pMapInset = 39。Set the zoom percent to 200% = 200 True End IfEnd Sub. GeoDataBase. 如何加載Shape文件本例實現(xiàn)的是在ArcMap中連接指定的Shape文件，并將其加載到當(dāng)前激活的Map中。l 要點通過FeatureLayer類實現(xiàn)IFeatureLayer接口對象。利用IWorkspaceFacktory接口、IFeatureWorkspace接口和IFeatureLayer接口實現(xiàn)連接Shape文件l 程序說明函數(shù)OpenShapeFile根據(jù)輸入的Shape文件路徑sFilePath，將文件名為sFileName的Shape文件連接到當(dāng)前激活的Map中去。l 代碼Private Sub OpenShapeFile(ByVal sFilePath As String, ByVal sFileName As String) Dim pWorkspaceFactory As IWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace Dim pFeatureLayer As IFeatureLayer Dim pMxDocument As IMxDocument Dim pMap As IMap Dim sDir As String On Error GoTo ErrorHandler: sDir = Dir(sFilePath amp。 \ amp。 sFileName amp。 .shp) If (sDir = ) Then sDir = Dir(sFilePath amp。 \ amp。 sFileName) If (sDir = ) Then MsgBox (文件不存在) Exit Sub End IfEnd If 39。Create a new ShapefileWorkspaceFactory object and open a shapefile folder Set pWorkspaceFactory = New ShapefileWorkspaceFactorySet pFeatureWorkspace = (sFilePath, 0) 39。Create a new FeatureLayer and assign a shapefile to it Set pFeatureLayer = New FeatureLayer Set = (sFileName) = 39。Add the FeatureLayer to the focus map Set pMxDocument = Set pMap = pFeatureLayer Exit SubErrorHandler: MsgBox End SubPrivate Sub UIButtonControl1_Click() Dim pVBProject As VBProjectOn Error GoTo ErrorHandler: Set pVBProject = OpenShapeFile amp。 \..\..\..\.. amp。 \data\, Continents Exit SubErrorHandler: MsgBox End Sub. 如何在ArcMap中加入Text和dBASE文件本例實現(xiàn)的是如何在當(dāng)前的ArcMap中加入Text文件和dBASE文件。l 要點首先為Text文件或dBASE文件創(chuàng)建一個與之對應(yīng)的ITable接口對象，然后通過IMap實例獲得IStandaloneTable接口對象和IStandaloneTableCollection接口對象，并設(shè)置其屬性。加入Text文件或dBASE文件的區(qū)別僅在于創(chuàng)建ITable對象時IWorkspaceFactory的類型不同，加入Text文件時是TextFileWorkspaceFactory類型，加入dBASE文件時是ShapefileWorkspaceFactory類型。主要用到了IWorkspaceFactory接口，IWorkspace接口，IFeatureWorkspace接口，ITable接口，IStandaloneTable接口和IStandaloneTableCollection接口。l 程序說明函數(shù)AddTextFile通過文件路徑sFilePath和文件名sFileName找到Text文件并為其創(chuàng)建ITable對象函數(shù)AddDBASEFile通過文件路徑sFilePath和文件名sFileName找到dBASE文件并為其創(chuàng)建ITable對象函數(shù)Add_Table_TOC將ITable對象pTable加入到當(dāng)前的ArcMap中。l 代碼Private Sub AddTextFile(ByVal sFilePath As String, ByVal sFileName As String) Dim pWorkspaceFactory As IWorkspaceFactory Dim pWorkspace As IWorkspace Dim pFeatureWorkspace As IFeatureWorkspace Dim pTable As ITable Dim sDir As String On Error GoTo ErrorHandler: sDir = Dir(sFilePath amp。 sFileName amp。 .txt) If (sDir = ) Then MsgBox (sFileName amp。 .txt amp。 文件不存在) Exit Sub End If 39。Get the ITable from the geodatabase Set pWorkspaceFactory = New TextFileWorkspaceFactory Set pWorkspace = (sFilePath, 0) Set pFeatureWorkspace = pWorkspace Set pTable = (sFileName amp。 .txt) 39。Add the table Add_Table_TOC pTable Exit SubErrorHandler: MsgBox End SubPrivate Sub AddDBASEFile(ByVal sFilePath As String, ByVal sFileName As String) Dim pWorkspaceFactory As IWorkspaceFactory Dim pWorkspace As IWorkspace Dim pFeatureWorkspace As IFeatureWorkspace Dim pTable As ITable On Error GoTo ErrorHandler: 39。Get the ITable from the geodatabase Set pWorkspaceFactory = New ShapefileWorkspaceFactory Set pWorkspace = (sFilePath, 0) Set pFeatureWorkspace = pWorkspace Set pTable = (sFileName) 39。Add the table Add_Table_TOC pTable Exit SubErrorHandler: MsgBox End SubPrivate Sub Add_Table_TOC(pTable As ITable) Dim pDoc As IMxDocument Dim pMap As IMap Dim pStandaloneTable As IStandaloneTable Dim pStandaloneTableC As IStandaloneTableCollection On Error GoTo ErrorHandler: Set pDoc = ThisDocument Set pMap = 39。Create a new standalone table and add it 39。to the collection of the focus map Set pStandaloneTable = New StandaloneTable Set = pTable Set pStandaloneTableC = pMap pStandaloneTable 39。Refresh the TOC Exit SubErrorHandler: MsgBox End SubPrivate Sub UIButtonControl1_Click() Dim pVBProject As VBProject On Error GoTo ErrorHandler: Set pVBProject = 39。Add text file to ArcMap. Dont include .txt extension AddTextFile amp。 \..\..\..\.. amp。 \data\, Continents 39。Add dBASE file to ArcMap AddDBASEFile amp。 \..\..\..\.. amp。 \data\, Continents Exit SubErrorHandler: MsgBox End Sub. 如何連接GeoDataBase文件本例實現(xiàn)的是連接一個GeoDataBase文件，并在ArcMap中加載該GeoDataBase文件的一個表。l 要點定義IWorkspaceFactory接口對象，使用AccessWorkspaceFactory類實現(xiàn)之。再創(chuàng)建IFeatureLayer接口對象。使用接口有：IWorkspaceFacktory接口、IFeatureWorkspace接口、IFeatureLayer接口和IMap接口。l 程序說明函數(shù)OpenGeoDataBaseFile根據(jù)輸入的GeoDataBase文件的路徑（帶文件名及后綴）sAllFileName連接GeoDataBase文件，再根據(jù)輸入的GeoDataBase文件中的某表表名sTableName加載該表到