(09-10-2020, 02:52 PM)williamj Wrote: I did this some time ago, it's not a macro but maybe you can convert it to one.
[ Drawing a Sprocket Tutorial ]
P.S. from AlwMVMO
I added boxes around each page of Drawing a Sprocket Tutorial file.
And I made a PDF file from it.
I did this macro with your tutorial help and makegear.bas. Thanks.
It works but need draw two lines ant some trim. Copy rotate and it's done
Code:
Sub Main()
Begin Dialog SPROCKETDIALOG 50,47, 182, 74, "Sprocket Maker"
Text 4,10,65,12, "Number of Teetch"
TextBox 68,8,49,12, .IDD_Tn
Text 4,26,65,12, "Pitch of Chain"
TextBox 68,24,49,12, .IDD_P
Text 4,42,97,12, "Roler Diameter"
TextBox 68,40,49,12, .IDD_Rd
Text 4,58,97,12, "Roller Clearance"
TextBox 68,56,49,12, .IDD_Backlash
OKButton 136,15,37,12
CancelButton 136,40,37,12
End Dialog
Dim dlg As SprocketDialog
Dim ot As Long
dcSetDrawingScale 1.0
dcSetDrawingUnits dcMillimeters
dcSetLineParms dcBLACK, dcSOLID, dcNORMAL
dcSetCircleParms dcBLACK, dcSOLID, dcNORMAL
dlg.IDD_Tn = "18" 'Teetch number
dlg.IDD_P = "12.7" 'Pitch
dlg.IDD_Rd = "8.5" 'Roler circle
dlg.IDD_Backlash = "0.15"
Button = Dialog(dlg)
If Button = -1 Then
Sprock dlg.IDD_Tn,dlg.IDD_P,dlg.IDD_Rd,dlg.IDD_Backlash,0,0
dcViewAll
End If
End Sub
Sub Sprock(ByVal Tn As Double,ByVal P As Double,ByVal Rd As Double,ByVal BACKLASH As Double, ByVal cx As Double, ByVal cy As Double)
Pi=3.1415926535897932384626433832795028841971
Pr = ((P * Tn) / Pi) / 2 'Pitch Diameter
W=((Pr+(Rd*0.5))-(Pr+(Rd*0.25)))
dcSelectAll
dcEraseSelObjs
dcCreateLine 0, 0, 0, Pr+(Rd*0.5)
dcCreateCircle 0, 0, Pr 'Pitch Diameter
dcCreateCircle 0, 0, Pr+(Rd*0.25) 'Pitch Circumferen ce 25% of Roller Diameter
dcCreateCircle 0, Pr, (Rd+Backlash)/2 'Roler circle plus 0.15
dcCreateCircle 0, W/2+(Pr+(Rd*0.25)) ,W/2 'Little circleS
dcSelectObjInBox -1, Pr+(Rd*0.25), 1,W/2+(Pr+(Rd*0.25))
dcSetSelectBase 0, 0
dcRotateSelObjs 360/Tn/2
dcSetSelCopyMode True
dcRotateSelObjs (360/Tn/2)*(Tn-1)*2
dcUnSelectAll
dcCreateText -20, -5, 5, "Teeth="
dcCreateText -5, -5, 5, Tn
dcCreateText -20, -10, 5, "Pitch="
dcCreateText -7, -10, 5, P
dcCreateText -20, -15, 5, "Roller_D="
dcCreateText 1, -15, 5, Rd
End Sub