Помогите пожалуйста!

Насколько я понимаю, вы хотите отфрезеровать вал для тиснения вощин. В арткаме такую модель не построить. Здесь нужна полноценная программа для 3д моделирования: солидворкс, 3д Макс и т.п.

И да - полноценный вал нужно делать  в различных  программах для 3d моделирования например в 3ds Max  или Maya  и тд

Пришлите мне на mnsp@ukr.net эскиз с размерами, создам модель. О стоимости договоримся.

Ну такие вещи обычно пишутся своими руками именно под свой станок.....

Нуля чего? По Z или по всем осям? Кстати, скрипт от контроллера не зависит, так что берите любой с инета и подстраивайте под себя

Насколько я помню, пины прописывал не в скрипте, а в MACH3

Спасибо за помощь. Всех с наступающим новым годом. Хочу установить 0 по z. Пины прописаны по диагностике при замыкании загорается зеленаным цветом DIGITIZE    Вот только текст скрипта ни один не работает пробовал для лрт пота для уэзби. Плата работает с компьютером через интернет кабель. Контроллер на шесть осей.

Спасибо за помощь. Всех с наступающим новым годом. Хочу установить 0 по z. Пины прописаны по диагностике при замыкании загорается зеленаным цветом DIGITIZE    Вот только текст скрипта ни один не работает пробовал для лрт пота для уэзби. Плата работает с компьютером через интернет кабель. Контроллер на шесть осей.

попробуйте этот

'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()

ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 19.00 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will position the Proble 2 MM over the Materia

StopZmove = 0

If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F45"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If

If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If

Exit Sub
'-------------------
'VB Code Stop
Спасибо. Станок стал искать ноль, но возникла проблемма: все по порядку
подключился крокодил к фрезе (вместо фрезы медный провод чтоб не сломать) второй к датчику нажимаю кнопку автопоиск ноля Фреза идёт вниз касается и поднимается к верху на экране высвечивается 21,65 мм
( 19,65+2) где 19,65 мм толщина датчика 2мм это растояние подъёма от точки контакта с пластиной.
И тут начинаются чудеса фреза поднимается не на 2мм, а всегда по разному (2,68- 10,28- 6,56 - 4,04 - 7,01 и т.д.) и на экране в сроке z значения тоже меняются, но если нажать кнопку  goto z фреза опускается на 21,65 мм. Подскажите пожалуйста где искать причину неполадки.

PlateOffset=2.33 'толщина платы мм.
        Zup=50       'Расстояние на которое отойдет фреза после коррекции
        MaxZPlus=250 'максимальный ход станка по оси Z мм.

        Sleep 100    'Пауза 0,1 сек.
        CurrentFeed = GetOemDRO(818) 'Запомнить текущюю скорость, для того чтобы восстановить после коррекции.
       
        Code "F300"    'Задать скорость подачи до касания инструментом

            ZNew = GetDro(2) - MaxZPlus   'опустить инструмент до касания
            Code "G31Z" &ZNew
            While IsMoving()    'Подождать пока произойдет касание платы.
            Wend
       
            ZNew = GetVar(2002)     'читать точку касания
            Code "G0 Z" &ZNew + 3    'отьехать вверх на 3мм от точки касания
            While IsMoving ()
            Wend

        Code "F50"    'замедлить подачу до 50мм\мин
        ZNew = GetDro(2) - 6   
        Code "G31Z" &ZNew   'опустить инструмент до касания
        While IsMoving()    'Подождать пока произойдет касание платы.
        Wend

        If PlateOffset <> 0 Then
            Call SetDro (2, PlateOffset) 'записать в окно Z толщину платы, тем самым откорректировав позицию по Z
            Code "G4 P0.25"     'пауза для успешной записи значения в DRO
            ZNew = PlateOffset + Zup    'вычислени точки подьема
            Code "G0 Z" &ZNew     'поднять на высоту отхода после коррекции
            While IsMoving ()
            Wend
            Code "(Z axis is now zero !)" 'послать сообщение в статус
       
       End If

        Code "F" &CurrentFeed     'Возвращаем установленное значение подачи
        Sleep 100

Это проблема. С выше писал, что решил эту проблему с нулем по оси Z путем установки дополнительного скрина в МАСН3. На этом скрине уже есть скрипт для установки ноля. Попробуйте, может поможет. В любом случае потом можете просто удалить этот скрин