摘要： 代码 阅读全文

摘要： 代码 阅读全文

摘要： 原文地址：http://blog.163.com/zhug_1970/blog/static/4298305320105109381862/以下代码可以实现....Public Sub ConvertPointToPolygon()On Error GoTo errorHander Set pMxDoc = ThisDocument Set pMap = pMxDoc.FocusMap Set pActiveView = pMap Set pFeatureLayer = pMap.Layer(0) Set pFeatureClass = pFeatureLayer.FeatureClass ' 阅读全文