Calculating depth of hole using known length pin

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Calculating depth of hole using known length pin

    I want to check the depth of several .125 diameters by inserting a pin, with a known length, and measuring a point on the end of the pin.

    Can I tell PCDMIS to take a measured actual and subtract it from known constant? Example: I measured a point (call it pnt1) on the end of my pin and obtained a "Z" of .750, and the pin is 1.500 long. Will PCDMIS calculate 1.500 minus "Z" of pnt1 and put the results into a format I can put tolerance to and print out?

    Basically I want to do the same as measuring the exposed pin with calipers and subtracting that from the pin length, except replace the calipers with a CMM.
    "

  • #2
    I have a prg that does this, here's the code-->


    Code:
    COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
    **Very carefully, WITHOUT MOVING PART**....
    
    Insert Gage ID# "4900_G1" into 10°
    angled hole.
    
    Once pin in fully inserted, gently rotate the pin
    in the hole to ensure it is properly seated.
    
    Press OK to continue.
    COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
    Press OK for CNC Measurement
    MOVE/POINT,NORMAL,<0,-0.25,2.5>
    PLN_87 =FEAT/CONTACT/PLANE/DEFAULT,CARTESIAN,TRIANGLE,LEAST_SQR
    THEO/<0,0,0>,<0,-1,0>
    ACTL/<0.0001,-0.0014,0.0005>,<-0.0019678,-0.9999979,0.0006099>
    TARG/<0,0,0>,<0,-1,0>
    ANGLE VEC=<1,0,0>,RADIAL
    SHOW FEATURE PARAMETERS=NO
    SHOW CONTACT PARAMETERS=NO
    PNT_ORI_THEO_AHAH=FEAT/POINT,CARTESIAN,NO
    THEO/<0,0,0>,<0,-1,0>
    ACTL/<0,0,0>,<0,-1,0>
    CONSTR/POINT,ORIGIN
    WORKPLANE/XPLUS
    IF/PLN_87.Y.ACT>0
    ASSIGN/DIM_87MATH=0.512+PLN_87.Y.ACT
    END_IF/
    IF/PLN_87.Y.ACT<0
    ASSIGN/DIM_87MATH=0.512-(ABS(PLN_87.Y.ACT))
    END_IF/
    PNT_87 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
    NOM/XYZ,<CYL_85.TX,DIM_87MATH,CYL_85.TZ>,$
    MEAS/XYZ,<CYL_85.X,DIM_87MATH,CYL_85.Z>,$
    NOM/IJK,<0*1,0*1,1*1>,$
    MEAS/IJK,<0*1,0*1,1*1>
    DIM MIS_87= 2D DISTANCE FROM POINT PNT_ORI_THEO_AHAH TO POINT PNT_87 PAR TO YAXIS,NO_RADIUS UNITS=IN,$
    GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
    AX MEAS NOMINAL +TOL -TOL DEV OUTTOL
    M 0.5106 0.5120 0.0090 0.0090 -0.0014 0.0000 ---#-----
    RECALL/ALIGNMENT,INTERNAL,A10_GDT_ABC_POS1
    WORKPLANE/ZPLUS
    MOVE/INCREMENT,<0,0,4>
    MOVE/POINT,NORMAL,<0,6,6>
    TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=-2.3301
    MOVE/POINT,NORMAL,<0,6,6>
    COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO,
    Remove Gage ID# "4900_G1" from 10° angled hole.
    
    Press OK once complete.
    Last edited by DAN_M; 01-05-2021, 01:26 PM.
    SF7107(PCD), SF454(PCD), 152614(Quindos), 9159(Quindos), 7107(Quindos), B&S Manual, M&M Gear Checker

    Comment


    • #3
      ****, that was fast
      "

      Comment


      • DAN_M
        DAN_M commented
        Editing a comment
        happy to help! if you need any explanation of whats going on lmk

    • #4
      Here is a more simplistic/clean looking way. My way above works fine but it could be tweaked a bit. if the code wasn't locked down/validated already I would do without the "if statements" and use the "dev" method I have below

      Code:
      PNT1 =FEAT/CONTACT/VECTOR POINT/DEFAULT,CARTESIAN
      THEO/<0,0,1>,<0,0,1>
      ACTL/<0,0,1>,<0,0,1>
      TARG/<0,0,1>,<0,0,1>
      SHOW FEATURE PARAMETERS=NO
      SHOW CONTACT PARAMETERS=NO
      DIM LOC1= LOCATION OF POINT PNT1 UNITS=IN ,$
      GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=[B]NONE[/B] HALF ANGLE=NO
      AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
      Z 1.0000 0.0020 0.0020 1.0000 0.0000 0.0000 ----#----
      END OF DIMENSION LOC1
      F1 =GENERIC/POINT,DEPENDENT,CARTESIAN,$
      NOM/XYZ,<0,0,1+LOC1.Z.DEV>,$
      MEAS/XYZ,<0,0,1+LOC1.Z.DEV>,$
      NOM/IJK,<0,0,1>,$
      MEAS/IJK,<0,0,1>
      DIM LOC2= LOCATION OF POINT F1 UNITS=IN ,$
      GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
      AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
      Z 1.0000 0.0020 0.0020 1.0000 0.0000 0.0000 ----#----
      END OF DIMENSION LOC2
      Last edited by DAN_M; 01-05-2021, 01:36 PM.
      SF7107(PCD), SF454(PCD), 152614(Quindos), 9159(Quindos), 7107(Quindos), B&S Manual, M&M Gear Checker

      Comment

      Related Topics

      Collapse

      Working...
      X