Предлагаю здесь обсуждать и делиться скриптами и макросами для Mach.

Макросы и скрипты предоставляют большие удобства при работе. Можно, например одной нажатием одной кнопки сделать сразу несколько операций.

Я делаю так. В Mach3Screen или Screen4 создаю нужную кнопку и в окне Execute G-Code (для Mach3Screen) или G-Code Function (для Screen4) пишу например, М1015 (М-латинская). Всё это дело сохраняю. Давать имена (значения) желательно выше 1000, чтобы не совпали с стандартными Machа.
Далее в Mach открываю Operator / VB Script Editor и в появившемся в окне ввожу текст скрипта и сохраняю его в папке macros, а в ней папке с соответствующим профилем, например Plasma. Название даю точно такое же, как указывал для кнопки (М1015).
В новых версиях Масh есть уже встроенный редактор кнопок. Можно пользовать им, но так как я пользуюсь Version R1.83.027, то описываю именно для этого варианта.
Редактором кнопок можно «выдирать» и смотреть примеры макросов из каких нибудь скринсетов.
В Visual Basic я не силён, о правилах написания и командах можно почитать специальную литературу. Я всё делал «методом научного тыка». В ниже приведённых примерах после верхней запятой – идут комментарии и соответственно, всё что находится в одной строке после верх.запятой не учитывается.

Вот например, мне для своего экрана понадобилась кнопка чтобы могла запомнить позицию, «обнулить» все оси, перемотать программу на начало и «обновить» экран. Эту кнопку я назвал «УСТАНОВИТЬ НОЛЬ ДЕТАЛИ».
-----------------------------
' Set Variable Position + ZerroAll + Rewind + RegenScreen

x = GetABSPosition(0) ‘ переписать (запомнить)
y = GetABSPosition(1) ‘ абсолютные
z = GetABSPosition(2) ‘ координаты X,Y,Z
SetUserDRO 1000, x ‘ (координаты станка)
SetUserDRO 1001, y ‘ (Это стандартный
SetUserDRO 1002, z ‘ скрипт Set Variable Position)

DoOEMButton(1007) ‘ «Обнулить» все оси
code "M30" ‘ «Перемотать на начало»
While ismoving() ‘ Ждём пока программа
Sleep 100 ‘ перемотается
Wend ‘ Как перемоталась
DoOEMButton(160) ‘ «Обновить» экран
------------------------------

Следующий пример – нажатие этой кнопки позволяет вернуться на ранее запомненную позицию (с помощью предыдущей кнопки) (например, в начале работы или после пропадания напряжения питания компа или «зависания»), обнулить положение, перемотать программу и «обновить» экран.
У меня она называется «К НУЛЮ ДЕТАЛИ».
----------------------------------
' Goto Variable Position + Zerro All + Zero Torch Cal
DoOEMButton(1007) ‘ «Обнулить» все оси
x = GetUserDRO( 1000 ) ‘ Восстановление позиции
y = GetUserDRO( 1001 ) ‘
z = GetUserDRO( 1002 ) ‘
code "G0G53X" & x & "Y" & y ‘ Переезд к этой позиции
'code "G0G53Z" & z ‘ (Это стандартный Goto Variable Position)

While ismoving() ' Подождать,
Sleep 100 ' пока
Wend ' не приедет
DoOEMButton(1007) ' Как только приехал, "обнулить положение"
code "M30" ‘ «Перемотать на начало»
While ismoving() ‘ Ждём пока программа
Sleep 100 ‘ перемотается
Wend ‘ Как перемоталась
DoOEMButton(160) ‘ «Обновить» экран
------------------------------


Другая моя кнопка «К НУЛЮ СТАНКА» возвращает портал в исходное положение с последующей перекалибровкой датчиков начального положения (Home). Этот скрипт я также сделал, чтобы он стартовал при первом запуске Mach после нажатия Reset. Для этого в Mach в Config / State / в строке Initialization String ввожу номер этого скрипта, например М1001.
В этой строке также можно задать скорость подачи, которая устанавливается при включении. По умолчанию скорость подачи в Масн = 6мм/мин. Например, если у меня наиболее часто используемая скорость 400мм/мин, то я пишу в строке F400.
Можно сразу выполнить несколько команд, например G80M1001F400.

----------------------------
' GoHome + RefAll
‘ Макрос возрата "Домой" с последующей калибровкой "концевиков"

DoOEMButton(1007) ‘ Zero All - "обнулить положение"
code "G0G28.1Z" & z-0.1 ‘ Откалибровать ось Z
While ismoving() ' Подождать пока
Sleep 100 ' она не откалибруется
Wend ' Как только это закончилось
DoOEMButton(1007) ' «Обнулить» все оси

code "G0G53X" & x-10 & "Y" & y-5 ‘ И поехать
While ismoving() ' поближе к дому
Sleep 100 ' Подождать, пока не приедет
Wend ' как только приехали, снова
DoOEMButton(1007) ' «Обнулить» все оси
CODE "G28.1X-0.1Y-0.1" ' И начать калибровку X и Y
While ismoving() ' Подождать
Sleep 100 ' калибровку
Wend ' и опять
DoOEMButton(1007) ‘ «Обнулить» положение
--------------------------------------------



Вот ещё несколько примеров. Я их не использован, но они взяты со стандартных сетов.
-------------------------------
'Display Mode - Переключения режима отображения на экране
value = GetParam("Boundry")
if value = 1 then
'SetButtonText " Job "
SetParam "Boundry" , 0
else
SetParam "Boundry" , 1
'SetButtonText "Machine"
end if
-----------------

--------------------
' Set Z
Code "G92.2"
'Call SetDRO(24,0)
Call SetDRO(2, ABS(GetOEMDRO(1001)))
----------------------

--------------------
' Zero X, Y ("обнуление" окошек, без переезда)
Call SetDRO(0,0)
Call SetDRO(1,0)
---------------------
--------------------
'Ref All Home – калибровка всех осей
DoButton( 24 ) ‘ Ref Z
DoButton( 23 ) ‘ Ref Y
DoButton( 22 ) ‘ Ref X
DoButton( 25 ) ‘ Ref A
----------------------

Ещё несколько маленьких примеров:

Для этого примера (включение/выключение выхода Output4 одной кнопкой) кроме кнопки надо создать ещё светодиод с ОЕМ кодом =77 (для Output4)
------------------------
' Output 4 On/Off
' Макрос включения/выключения выхода одной кнопкой
If Not GetOEMLed (77) Then ' Если индикатор Output 4 Active LED не светиться,
DoOEMButton(233) ' то выполнить "нажатие" кнопки Output 4 On
Else ' Если иначе (индикатор светиться), то
DoOEMButton(234) ' выполнить нажатие кнопки Output 4 Off
End If '
-------------------------

Этот скрипт вкл./выкл. Триггер1 с индикацией его состояния. Также кроме кнопки создаём свой (нестандартный) светодиод с ОЕМ кодом. Значение этого кода желательно, чтобы было выше 1000. В примере - LED с ОЕМ = 1030.
Вместо сигнала триггера можно использовать другие.
-----------------------
' Trigger1 & Led On/Off
' Макрос включения/выключения триггера 1 с индикацией его состояния.
If GetUserLED (1030) Then ‘ Если индикатор светиться,
DeActivateSignal( OEMTRIG1) ‘ то сбросить триггер
Call SetUserLED (1030, 0) ‘ и погасить индикатор
Else ‘ Иначе (при погашенном индикаторе)
ActivateSignal( OEMTRIG1) ‘ установить триггер
Call SetUserLED (1030,1) ‘ и зажечь индикатор
End If ‘ Конец команды IF
-------------------------

С помощью этого скрипта удобно задавать наиболее часто используемую скорость подачи с одновременным сбросом до 100%. Я сделал для себя несколько кнопок с часто используемыми значениями. Вот пример для задания скорости 250мм/мин.
----------------------------------------
SetDRO 18, 250 ‘ Установить в окне «FeedRate» значение=250
DoOEMButton(1014) ‘ Сбросить скорость подачи до 100%
------------------------------------------


Надеюсь приведенная мною информация окажется полезной, и здесь продолжится обмен скриптами и макросами.

arisov77
Тема хорошая,полезная и многим пригодится.
Но например мне понятно как засунуть и прописать скрипт,а обычному пользователю нет.
Поэтому нужно подробное описание как изменять сет,как делать горячие клавиши,добавлять кнопки,убирать т .п.
Как работать с Screen3.exe,Screen4.exe.
Причем с картинками или видео.
Может займетесь?

У меня уже кое что и для этого подготовленно. Оформлю и выложу. Только всё кратенько будет, на основе моего примера.

Вот и от меня кое-что.
Вчера переделывал под мет. фрезер,пока не доделан,но оптимизирован для клавы.
Ну, и 0 по Z ищет,центр отверстия,края.

Раз уж так, добавлю скрипт смены инструмента на токарном по команде М06




исполнительное устройство на выходе OUTPUT x может быть любым, пневмоцилиндр, электромагнит, электромотор. В настройках мотора на оси А надо указать 1 шаг на единицу.

Пожалуйста дайте пример как там все это надо делать , пошагово и сначала .

Обещанного 3 года ждут… О своём обещании постоянно помнил, но всё никак «руки не доходили». Наконец то «осилил» это дело http://www.cnczone.ru/forums/index.php?showtopic=788
Дело это оказывается и не такое уж и лёгкое . Написал только создание одной кнопочки и ещё кое-что.. Может быть когда-нибудь сделаю видео по созданию других операций, но не обещаю, т.к. надо на это время, а его как обычно всегда не хватает.
Модераторам – не пора ли отдельную ветку для Mach сделать? ArtCAM и Linux CNC EMC2 есть, а как же Mach? Неужели не заслуживает?

Немного про макросы-скрипты есть здесь http://www.cncrouter.ru/forum/index.php?showforum=45

Подскажите как написать макрос (точнее, что надо написать), чтобы сбрасывать кнопкой обороты шпинделя на 100%. Нужен именно макрос (та кнопка, что есть в программе не пойдет, т.к. надо привязать ее к плагину)

Честно, говоря – не знаю (не нашёл, для меня - пока не было такой надобности), где и как устанавливать (сбрасывать) скорость шпинделя в 100%.
Можно попробовать сделать так: «сделать» экранную кнопочку http://www.cnczone.ru/forums/index.php?showtopic=788, назначить под неё макрос (как делать - описывал выше), в котором написать: SetDRO 17, 100 . Число 100 может быть другим, т.е. вписываете не 100%, а Ваше значение средней скорости шпинделя.
Можно создать несколько таких кнопок, с разными значениями скоростей и назначить им "горячие" клавиши.
Это первое, что приходит "на ум". Возможно есть ещё какие то способы.

Спасибо, но это маленько не то...
Мне надо использовать кнопочку резет шпинделя через макрос.
Для сброса оборотов шпинделя в заданные программой 100%.

впишите в макрос код существующей кнопки.
найдите его через скрин дизайнер.

ОЕМ-кода кнопок здесь http://www.machsupport.com/MachCustomizeWi...tle=OEM_Buttons .
Если версия Масна до 1.90, то пишется DoButton (N), если выше - DoOEMButton (N), где N – номер ОЕМ-кода.

Не получается сделать кнопку одновременного перемещения по 2 осям ,
например , X++Y++ .
Экранный джойстик не нравится . Если кто-то знает , подскажите .

Хочу поблагодарить AlexSPB за скрин с автообнулением. Сэкономил время на копание скрипта. На основе этого скрина забацал щуп центроискатель.
смотрим

Можно поподробнее о центроискателе и автообнулителе?
Точность, техническое устройство и т.п.

Конструкция простая. Стакан с металическим стержнем ,отцентрированным в торце на 0.5 мм.Внутри залито жидкой резиной(планируее еще вариант вулканизированной сырой ).Точность буду мерять ,как только резина "состарится".

Вариант реализации авто смены инструмента, с измерением длины инструмента и авто привязки его по Z.

Здравствуйте. Скажите пожалуйста этот макрос куда надо вставить? это поиск всех инструментов и внесение их значений грубо говоря пойди посмотри что есть в лотке? и он работает по принципу вертикального взятия и снятия инструмента??

или макрос по такому принципу будет работать как в ролике: https://www.youtube.com/watch?v=HH6yOOAq-NY

привет всем
с макросом более-менее разобрался, но по нему инструмент берётся сверху,а как написать чтобы инструмент забирался с вилки???
то есть переехал на позицию, опустился далее опять переехал по y (или X) оставил инструмент ну и т.д.