在ARCMAP中如何将线自动闭合

1、这是原SHAPE格式的待闭合的线

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

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

4、选择YES

5、添代码

在上列框中选中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、若要对多条未闭合线进行自动闭合，可以改变第二步的操作，选中所有的项