Рбота со сканером (центроискателем)

[sim4]

Приветствую.
Кто нибудь сможет помочь со скриптом. Требуется отсканировать блинчик по двум осям X и Y (центроискателем)
Запускаю аддон (самопис кривой ) ничего не получается. Где ошибка,

Код: Выделить всё

XWidth = GetUserDRO( 1001 )
YWidth = GetUserDRO( 1004 )
Stepx = GetUserDRO (1005)
Feed =  GetUserDRO( 1008 )
 
' now open a digitize.tap file
' all code commands then go to file.
OpenTeachFile "Digitize.tap"

code " (Digitize File) "
' set the current location to 0,0,0 and open the file
code "M40"
code "G92X0Y0"
code "F" & Feed
direction = 0
' first iterative loop
for y = 0 to XWidth step Stepx
    if direction = 1 then 
       direction = 0
     else
       direction = 1
    end if
    for x = 0 to YWidth step Stepx
       if direction = 1 then   
           code "G0X" & y & "Y" & x 
      else
           code "G0X" & y & "Y" & YWidth - x 
      end if
      code " G31 Y" & Stepx 
       code " G0 Y" & YWidth  
  Next 
Next 
if direction = 1 then   
           code "G0X" & XWidth & "Y" & YWidth 
      else
           code "G0X" & 0 & "Y" & YWidth 
      end if


code "G01X0Y0" & Safe
code "G0X0Y0 "
code "M30"

CloseTeachFile
call LoadStandardLayout()
call LoadTeachFile()

[aftaev]

А код М40 работает?

[sim4]

А код М40 работает?

Информации по этому коду нет. Но я понял это открытие файла для записи.Он работает.
Был такой код по нему сканер начинает бежать но при первом срабатывании останавливается и все.
А по идее должен отойти и продолжить дальше записав в фаил.

Код: Выделить всё

XWidth = GetUserDRO( 1001 )
YWidth = GetUserDRO( 1004 )
Stepx = GetUserDRO (1005)
Feed =  GetUserDRO( 1008 )
 
' now open a digitize.tap file
' all code commands then go to file.
OpenTeachFile "Digitize.tap"

code " (Digitize File) "
' set the current location to 0,0,0 and open the file
code "M40"
code "G92X0Y0"
code "F" & Feed
direction = 0
' first iterative loop
for y = 0 to XWidth step Stepx
    if direction = 1 then 
       direction = 0
     else
       direction = 1
    end if
    for x = 0 to YWidth step Stepx
       if direction = 1 then   
           code "G0X" & y & "Y" & x 
      else
           code "G0X" & y & "Y" & YWidth - x 
      end if
     
  Next 
Next 
if direction = 1 then   
           code "G0X" & XWidth & "Y" & YWidth 
      else
           code "G0X" & 0 & "Y" & YWidth 
      end if


code "G01X0Y0" & Safe
code "G0X0Y0 "
code "M30"

CloseTeachFile
call LoadStandardLayout()
call LoadTeachFile()

[aftaev]

Программу нужно по шагово отлаживать в VB Script Editot.

[sim4]

Программу нужно по шагово отлаживать в VB Script Editot.

Есть возожмность помочь?

[sim4]

Как я понимаю на выходе должен бытьтакой код.

Код: Выделить всё

(Digitize File) 
M40
G92X0Y0
F100
G31X0Y10
G0X1Y0
G31X1Y10
G0X2Y0
G31X2Y10
G0X3Y0
G31X3Y10
G0X4Y0
G31X4Y10
G0X5Y0

А по факту получается такой.

Код: Выделить всё

M40
G92X0Y0
F100
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X0Y1
G31X1Y10
G31X1Y9
G31X1Y8
G31X1Y7
G31X1Y6
G31X1Y5
G31X1Y4
G31X1Y3
G31X1Y2
G31X1Y1
G31X1Y0
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X2Y1
G31X3Y10
G31X3Y9
G31X3Y8
G31X3Y7
G31X3Y6
G31X3Y5
G31X3Y4
G31X3Y3
G31X3Y2
G31X3Y1
G31X3Y0
G31X4Y1
G31X4Y1

[PLOT]

А какая вообще задача стоит? Вы этим скриптом хотите писать G-code, сохранять его, а потом запускать его, чтобы найти центр?
Не слишком ли заморочено? По моему проще прям кнопкой вызвать код сканирования, как мне кажется - это проще.