摘要： Sub LU()Dim app As IApplicationSet app = ApplicationDim pMxDocument As IMxDocumentSet pMxDocument = Application.DocumentDim pMap As IMapSet pMap = pMxDocument.FocusMapDim pFeatureLayerZone As IFeatureLayerSet pFeatureLayerZone = pMap.Layer(0) '第一个图层是zoneDim pFeatureLayerLU As IFeatureLayerSet pF 阅读全文