!----------------------------------------------------------------------------! ! PROGRAM VERSION HISTORY ! !----------------------------------------------------------------------------! ! Date Version CREATOR ! !----------------------------------------------------------------------------! ! 28-AUG-20 v1.0 HRIBEM ! !----------------------------------------------------------------------------! STOP !LoadImgFromFile (NAM=Part, FNA=F:\Quindos7lib\Programme\5.388659.S\piccc1.PNG) STOP SET (NAM=Language, RVL=0, SVL=en, GRP=0) ! ---- Input Workpiece Information !EDIT (NAM=WKP_DLP, TYP=DLP) !PUTVALS (OBJ=WKP_INPUT, TYP=UVS, CDS=($A,$B,$C,$D,$E,$F,$G,$H,$I,$J,$K,$L), STR=(0,0,0,0,0,0,0,0)) 1:STOP ! ---- Inputs and Clear Plots/Reports ~WKP=RING DFNWKP (WKP=~WKP) ! ID-Nummern testen ShowDialog (DLP=LDBDLP:WKP_DLP, OBJ=LDBUVS:WKP_INPUT) GETVALS (OBJ=WKP_INPUT, TYP=UVS, CDS=($A,$B,$C,$D,$E,$F,$G,$H,$I,$J,$K,$L,$M), CHS=(~DESC,~DRWG,~CUST,~SN,~CHNO,~SUP,~WKP,~VER,~INS,~DATU,~QUAN,~PRUE,~DEPT)) PUTVALS (OBJ=~WKP, TYP=WKP, CDS=($A,$C,$G), STR=(~DESC,~DRWG,~SUP)) PLS_DELPAGE (ALL=Y) PRS_DELREPORT (ALL=Y) ! !If (BXP=REA:CERTIFICATE == 0) !DELREA (NAM=REA:*(), CNF=N, NOT=(REA:CMMUSE, REA:ATTESTATO)) !DELCHS (NAM=CHS:*(), CNF=N, NOT=CHS:~IDCONI1) !DELTXT (NAM=TXT:*(), NOT=RND_HDR) !DELWKP (NAM=WKP:*(), NOT=NO$NAME) !DELUVS (NAM=BL600_Coni06, CNF=N) !DELELE (NAM=ELE:*(), CNF=N, NDB=N) ! DELCSY (NAM=CSY:*(), CNF=N) !EndIf ! ---- Start Program START (WKP=~WKP, SER=(~SN,~CUST,~DRWG), INS=(~INS,~DEPT,~CHNO), RPO=Y, TOP=N, EDT=Y) ! ---- CREATE FOLDER AND SAVE 100:CONCAT (NAM=~SAV$FOL, STR=F:\Quindos7lib\Programme\, RLS=N, INI=Y) CONCAT (NAM=~SAV$WDB, STR=(~SAV$FOL,~DRWG,'\'), INI=Y) MAKEDIR (DIR=~SAV$WDB, OPT=C) CONCAT (NAM=~SAV$FOLD, STR=F:\Quindos7lib\Protokolle\, RLS=N, INI=Y) CONCAT (NAM=~SAV$RPO, STR=(~SAV$FOLD,~DRWG,'\'), INI=Y) MAKEDIR (DIR=~SAV$RPO, OPT=C) CONCAT (NAM=~SUB$WDB, STR=(~SAV$WDB,~DESC), RLS=N, INI=Y) !MAKEDIR (DIR=~SUB$WDB, OPT=C) CONCAT (NAM=~SUB$RPO, STR=(~SAV$RPO,' '), RLS=N, INI=Y) !MAKEDIR (DIR=~SUB$RPO, OPT=C) CONCAT (NAM=~SAV$FIL, STR=(~SUB$WDB,' '), INI=Y) CONCAT (NAM=~SAV$FILE, STR=(~SUB$RPO,' '), INI=Y) SAVE (FIL=~SAV$FIL, KEP=1) Foto=0 POSIZ=0 ~DIS=RING GETVALS (OBJ=UVS:DIALOG_FOTO, TYP=DLP, CDS=(C,N), CHS=(~DIS,~PHOTO)) If (BXP=CHS:~PHOTO == 'YES') ~POSITIONE=~SAV$FIL\ CONCAT (NAM=~POSITIONE1, STR=(~SAV$FIL, ~DIS), RLS=Y, INI=Y) CamCapture (IMG=~DIS, WAI=10, CFG=N, FNI=~POSITIONE1) Foto=0 EndIf If (BXP=CHS:~CMMUSE == '1') GETVALS (OBJ=DIALOG, TYP=UVS, CDS=(B,C), CHS=(~PRB,~SCAN)) EndIf !EDIT (NAM=DIALOG, TYP=DLP) ShowDialog (DLP=DIALOG, OBJ=UVS:DIALOG) !PUTVALS (OBJ=DIALOG, TYP=UVS, RDS=(a,b,c,d,e,f,g,h,i,j), VAL=(220,180,0,100,-0,-0.04,100,15)) GETVALS (OBJ=DIALOG, TYP=UVS, RDS=(a,b,c,d,e,f,g,i,j,k,), REA=(DIA_PLA,DIA1,OT1,UT1,DIA2,OT2,UT2,LENG,OFF1,OFF2), CDS=F, CHS=~PRB) DSBSYS (NAM=GFONLY) USECSY (NAM=REFR$CSY) UseEleView (SHD=Y, MOD=2) MOVCMM (TYP=ABS, DST=(540,2100,-280)) !Taster------------------------------------------------ USEPRB (NAM=~PRB) GETVALS (OBJ=~PRB, TYP=PRB, RDS=D, REA=PRBDIA) MOVCMM (TYP=ABS, DST=(540.0,2400.0,-280.0)) MOVCMM (TYP=ABS, DST=(540.0,500.0,-280.0)) !------------------------------------------------------- ! ---- Manually Locate Part UseEleView (SHD=Y, MOD=0) INQSTR (NAM=~USRT, STR='Y/[N]', MSG=USRT) If (BXP=CHS:~USRT == 'Y') MEPLA (NAM=PLA_M, CSY=REFR$CSY, MOD=NOE, ITY=GSS, MSG=PLA, DEL=Y) MECIR (NAM=CIR_M, CSY=REFR$CSY, PRO=PLA_M, MOD=NOE, CPY=DEF$CIR5, INO=O, PTY=EX, MSG=CIR, DEL=Y) GETVALS (OBJ=PLA_M, TYP=ELE, RDS=(U,V,W), REA=(U,V,W)) IFEXEC (VL1=W, VL2=1, TYP=EQ, CMD=~WPLANE=XY) EndIf !CMMUSE=1 ! IFTHEN (VL1=W, VL2=1, TYP=LE) BLDCSY (NAM=CSY(1), TYP=CAR, SPA=PLA_M, SDR=+Z, XZE=CIR_M, YZE=CIR_M, ZZE=PLA_M) ~CSY=_CSY ! ENDIF ! Automatic Temperature measurement ! Write temperatures to REPORT INDPRC (NAM=COMTEMP) ! GetDMEPos (XPO=X, YPO=Y, ZPO=Z) MOVCMM (TYP=ABS, DST=(0.0,0.0,PRBDIA/2+5)) DO (NAM=I, BGN=1, END=20) DELETE (NAM=PNTGEN, CNF=N, TYP=ELE, STY=ALL) CRSUBTYP (NAM=PNTGEN, LIN=2, DEL=Y, TYP=ELE, STY=NPT) PUTVALS (OBJ=PNTGEN.NOM.PTS(1), RDS=(X,Y,Z,U,V,W), VAL=(-DIA_PLA/2*FSIN(18*(I-1)),DIA_PLA/2*FCOS(18*(I-1)),PRBDIA/2+5,0,0,1), CDS=T, STR=CLP) PUTVALS (OBJ=PNTGEN.NOM.PTS(2), RDS=(X,Y,Z,U,V,W), VAL=(-DIA_PLA/2*FSIN(18*(I-1)),DIA_PLA/2*FCOS(18*(I-1)),0,0,0,1), CDS=T, STR=PRB) TRAELE (NEW=PNTGEN(I), TRA=CSY(1), OLD=PNTGEN, TYP=CSY, RPL=N, EVA=N) MEPNT (NAM=PNTGEN(I), MOD=NOE, DEL=N) ENDDO COLPTS (NAM=A(1), DEL=Y, ELE=(PNTGEN(1), PNTGEN(20), PNTGEN(2), PNTGEN(3), PNTGEN(4), PNTGEN(5), PNTGEN(6), PNTGEN(7), PNTGEN(8), PNTGEN(9), PNTGEN(10), PNTGEN(11), PNTGEN(12), PNTGEN(13), PNTGEN(14), PNTGEN(15), PNTGEN(16), PNTGEN(17), PNTGEN(18), PNTGEN(19))) BLDPLA (NAM=A(1), MOD=(NOM,NOE), ITY=GSS, CTY=NO) BLDCSY (NAM=CSY(2), TYP=CAR, SPA=A(1), SDR=Z, PLA=CSY(1).$XDI, PDR=+X, XZE=CSY(1).$ZP, YZE=CSY(1).$ZP, ZZE=A(1)) ~CSY=_CSY !EDTTXT (NAM=A(1)) TRAELE (NEW=A(1), TRA=CSY(2), OLD=A(1), TYP=CSY, RPL=N, EVA=Y) ! MOVCMM (TYP=ABS, DST=(0.0,0.0,PRBDIA/2+5)) ! !INQSTR (NAM=~SCAN, STR='Y/[N]', MSG=SCAN) MOVCMM (TYP=ABS, DST=(0.0,0.0,PRBDIA/2+5)) !ANZ=========MESSEBENEN ANZ=5 TIEF=(LENG-OFF1-OFF2)/(ANZ-1) DO (NAM=I, BGN=1, END=ANZ) ! ZZ(I)=OFF1+TIEF*(I-1) If (BXP=CHS:~SCAN =='Y') GENSCACIR (NAM=A(I+1), PLA=XY, INO=I, TYP=CIR, XCO=0, YCO=0, ZCO=-ZZ(I), DIA=DIA1, DNS=1.00, SPD=14.0, PDI=PRBDIA, MIP=0.00, MXP=361.00, FLT=50, NBT=2, RST=1, CSY=~CSY, RTS=N) Else GENCIR (NAM=A(I+1), XCO=0, YCO=0, ZCO=-ZZ(I), DIA=DIA1, NPT=20, PLA=XY, INO=I, MIP=0, MXP=360, PDI=PRBDIA, CSY=~CSY) EndIf ! MECIR (NAM=A(I+1), CSY=~CSY, MOD=NOE, CPY=DEF$CIR5, DEL=N) If (BXP=REA:I == 1) BLDCSY (NAM=CSY(3), TYP=CAR, SPA=CSY(2).$ZDI, SDR=+Z, PLA=CSY(2).$XDI, PDR=+X, XZE=A(2), YZE=A(2), ZZE=CSY(2).$ZP) ~CSY=_CSY EndIf !ENDIF ENDDO ! COLPTS (NAM=AXI, CSY=CSY(3), ELE=(A(2), A(3), A(4), A(5), A(6)), TYP=AXI, EVA=N) BLDCSY (NAM=CSY(4), TYP=CAR, SPA=AXI, SDR=-Z, PLA=CSY(3).$XDI, PDR=+X, XZE=AXI, YZE=AXI, ZZE=CSY(3).$ZP) ~CSY=_CSY DO (NAM=I, BGN=1, END=5) !EDTTXT (NAM=A(I+1)) !EDTEVA (NAM=A(I+1)) CRSUBTYP (NAM=A(I+1).EVA, LIN=4, TYP=ELE, STY=EVA) PUTVALS (OBJ=A(I+1).EVA(1), RDS=(A,B,C), VAL=(DIA1, OT1, UT1)) PUTVALS (OBJ=A(I+1).EVA(2), RDS=(A,B), VAL=(0,0.02)) PUTVALS (OBJ=A(I+1).EVA(3), RDS=(A,B,C), VAL=(0,0.005,-0.005)) PUTVALS (OBJ=A(I+1).EVA(4), RDS=(A,B,C), VAL=(0,0.005,-0.005)) DO (NAM=I, BGN=1, END=5) TRAELE (NEW=A(I+1), TRA=CSY(4), OLD=A(I+1), TYP=CSY, RPL=Y, EVA=Y) !RNDNES_P (ELE=A(I), A_O=XY, FAC=200, TOL=0.1, TYP=1) RNDNES_PLS (ELE=A(I+1), FAC=300, TOL=0.04, DRP=1) ENDDO MOVCMM (TYP=ABS, DST=(0.0,0.0,PRBDIA/2+5)) ! PLS_DELPAGE (ALL=Y) ! !EDTTXT (NAM=A(7)) !EDTEVA (NAM=A(7)) PUTVALS (OBJ=A(7).EVA(1), RDS=(A,B), VAL=(0,0.02)) CirToCyl (CYL=A(7), EVA=Y, STP=Y, CIR=(A(2), A(3), A(4), A(5), A(6)), CTY=GSS, CAD=N, RCO=N) ! !EDTTXT (NAM=A(8)) !EDTEVA (NAM=A(8)) PUTVALS (OBJ=A(8).EVA(1), RDS=(A,B), VAL=(0,0.02)) SQRNES (NAM=A(8), OBJ=A(1), DAT=AXI, MMC=N) ! ! MOVCMM (TYP=ABS, DST=(0.0,0.0,300.0)) INQSTR (NAM=~PUT_PRB, STR='Y/[N]', MSG=PUT_PRB) CVUPCASE (CHS=~PUT_PRB) IFTHENS (ST1=~PUT_PRB, ST2=Y, TYP=EQ) PUTPRB MOVCMM (TYP=ABS, DST=(540,2400,-290), CSY=REFR$CSY) ENDIF ! !Taster------------------------------------------------ !DFNUVS (NAM=DIALOG_PRB) GETVALS (OBJ=DIALOG_PRB, TYP=UVS, CDS=(B,C), CHS=(~PRB,~SCAN)) !EDIT (NAM=DIALOG_PRB, TYP=DLP) ShowDialog (DLP=DIALOG_PRB, OBJ=UVS:DIALOG_PRB) PUTVALS (OBJ=DIALOG_PRB, TYP=UVS, CDS=(B,C), STR=(~PRB,~SCAN)) If (BXP=CHS:~PRB =='PRB(45)' ||~PRB =='PRB(46)' ||~PRB =='PRB(47)' ||~PRB =='PRB(48)' ) USECSY (NAM=REFR$CSY) ChangeToolManual (PBC=(550.0,200.0,-250.0), TAC=~PRB, PAC=(550.0,200.0,-250.0)) ElseIf USEPRB (NAM=~PRB) USECSY (NAM=REFR$CSY) EndIf GETVALS (OBJ=~PRB, TYP=PRB, RDS=D, REA=PRBDIA) USECSY (NAM=CSY(4)) ~CSY=_CSY STOP MOVCMM (TYP=ABS, DST=(-160.0,-DIA2/2-PRBDIA,PRBDIA+10)) DO (NAM=I, BGN=9, END=9) !OUT ZZ(I)=LENG/2 If (BXP=CHS:~SCAN =='Y') GENSCACIR (NAM=A(I), PLA=XY, INO=O, TYP=CIR, XCO=0, YCO=0, ZCO=-ZZ(I), DIA=DIA2, DNS=1.00, SPD=14.0, PDI=PRBDIA, MIP=-135.00, MXP=225.00, FLT=50, NBT=2, RST=1, CSY=~CSY, RTS=N) GENCLP (NAM=A(I), DIS=5.0, POS=N, PRB=PRB, IDX='(47,48,45,46)', PCH=Y) EndIf ! Else If (BXP=CHS:~SCAN =='N') GENCIR (NAM=A(I), XCO=0, YCO=0, ZCO=-ZZ(I), DIA=DIA2, NPT=20, PLA=XY, INO=O, MIP=-135, MXP=225, PDI=PRBDIA, CSY=~CSY) GENCLP (NAM=A(I), DIS=5.0, POS=N, PRB=PRB, IDX='(47,48,45,46)', PCH=Y) EndIf ! MECIR (NAM=A(I), CSY=~CSY, MOD=NOE, CPY=DEF$CIR5, DEL=N) ENDDO ! EndIf DO (NAM=I, BGN=9, END=9) !EDTTXT (NAM=A(I)) !EDTEVA (NAM=A(I)) PUTVALS (OBJ=A(I).EVA(1), RDS=(A,B,C), VAL=(DIA2,OT2,UT2)) PUTVALS (OBJ=A(I).EVA(2), RDS=(A,B), VAL=(0,0.025)) PUTVALS (OBJ=A(I).EVA(3), RDS=(A,B,C), VAL=(0,0.05,-0.05)) PUTVALS (OBJ=A(I).EVA(3), RDS=(A,B,C), VAL=(0,0.05,-0.05)) TRAELE (NEW=A(I), TRA=CSY(4), OLD=A(I), TYP=CSY, RPL=N, EVA=Y) !EDTTXT (NAM=A(I+1)) !EDTEVA (NAM=A(I+1)) PUTVALS (OBJ=A(I+1).EVA(1), RDS=(A,B), VAL=(0,0.01)) COAXTY (NAM=A(I+1), OBJ=A(I).$PT, DAT=AXI.$PT, MMC=N) ENDDO ! USEPRB (NAM=PRB(47)) MOVCMM (TYP=ABS, DST=(-160.0,-DIA2/2-PRBDIA,-ZZ(9))) MOVCMM (TYP=ABS, DST=(-160.0,-DIA2/2-PRBDIA,-LENG-PRBDIA)) ! DFNELE (NAM=A(11), TYP=PLA, CSY=CSY(4)) GENCIR (NAM=A(11), XCO=0, YCO=0, ZCO=-LENG, DIA=DIA_PLA, NPT=16, PLA=XY, INO=N, MIP=-135, MXP=225, PDI=PRBDIA, CSY=~CSY, ZVL=-10) GENCLP (NAM=A(11), DIS=10.0, POS=N, PRB=PRB, IDX='(47,48,45,46)', PCH=Y) !EDTTXT (NAM=A(11)) !EDTEVA (NAM=A(11)) PUTVALS (OBJ=A(11).EVA(2), RDS=(A,B,C), VAL=(LENG,0.04,-0.04)) PUTVALS (OBJ=A(11).EVA(1), RDS=(A,B), VAL=(0,0.05)) MEPLA (NAM=A(11), CSY=~CSY, ITY=GSS) ! EDTTXT (NAM=A(12)) !EDTEVA (NAM=A(12)) PUTVALS (OBJ=A(12).EVA(1), RDS=(A,B), VAL=(0,0.01)) PARALL (NAM=A(12), OBJ=A(11), DAT=A(1), MMC=N) ! GetDMEPos (XPO=X, YPO=Y, ZPO=Z) MOVCMM (TYP=ABS, DST=(X,Y,PRBDIA/2+5)) ! ADDEVA (NAM=(A(1), A(2), A(3), A(4), A(5), A(6), A(7), A(8), A(9), A(10), A(11), A(12)), EDT=N) ! ---- Save program and report 100:CONCAT (NAM=~SAV$FOL, STR=F:\Quindos7lib\Programme\, RLS=N, INI=Y) CONCAT (NAM=~SAV$WDB, STR=(~SAV$FOL,~DRWG,'\'), INI=Y) MAKEDIR (DIR=~SAV$WDB, OPT=C) CONCAT (NAM=~SAV$FOLD, STR=F:\Quindos7lib\Protokolle\, RLS=N, INI=Y) CONCAT (NAM=~SAV$RPO, STR=(~SAV$FOLD,~DRWG,'\'), INI=Y) MAKEDIR (DIR=~SAV$RPO, OPT=C) CONCAT (NAM=~SUB$WDB, STR=(~SAV$WDB,~DESC), RLS=N, INI=Y) !MAKEDIR (DIR=~SUB$WDB, OPT=C) CONCAT (NAM=~SUB$RPO, STR=(~SAV$RPO,' '), RLS=N, INI=Y) !MAKEDIR (DIR=~SUB$RPO, OPT=C) CONCAT (NAM=~SAV$FIL, STR=(~SUB$WDB,' '), INI=Y) CONCAT (NAM=~SAV$FILE, STR=(~SUB$RPO,' '), INI=Y) PLS_PageToReport (SRC="1-10", NAM=[], ORD=[0]) SAVE (FIL=~SAV$FIL, KEP=1) PRS_SaveDoc (DIR=~SAV$FILE, FIL=Report_) !PLS_SaveDoc (DIR=F:\Quindos7lib\Protokolle\4.481142.Q\, FIL=Plot_) !FREIFAHREN USECSY (NAM=REFR$CSY) If (BXP=CHS:~PRB =='PRB(45)' ||~PRB =='PRB(46)' ||~PRB =='PRB(47)' ||~PRB =='PRB(48)' ) USECSY (NAM=REFR$CSY) ChangeToolManual (TBC=~PRB, PBC=(550.0,200.0,-250.0), TAC=NoTool, PAC=(550.0,2000.0,-250.0)) EndIf ! INQSTR (NAM=~PUT_PRB, STR='Y/[N]', MSG=PUT_PRB) CVUPCASE (CHS=~PUT_PRB) IFTHENS (ST1=~PUT_PRB, ST2=Y, TYP=EQ) PUTPRB MOVCMM (TYP=ABS, DST=(540,2400,-290), CSY=REFR$CSY) ENDIF ! GOTO (LAB=1)