584,826 active members*
5,275 visitors online*
Register for free
Login
IndustryArena Forum > Machine Controllers Software and Solutions > SIEMENS Sinumerik CNC controls > SIEMENS -> GENERAL > WRITE process giving fits / new to try this process / help needed
Results 1 to 3 of 3
  1. #1
    Join Date
    Mar 2012
    Posts
    16

    WRITE process giving fits / new to try this process / help needed

    Hello there, we are trying to capture some measured values with the probe on our machine and would like to "write" the information to a file using the "write" capability of the machine. The probing process is working fine but the issues come into play when we get to the "write" to process. The machine alarms out and there is something with the logic that the machine doesn't like. This is a new process for us to try to accomplish, so any help in deciphering this is appreciated. The program info is as follows. If anything pops out as something that might be giving us fits please let me know. Any help is greatly appreciated.

    N370 ;NOW THE PROBE WILL TOUCH OFF ON THE 730 BORE AND THE 508 BORE

    N380 ;WILL MEASURE 2 BORES ON B0 SIDE
    N390 G0 X0 Y0;730 DIA BORE FIRST
    N400 G0 Z100 ;(SAFE PLANE IN FRONT OF PART)
    N410 G1 Z=-110-15 F1000
    N420 _MVAR=101 _SETVAL=730 _PRNUM=1001 _STA1=45 _INCA=90 _KNUM=0 _FA=30 _TSA=25 _VMS=0 _NMSP=1 _EVNUM=0 _CPA=0 _CPO=0
    N430 CYCLE979
    N440 STOPRE
    N450 R60=_OVR[4];CAPTURES THE DIA IN VARIABLE R60
    N460 R61=_OVR[5];CAPTURES THE X IN VARIABLE R61
    N470 R62=_OVR[6];CAPTURES THE Y IN VARIABLE R62

    N480 G0 X0 Y0;508 DIA BORE NEXT
    N490 G1 Z=-229-15 F1000
    N500 _MVAR=101 _SETVAL=508 _PRNUM=1001 _STA1=45 _INCA=90 _KNUM=0 _FA=30 _TSA=25 _VMS=0 _NMSP=1 _EVNUM=0 _CPA=0 _CPO=0
    N510 CYCLE979
    N520 STOPRE
    N530 R63=_OVR[4];CAPTURES THE DIA IN VARIABLE R63
    N540 R64=_OVR[5];CAPTURES THE X IN VARIABLE R64
    N550 R65=_OVR[6];CAPTURES THE Y IN VARIABLE R65

    N560 G75 Z1=0; Return Z axis to machine zero position

    N570 ;NOW THE PROBE WILL TOUCH OFF ON THE 571.5 BORE
    N580 G0 G90 G54 X0; CENTER PALLET IN MACHINE
    N590 ;ROTATE TO B180 SIDE
    N600 G0 G521 B=DC(180)
    N610 STOPRE
    N620 ZP=-150

    N630 ;WILL MEASURE 1 BORE ON B180 SIDE
    N640 G0 X0 Y0;571.5 DIA BORE
    N650 G0 Z1200 ;(SAFE PLANE IN FRONT OF PART)
    N660 G1 Z=1055-15 F1000
    N670 _MVAR=101 _SETVAL=571.5 _PRNUM=1001 _STA1=45 _INCA=90 _KNUM=0 _FA=30 _TSA=25 _VMS=0 _NMSP=1 _EVNUM=0 _CPA=0 _CPO=0
    N680 CYCLE979
    N690 STOPRE
    N700 R66=_OVR[4];CAPTURES THE DIA IN VARIABLE R66
    N710 R67=_OVR[5];CAPTURES THE X IN VARIABLE R67
    N720 R68=_OVR[6];CAPTURES THE Y IN VARIABLE R68

    N730 ;NOW TO SET THE COMPARE VALUES FOR BORE ALIGNMENT
    N740 ;R70 AND R71 ARE THE X AND Y COMPARE FOR B0 MEASURES BORES
    N750 R70=ABS[R61]-ABS[R64];730X MINUS 508X CENTER VALUES
    N760 R71=ABS[R62]-ABS[R65];730Y MINUS 508Y CENTER VALUES

    N770 ;R72 AND R73 ARE THE X AND Y COMPARES OF B0 AND B180 ROTATION
    N780 R72=ABS[R61]-ABS[R67];730X ON B0 MINUS 571.5X ON B180
    N790 R73=ABS[R62]-ABS[R68];730Y ON B0 MINUS 571.5Y ON B180
    N800 ;------------------------------------------------------------

    N810 ;NEXT RUN OF INFO WILL 'WRITE' INFO TO 'WINERGYBORES' LOG

    N820 DEF INT ERROR
    N830 DEF STRING[10] TIME,DATE
    N840 DEF STRING[40] FILENAME="/_N_WKS_DIR/_N_LOGDATA_WPD/WINERGYBORES"
    N850 ;MACHINE INFO VARIABLE FOR 'DATE' IS
    N860 ;MACHINE INFO VARIABLE FOR 'TIME' IS
    N870 WRITE(ERROR,FILENAME,"-------------------------------------")
    N880 WRITE(ERROR,FILENAME,"PROG NAME: "<<$P_PROG[0])
    N890 WRITE(ERROR,FILENAME,"DATE: "<<$A_YEAR <<$A_MONTH <<$_DAY)
    N900 WRITE(ERROR,FILENAME,"TIME: "<<$A_HOUR <<$A_MINUTE)
    N910 WRITE(ERROR,FILENAME,"SEQUENCE NUMBER: "<<ANZPROT)
    N920 WRITE(ERROR,FILENAME,"B0 730+.041-.007 BORE: "<<R60)
    N930 WRITE(ERROR,FILENAME,"730 X AND Y POSITION: X"<<R61" Y"<<R62)
    N940 WRITE(ERROR,FILENAME,"B0 508 BORE: "<<R63)
    N950 WRITE(ERROR,FILENAME,"508 X AND Y POSITION: X"<<R64" Y"<<R65)
    N960 WRITE(ERROR,FILENAME,"B180 571.5+.037-.007 BORE: "<<R66)
    N970 WRITE(ERROR,FILENAME,"571.5 X AND Y POSITION: X"<<R67" Y"<<R68)
    N980 WRITE(ERROR,FILENAME,"BORE ALIGNMENT FROM B0 SIDE: X"<<ABS[R70]" Y"<<ABS[R71])
    N990 ;THIS COMPARES THE 730 BORE TO THE 508 BORE POSITIONS TO EACH OTHER
    N1000 WRITE(ERROR,FILENAME,"BORE ALIGNMENT FROM B0 TO B180 SIDE: X"<<ABS[R72]" Y"<<ABS[R73])
    N1010 ;THIS COMPARES THE B180 571.5 BORE TO THE B0 730 BORE FOR ALIGNMENT

    N1020 R80=1;THIS IS TO JUMP BORE PROBING IF RE-RAN BECAUSE OF 1685 BORE PROCESS

    N1030 PROBEDONE;
    N1040 L321;TURN PROBE OFF

  2. #2
    Join Date
    May 2013
    Posts
    37

    Re: WRITE process giving fits / new to try this process / help needed

    N810 ;NEXT RUN OF INFO WILL 'WRITE' INFO TO 'WINERGYBORES' LOG

    N820 DEF INT ERROR
    N830 ;DEF STRING[10] TIME,DATE <-- NOT USE
    N840 DEF STRING[40] FILENAME="/_N_WKS_DIR/_N_LOGDATA_WPD/_N_WINERGYBORES_MPF" ;OR SPF
    N850 ;MACHINE INFO VARIABLE FOR 'DATE' IS
    N860 ;MACHINE INFO VARIABLE FOR 'TIME' IS
    N870 WRITE(ERROR,FILENAME,"-------------------------------------")
    N880 WRITE(ERROR,FILENAME,"PROG NAME: "<<$P_PROG[0])
    N890 WRITE(ERROR,FILENAME,"DATE: "<<$A_YEAR <<$A_MONTH <<$_DAY)
    N900 WRITE(ERROR,FILENAME,"TIME: "<<$A_HOUR <<$A_MINUTE)
    N910 WRITE(ERROR,FILENAME,"SEQUENCE NUMBER: "<<ANZPROT);NO DEF OR GLOBAL OR DEF IN LOW PROG LEVEL??
    N920 WRITE(ERROR,FILENAME,"B0 730+.041-.007 BORE: "<<R60)
    N930 WRITE(ERROR,FILENAME,"730 X AND Y POSITION: X"<<R61<<" Y"<<R62) ;!@#$% FORGOT<<
    N940 WRITE(ERROR,FILENAME,"B0 508 BORE: "<<R63)
    N950 WRITE(ERROR,FILENAME,"508 X AND Y POSITION: X"<<R64<<" Y"<<R65) ;!@#$% FORGOT<<
    N960 WRITE(ERROR,FILENAME,"B180 571.5+.037-.007 BORE: "<<R66)
    N970 WRITE(ERROR,FILENAME,"571.5 X AND Y POSITION: X"<<R67<<" Y"<<R68) ;!@#$% FORGOT<<
    N980 WRITE(ERROR,FILENAME,"BORE ALIGNMENT FROM B0 SIDE: X"<<ABS[R70] <<" Y"<<ABS[R71])
    N990 ;THIS COMPARES THE 730 BORE TO THE 508 BORE POSITIONS TO EACH OTHER
    N1000 WRITE(ERROR,FILENAME,"BORE ALIGNMENT FROM B0 TO B180 SIDE: X"<<ABS[R72]<<" Y"<<ABS[R73])
    N1010 ;THIS COMPARES THE B180 571.5 BORE TO THE B0 730 BORE FOR ALIGNMENT

    N1020 R80=1;THIS IS TO JUMP BORE PROBING IF RE-RAN BECAUSE OF 1685 BORE PROCESS

    N1030 PROBEDONE;
    N1040 L321;TURN PROBE OFF

    I see problem and mark to red

  3. #3
    Join Date
    Mar 2012
    Posts
    16

    Re: WRITE process giving fits / new to try this process / help needed

    Partur,
    Thanks for the follow up. I also heard beck from a Starrag tech on this issue. Their main issue was the "DEF" lines need to be at the beginning of the program and not in the middle. According to them it will give fits if they are located later in the process. I will also add the "<<" in the program to help with the posting info. I will let you guys know how this works out. Trying to get it timed to implement this in the middle of production can be tricky at times. Thanks

Similar Threads

  1. Help with process
    By aadamson in forum SprutCAM
    Replies: 3
    Last Post: 03-07-2012, 07:29 AM
  2. Software Process
    By Ang_Panday in forum CNC (Mill / Lathe) Control Software (NC)
    Replies: 1
    Last Post: 02-15-2008, 12:37 AM
  3. delta dynapath 20 is giving me fits
    By js412000 in forum CNC (Mill / Lathe) Control Software (NC)
    Replies: 3
    Last Post: 01-04-2008, 12:32 AM
  4. In the process
    By Smitty911 in forum Dolphin CAD/CAM
    Replies: 5
    Last Post: 05-10-2007, 06:34 AM
  5. Tig Process ??
    By millman52 in forum Welding Brazing Soldering Sealing
    Replies: 46
    Last Post: 04-30-2007, 07:41 PM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •