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

VB创建面域的问题,出错

dim BasePnt As Variant <BR>BasePnt = AcadApp.ActiveDocument.Utility.GetPoint(, vbCrLf + "请输入点：")


Dim curves(1) As AcadEntity


Set curves(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(BasePnt, 30, 0, 3.1415926)<BR>Set curves(1) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves(0).startpoint, curves(0).endpoint)<BR>'创建面域<BR>Dim regionobj As Variant<BR>Set regionobj = AcadApp.ActiveDocument.ModelSpace.AddRegion(curves)

efan2000 发表于 2005-6-7 19:58:00

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

xqyhome 发表于 2005-6-8 13:40:00

谢谢，但不起作用，
页: [1]
查看完整版本: VB创建面域的问题,出错