自动闭合线分析和总结.docx

前段时间本人遇到过类似的问题，所以一直在寻求解决方案，有一天在一个网站上看到了下面的解决方法，现在对其进行扩充与更详细的操作，希望大家能够一起分享，谢谢支持。 1、这是原SHAPE 格式的待闭合的线 2、打开其属性表，选择Shape*这一列 3、选择需要闭合的曲线，如第一行，后右键选择field calculater 这一项 4、选择YES 5、添代码[attach]86577[/attach] 在上列框中选中advance 选项，然后添加以下代码dim pCur as IPolyCurve set pCur = [shape] dim pPnt as IPoint set pPnt=pCur.FromPoint pCur.ToPoint=pPnt pCur.Smooth(20) ///这个是平滑的功能，可选写dim pLine as IPolyline set pLine=pCur 选择运行 6、出来的效果图如下 可以看到图中的选择的未闭合线已自动闭合而且平滑过，若不想平滑，可看上面的第五步中的平滑功能，将其不写入。 7、若要对多条未闭合线进行自动闭合，可以改变第二步的操作，选中所有的项，如下 其他操作如上，再不复述。 上述方法我也只是试着做了一下，感觉还不错，但是具体情况具体分析，可能在不同的情况会出现不同的问题，希望大家能够将问题都提出来，让我们一起研究探讨，谢谢大家。 再说明一下，这个功能的实现是在ARCGIS9。2 版本下做的，若是9。3 版本，请按缘哥哥的方法试行，如下：