! ---- Plots Composite INCH (DSB=Y) USEPLOFRM (NAM=HP_A4Q) USEPDF (NAM=A4QDRW, DRW=N) COLAPT (NAM=SIZE_ELE, CSY=CNC$CSY, PTS=(ACNO$BOT_AB(1), ACNO$BOT_AB(2))) MAG=200 TOL=.0125 DRWPLY (NAM=SIZE_ELE, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) DRWPLY (NAM=ACNO$BOT_AB(1), PEN=1, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(1), DEV=Y, FAC=MAG, DRP=0, PEN=5, A_O=XY) DRWPLY (NAM=ACNO$MID_AB(1), DEV=Y, FAC=MAG, DRP=0, PEN=7, A_O=XY) DRWPLY (NAM=ACNO$TOP_AB(1), DEV=Y, FAC=MAG, DRP=0, PEN=8, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(1), DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(1), DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) FCNVAL (NAM=ALL$MAX_AB(1), TYP=MAX, VAR=(MAX$BOT_AB(1),MAX$MID_AB(1),MAX$TOP_AB(1))) FCNVAL (NAM=ALL$MIN_AB(1), TYP=MIN, VAR=(MAX$BOT_AB(1),MIN$MID_AB(1),MIN$TOP_AB(1))) DRWPLY (NAM=SIZE_ELE, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) DRWPLY (NAM=ACNO$BOT_AB(2), PEN=1, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(2), DEV=Y, FAC=MAG, DRP=0, PEN=5, A_O=XY) DRWPLY (NAM=ACNO$MID_AB(2), DEV=Y, FAC=MAG, DRP=0, PEN=7, A_O=XY) DRWPLY (NAM=ACNO$TOP_AB(2), DEV=Y, FAC=MAG, DRP=0, PEN=8, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(2), DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO$BOT_AB(2), DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) FCNVAL (NAM=ALL$MAX_AB(2), TYP=MAX, VAR=(MAX$BOT_AB(2),MAX$MID_AB(2),MAX$TOP_AB(2))) FCNVAL (NAM=ALL$MIN_AB(2), TYP=MIN, VAR=(MAX$BOT_AB(2),MIN$MID_AB(2),MIN$TOP_AB(2))) USEPDF (NAM=A4QDRW, DRW=N) DRWSTR (X =170, Y =40, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=ALL$MIN_AB(1), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =35, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=ALL$MAX_AB(1), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =30, STR='TOL. = +/-0.0125', PEN=1, PTP=LS3P0) DRWSTR (X =170, Y =120, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=ALL$MIN_AB(2), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =115, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=ALL$MAX_AB(2), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =110, STR='TOL. = +/-0.0125', PEN=1, PTP=LS3P0) DRWSTR (X =170, Y =30, STR='TOL. = +/-0.0125', PEN=1, PTP=LS3P0) USEPDF A4QDRW, N DRWSTR 5, 3, 'Dimensions in Millimeters', 1, LI2P0 DRWSTR 5, 86, 'BLACK = NOMINAL', 1, LS2P5 DRWSTR 5, 82, 'GREEN = TOLERANCE', 4, LS2P5 DRWSTR 5, 78, 'BLUE = PROFILE @ BOTTOM', 5, LS2P5 DRWSTR 5, 74, 'ORANGE = PROFILE @ MIDDLE', 7, LS2P5 DRWSTR 5, 70, 'PURPLE = PROFILE @ TOP', 8, LS2P5 USEPDF (NAM=A4QINF, DRW=N) ~STR1='TE20 HEIGHT TRANS BLOCK' ~STR2='COMPOSITE A-B in XY PLANE (BOT, MID, TOP)' DRWSTR (X =35, Y =18, STR=~STR1, PEN=1, PTP=LI3P5) DRWSTR (X =2.5, 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) !-----------------------------------------------------------------------------------------! ! ---- Plots C-D Lid INCH (DSB=Y) USEPLOFRM (NAM=HP_A4Q) USEPDF (NAM=A4QDRW, DRW=N) COLAPT (NAM=SIZE_ELE, CSY=CNC$CSY, PTS=(ACNO$LID_CD(1), ACNO$LID_CD(2))) MAG=100 TOL=.0125 DRWPLY (NAM=SIZE_ELE, ASC=Y, OPN=Y, A_O=XY, EXE=N, SFA=10) DRWPLY (NAM=ACNO$LID_CD(1), PEN=1, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(1), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(1), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(1), DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(1), DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(2), PEN=1, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(2), DEV=Y, FAC=MAG, DRP=1, PEN=3, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(2), DEV=Y, FAC=MAG, DRP=0, PEN=3, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(2), DEV=N, DIS=TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) DRWPLY (NAM=ACNO$LID_CD(2), DEV=N, DIS=-TOL, FAC=MAG, DRP=0, PEN=4, A_O=XY) GETVALS (OBJ=ACNO$LID_CD(2), TYP=ELE, RDS=(D,E), REA=(MIN$LID_CD(2),MAX$LID_CD(2))) USEPDF (NAM=A4QDRW, DRW=N) DRWSTR (X =170, Y =120, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MIN$LID_CD(2), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =115, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MAX$LID_CD(2), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =110, STR='TOL. = +/-0.0125', PEN=1, PTP=LS3P0) GETVALS (OBJ=ACNO$LID_CD(1), TYP=ELE, RDS=(D,E), REA=(MIN$LID_CD(1),MAX$LID_CD(1))) DRWSTR (X =170, Y =40, STR='MIN DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MIN$LID_CD(1), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =35, STR='MAX DEV =', PEN=1, PTP=LS3P0) DRWSPA DRWREA (VAL=MAX$LID_CD(1), FM1=6, FM2=4, INT=N, ANG=N) DRWSTR (X =170, Y =30, STR='TOL. = +/-0.0125', PEN=1, PTP=LS3P0) USEPDF A4QDRW, N DRWSTR 5, 3, 'Dimensions in Millimeters', 1, LI2P0 DRWSTR 5, 80, 'BLACK = NOMINAL', 1, LS2P5 DRWSTR 5, 76, 'RED = DEVIATIONS', 3, LS2P5 DRWSTR 5, 72, 'GREEN = TOLERANCE', 4, LS2P5 USEPDF (NAM=A4QINF, DRW=N) ~STR1='TE20 HEIGHT TRANS BLOCK' ~STR2='LID PROFILE C-D in XY PLANE' DRWSTR (X =35, Y =18, STR=~STR1, PEN=1, PTP=LI3P5) DRWSTR (X =27, 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)