Gage Ball in Cone

Good morning. My part has a cone (lets say it's a countersink). The print calls for a gage ball to be placed into the countersink, then the location of the top of the gage ball is to be measured. How would I replicate this in PC-DMIS? I've probed my cone, obviously. Now I'm stuck...I want to construct a sphere with a set diameter to mate with the countersink.

Parents

Neil Challinor over 1 year ago

You can construct a circle where the gage ball would contact the cone and then use trigonometry to give you the sphere centre. This is some example code I created using the Hexblock training part which has a 90° cone (included angle) which is Ø15 where the cone intersects the top face. I'm simulating fitting a Ø13 gage ball into the cone.

CON1       =FEAT/CONTACT/CONE/DEFAULT,CARTESIAN,IN
            THEO/<10,10,0>,<0,0,1>,90,-7,15
            ACTL/<10,10,0>,<0,0,1>,90,-7,15
            TARG/<10,10,0>,<0,0,1>
            START ANG=0,END ANG=360
            ANGLE VEC=<1,0,0>
            SHOW FEATURE PARAMETERS=NO
            SHOW CONTACT PARAMETERS=NO
CIR1       =FEAT/CIRCLE,CARTESIAN,IN,NO
            THEO/<10,10,-2.904>,<0,0,1>,9.192
            ACTL/<10,10,-2.904>,<0,0,1>,9.192
            CONSTR/CIRCLE,CONE,CON1,SPHERE,13
            ASSIGN/V1=(TAN(DEG2RAD(45))*CIR1.R)
F1         =GENERIC/SPHERE,DEPENDENT,CARTESIAN,OUT,$
            NOM/XYZ,<CIR1.TX,CIR1.TY,CIR1.TZ+V1>,$
            MEAS/XYZ,<CIR1.X,CIR1.Y,CIR1.Z+V1>,$
            NOM/IJK,<0,0,1>,$
            MEAS/IJK,<0,0,1>,$
            RADIUS/13/2,13/2

If you need to measure to the top of the gage ball, just create a distance command with "Add Radius" selected.

Reply

Neil Challinor over 1 year ago

CON1       =FEAT/CONTACT/CONE/DEFAULT,CARTESIAN,IN
            THEO/<10,10,0>,<0,0,1>,90,-7,15
            ACTL/<10,10,0>,<0,0,1>,90,-7,15
            TARG/<10,10,0>,<0,0,1>
            START ANG=0,END ANG=360
            ANGLE VEC=<1,0,0>
            SHOW FEATURE PARAMETERS=NO
            SHOW CONTACT PARAMETERS=NO
CIR1       =FEAT/CIRCLE,CARTESIAN,IN,NO
            THEO/<10,10,-2.904>,<0,0,1>,9.192
            ACTL/<10,10,-2.904>,<0,0,1>,9.192
            CONSTR/CIRCLE,CONE,CON1,SPHERE,13
            ASSIGN/V1=(TAN(DEG2RAD(45))*CIR1.R)
F1         =GENERIC/SPHERE,DEPENDENT,CARTESIAN,OUT,$
            NOM/XYZ,<CIR1.TX,CIR1.TY,CIR1.TZ+V1>,$
            MEAS/XYZ,<CIR1.X,CIR1.Y,CIR1.Z+V1>,$
            NOM/IJK,<0,0,1>,$
            MEAS/IJK,<0,0,1>,$
            RADIUS/13/2,13/2

If you need to measure to the top of the gage ball, just create a distance command with "Add Radius" selected.

Children

No Data