What is PL. Same DrawWidth=1 but a display is very thin, very thick a display-CodePudding

I was copied on a program, just change a few parameters, why are all the same PL. DrawWidth=1 but a display is very fine, a display very thick
Sub Draw_Ellipse (X, y, Angle, color) 'this sentence is to draw the ellipse of program
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
The Ellipse (I, 1)=Xz (I) + X
The Ellipse (I, 2)=z (I) + y 'round another expression among
The Ellipse (I, 3)=1
Next I
Call JZCF
PL. DrawWidth=2
For k=2 To 360
PL. The Line (the Ellipse (k - 1, 1), the Ellipse (k - 1, 2)) - (the Ellipse (k, 1), the Ellipse (k, 2)), color 'connection between two points is equivalent to
Next k
PL. DrawWidth=2
PL. The Line (the Ellipse (360, 1), the Ellipse (2), 360) - (the Ellipse (1, 1), the Ellipse (1, 2)), color 'equivalent of the middle of the graticule
PL. The Line (the Ellipse (37, 1), the Ellipse (37, 2)) - (the Ellipse (1, 1), the Ellipse (1, 2)), color 'RGB (255, 255, 0)
PL. The Line (the Ellipse (19, 1), the Ellipse (19, 2)) - (the Ellipse (55, 1), the Ellipse (55, 2)), color 'RGB (255, 255, 0)
End Sub

Sub Draw_Ellipse1 (X, y, Angle, color) 'this sentence is to draw the bevel gear in the middle of the program of
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
24 * Cos Ellipse1 (I, 1)=(I) + X
Ellipse1 (I, 2)=24 * Sin (I) + y 'middle another expression of bevel gear
Ellipse1 (I, 3)=1
Next I
Call JZCF1
PL. DrawWidth=2
For k=2 To 360
PL. The Line (Ellipse1 (k - 1, 1), Ellipse1 (k - 1, 2)) - (Ellipse1 (k, 1), Ellipse1 (k, 2)), color 'is equal to the connection between two points
Next k
PL. DrawWidth=2
PL. The Line (Ellipse1 (360, 1), Ellipse1 (2), 360) - (Ellipse1 (1, 1), Ellipse1 (1, 2)), color 'equivalent of the middle of the graticule
End Sub

CodePudding user response:

JZCF and JZCF1 "process" : what do you do?
If "as PL. DrawWidth=1", draw a line of thickness is different,
Most likely is the "unit of measure" is not the same: you changed your ScaleMode, and "coordinate values range",