[求助]：建立面域出错！

mkhsj927

这是建立面域的过程，参数为m_plpt 用于给定闭合3DPolyline的顶点，为什么有时会在m_regionobj = ThisDrawing.ModelSpace.AddRegion(m_curve)
行出错，错误描述为：无效输入！可是经检查Set m_curve(0) = ThisDrawing.ModelSpace.Add3DPoly(m_plpt)这句生成的3dPolyline是正确的呀？到底哪错了？请斑竹帮帮忙看一下，谢谢！

Public Function m_test(m_plpt)
        Dim m_curve(0) As AcadObject    '组成面域的实体
    Dim m_regionobj As Variant   '面域实体组

    Err.Clear
        On Error Resume Next
        Set m_curve(0) = ThisDrawing.ModelSpace.Add3DPoly(m_plpt)
        m_regionobj = ThisDrawing.ModelSpace.AddRegion(m_curve)
        If Err Then
                ThisDrawing.Utility.Prompt vbCr & "Error: " & Err.Description
        End If
   
    m_curve(0).Delete

End Function

雪山飞狐(lzh)

RetVal = object.AddRegion(ObjectList)

Object

ModelSpace Collection, PaperSpace Collection, Block
The object or objects this method applies to.

ObjectList

Array of Objects
The array of objects forming the closed coplanar face to be made into a region. This array may contain the following object types: Line, Arc, Circle, Elliptical Arc, LightweightPolyline, Spline [/COLOR] .
RetVal

Variant
This method outputs an array of the newly created Region objects.

mkhsj927

懂了，就是Object 不能是3DPloyline，可是为什么大多数都能成功啊？

雪山飞狐(lzh)

面域是二维的，而3DPloyline是三维的，所以不能由3DPloyline创建
而Line, Arc, Circle, Elliptical Arc, LightweightPolyline, Spline 都是二维的（或都可以是二维的）

mkhsj927

三点确定一个平面嘛，我这里就是3个三维点形成的闭合三角形，应该在同一个平面上的！