摘要： Private Sub CommandButton1_Click()Dim pMxDoc As IMxDocumentSet pMxDoc = Application.DocumentDim pMap As IMapSet pMap = pMxDoc.FocusMapDim pActiveView As IActiveViewSet pActiveView = pMxDoc.FocusMapDim pFeatureClass As IFeatureClassDim pFLayer As IFeatureLayerSet pFLayer = pMap.Layer(0)Set pFeatureCl 阅读全文

摘要： 阅读全文