作者：crystalhsj
发表时间：2007-11-11 14:45:53

帮忙改一下，是不是少写什么东西了

 Dim pLayer As IfeatureLayer
   Dim pMap As IMap
   Dim pActiveview As IActiveView
                                    
   Dim pdoc As IMxDocument
   Set pdoc = ThisDocument
   Set pMap = pdoc.FocusMap
   Set pActiveview = pdoc.ActiveView
   Set pLayer = pMap.Layer(0)

dim pfeatureclass as ifeatureclass

set pfeatureclass=player.featureclass
     Dim pGeoDataset As IGeoDataset
   Set pGeoDataset = pfeatureclass
   Dim pGeoDatasetEdit As IGeoDatasetSchemaEdit
   Set pGeoDatasetEdit = pGeoDataset
   If (pGeoDatasetEdit.CanAlterSpatialReference = True) Then

         Dim tlayer As IFeatureLayer
         Set tlayer = pMap.Layer(1)
         Dim tGeodataset As IGeoDataset
         Dim pSpatialReference As ISpatialReference
         Set tGeodataset = tlayer
         Set pSpatialReference = tGeodataset.SpatialReference
         MsgBox pSpatialReference.name

      pGeoDatasetEdit.AlterSpatialReference (pSpatialReference)
   End If
    pActiveview.Refresh