cangcang 发表于 2005-12-4 14:34:00

这个面域怎么不能创建

<P>&nbsp;&nbsp; Dim curves1(0 To 3) As AcadEntity</P>
<P>&nbsp;Set curves1(0) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint2, h / 2, -pi / 2, pi / 2)<BR>&nbsp;&nbsp;&nbsp; curves1(0).Rotate3D curves1(0).StartPoint, curves1(0).EndPoint, pi / 2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Set curves1(1) = AcadApp.ActiveDocument.ModelSpace.AddArc(basePoint3, h / 2, pi / 2, (pi * 3) / 2)<BR>&nbsp;&nbsp;&nbsp; curves1(1).Rotate3D curves1(1).StartPoint, curves1(1).EndPoint, -pi / 2<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Set curves1(2) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(0).EndPoint, curves1(1).StartPoint)<BR>&nbsp;&nbsp;&nbsp; Set curves1(3) = AcadApp.ActiveDocument.ModelSpace.AddLine(curves1(1).EndPoint, curves1(0).StartPoint)<BR>&nbsp;&nbsp;&nbsp; ' Create the region<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Dim regionObj As Variant<BR>&nbsp;&nbsp;&nbsp; Dim regionObj1 As Variant<BR>&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; <FONT color=#dd4822>regionObj1 = AcadApp.ActiveDocument.ModelSpace.AddRegion(curves1)</FONT></P>

cangcang 发表于 2005-12-4 14:38:00

出现的错误信息为，输入无效
页: [1]
查看完整版本: 这个面域怎么不能创建