在ARCMAP中如何将线自动闭合

 本帖最后由 lwf902 于 2011-9-5 14:37 编辑

前段时间本人遇到过类似的问题，所以一直在寻求解决方案，有一天在一个网站上看到了下面的解决方法，现在对其进行扩充与更详细的操作，希望大家能够一起分享，谢谢支持。
1、这是原SHAPE格式的待闭合的线

2、打开其属性表，选择Shape*这一列

3、选择需要闭合的曲线，如第一行，后右键选择field calculater这一项

4、选择YES

5、添代码
[attach]86577[/attach]
在上列框中选中advance选项，然后添加以下代码

1. Dim pCur As IPolycurve
   
2. Set pCur = [Shape]
   
3. Dim pPnt As IPoint
   
4. Set pPnt = pCur.FromPoint
   
5. pCur.ToPoint = pPnt
   
6. pCur.Smooth (20)       '这个是平滑的功能，可选写
   
7. Dim pLine As IPolyline
   
8. Set pLine = pCur

复制代码

选择运行

6、出来的效果图如下

可以看到图中的选择的未闭合线已自动闭合而且平滑过，若不想平滑，可看上面的第五步中的平滑功能，将其不写入。
7、若要对多条未闭合线进行自动闭合，可以改变第二步的操作，选中所有的项，如下

其他操作如上，再不复述。
上述方法我也只是试着做了一下，感觉还不错，但是具体情况具体分析，可能在不同的情况会出现不同的问题，希望大家能够将问题都提出来，让我们一起研究探讨，谢谢大家。

再说明一下，这个功能的实现是在ARCGIS9。2版本下做的，若是9。3版本，请按缘哥哥的方法试行，如下：