创建一个凸轮轴.doc

option explicit copyright dassault systemes 2001* purpose : 创建一个凸轮轴 assumptions : dassault systemes author :cym_ languages : vbscript locales : english (united states) catia level : v5r14*number of cylinders - dim inumberofcylinders as integer shaft data - - shaft origin dim icenterx as integer dim 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 between 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 double 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 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 icircle2rad = 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.documents.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.update 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 (180) 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 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 shaft 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.shapefactory.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 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, _ inumberofcylinders+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 drad = 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 dccos = 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 ocurrentline1 = 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 = ofactory2d.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.createreferencefromobject(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(ocurrentcircle2) 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.createreferencefromobject(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 reference set orefcircle1endpt = opart.createreferencefromobject(ocurrentcircle1.endpoint) dim orefcircle2startpt as reference set orefcircle2startpt = opart.createreferencefromobject(ocurrentcircle2.startpoint) dim orefcircle2endpt as reference set orefcircle2endpt = opart.createreferencefromobject(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.addmonoeltcst(catcsttypereference, _ orefcircle2) - tangency line1 circle1 set oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefline1, _ orefcircle1) - tangency line1 circle2 set oconstraint = oconstraints.addbieltcst(catcsttypetangency, _ orefcircle2, _ orefline1) - coincidence circle1 start 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 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(catcsttypeon, _ 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.shapefactory.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