有关于 closed 问题!

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

画四条直线,首尾相接,我用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

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

有关于 closed 问题!

发表回复

精选推荐