Verzweiflung!
Verfasst: Mo Jul 15, 2024 6:40 am
Guten Morgen Freunde,
ich weiß echt nicht, was ich hier falsch programmiert habe. Ich bekomme jedes mal einen anderen Winkel ausgewertet. könntet ihr einmal über dieses Programm schauen und mir erklären, was ich da falsch gemacht habe?
!**************************************************************!
! GROBE AUSRICHTUNG VON HAND! !
!**************************************************************!
MEPLA (NAM=PLA_G, CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y)
MECIR (NAM=CIR_G, CSY=CSY, PRO=PLA_G, MOD=NOE, PTY=EX, DEL=Y)
!MEPLA (NAM=AXI_G, CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y)
MECIR (NAM=CIR_G2, CSY=CSY, PRO=PLA_G, MOD=NOE, PTY=EX, DEL=Y)
DIPNTPNT (NAM=AXI_G, CSY=CSY, EL1=CIR_G, EL2=CIR_G2, MOD=NOE)
BLDCSY (NAM=CSY_G, TYP=CAR, SPA=PLA_G, SDR=+Z, PLA=AXI_G, PDR=+X, XZE=CIR_G, YZE=CIR_G, ZZE=PLA_G)
ShowDialog (DLP=NUTLAGE, OBJ=UVS:NUTLAGE)
!**************************************************************!
! FEINE AUSRICHTUNG VON CMM! !
!**************************************************************!
GENCIR (NAM=PLA_F, DIA=55, NPT=4, PLA=XY, INO=P, MIP=45, MXP=45+360, PDI=2, CSY=CSY_G1, ZVL=10)
MEPLA (NAM=PLA_F, CSY=CSY_G1, MOD=NOE, ITY=GSS)
GENCYL (NAM=CIR_F, ZCO=-37.5, DIA=35, NPT=10, PLA=XY, INO=I, MIP=-60, MXP=240, PDI=2, CSY=CSY_G1, LEN=18, NPL=2, ZVL=48, DEL=Y)
MECYL (NAM=CIR_F, CSY=CSY_G1, MOD=NOE)
GENCIR (NAM=NOCKE_F, XCO=52/2, ZCO=-7, DIA=30.95, NPT=3, PLA=XY, INO=I, MIP=90, MXP=123, PDI=2, CSY=CSY_G1, ZVL=20)
GENCIR (NAM=NOCKE_F, XCO=52/2, ZCO=-7, DIA=30.95, NPT=3, PLA=XY, INO=I, MIP=236, MXP=268, PDI=2, CSY=CSY_G1, ZVL=20, DEL=N)
MECIR (NAM=NOCKE_F, CSY=CSY_G1, MOD=NOE)
DIPNTPNT (NAM=AXI_F, CSY=CSY_G1, EL1=CIR_G, EL2=NOCKE_F, MOD=NOE)
!GENPLA (NAM=AXI_F, XBG=-3, YBG=-20.8, ZBG=-2, XEX=3, YEX=-20.8, ZEX=-2, NPT=3, DIR=-CSY_G.$YDI, CSY=CSY_G, NP2=2, XEY=-3, YEY=-20.8, ZEY=-10)
!MEPLA (NAM=AXI_F, CSY=CSY_G, ITY=GSS)
BLDCSY (NAM=CSY_F, TYP=CAR, SPA=CIR_F, SDR=+Z, PLA=AXI_F, PDR=+X, XZE=CIR_F, YZE=CIR_F, ZZE=PLA_F)
!**************************************************************!
! MESSUNG VON CMM! !
!**************************************************************!
GENCIR (NAM=Ø35H7, ZCO=-20, DIA=35, NPT=21, PLA=XY, INO=I, MIP=-60, MXP=240, PDI=2, CSY=CSY_F, ZVL=30)
MECIR (NAM=Ø35H7, CSY=CSY_F, PRO=PLA_F, MOD=NOE, PTY=EX)
MOVCMM (TYP=ABS, DST=(,-15,10), CSY=CSY_F)
GENPLA (NAM=PLA_1, XBG=-5, YBG=-19.3, ZBG=-19, XEX=-5, YEX=-18, ZEX=-19, NPT=3, DIR=CSY_F.$XDI, CSY=CSY_F, NP2=3, XEY=-5, YEY=-19.3, ZEY=-37.5)
MOVCMM (TYP=ABS, DST=(,-10,10), CSY=CSY_F)
GENPLA (NAM=PLA_2, XBG=5, YBG=-19.3, ZBG=-19, XEX=5, YEX=-18, ZEX=-19, NPT=3, DIR=-CSY_F.$XDI, CSY=CSY_F, NP2=3, XEY=5, YEY=-19.3, ZEY=-37.5)
GENPLA (NAM=PLA_3, XBG=-3, YBG=-20.8, ZBG=-37.5, XEX=3, YEX=-20.8, ZEX=-37.5, NPT=3, DIR=CSY_F.$YDI, CSY=CSY_F, NP2=3, XEY=-3, YEY=-20.8, ZEY=-19)
MEPLA (NAM=PLA_1, CSY=CSY_F, MOD=NOE, ITY=GSS)
MEPLA (NAM=PLA_3, CSY=CSY_F, MOD=NOE, ITY=GSS)
MEPLA (NAM=PLA_2, CSY=CSY_F, MOD=NOE, ITY=GSS)
MOVCMM (TYP=ABS, DST=(,-10,10), CSY=CSY_F)
BLDCSY (NAM=CSY_F1, TYP=CAR, SPA=CIR_F, SDR=+Z, PLA=PLA_3, PDR=+Y, XZE=SYMPLA, YZE=Ø35H7, ZZE=PLA_F)
!**************************************************************!
! FREIFAHREN! !
!**************************************************************!
MOVCMM (TYP=ABS, DST=(,150,100), CSY=CSY_G)
!**************************************************************!
! AUSWERTUNG! !
!**************************************************************!
USECSY CSY_F
DELQUE (NAM=$RPO, CNF=N)
SYMPLA (NAM=SYMPLA, CSY=CSY_F, EL1=PLA_1, EL2=PLA_2, MOD=NOE)
ADDEVA (NAM=Ø35H7)
DISRFSRF (NAM=N10JS9, CSY=CSY_F1, EL1=PLA_1, EL2=PLA_2)
SYMTRY (NAM=Symmetrie_10JS9_z_A, OBJ=Ø35H7.$AXI, DT1=PLA_1, DT2=PLA_2)
TRAOBJ (NEW=CSY_F2, OLD=CSY_F1, ANG=45, AXI=-Z, DTY=CSY)
MECIR (NAM=NOCKE_F, CSY=CSY_F2, PRO=PLA_F, MOD=(NOE,NOM), PTY=EX)
BLDANGLE (NAM=Winkel, PT1=NOCKE_F, PT2=SYMPLA, PT3=Ø35H7, PRO=CSY_F2.$XY, MOD=EVA)
!**************************************************************!
! PROTOKOLLAUSGABE! !
!**************************************************************!
INDFIL (FIL=C:\Quindos7Lib\Proceduren\Plott und Protokoll ausdrucken und speichern.txt)
GOTO (LAB=1)
INDFIL (FIL=C:\Quindos7Lib\Proceduren\SAVE.txt)
CLRALL
ich weiß echt nicht, was ich hier falsch programmiert habe. Ich bekomme jedes mal einen anderen Winkel ausgewertet. könntet ihr einmal über dieses Programm schauen und mir erklären, was ich da falsch gemacht habe?
!**************************************************************!
! GROBE AUSRICHTUNG VON HAND! !
!**************************************************************!
MEPLA (NAM=PLA_G, CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y)
MECIR (NAM=CIR_G, CSY=CSY, PRO=PLA_G, MOD=NOE, PTY=EX, DEL=Y)
!MEPLA (NAM=AXI_G, CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y)
MECIR (NAM=CIR_G2, CSY=CSY, PRO=PLA_G, MOD=NOE, PTY=EX, DEL=Y)
DIPNTPNT (NAM=AXI_G, CSY=CSY, EL1=CIR_G, EL2=CIR_G2, MOD=NOE)
BLDCSY (NAM=CSY_G, TYP=CAR, SPA=PLA_G, SDR=+Z, PLA=AXI_G, PDR=+X, XZE=CIR_G, YZE=CIR_G, ZZE=PLA_G)
ShowDialog (DLP=NUTLAGE, OBJ=UVS:NUTLAGE)
!**************************************************************!
! FEINE AUSRICHTUNG VON CMM! !
!**************************************************************!
GENCIR (NAM=PLA_F, DIA=55, NPT=4, PLA=XY, INO=P, MIP=45, MXP=45+360, PDI=2, CSY=CSY_G1, ZVL=10)
MEPLA (NAM=PLA_F, CSY=CSY_G1, MOD=NOE, ITY=GSS)
GENCYL (NAM=CIR_F, ZCO=-37.5, DIA=35, NPT=10, PLA=XY, INO=I, MIP=-60, MXP=240, PDI=2, CSY=CSY_G1, LEN=18, NPL=2, ZVL=48, DEL=Y)
MECYL (NAM=CIR_F, CSY=CSY_G1, MOD=NOE)
GENCIR (NAM=NOCKE_F, XCO=52/2, ZCO=-7, DIA=30.95, NPT=3, PLA=XY, INO=I, MIP=90, MXP=123, PDI=2, CSY=CSY_G1, ZVL=20)
GENCIR (NAM=NOCKE_F, XCO=52/2, ZCO=-7, DIA=30.95, NPT=3, PLA=XY, INO=I, MIP=236, MXP=268, PDI=2, CSY=CSY_G1, ZVL=20, DEL=N)
MECIR (NAM=NOCKE_F, CSY=CSY_G1, MOD=NOE)
DIPNTPNT (NAM=AXI_F, CSY=CSY_G1, EL1=CIR_G, EL2=NOCKE_F, MOD=NOE)
!GENPLA (NAM=AXI_F, XBG=-3, YBG=-20.8, ZBG=-2, XEX=3, YEX=-20.8, ZEX=-2, NPT=3, DIR=-CSY_G.$YDI, CSY=CSY_G, NP2=2, XEY=-3, YEY=-20.8, ZEY=-10)
!MEPLA (NAM=AXI_F, CSY=CSY_G, ITY=GSS)
BLDCSY (NAM=CSY_F, TYP=CAR, SPA=CIR_F, SDR=+Z, PLA=AXI_F, PDR=+X, XZE=CIR_F, YZE=CIR_F, ZZE=PLA_F)
!**************************************************************!
! MESSUNG VON CMM! !
!**************************************************************!
GENCIR (NAM=Ø35H7, ZCO=-20, DIA=35, NPT=21, PLA=XY, INO=I, MIP=-60, MXP=240, PDI=2, CSY=CSY_F, ZVL=30)
MECIR (NAM=Ø35H7, CSY=CSY_F, PRO=PLA_F, MOD=NOE, PTY=EX)
MOVCMM (TYP=ABS, DST=(,-15,10), CSY=CSY_F)
GENPLA (NAM=PLA_1, XBG=-5, YBG=-19.3, ZBG=-19, XEX=-5, YEX=-18, ZEX=-19, NPT=3, DIR=CSY_F.$XDI, CSY=CSY_F, NP2=3, XEY=-5, YEY=-19.3, ZEY=-37.5)
MOVCMM (TYP=ABS, DST=(,-10,10), CSY=CSY_F)
GENPLA (NAM=PLA_2, XBG=5, YBG=-19.3, ZBG=-19, XEX=5, YEX=-18, ZEX=-19, NPT=3, DIR=-CSY_F.$XDI, CSY=CSY_F, NP2=3, XEY=5, YEY=-19.3, ZEY=-37.5)
GENPLA (NAM=PLA_3, XBG=-3, YBG=-20.8, ZBG=-37.5, XEX=3, YEX=-20.8, ZEX=-37.5, NPT=3, DIR=CSY_F.$YDI, CSY=CSY_F, NP2=3, XEY=-3, YEY=-20.8, ZEY=-19)
MEPLA (NAM=PLA_1, CSY=CSY_F, MOD=NOE, ITY=GSS)
MEPLA (NAM=PLA_3, CSY=CSY_F, MOD=NOE, ITY=GSS)
MEPLA (NAM=PLA_2, CSY=CSY_F, MOD=NOE, ITY=GSS)
MOVCMM (TYP=ABS, DST=(,-10,10), CSY=CSY_F)
BLDCSY (NAM=CSY_F1, TYP=CAR, SPA=CIR_F, SDR=+Z, PLA=PLA_3, PDR=+Y, XZE=SYMPLA, YZE=Ø35H7, ZZE=PLA_F)
!**************************************************************!
! FREIFAHREN! !
!**************************************************************!
MOVCMM (TYP=ABS, DST=(,150,100), CSY=CSY_G)
!**************************************************************!
! AUSWERTUNG! !
!**************************************************************!
USECSY CSY_F
DELQUE (NAM=$RPO, CNF=N)
SYMPLA (NAM=SYMPLA, CSY=CSY_F, EL1=PLA_1, EL2=PLA_2, MOD=NOE)
ADDEVA (NAM=Ø35H7)
DISRFSRF (NAM=N10JS9, CSY=CSY_F1, EL1=PLA_1, EL2=PLA_2)
SYMTRY (NAM=Symmetrie_10JS9_z_A, OBJ=Ø35H7.$AXI, DT1=PLA_1, DT2=PLA_2)
TRAOBJ (NEW=CSY_F2, OLD=CSY_F1, ANG=45, AXI=-Z, DTY=CSY)
MECIR (NAM=NOCKE_F, CSY=CSY_F2, PRO=PLA_F, MOD=(NOE,NOM), PTY=EX)
BLDANGLE (NAM=Winkel, PT1=NOCKE_F, PT2=SYMPLA, PT3=Ø35H7, PRO=CSY_F2.$XY, MOD=EVA)
!**************************************************************!
! PROTOKOLLAUSGABE! !
!**************************************************************!
INDFIL (FIL=C:\Quindos7Lib\Proceduren\Plott und Protokoll ausdrucken und speichern.txt)
GOTO (LAB=1)
INDFIL (FIL=C:\Quindos7Lib\Proceduren\SAVE.txt)
CLRALL