dongfang_t 发表于 2006-9-4 17:10:00

图案填充小问题

<P>对含有圆弧和几条线段首尾相接的区域进行填充,有下面语句:</P>
<P>Set outerLoop1(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)<BR>Set outerLoop1(1) = ThisDrawing.ModelSpace.AddLightWeightPolyline(outerLoop1(0).endpoint, ptArr1, outerLoop1(0).startpoint)</P>
<P>运行时出错, 有没有别的方法代替AddLightWeightPolyline, 使多个点相连形成区域?</P>

dongfang_t 发表于 2006-9-5 09:20:00

<P>进行一下修改,用addLine</P>
<P>Set outerLoop1(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)<BR>Set outerLoop1(1) = ThisDrawing.ModelSpace.AddLine(outerLoop1(0).endpoint, ptArr11)<BR>Set outerLoop1(2) = ThisDrawing.ModelSpace.AddLine(ptArr11, ptArr12)</P>
<P>Set outerLoop1(3) = ThisDrawing.ModelSpace.AddLine(ptArr12, outerLoop1(0).startpoint)</P>
<P>还是画不出来剖面线, 是怎么回事? </P>

dongfang_t 发表于 2006-9-7 15:20:00

哪位仁兄帮帮忙,谢谢了!
页: [1]
查看完整版本: 图案填充小问题