Вектроник 2.0 --> Вектроник А4-РП

[AlexNikov]

Хм, 4/3 дюйма? У ER11 немного не те размеры. Равно как и 3/4
Может всётаки 1/4(6.35мм)?

Да хрен бы её знал если честно, на цанге написано "4-3", шла в комплекте со шпинделем...на цанге на которой написано 1-8 - 3,175мм сверла зажимаются идеально.

[AlexNikov]

Мде...а китаец то оказался упырем...цанги толи бу уже порядком, толи хранились непонятно как - следы ржавчины, внутри стружка от пропилов, следы использования

Претензию штоль поднять ему

Нужно искать нормальные цанги, эти как-то не очень горю уже желанием сувать в шпиндель

[PKM]

цанги толи бу уже порядком, толи хранились непонятно как

Я покупал - каждая была в масле, пакетике и коробочке. Хотя самые дешевые брал...

[AlexNikov]

цанги толи бу уже порядком, толи хранились непонятно как

Я покупал - каждая была в масле, пакетике и коробочке. Хотя самые дешевые брал...

Да вот мои тоже в масле и в индивидуальных пакетиках запаянных и коробочках. Только похоже запаивали уже перед отправкой, бензином промыл - он аж коричневый

[AlexNikov]

Дождался я своего датчика для измерения длины инструмента. Заказывал у нашего форумчанина: http://www.cnc-club.ru/forum/memberlist ... ile&u=3730. Сделал очень быстро, на вид все добротно сделано. На выходных наверно руки дойдут испытывать его в деле да ломать голову над скриптом Александра, чтоб приспособить его под себя:)

[AlexNikov]

Доброго дня. Разобравшись более менее со скриптами для k-flop прикрутил и настроил датчик для замеры длины инструмента. Большущее спасибо за помощь leprud за разжовывание так сказать мне алгоритма, michael-yurov за свой пример скрипта и ukr-sasha за публикацию своего рабочего скрипта. Итог работы на видео

http://youtu.be/PSCa-ovNiHI


Сам скрипт теперь выглядит вот так:

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

#include "KMotionDef.h"

int DoPC(int cmd);
int DoPCFloat(int cmd, float f);
int DoPCInt(int cmd, int i);
int MsgBox(char *s, int Flags);
int SetVars(int poff, int varoff, int n);
int GetVars(int varoff, int n, int poff);


main()
{
   int Answer;
   double *pD = (double *)persist.UserData;
   double P0,P1;

//Останавливаем шпиндель и помпу
		ClearBit(0); // Stop spindle
		ClearBit(1); // Stop pump
		Delay_sec(2);

//Поднимаем Ось Z на максимальную высоту
		ch2->LimitSwitchOptions=0x128;
		Jog(2,10480);
		while (ReadBit(172)) ;
		Jog(2,0);
		MoveAtVel(2,0,10480);
		while (!CheckDone(2)) ;
		ch2->LimitSwitchOptions=0x12a;
		Delay_sec(0.1);

//Едем на позицию датчика
		MoveAtVel(0,11166.666,10480);
		while (!CheckDone(0)) ;
		MoveAtVel(1,18322.813,10480);
		while (!CheckDone(1)) ;
		Delay_sec(0.1);

//Опускаем ось Z до касания датчика
		Jog(2,-5000);
		while (ReadBit(173)) ;
		Jog(2,0);
		P0 = chan[2].Dest;
		P1=P0+401.1025; //+0,5mm
		MoveAtVel(2,P1,5000);
		while (!CheckDone(2)) ;
		Jog(2,-1000);
		while (ReadBit(173)) ;
		Jog(2,0);
		Delay_sec(0.1);

//Записываем координаты в ось Z
		DoPCFloat(PC_COMM_SET_Z,30.565);
		Delay_sec(0.1);

//Поднимаем ось Z
		MoveAtVel(2,0,10480);
		while (!CheckDone(2)) ;
		Jog(2,0);
		Delay_sec(0.1);

//   DoPC(PC_COMM_ESTOP);
//   DoPC(PC_COMM_HALT);
//   DoPC(PC_COMM_EXECUTE);
//   DoPC(PC_COMM_SINGLE_STEP);
//   DoPCFloat(PC_COMM_SET_FRO,0.25f);
//   DoPCFloat(PC_COMM_SET_FRO_INC,1.1f);
//   DoPCFloat(PC_COMM_SET_X,0.0);
//   DoPCFloat(PC_COMM_SET_Y,0.0);
//   DoPCFloat(PC_COMM_SET_Z,2.25);
//   DoPCInt(PC_COMM_USER_BUTTON,3);
//   DoPCInt(PC_COMM_MCODE,3);

//   Answer = MsgBox("Hello World",MB_YESNO|MB_ICONEXCLAMATION);
//   if (Answer == IDYES)
//      printf("Answer is Yes\n");
//   else
//      printf("Answer is No\n");
   

//   MDI("G0 X1.2 Y2.2 Z3.3");
//   MDI("M5");
//   MoveRel(2,28800);         // Move Z +20 mm (1440 steps/mm)


   // put 3 double values in the persist vars 
   
//   pD[10] = 123.456;
//   pD[11] = 1000.0;
//   pD[12] = 999.9;
   
   // transfer up to the GCode Vars
//   SetVars(100,3,10);  // Upload 3 to GCode 100 from persist 10   
   
//   MDI("#100 = [#100 + 1]");
      
   // read them back into different persist Vars
//   GetVars(100,3,13);  // Download 3 from GCode 100 to persist 13 

//   printf("%f %f %f\n",pD[13],pD[14],pD[15]);
}

int SetVars(int varoff, int n, int poff)
{
   persist.UserData[PC_COMM_PERSIST+2] = n;       // number of elements
   persist.UserData[PC_COMM_PERSIST+3] = poff;    // persist offset (doubles)
   return DoPCInt(PC_COMM_SET_VARS,varoff);       // Var index and Cmd
}
int GetVars(int varoff, int n, int poff)
{
   persist.UserData[PC_COMM_PERSIST+2] = n;       // number of elements
   persist.UserData[PC_COMM_PERSIST+3] = poff;    // persist offset (doubles)
   return DoPCInt(PC_COMM_GET_VARS,varoff);       // Var index and Cmd
}

#define GATH_OFF 0  // define the offset into the Gather buffer where strings are passed
// Trigger a message box on the PC to be displayed
// defines for MS Windows message box styles and Operator
// response IDs are defined in the KMotionDef.h file 
int MsgBox(char *s, int Flags)
{
   char *p=(char *)gather_buffer+GATH_OFF*sizeof(int);
   int i;
   
   do // copy to gather buffer w offset 0
   {
      *p++ = *s++;
   }while (s[-1]);
   
   persist.UserData[PC_COMM_PERSIST+2] = Flags;  // set options
   DoPCInt(PC_COMM_MSG,GATH_OFF);
   return persist.UserData[PC_COMM_PERSIST+3];
}
// put the MDI string (Manual Data Input - GCode) in the 
// gather buffer and tell the App where it is
int MDI(char *s)
{
   char *p=(char *)gather_buffer+GATH_OFF*sizeof(int);
   int i;
   
   do // copy to gather buffer w offset 0
   {
      *p++ = *s++;
   }while (s[-1]);
   
   // issue the command an wait till it is complete
   // (or an error - such as busy)
   return DoPCInt(PC_COMM_MDI,GATH_OFF);
}
// Put a Float as a parameter and pass the command to the App
int DoPCFloat(int cmd, float f)
{
   int result;
   persist.UserData[PC_COMM_PERSIST+1] = *(int*)&f;
   return DoPC(cmd);
}
// Put an integer as a parameter and pass the command to the App
int DoPCInt(int cmd, int i)
{
   int result;
   persist.UserData[PC_COMM_PERSIST+1] = i;
   return DoPC(cmd);
}
// Pass a command to the PC and wait for it to handshake
// that it was received by either clearing the command
// or changing it to a negative error code
int DoPC(int cmd)
{
   int result;
   
   persist.UserData[PC_COMM_PERSIST]=cmd;
   
   do
   {
      WaitNextTimeSlice();   
   }while (result=persist.UserData[PC_COMM_PERSIST]>0);
   
   //printf("Result = %d\n",result);
   return result;
}

[AlexNikov]

Продолжу свою тему по Вектроникам. Дождался я своего нового любимца - Вектроник-А4-РП. Рельсы и ШВП на него заказал HIWIN. Ниже несколько фото да видео как бегает да какой функционал пока реализован.

По видео небольшое пояснение:
Сначала хомление, потом едем в произвольные координаты и на G0 укатываемся в 0. Потом опять отъезжаем малость запускаем шпиндель и жмем кнопку замера высоты инструмента.

Скорости из расчета:
- 2400 об/мин на ШД Leadshine 57HS13
- 200 шагов/оборот
- 16370 имп/дюйм в k-flop
- 1/16 шага
https://youtu.be/yz1g4_A8jcg

Вот тут отдельно хочется сказать - Наиль стал делать держатель подшипников внутри сборки оси, это я считаю очень удачное решение - в прошлых версиях часто мешался этот держатель.

[AlexNikov]

Скорости из расчета:
- 2400 об/мин на ШД Leadshine 57HS13
- 200 шагов/оборот
- 16370 имп/дюйм в k-flop
- 1/16 шага

Кол-во оборотов все же установил 1200. На 2400 момент уж очень маленький - ШД уходят в срыв.

[AlexNikov]

Первая стружка на новом Вектронике. Лист дюральки раскраиваю.
https://youtu.be/jk6BOxMPvvk

[Kuzyakin]

Какая фреза ? (где купить хороших?)
Скорость ,подача, заглубление за проход ?

[AlexNikov]

Какая фреза ? (где купить хороших?)
Скорость ,подача, заглубление за проход ?

фреза 5мм http://m-ser.ru/catalog/del_frezy_dlya_ ... materialo/. Подача 1200мм/мин, скорость 9000, заглубление 0.5мм

[AlexNikov]

Побегал еще индикатором по столу:

- по X (длинная ось) разбег 0,08мм.
- по Y разбег 0,07мм.

Очень меня порадовали такие результаты

Перпендикулярность Z пока не мерил.

[savo]

- по X (длинная ось) разбег 0,08мм.
- по Y разбег 0,07мм.

Это просто по столу, или по линейке?

Подача 1200мм/мин, скорость 9000, заглубление 0.5мм

По звуку как будь то тяжеленько шпиндельку.

[shalek]

Первая стружка на новом Вектронике. Лист дюральки раскраиваю.

Фрезу зажимай по самое нихочу. Только чтобы режущая часть и 1-2 мм хвостовика из цанги торчало.

[AlexNikov]

- по X (длинная ось) разбег 0,08мм.
- по Y разбег 0,07мм.

Это просто по столу, или по линейке?

Подача 1200мм/мин, скорость 9000, заглубление 0.5мм

По звуку как будь то тяжеленько шпиндельку.

Это по столу замеры. По звуку тяжеловато мне ориентироваться:)

[AlexNikov]

Первая стружка на новом Вектронике. Лист дюральки раскраиваю.

Фрезу зажимай по самое нихочу. Только чтобы режущая часть и 1-2 мм хвостовика из цанги торчало.

Да это понятно-именно так и делаю. Но в данном случае фреза удлиненная (выше ссылка есть на фрезу) и зажата на свой максимум.

[AlexNikov]

Маленько расскажу о своих переделках со станком. Шкаф пересобрал полностью, установил драйвера AM882. Далее малость фото с пояснениями:

Общий вид стойки:

Драйвера и их БП:

K-FLOP спрятался за временным вариантом платы коммутации (не понравилось кой-чего, плату буду переделывать), закрыл их экраном к которому свел все слаботочные экраны:

Водоблок тоже разместил в стойке, вариант не самый лучший конечно...

Все получилось очень уж кучно расположено в стойке, повтыкал куллеров, дабы малость продувать стойку (так как хоббийское пользование, пыли внутри будет минимум):

Лицевая панелька пока еще не сделана...

Для воздухообмена в зоне частотника тоже воткнул пару куллеров:

Кнопку включения станка поставил на задней стенке стойки:

[Serg]

SOZH - это сильно!

[AlexNikov]

Нашел довольно интересные разъемы под D-SUB-15 - в хоббийно-станочном ЧПУ вполне удобо-варимы:

Волею судеб перепал мне нетт-топ (в дивичестве Sapphire EDGE VS8), буду его в стойку запихивать:

Для масштаба:

Станок пока выглядит так:

Датчик потока все-же прикрутил механический:

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

Каробульки с разъемами на станке, буду менять под D-SUB крышки:

[AlexNikov]

А вот видюхи что получилось после юстировки по осям (у стойки порвался тросик - извращаемся как можем так сказать):

Оси X:
http://www.youtube.com/watch?v=Y9v_inQrSGE

Ось Y:
http://www.youtube.com/watch?v=-7GD5crF0fI

Ось Z:
http://www.youtube.com/watch?v=ayAX8hk8TFA