本帖最后由 lwf902 于2011-9-5 14:37 编辑
前段时间本人遇到过类似的问题,所以一直在寻求解决方案,有一天在一个网站上看到了下面的解决方法,现在对其进行扩充与更详细的操作,希望大家能够一起分享,谢谢支持。
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、出来的效果图如下