图案填充小问题

dongfang_t

对含有圆弧和几条线段首尾相接的区域进行填充,有下面语句:

Set outerLoop1(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
Set outerLoop1(1) = ThisDrawing.ModelSpace.AddLightWeightPolyline(outerLoop1(0).endpoint, ptArr1, outerLoop1(0).startpoint)

运行时出错, 有没有别的方法代替AddLightWeightPolyline, 使多个点相连形成区域?

dongfang_t

进行一下修改,用addLine

Set outerLoop1(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
Set outerLoop1(1) = ThisDrawing.ModelSpace.AddLine(outerLoop1(0).endpoint, ptArr11)
Set outerLoop1(2) = ThisDrawing.ModelSpace.AddLine(ptArr11, ptArr12)

Set outerLoop1(3) = ThisDrawing.ModelSpace.AddLine(ptArr12, outerLoop1(0).startpoint)

还是画不出来剖面线, 是怎么回事?

dongfang_t

哪位仁兄帮帮忙,谢谢了!