VB创建面域的问题,出错

xqyhome · 发表于 2005-6-7 13:59:00

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)