Исходный код вики Макрос для формирования карты высот
Скрыть последних авторов
| author | version | line-number | content |
|---|---|---|---|
 |
3.1 | 1 | Для определённых задач (например, фрезеровки печатных плат) возникает необходимость сканирования поверхности с последующей корректировкой неровностей по Z. Карта высот подготавливается с помощью макроса (пример ниже), и на основе этой карты высот модифицируется G-код. Сформировать G-код с готовыми координатами можно, например, в программе G-Code Ripper. |
| 2 | |||
| |
5.1 | 3 | {{code language="lua"}} |
| |
3.1 | 4 | function m155() |
| |
5.2 | 5 | local XWidth = 70 |
| 6 | local YWidth = 50 | ||
| 7 | local SafeZ = 3 | ||
| 8 | local ProbeZ = -3 | ||
| 9 | local StepX = 15 | ||
| 10 | local StepY = 15 | ||
| 11 | local Feed = 50 | ||
| 12 | local TipHeight = 0 | ||
| 13 | local ProbeFilename = "C:\temp\probe.txt" | ||
| |
4.1 | 14 | |
| |
5.2 | 15 | PushCurrentDistanceMode() |
| 16 | PushCurrentMotionMode() | ||
| 17 | |||
| 18 | if (IsProbingPinConfigured()) then | ||
| 19 | file, msg = io.open(ProbeFilename, "w") -- open the file | ||
| 20 | else | ||
| 21 | DisplayMessage("Probe input is not configured") | ||
| 22 | return | ||
| 23 | end | ||
| |
4.1 | 24 | |
| 25 | if (file == nil) then | ||
| |
5.2 | 26 | DisplayMessage("Could not open probe output file ("..msg..")") |
| 27 | Stop() | ||
| 28 | return | ||
| |
4.1 | 29 | end |
| 30 | |||
| 31 | ExecuteMDI("F "..Feed) | ||
| 32 | ExecuteMDI("G90 G38.2 Z-100") | ||
| 33 | |||
| |
5.1 | 34 | ExecuteMDI("G92 X0Y0Z0") -- set the current location to 0,0,0 |
| |
4.1 | 35 | ExecuteMDI("G0 Z"..SafeZ) |
| 36 | |||
| 37 | local direction = 0 | ||
| 38 | for y = 0, YWidth, StepY do | ||
| 39 | if (direction == 1) then | ||
| |
5.2 | 40 | direction = 0 |
| |
4.1 | 41 | else |
| |
5.2 | 42 | direction = 1 |
| |
4.1 | 43 | end |
| |
5.2 | 44 | |
| 45 | for x = 0, XWidth, StepX do | ||
| 46 | if (direction == 1) then | ||
| 47 | ExecuteMDI("G0 X"..x.." Y"..y.." Z"..SafeZ) | ||
| 48 | else | ||
| 49 | ExecuteMDI("G0 X"..(XWidth - x).." Y"..y.." Z"..SafeZ) | ||
| 50 | end | ||
| |
4.1 | 51 | |
| |
5.2 | 52 | ExecuteMDI("G38.2 Z"..ProbeZ) |
| 53 | LogCurrentPos(TipHeight) | ||
| 54 | ExecuteMDI("G0 Z"..SafeZ) | ||
| 55 | end | ||
| 56 | |||
| |
4.1 | 57 | end |
| 58 | |||
| 59 | if (direction == 1) then | ||
| |
5.2 | 60 | ExecuteMDI("G0 X"..XWidth.." Y"..YWidth.." Z"..SafeZ) |
| |
4.1 | 61 | else |
| |
5.2 | 62 | ExecuteMDI("G0 X".."0".." Y"..YWidth.." Z"..SafeZ) |
| |
4.1 | 63 | end |
| 64 | |||
| 65 | local HighZ = 5 | ||
| 66 | ExecuteMDI("G0 Z"..HighZ) | ||
| 67 | ExecuteMDI("G0 X0Y0") | ||
| 68 | |||
| 69 | file:close() | ||
| |
3.1 | 70 | end |
| 71 | |||
| 72 | function LogCurrentPos(tipHeight) | ||
| |
5.2 | 73 | local CurrX = AxisGetPos(Axis.X) |
| 74 | local CurrY = AxisGetPos(Axis.Y) | ||
| 75 | local CurrZ = AxisGetPos(Axis.Z) | ||
| |
4.1 | 76 | |
| |
5.2 | 77 | local fmt = "%.5f" |
| 78 | file:write(string.format(fmt, CurrX)..","..string.format(fmt, CurrY)..",".. | ||
| 79 | string.format(fmt, CurrZ - tipHeight), "\n") | ||
| |
3.1 | 80 | end |
| 81 | {{/code}} | ||
| 82 | |||
| |
4.1 | 83 | [[Скачать макрос>>attach:M155.pm]] |