VB创建面域的问题,出错

xqyhome

dim BasePnt As Variant
BasePnt = AcadApp.ActiveDocument.Utility.GetPoint(, vbCrLf + "请输入点：") Dim curves(1) As AcadEntity Set curves(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(BasePnt, 30, 0, 3.1415926)
Set curves(1) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves(0).startpoint, curves(0).endpoint)
'创建面域
Dim regionobj As Variant
Set regionobj = AcadApp.ActiveDocument.ModelSpace.AddRegion(curves)

efan2000

Set regionobj=改成regionobj=，因为创建面域之后返回的是一个对象数组，而不是对象。

xqyhome

谢谢，但不起作用，