什么同样都是PL.DrawWidth = 1但是一个显示很细，一个显示很粗

[jusudan6052]

我是复制了上一段程序的，只是改了几个参数，为什么同样都是PL.DrawWidth = 1但是一个显示很细，一个显示很粗
Sub Draw_Ellipse(X, y, Angle, color) ' 此句是画椭圆的的程序
ChangeB(1, 1) = Cos(Angle): ChangeB(1, 2) = Sin(Angle): ChangeB(1, 3) = 0
ChangeB(2, 1) = -Sin(Angle): ChangeB(2, 2) = Cos(Angle): ChangeB(2, 3) = 0
ChangeB(3, 1) = -(X) * Cos(Angle) + y * Sin(Angle) + X
ChangeB(3, 2) = -(X) * Sin(Angle) - y * Cos(Angle) + y
ChangeB(3, 3) = 1
For i = 1 To 360
Ellipse(i, 1) = Xz(i) + X
Ellipse(i, 2) = Yz(i) + y '中间轮的另一种表达方式
Ellipse(i, 3) = 1
Next i
Call JZCF
PL.DrawWidth = 2
For k = 2 To 360
PL.Line (Ellipse(k - 1, 1), Ellipse(k - 1, 2))-(Ellipse(k, 1), Ellipse(k, 2)), color '相当于两点之间的连线
Next k
PL.DrawWidth = 2
PL.Line (Ellipse(360, 1), Ellipse(360, 2))-(Ellipse(1, 1), Ellipse(1, 2)), color '相当于连中间的十字线
PL.Line (Ellipse(37, 1), Ellipse(37, 2))-(Ellipse(1, 1), Ellipse(1, 2)), color 'RGB(255, 255, 0)
PL.Line (Ellipse(19, 1), Ellipse(19, 2))-(Ellipse(55, 1), Ellipse(55, 2)), color 'RGB(255, 255, 0)
End Sub


Sub Draw_Ellipse1(X, y, Angle, color) ' 此句是画中间锥齿轮的的程序
ChangeB(1, 1) = Cos(Angle): ChangeB(1, 2) = Sin(Angle): ChangeB(1, 3) = 0
ChangeB(2, 1) = -Sin(Angle): ChangeB(2, 2) = Cos(Angle): ChangeB(2, 3) = 0
ChangeB(3, 1) = -(X) * Cos(Angle) + y * Sin(Angle) + X
ChangeB(3, 2) = -(X) * Sin(Angle) - y * Cos(Angle) + y
ChangeB(3, 3) = 1
For i = 1 To 360
Ellipse1(i, 1) = 24 * Cos(i) + X
Ellipse1(i, 2) = 24 * Sin(i) + y '中间锥齿轮的另一种表达方式
Ellipse1(i, 3) = 1
Next i
Call JZCF1
PL.DrawWidth = 2
For k = 2 To 360
PL.Line (Ellipse1(k - 1, 1), Ellipse1(k - 1, 2))-(Ellipse1(k, 1), Ellipse1(k, 2)), color '相当于两点之间的连线
Next k
PL.DrawWidth = 2
PL.Line (Ellipse1(360, 1), Ellipse1(360, 2))-(Ellipse1(1, 1), Ellipse1(1, 2)), color '相当于连中间的十字线
End Sub

[舉杯邀明月]

你的“过程”：JZCF和JZCF1　做了些什么？ 如果“同为PL.DrawWidth = 1”，画出的线粗细不一样， 　　最大的可能就是“度量单位”不一样：　你改变了ScaleMode，以及“坐标值范围”等。