'Поиск центра заготовки с предварительным вводом данных H=GetUserDRO(1160) 'высота подпрыга A=5 ' переезд за заготовку по Х B=5 ' переезд за заготовку по У Sx=GetUserDRO(1154)/2+A Sy=GetUserDRO(1155)/2+B Sxx=GetUserDRO(1154)+A+1 Syy=GetUserDRO(1155)+B+1 Dx=GetUserDRO(1156) Dy=GetUserDRO(1157) Dz=GetUserDRO(1158) 'ищем центр по Х code "G90" Call SetDRO(0,0) Call SetDRO(1,0) code "G0 X" & Dx code "G0 Y" & Dy code "G91" code "G31 Z-1000 F100" While IsMoving() Wend Call SetDRO(2,0) code "G0 Z" & H code "G90" code "G0 X0 Y0" code "G0 X" & Sx code "G0 Z-" & Dz code "G91" code "G31 X-1000 F100" While IsMoving() Wend Call SetDRO(0,0) code "G4 P1" code "G0 X1" code "G90" code "G0 Z" & H code "G0 X-" & Sxx code "G0 Z-" & Dz code "G91" code "G31 X1000 F100" While IsMoving() Wend L1=GetDRO(0)/2 code "G4 P1" code "G0 X-1" code "G90" code "G0 Z" & H code "G0 X" &L1 While IsMoving() Wend 'ищем центр по У Call SetDRO(0,0) Call SetDRO(1,0) code "G0 Y" & Sy code "G0 Z-" & Dz code "G91" code "G31 Y-1000 F100" While IsMoving() Wend Call SetDRO(1,0) code "G4 P1" code "G0 Y1" code "G90" code "G0 Z" & H code "G0 Y-" & Syy code "G0 Z-" & Dz code "G91" code "G31 Y1000 F100" While IsMoving() Wend L2=GetDRO(1)/2 code "G4 P1" code "G0 Y-1" code "G90" code "G0 Z" & H code "G0 Y" &L2 While IsMoving() Wend Call SetDRO(1,0)