这个面域怎么不能创建

cangcang

   Dim curves1(0 To 3) As AcadEntity

 Set curves1(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint2, h / 2, -pi / 2, pi / 2)
    curves1(0).Rotate3D curves1(0).StartPoint, curves1(0).EndPoint, pi / 2
      
   
    Set curves1(1) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint3, h / 2, pi / 2, (pi * 3) / 2)
    curves1(1).Rotate3D curves1(1).StartPoint, curves1(1).EndPoint, -pi / 2
   
    Set curves1(2) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(0).EndPoint, curves1(1).StartPoint)
    Set curves1(3) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(1).EndPoint, curves1(0).StartPoint)
    ' Create the region
      
    Dim regionObj As Variant
    Dim regionObj1 As Variant
  
    regionObj1 = AcadApp.ActiveDocument.ModelSpace.AddRegion(curves1)

cangcang

出现的错误信息为，输入无效