Бюджетный ЧПУ 1150х660мм с пос. модернизацией до 2250х1650

[master_70]

может у кого есть учебничег про то на чем и как писать скрипты. или ссылки где качнуть????? буду осваивать

[master_70]

на каком языке пишутся скрипты в маче????????
вот тут по тому что мне дали . подправил скрипт для станка. (просто обьеденл тот что был и тот что -aftaev написал с пояснениями
за что ему мой поклон и огромное спасибо.
проверте плизззззз.
------------------------------

Код: Выделить всё

PlateOffset=1.5 			'толщина щупа мм.
Zup=50 					'Расстояние на которое подымиться фреза после поиска
MaxZPlus=165 'максимальный ход Z мм.
Rem	VBScript To probe In the z axis

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
	Code "G4 P1" 			'Пауза .
	PlateOffset = GetUserDRO(1151)
	CurrentFeed = GetOemDRO(818) 	'Запоминаем скорость до поиска.
	Code "F50" 			'Скорость подачи до касания инструментом

Rem	Probe In the z direction
	ZNew = GetDro(2) - MaxZPlus
	Code "G31Z" &ZNew 		' Поиск
	While IsMoving() 		'ждать выполнение команды10
	Wend

	ZNew = GetVar(2002) 		'считываем какое то поле
	Code "G0 Z" &ZNew + 3		'подымаемся на +3мм
	While IsMoving () 		' ждем выполнение команды
	Wend

	Code "F20" 			'замедляем скорость для повторного касания
	ZNew = GetDro(2) - 6
	Code "G31Z" &ZNew 		'Щупаем
	While IsMoving() 		'ждать выполнение команды
	Wend

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

	Code "F" &CurrentFeed 		'восстанавливаем скорость которая была до нажатия кнопки.
Sleep 100
End If

и что это за команда -Sleep 100???
и искал в инете обучалк по вижуал бейсик. , посмотрел команды и чтото там таких нет, или я попутол чтото.!!??

[master_70]

в нем(в скрипте) какойт косяк . пишеет скрипт комплит еррор. ин:

[Nick]

sleep = ждать 100 (миллисекунд, наверное).

[master_70]

sleep = ждать 100 (миллисекунд, наверное).

убрал
но всеовно не пашет

[aftaev]

может у кого есть учебничег про то на чем и как писать скрипты. или ссылки где качнуть????? буду осваивать

На сайте Мача где то есть.

на каком языке пишутся скрипты в маче????????

Visual Basic

и что это за команда -Sleep 100???

задержка, пауза

в нем(в скрипте) какойт косяк . пишеет скрипт комплит еррор. ин:

Нужно открыть скрипт в редакторе, тогда Мач покажет на ошибку. Когда скрипт заработает можно будет его скопировать в кнопку.
1. В папке C:\Mach3\Addons создаем пустой текстовый файл Proba.m1s
2. Заходим сюды и открываем наш файл Proba.m1s он будет пустой

3. Выделяем текст скрипта что выкладывали на форум и вставляем
например этот

(для просмотра содержимого нажмите на ссылку)

Код: Выделить всё

PlateOffset=1.5          'толщина щупа мм.
Zup=50                'Расстояние на которое подымиться фреза после поиска
MaxZPlus=165 'максимальный ход Z мм.
Rem   VBScript To probe In the z axis

If GetOemLed (825) <> 0 Then       'Check to see if the probe is already grounded or faulty
   Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
   Code "G4 P1"          'Пауза .
   PlateOffset = GetUserDRO(1151)
   CurrentFeed = GetOemDRO(818)    'Запоминаем скорость до поиска.
   Code "F50"          'Скорость подачи до касания инструментом

Rem   Probe In the z direction
   ZNew = GetDro(2) - MaxZPlus
   Code "G31Z" &ZNew       ' Поиск
   While IsMoving()       'ждать выполнение команды10
   Wend

   ZNew = GetVar(2002)       'считываем какое то поле
   Code "G0 Z" &ZNew + 3      'подымаемся на +3мм
   While IsMoving ()       ' ждем выполнение команды
   Wend

   Code "F20"          'замедляем скорость для повторного касания
   ZNew = GetDro(2) - 6
   Code "G31Z" &ZNew       'Щупаем
   While IsMoving()       'ждать выполнение команды
   Wend

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

   Code "F" &CurrentFeed       'восстанавливаем скорость которая была до нажатия кнопки.
Sleep 100
End If

*спрятал скипт в спойлер в Хроме его не видно
4. Жмем в редакторе зеленую кнопочку стрелку запустить скрипт. Если будет ошибка указатель покажет в какой строчке.
Сообщаем на какой строчке загнулся скрипт. Скорее всего нет какого то поля и он не может получить значение.

Скрипт что выше запустился без проблем.

[master_70]

спасибо всем за помощь . вроде запустил 0 Z .работает исправно
с\ейчас проблем с обнулением нет
+ хоум Z стоит. так что просто напрост от хоумил и все. до того пока не поменял инструмент.
видео выожу ка приеду домой.

а пока что , отфрезировал стол. вырезал круги-шаблоны для печки . сегодня печку для АЛ собрал.
новую темку открою про печи.
вот круги .

а вот собственно печь . еслиб не станок . былобы все сложнее.

дождусь до вторника пока она подсохнет. и буду пробывать чтонить в ней расплавить

по скрипту.-
у меня както не получилось запустить скрипт который выше
чет не правельно делаю
запустил пока что только тот который выкладывал первый.
разбрался что куда.
хотелосьбы дописать к нему повторное касание с меньшей скоростью. но ни че не выходит. вот блин
буду изучать крипты
и придется немного шкурку подправить под себя.

[aftaev]

а пока что , отфрезировал стол. вырезал круги-шаблоны для печки . сегодня печку для АЛ собрал.
новую темку открою про печи.

Давай, я тут тож печку делаю Непонятно что ты там мудришь, и почему это без ЧПУ жить нельзя было

[master_70]

постояв час с пылисосом в руках пока станок стол выравнивал. пришла мысля как прикрутить его к станку.
пока канешно все на скрутках но постепенно доработаем.

можно спокойно посидеть и раслабится попить чаек.

.

[Nick]

Давно пора было к этому прийти !

Сделай фотки "щетки" и места крепления шланга к ней.

[master_70]

Давно пора было к этому прийти !

Сделай фотки "щетки" и места крепления шланга к ней.

это пробный вариантсделал за 5 минут.
щетка из бутылки пластиковой . какая была под рукой из той сделул
естествено все будет н е так
пока делал это в голове созрела схема и как все сделать
делать буду на этом станке скорее всего из оргстекла

[master_70]

на 33 день пришла микруха драйвера для контролера из гонконга обошлась она 210 р

[Nick]

Это вместе с доставкой?
Что-то не так уж и дешево в том же чипдипе, который зверски задирает цены
от 1шт. 410,00
от 12шт. 290,00

[denia-t]

Люди добрые подскажите, у кого нить были проблемы с доставкой комплектующих из cnc shop-a?

[Fisher]

Это вместе с доставкой?
Что-то не так уж и дешево в том же чипдипе, который зверски задирает цены
от 1шт. 410,00
от 12шт. 290,00

Прямые поставки всегда дешевле. Мне на днях пришел аккумулятор для Глофиш М800 - 240 р. + 120 р. доставка. А в нашем государстве он стоит от 1600 рэ. Вот так вот...

[Nick]

Люди добрые подскажите, у кого нить были проблемы с доставкой комплектующих из cnc shop-a?

Были у Girafa, но вроде больше не пишет, наверное все прислали
Ось Z кто для плазмы, как сделать? #197
Бюджетный ЧПУ 1000(1150(1600)) х 650 #197

[giraf_79]

Люди добрые подскажите, у кого нить были проблемы с доставкой комплектующих из cnc shop-a?

Да были, почти 3 месяца шло, но там зависит от того есть у них в наличии или нет, если нет то лучше не заказывать, нужно звонить и точно уточнять (правда они еще и общаются не охотно). Могут писать на сайте что товар в наличии, на самом деле ее нет, пока придет из китая 3 месяца пройдет.

[master_70]

вот как раз в тему.
позавчера , вчера и сегодня пршли 3посылки
первая с гонгонга. заказывал через ебей39 , шло 34дня.
вторая пришла с красноярска (cnc шоп) шла 12дней.
третья с китая от (cnc шоп) шла 24 дня
четвертая с китая от (cnc шоп) гдето в москве уже . вышла 17.06 с таможни. прошло на сегодняшний день 24 дня.

[denia-t]

А у меня прошел месяц и ничего нет. По трекеру поколесило по китаю и вернулась назад. Что думать и что делать не знаю совсем уже. СНС-ШОП не отвечает уже который день (((((

[aftaev]

По трекеру поколесило по китаю и вернулась назад. Что думать и что делать не знаю совсем уже.

Если оплата по PayPal писать продавцу и возвращать деньги.