Drawing a TRUE Involute spur Gear

Drawing a TRUE Involute spur Gear - Printable Version

+- DeltaCad User's Group Forums (http://www.deltacadusersgroup.org/Forums)
+-- Forum: Help Desk (http://www.deltacadusersgroup.org/Forums/forumdisplay.php?fid=16)
+--- Forum: Tutorial Comments (http://www.deltacadusersgroup.org/Forums/forumdisplay.php?fid=24)
+--- Thread: Drawing a TRUE Involute spur Gear (/showthread.php?tid=344)

Pages: 1 2

Drawing a TRUE Involute spur Gear - Admin 1 - 03-02-2011

Discuss and comment on <this> tutorial here.

RE: Drawing a TRUE Involute spur Gear - RandyN - 04-12-2011

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

RE: Drawing a TRUE Involute spur Gear - i44troll - 04-12-2011

Randy,

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

RE: Drawing a TRUE Involute spur Gear - RandyN - 04-12-2011

I understand, Thanks Chris "i44troll".

Randy

RE: Drawing a TRUE Involute spur Gear - Admin 1 - 04-15-2011

Chris,

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

RE: Drawing a TRUE Involute spur Gear - i44troll - 04-15-2011

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.

RE: Drawing a TRUE Involute spur Gear - Brock - 07-28-2017

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

RE: Drawing a TRUE Involute spur Gear - AlwMVMO - 07-28-2017

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

[attachment=570]
[attachment=569]

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

RE: Drawing a TRUE Involute spur Gear - Brock - 07-30-2017

Thankyou kindly for the quick response.

Brock

RE: Drawing a TRUE Involute spur Gear - Brock - 08-08-2017

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.