有关于 closed 问题!

myfreemind

画四条直线,首尾相接,我用pedit命令将其闭合，但其的closed属性为什么还是false呢？

mccad

我试过了，是闭合的。
我画了四条直线，首尾相连，然后用pedit命令并选择其中一条，将其变为多段线后，再使用J选项，把其它三条直线也合并到多段线中，我也没有使用C选项来闭合，但用以下程序可以看出线是闭合的了。

2. Sub isClose()
   
3.     Dim ent As AcadEntity
   
4.     Dim pnt As Variant
   
5.     ThisDrawing.Utility.GetEntity ent, pnt
   
6.     Dim cll As Boolean
   
7.     cll = ent.Closed
   
8.     If cll Then
   
9.         Debug.Print "线是闭合的"
   
10.     Else
    
11.         Debug.Print "线没有闭合"
    
12.     End If
    
13. End Sub
    

Sub isClose()<br />     Dim ent As AcadEntity<br />     Dim pnt As Variant<br />     ThisDrawing.Utility.GetEntity ent, pnt<br />     Dim cll As Boolean<br />     cll = ent.Closed<br />     If cll Then<br />         Debug.Print "线是闭合的"<br />     Else<br />         Debug.Print "线没有闭合"<br />     End If<br /> End Sub<br />

myfreemind

哦,那就太奇怪了!我再试试!多谢!