BuildFreeform画圆有些问题

dongdonggege

各位老师好，向各位请教：

我用BuildFreeform画圆，画的挺圆的，给圆填充颜色发现问题，圆内出现一条线。怎么去掉这条线？是不是起点左边有问题？
我的程序如下：

1. Sub 画圆()
   
2.     Dim x(0 To 500)
   
3.     Dim y(0 To 500)
   
4.     With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, 600, 270)
   
5.         pi = 180: r = 60
   
6.         For i = 0 To 2 * pi Step 0.5
   
7.             x(i) = r * Cos(i)
   
8.             y(i) = r * Sin(i)
   
9.             
   
10.             .AddNodes msoSegmentLine, msoEditingAuto, 600 + x(i), 270 + y(i)
    
11.         Next
    
12.         .ConvertToShape.Select
    
13.         Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
14.         Selection.ShapeRange.Line.DashStyle = msoLineSolid
    
15.         Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 255)
    
16.         Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    
17.     End With
    
18. End Sub

复制代码

请各位帮忙修改，谢谢。

dongdonggege

哪位老师对BuildFreeform绘制图形有经验？

dongdonggege

为什么到现在审核都没通过？

batmanbbs

圆的第一个点的位置并不在圆弧上（应该是圆心）。另外，最后可能会造成无法填充圆的内部颜色，因为这个圆其实是由一节一节的线段组成的，并不是一个完整的圆。
PS：为啥不使用形状中的圆？

batmanbbs

dongdonggege

batmanbbs 发表于 2024-1-9 11:49

我按照你的程序画，wps里面什么也没有啊。

batmanbbs

dongdonggege 发表于 2024-1-9 12:46
我按照你的程序画，wps里面什么也没有啊。

没有问题啊

dongdonggege

batmanbbs 发表于 2024-1-9 13:49
没有问题啊

不知道是不是设置问题，谢谢帮忙。

lss001

x坐的起始点计算问题！

lss001

dongdonggege 发表于 2024-1-9 13:56
不知道是不是设置问题，谢谢帮忙。

x坐标<起始点>计算有误，
因为画圆不是从圆心开始，
而是从圆周上的某个顶点开始

应把→x(i) = r * Cos(i)
改为→ x(i) = r * Cos(i) - r
或改→x(i) = r * Cos(i) + r