Drawing a TRUE Involute spur Gear

[Admin 1]

Discuss and comment on <this> tutorial here.

[RandyN]

I44troll,

Thanks for the gear training tutorial. I'm slow finishing part-one but I wanted to take extra time for the concepts to sink in.

I do have a question about figure 14. In the paragraph it says

[i44troll]

Randy,

Once again thanks for participating in the tutorial!
I went ahead and edited the text to say

[RandyN]

I understand, Thanks Chris "i44troll".

Randy

[Admin 1]

Chris,

Is this an edit that should be done in the PDF that I didn't catch?

[i44troll]

Boss,

It's not too critical but if the pdf's can be edited easily it wouldn't hurt to update occasionally based on how others read and interpret the text.

[Brock]

Greetings Gents.

I have been reading this gear drawing thread, and am slightly confused as to the location of the Gear-Maker Macro.

I do have a couple of gears I want to draw, and want to try the macro. I am new to the cad drawing and wish to understand the process better.

Brock

[AlwMVMO]

I found my copies of Makegear.bas and Gears.bas Macro.
Just click on the attachments below.


  Gears.bas (Size: 3.43 KB / Downloads: 11)

  Makegear.bas (Size: 5.19 KB / Downloads: 10)

Move or Copy these files to your DeltaCad Macros folder then go to the Macro tab in DeltaCad to Run or Edit the Macros.

P.S.
I tried to add the Timer command in Gears.bas to slow down the animation but it kept crashing.
So I added another loop in the Delay subroutine.

Code:

Sub Delay
Dim d As Double
d = 0
For i = 1 To 20000
'add loop
For TT=1 to 10
   Cos(.707)
Next TT
'
d = d + 1
Next i
End Sub

[Brock]

Thankyou kindly for the quick response.

Brock

[Brock]

I have just tried the Makegear macro to do a single gear as per the example in the tutorial, only to find that it generates an error in line 95. I think it may be a divide by zero error.