创建一个凸轮轴

1、option explicit copyright dassault systemes 2001* purpose : 创建一个凸轮轴 assumptions : dassault systemes author :cym_sd languages : vbscript locales : english (united states) catia level : v5r14*number of cylinders - dim inumberofcylinders as integer shaft data - - shaft origin dim icenterx as integer di

2、m icentery as integer - distance between two cams of two different cylinders dim icylinderspacing as integer - bearing diameter dim ibearingdiam as integer - distance between the cylinders centers dim ibearinglength as integer - pin diameter between two cams dim ipindiam as integer - distance betwee

3、n 2 cams of a single cylinder dim ipinlength as integer cam data - - thickness dim icamthickness as integer - circle 1 diameter dim icircle1rad as integer - circle 2 diameter dim icircle2rad as integer - distance between the 2 circle centers dim icircledist as integer pi definition - dim dpi as doub

4、le global data to define the different elements of the camshaft - - cam sketch and cam sketch elements dim ocurrentsketch as sketch dim ocurrentline1 as anyobject dim ocurrentline2 as anyobject dim ocurrentcircle1 as anyobject dim ocurrentcircle2 as anyobject - current distance from shaft origin dim

5、 icurrentlevel as integer part definition - - part dim opart as part - main tool of the part dim opartbody as body - definition of yz plane as work plane dim oplaneyz as reference * main program *sub catmain() - initialize global variables inumberofcylinders = 4 icamthickness = 15 icircle1rad = 25 i

6、circle2rad = 15 icircledist = 35 icentery = 0 icenterx = 0 icylinderspacing = 100 ipindiam = 15 ipinlength = 20 ibearingdiam = 32 ibearinglength = icylinderspacing - ipinlength - 2*icamthickness dpi = 3.14159265358979323846 icurrentlevel = 0 dim opartdocument as document set opartdocument = catia.do

7、cuments.add ( part ) set opart = opartdocument.part set opartbody = opart.mainbody set oplaneyz = opart.createreferencefromgeometry( opart.originelements.planeyz ) - shading view mode catia.activewindow.activeviewer.renderingmode = 1 msgbox create five bearings call createpatternbearing() opart.upda

8、te catia.activewindow.activeviewer.reframe msgbox create first cam set call createcamset (0) opart.update catia.activewindow.activeviewer.reframe msgbox create second cam set call createcamset (90) opart.update catia.activewindow.activeviewer.reframe msgbox create third cam set call createcamset (18

9、0) opart.update catia.activewindow.activeviewer.reframe msgbox create fourth cam set call createcamset (270) opart.update catia.activewindow.activeviewer.reframe msgbox create driving wheel call createcylinder (ipinlength/2, ibearingdiam ) opart.update catia.activewindow.activeviewer.reframe msgbox

10、this is the macro endend sub * purpose: defines the cylinders between cylinders inputs : *sub createpatternbearing() cylinder definition: pad from a circular sketch - - the yz plane is the sketch plane set ocurrentsketch = opartbody.sketches.add ( oplaneyz ) - the sketch is a circle centered on shaf

11、t origin and of ibearingdiam diameter dim ofactory2d as factory2d set ofactory2d = ocurrentsketch.openedition set ocurrentcircle1 = ofactory2d.createclosedcircle ( icenterx, icentery, ibearingdiam/2 ) ocurrentsketch.closeedition creation of the cylindrical pad dim opad as pad set opad = opart.shapef

12、actory.addnewpad ( ocurrentsketch, ibearinglength ) creating the pattern - dim originelements1 as originelements set originelements1 = opart.originelements dim orefplanexy as reference set orefplanexy = opart.createreferencefromgeometry( opart.originelements.planexy ) dim rectpattern1 as rectpattern

13、 definition of the pattern: - element to be duplicated - number of instances in first direction - number of instances in second direction - spacing in first direction - spacing in second direction - direction 1 - direction 2 - angle set rectpattern1 = opart.shapefactory.addnewrectpattern(opad, _ inu

14、mberofcylinders+1, _ 1, _ icylinderspacing, _ 0.0, _ 1, _ 1, _ orefplanexy, _ orefplanexy, _ true, _ true, _ 0.0) - update of the current level icurrentlevel = ibearinglengthend sub * purpose: creation of a cam from an angle value inputs : angle: the angle *sub createcam(angle) dim drad as double dr

15、ad = angle*dpi/180 dim ddsin1 as double ddsin1 = icircle1rad*sin(drad) dim ddcos1 as double ddcos1 = icircle1rad*cos(drad) dim ddsin2 as double ddsin2 = icircle2rad*sin(drad) dim ddcos2 as double ddcos2 = icircle2rad*cos(drad) dim dcsin as double dcsin = icircledist*sin(drad) dim dccos as double dcc

16、os = icircledist*cos(drad) create a sketch - set ocurrentsketch = opartbody.sketches.add ( oplaneyz ) create base elements in the sketch - dim ofactory2d as factory2d set ofactory2d = ocurrentsketch.openedition dim drad1 as double drad1 = drad - dpi/4 dim drad2 as double drad2 = drad + dpi/4 set ocu

17、rrentline1 = ofactory2d.createline ( _ icenterx - ddsin1, icentery + ddcos1, _ icenterx + dccos + ddsin2, icentery - dcsin + ddcos2 ) set ocurrentline2 = ofactory2d.createline ( _ icenterx + ddsin1, icentery - ddcos1, _ icenterx + dccos - ddsin2, icentery - dcsin - ddcos2 ) set ocurrentcircle1 = ofa

18、ctory2d.createcircle ( _ icenterx, icentery, _ icircle1rad, drad2, drad1) set ocurrentcircle2 = ofactory2d.createcircle ( _ icenterx + dccos, icentery + dcsin, _ icircle2rad, drad1, drad2) get references from elements to constraint - dim orefline1 as reference set orefline1 = opart.createreferencefr

19、omobject(ocurrentline1) dim orefcircle1 as reference set orefcircle1 = opart.createreferencefromobject(ocurrentcircle1) dim orefline2 as reference set orefline2 = opart.createreferencefromobject(ocurrentline2) dim orefcircle2 as reference set orefcircle2 = opart.createreferencefromobject(ocurrentcir

20、cle2) dim orefline1startpt as reference set orefline1startpt = opart.createreferencefromobject(ocurrentline1.startpoint) dim orefline1endpt as reference set orefline1endpt = opart.createreferencefromobject(ocurrentline1.endpoint) dim orefline2startpt as reference set orefline2startpt = opart.creater

21、eferencefromobject(ocurrentline2.startpoint) dim orefline2endpt as reference set orefline2endpt = opart.createreferencefromobject(ocurrentline2.endpoint) dim orefcircle1startpt as reference set orefcircle1startpt = opart.createreferencefromobject(ocurrentcircle1.startpoint) dim orefcircle1endpt as r

22、eference set orefcircle1endpt = opart.createreferencefromobject(ocurrentcircle1.endpoint) dim orefcircle2startpt as reference set orefcircle2startpt = opart.createreferencefromobject(ocurrentcircle2.startpoint) dim orefcircle2endpt as reference set orefcircle2endpt = opart.createreferencefromobject(

23、ocurrentcircle2.endpoint) create constraints - dim oconstraints as constraints set oconstraints = ocurrentsketch.constraints dim oconstraint as constraint - fix circle1 set oconstraint = oconstraints.addmonoeltcst(catcsttypereference, _ orefcircle1) - fix circle2 set oconstraint = oconstraints.addmo

24、noeltcst(catcsttypereference, _ orefcircle2) - tangency line1 circle1 set oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefline1, _ orefcircle1) - tangency line1 circle2 set oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefcircle2, _ orefline1) - coincidence circle1 s

25、tart point line1 start point set oconstraint = oconstraints.addbieltcst(catcsttypeon, _ orefcircle1startpt, _ orefline1startpt) - coincidence circle2 end point line1 end point set oconstraint = oconstraints.addbieltcst(catcsttypeon, _ orefcircle2endpt, _ orefline1endpt) - tangency line2 circle1 set

26、oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefline2, _ orefcircle1) - tangency line2 circle2 set oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefline2, _ orefcircle2) - coincidence circle1 end point line2 start point set oconstraint = oconstraints.addbieltcst(catc

27、sttypeon, _ orefcircle1endpt, _ orefline2startpt) - coincidence circle2 start point line2 end point set oconstraint = oconstraints.addbieltcst(catcsttypeon, _ orefcircle2startpt, _ orefline2endpt) ocurrentsketch.closeedition create the pad from the sketch - dim opad as pad set opad = opart.shapefact

28、ory.addnewpad ( ocurrentsketch, icamthickness + icurrentlevel ) opad.secondlimit.dimension.value = icurrentlevel*-1 end sub * purpose: create a cylindric pad inputs : thickness: length of the cylinder radius : radius of the cylinder *sub createcylinder(thickness, radius) - create a sketch set ocurrentsketch = opar