myfreemind 发表于 2003-7-19 00:30:00

有关于 closed 问题!

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

mccad 发表于 2003-7-19 07:08:00

我试过了，是闭合的。
我画了四条直线，首尾相连，然后用pedit命令并选择其中一条，将其变为多段线后，再使用J选项，把其它三条直线也合并到多段线中，我也没有使用C选项来闭合，但用以下程序可以看出线是闭合的了。
Sub isClose()
    Dim ent As AcadEntity
    Dim pnt As Variant
    ThisDrawing.Utility.GetEntity ent, pnt
    Dim cll As Boolean
    cll = ent.Closed
    If cll Then
      Debug.Print "线是闭合的"
    Else
      Debug.Print "线没有闭合"
    End If
End Sub

myfreemind 发表于 2003-7-19 21:18:00

哦,那就太奇怪了!我再试试!多谢!
页: [1]
查看完整版本: 有关于 closed 问题!