gld
Member
This gear script will not since I've updated the the latest Alibre update. It has worked good previously.
Code:
# Gear Generator Script
# Used as a demonstration of how to create a custom utility
# for use with Alibre Design
Units.Current = UnitTypes.inch
# default settings
NumberofTeeth = 20
PitchDiameter = 0.417
PressureAngle = 14.5
Thickness = 0.125
Win = Windows()
ScriptName = 'Gear Generator'
# create dialog window and show to user
Options = []
Options.append([None, WindowsInputTypes.Image, 'GearGenerator.png', 170])
Options.append(['Number of Teeth', WindowsInputTypes.Integer, NumberofTeeth])
Options.append(['Pitch Diameter (inch)', WindowsInputTypes.Real, PitchDiameter])
Options.append(['Pressure Angle', WindowsInputTypes.Real, PressureAngle])
Options.append(['Thickness (inch)', WindowsInputTypes.Real, Thickness])
Values = Win.OptionsDialog(ScriptName, Options, 170)
if Values == None:
sys.exit()
print "Working..."
# get user inputs
NumberofTeeth = Values[1]
PitchDiameter = Values[2]
PressureAngle = Values[3]
Thickness = Values[4]
# get current part
MyPart = CurrentPart()
# get the plane to create the gear on
GearPlane = MyPart.XYPlane
# create the sketch then extrude it
ProfileSketch = MyPart.AddGearNP("Profile", NumberofTeeth, PitchDiameter, PressureAngle, 0, 0, False, GearPlane)
Gear = MyPart.AddExtrudeBoss("Gear", ProfileSketch, Thickness, True)
print "Done"