Страница 1 из 1
Рбота со сканером (центроискателем)
Добавлено: 05 ноя 2019, 22:01
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()
Re: Рбота со сканером (центроискателем)
Добавлено: 05 ноя 2019, 22:10
aftaev
А код М40 работает?
Re: Рбота со сканером (центроискателем)
Добавлено: 05 ноя 2019, 22:14
sim4
aftaev писал(а):А код М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()
Re: Рбота со сканером (центроискателем)
Добавлено: 06 ноя 2019, 06:34
aftaev
Программу нужно по шагово отлаживать в VB Script Editot.
Re: Рбота со сканером (центроискателем)
Добавлено: 06 ноя 2019, 10:42
sim4
aftaev писал(а):Программу нужно по шагово отлаживать в VB Script Editot.
Есть возожмность помочь?
Re: Рбота со сканером (центроискателем)
Добавлено: 06 ноя 2019, 11:39
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
Re: Рбота со сканером (центроискателем)
Добавлено: 19 ноя 2019, 02:16
PLOT
А какая вообще задача стоит? Вы этим скриптом хотите писать G-code, сохранять его, а потом запускать его, чтобы найти центр?
Не слишком ли заморочено? По моему проще прям кнопкой вызвать код сканирования, как мне кажется - это проще.