! ---- PLOT INCH USEPLOFRM (NAM=HP_A4Q) USEPDF (NAM=A4QDRW, DRW=N) DFNPDF (NAM=BOX(1), XOF=0, YOF=25, XSZ=250, YSZ=155/2) DFNPDF (NAM=BOX(2), XOF=0, YOF=25+155/2, XSZ=250, YSZ=155/2) MAG=2 TOL=.001 !COLAPT (NAM=ALL_ACNO, CSY=CSY_AB, PTS=(ACNO_AB, ACNO_CD)) !DRWPLY (NAM=ALL_ACNO, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) USEPDF (NAM=BOX(2), DRW=N) DRWPLY (NAM=ACNO_AB, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) DRWPLY (NAM=ACNO_AB, PEN=1, A_O=XY) DRWPLY (NAM=ACNO_AB, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=XY) DRWPLY (NAM=ACNO_AB, DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=XY) !DRWPLY (NAM=ACNO_AB, DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO_AB, DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) GETVALS (OBJ=ACNO_AB, TYP=ELE, RDS=(D,E), REA=(MIN$ACNO_AB,MAX$ACNO_AB), ICH=Y) USEPDF (NAM=BOX(2), DRW=N) DRWSTR (X =170, Y =20, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MIN$ACNO_AB, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =170, Y =15, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MAX$ACNO_AB, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =179, Y =10, STR='TOL. = -0.0010', PEN=1, PTP=LS3P0) USEPDF (NAM=BOX(1), DRW=N) DRWPLY (NAM=ACNO_CD, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) DRWPLY (NAM=ACNO_CD, PEN=1, A_O=XY) DRWPLY (NAM=ACNO_CD, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=XY) DRWPLY (NAM=ACNO_CD, DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=XY) DRWPLY (NAM=ACNO_CD, DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) !DRWPLY (NAM=ACNO_CD, DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) GETVALS (OBJ=ACNO_CD, TYP=ELE, RDS=(D,E), REA=(MIN$ACNO_CD,MAX$ACNO_CD), ICH=Y) USEPDF (NAM=BOX(1), DRW=N) DRWSTR (X =170, Y =20, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MIN$ACNO_CD, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =170, Y =15, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MAX$ACNO_CD, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =179, Y =10, STR='TOL. = 0.0010', PEN=1, PTP=LS3P0) USEPDF A4QDRW, N DRWSTR 5, 3, 'Dimensions in Inch', 1, LI2P0 DRWSTR 5, 80, 'BLACK = NOMINAL', 1, LS2P5 DRWSTR 5, 76, 'RED = DEVIATIONS', 3, LS2P5 DRWSTR 5, 72, 'GREEN = TOLERANCE', 4, LS2P5 DRWSTR 70, 145, 'LID PROFILE: A-B & C-D', 1, LS5P0 DRWSTR 82, 138, 'MEASURING PLANE: XY', 1, LI3P5 USEPDF (NAM=A4QINF, DRW=N) !~STR1='FACET VACUUM SYSTEMS' ~STR2='PROFILE A-B & C-D' DRWSTR (X =66, Y =18, STR=~DESC, PEN=1, PTP=LI3P5) DRWSTR (X =45, Y =12, STR=~STR2, PEN=1, PTP=LI3P5) DRWSTR (X =25, Y =6, STR='DRAWING NO.:', PEN=1, PTP=LI3P5) DRWSPA DRWSTR (STR=~DRWG) USEPDF (NAM=A4QNBR, DRW=N) ~DATE=_DATE DRWSTR (X =4, Y =18, STR=~DATE, PEN=1, PTP=LI3P0) DRWSTR (X =4, Y =12, STR='SN:', PEN=1, PTP=LI3P0) DRWSPA DRWSTR (STR=~SN) ~INSP=K. CABAN DRWSTR (X =4, Y =6, STR='INSP:', PEN=1, PTP=LI3P0) DRWSPA DRWSTR (STR=~INSP) INDPRC (NAM=FmtA4Q_Q) ! ---- PLOT TOP INCH USEPLOFRM (NAM=HP_A4Q) USEPDF (NAM=A4QDRW, DRW=N) MAG=7 TOL=.0005 DRWPLY (NAM=ACNO_TOP, ASC=Y, OPN=Y, A_O=XZ, EXE=N, SFA=10) DRWPLY (NAM=ACNO_TOP, PEN=1, A_O=XZ) DRWPLY (NAM=ACNO_TOP, DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=XZ) DRWPLY (NAM=ACNO_TOP, DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=XZ) DRWPLY (NAM=ACNO_TOP, DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XZ) DRWPLY (NAM=ACNO_TOP, DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XZ) !LISREA (NAM=(XMIN,XMAX,YMIN,YMAX,SCA), DEV=TT) PDFLIM XMIN, XMAX, YMIN, YMAX, SCA, XP1, XP2, YP1, YP2, XL, XR, YU, YO, XFA, YFA !LISREA (NAM=(XP1,XP2,YP1,YP2,XL,XR,YU,YO,XFA,YFA), DEV=TT) SETPSC , , XMIN, XMAX, YMIN, YMAX, , , , -.2, (2,2,1), .14, (2,2,1), X, 1, , , , 3 USEPDF (NAM=A4QDRW, DRW=N) GETVALS (OBJ=ACNO_TOP, TYP=ELE, RDS=(D,E), REA=(MIN$ACNO_TOP,MAX$ACNO_TOP), ICH=Y) DRWSTR (X =170, Y =40, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MIN$ACNO_TOP, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =170, Y =35, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MAX$ACNO_TOP, FM1=6, FM2=5, INT=N, ANG=N) DRWSTR (X =179, Y =30, STR='TOL. = +/-0.0005', PEN=1, PTP=LS3P0) USEPDF A4QDRW, N SETPSC DRWPSC (PEN=1) !SET GDBSTA:UseUSPaperSizes, , Y, , , GDB DRWSTR 5, 3, 'Dimensions in Inch', 1, LI2P0 DRWSTR 5, 40, 'BLACK = NOMINAL', 1, LS2P5 DRWSTR 5, 36, 'RED = DEVIATIONS', 3, LS2P5 DRWSTR 5, 32, 'GREEN = TOLERANCE', 4, LS2P5 DRWSTR 70, 145, 'TOP PROFILE: .59 DEG.', 1, LS5P0 DRWSTR 82, 138, 'MEASURING PLANE: XZ', 1, LI3P5 USEPDF (NAM=A4QINF, DRW=N) !~STR1='FACET VACUUM SYSTEMS' ~STR2='PROFILE TOP: .59 DEG.' DRWSTR (X =66, Y =18, STR=~DESC, PEN=1, PTP=LI3P5) DRWSTR (X =38, Y =12, STR=~STR2, PEN=1, PTP=LI3P5) DRWSTR (X =25, Y =6, STR='DRAWING NO.:', PEN=1, PTP=LI3P5) DRWSPA DRWSTR (STR=~DRWG) USEPDF (NAM=A4QNBR, DRW=N) ~DATE=_DATE DRWSTR (X =4, Y =18, STR=~DATE, PEN=1, PTP=LI3P0) DRWSTR (X =4, Y =12, STR='SN:', PEN=1, PTP=LI3P0) DRWSPA DRWSTR (STR=~SN) ~INSP=K. CABAN DRWSTR (X =4, Y =6, STR='INSP:', PEN=1, PTP=LI3P0) DRWSPA DRWSTR (STR=~INSP) INDPRC (NAM=FmtA4Q_Q)