09-07-2020, 06:15 PM (This post was last modified: 09-08-2020, 07:24 AM by AlwMVMO.)
In the original DeltaCad Version 8 installation there are two Macros called Gears.bas and Makegear.bas
Check your DeltaCad / MACROS folder.
If you do not have them, then download them here:
[ Gears.bas ]
[ Makegear.bas ]
Also in the DeltaCad User's Group website there is a tutorial to draw gears >> [ Gear Tutorial ]
The tutorial talks about the Gear Maker Macro.
If you put 0 (zero) teeth in the first gear and put the number of teeth you want in the 2nd gear, you will get an error message but you will still get a gear.
If you put a number in the first gear and zero on the second gear you will not get any gears.
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
09-28-2020, 05:20 PM (This post was last modified: 09-28-2020, 05:25 PM by williamj.)
Works pretty well.
I added connecting lines between the large and two smaller circles at the top, cropped the circles, shortened the circle arc lines, and copy/pasted around the midpoint 360/18 times.