MMIV to PC-Dmis conversion help

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

  • MMIV to PC-Dmis conversion help

    Hi everyone,

    Relatively new programmer at this company (and in general). I was tasked with converting an old MMIV program to Dmis. They have updated all the CMM computers to windows 10 so we cannot use MMIV any longer, I can only pull the programs into text files and mimic what it looks to be doing in Dmis. Having never worked with MMIV before and having some experience in Dmis, the two languages are similar enough to decipher what is going on but I did run into one roadblock that I'm having a hard time interpreting when the programmer was establishing a new alignment...

    Code:
     
    ALIG/RECA; ALIG, SYS1
    ALIG/TRAN; -.231, -2.532, -1.139
    ALIG/TRAN; -6.550, 2.532, .803
    ALIG/ROTA; -4, XAXIS
    MOVE/TO; 0, -1.000, 3.000
    C7 = GEOM/CIRC; ZXPL, IS, 4, 0, -.425, 0, .4006, 0
    MOVE/BY; 0, -.5, 0
    MOVE/BY; 0, 0, 8
    DONE/;
    !
    QUAL/OLD_; TIP[8]
    ALIG/RECA; ALIG, SYS1
    ALIG/TRAN; -.231, 0, -1.139
    LOOP/TIME; 4, 1, 1
    P[1] = NOMI/POIN; -.400, -2.532, .300
    P[2] = NOMI/POIN; -.600, -2.532, -.300
    P[3] = NOMI/POIN; .250, -2.532, -.200
    P[4] = NOMI/POIN; .400, -2.532, .300
    BRAN/EXECTEST; LOOP.CURR, EQ, 1, "MOVE/TO; -.400, -2.650, 2.000"
    P2[] = GEOM/POIN; YES
    MEAS/; P[].X, P[].Y, P[].Z, 0, 1, 0, 0
    DONE/;
    LOOP/END;
    MOVE/BY; 0, 0, 1
    PLN2 = GEOM/PLAN;
    LOOP/TIME; 4, 1, 1
    RECA/FEAT; P2[]
    LOOP/END;
    DONE/;
    TEXT/WRIT; FL1, {
    
    ----------------------------------------------------------------------
    SEQ 17 PARA/.002/C/ }
    PAR2 = PARA/NOPR; PLN2, ZXPL, 0
    REPO/NOMI; D, 0, .002, -0
    REPO/FEAT; PAR2, D, , FL1
    TEXT/WRIT; FL1, {
    
    ----------------------------------------------------------------------
    SEQ 19 .316 +/- .001 DIA -F-
    SEQ 20 LOC/.015 DIA/E/A/B/ (TO CAST DATUMS) }
    ALIG/RECA; ALIG, SYS1
    ALIG/TRAN; 0, PLN2, 0
    QUAL/OLD_; TIP[2]
    MOVE/TO; -.231, -2.000, 4.000
    CIR1 = GEOM/CIRC; ZXPL, IS, 4, -.231, .150, -1.139, .316, 45
    DONE/;
    REPO/NOMI; X, -.231
    REPO/NOMI; Z, -1.139
    REPO/NOMI; D, .316, .001, -.001
    REPO/NOMI; T, .015
    REPO/SETU; , TP_RFS,
    REPO/FEAT; CIR1, XZDT, , FL1
    TEXT/WRIT; FL1, {
    
    ----------------------------------------------------------------------
    SEQ 21 PERP/.002 DIA/E/ }
    CYL1 = GEOM/CYLI; IS, 8, CIR1, .280, CIR1, .316, CIR1, .030, CIR1, 45
    MOVE/BY; 0, -2, 0
    MOVE/BY; 0, 0, 4
    DONE/;
    SQU1 = SQUA/NOPR; CYL1, PLN2, .310
    REPO/NOMI; D, 0, .002, 0
    REPO/SETU; , BY_AXIS,
    REPO/FEAT; SQU1, D, , FL1
    !
    ALIG/RECA; ALIG, SYS1
    ALIG/TRAN; 0, PLN2, 0
    ALIG/TRAN; 0, 5.065, 0
    QUAL/OLD_; TIP[3]
    MOVE/TO; 0, 2.000, 4.000
    CIR4 = GEOM/CIRC; ZXPL, IS, 4, -.231, -.150, -1.139, .316, 45
    MOVE/BY; 0, 3, 0
    MOVE/BY; 0, 0, 4
    DONE/;
    L3D2 = GEOM/3D_L; NO
    RECA/FEAT; CIR1
    RECA/FEAT; CIR4
    DONE/;
    PRP1 = PERP/PLAN; L3D2, CIR1
    EXEC/SUBR; OFFSET2, L2D3, PRP1, C7, CIR1, ZAXIS, -.803, 0
    MOVE/SYNC;
    ALIG/PART; PRP1, L2D3, CIR1, X-ZY
    MOVE/SYNC;
    ALIG/TRAN; CIR1, PLN2, CIR1
    MOVE/SYNC;
    ALIG/SAVE; ALIG, SYS2
    !
    ! SYS2 = -E- -F & G- CLEVIS HOLE
    !
    Can any experienced MMIV programmers tell me what's going on from PRP1 to the end of the new alignment in plain english?

Related Topics

Collapse

Working...
X