Приветствую.
Кто нибудь сможет помочь со скриптом. Требуется отсканировать блинчик по двум осям 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()
Дилетанту сложные вещи кажутся очень простыми, и только профессионал понимает насколько сложна самая простая вещь
Кто хочет - ищет возможности, кто не хочет - ищет оправдание.
Найди работу по душе и тебе не придется работать.
Информации по этому коду нет. Но я понял это открытие файла для записи.Он работает.
Был такой код по нему сканер начинает бежать но при первом срабатывании останавливается и все.
А по идее должен отойти и продолжить дальше записав в фаил.
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()
Программу нужно по шагово отлаживать в VB Script Editot.
Дилетанту сложные вещи кажутся очень простыми, и только профессионал понимает насколько сложна самая простая вещь
Кто хочет - ищет возможности, кто не хочет - ищет оправдание.
Найди работу по душе и тебе не придется работать.
А какая вообще задача стоит? Вы этим скриптом хотите писать G-code, сохранять его, а потом запускать его, чтобы найти центр?
Не слишком ли заморочено? По моему проще прям кнопкой вызвать код сканирования, как мне кажется - это проще.
Подписывайтесь на канал YouTube Game Of CNC
А это сайтик сбаценный на тильде, с информацией о нас и нашей работе - заходите