Macro for Sprocket

[AlwMVMO]

I simpified this

Code:

'From >
If k=1 Then
dcSetDrawingUnits dcMillimeters
ElseIf k=2 Then
dcSetDrawingUnits dcInches
ElseIf k>2 Then
k=1
End If

'To this >

If k<>2 Then
   dcSetDrawingUnits dcMillimeters
   k=1
   kText$="MM"
Else
   dcSetDrawingUnits dcInches
   kText$="Inches"
End If

And change this line

Code:

'From >
dcSetTextParms dcRED, “Arial”, “Normalny”, 0,2,0, 0.1, 0

'To this >

If k=1 Then
  dcSetTextParms dcRED, “Arial”, “Normalny”, 0,2,0, 0.1, 0
Else
  dcSetTextParms dcRED, “Arial”, “Normalny”, 0,50,0, 0.1, 0
End If

And I added the Units setting to the text

Code:

'From this >
SprText$ = "Teeth=" + Str$(Tn) + NL$
  SprText$ = SprText$ + "Pitch=" + Str$(P) + NL$
  SprText$ = SprText$ + "Roller_D=" + Str$(Rd) + NL$
  SprText$ = SprText$ + "Pitch_D=" + Str$(Pr*2) + NL$
  SprText$ = SprText$ + "Max_D=" + Str$((Pr+(Rd*0.35))*2)

'To this >
SprText$ = "Teeth=" + Str$(Tn) + NL$
  SprText$ = SprText$ + "Pitch=" + Str$(P) + NL$
  SprText$ = SprText$ + "Roller_D=" + Str$(Rd) + NL$
  SprText$ = SprText$ + "Pitch_D=" + Str$(Pr*2) + NL$
  SprText$ = SprText$ + "Max_D=" + Str$((Pr+(Rd*0.35))*2)+ NL$
  SprText$ = SprText$ + "Units=" +kText$

The text was there, it was very small, needed to be 25 times larger for inches.