Переменные обороты шпинделя

[sssdos 138]

Задача такая. Заставить  шпиндель в программе обработки вращаться с переменными оборотами ну например 1я секунда 400 оборотов, 2 секунда 600, 3я секунда 400 оборотов  и так далее. Нарастание и спад плавные, в идеале график изменения частоты синусоида. Реализовывал такое на системе Sinumerik 840 DSL там в программе запускал подпрограмму которая работала с переменными в реальном времени задавал минимальную частоту максимальную и ускорение. Очень хорошо гасятся вибрации.

[lexa345 813]

Хорошая идея!

Попробовать создать свой модальный G код :

после оборотов вызывать свой модальный G код, предварительно считав актуальные обороты с помощью одной из переменных #4119 или #4319, далее к этим оборотам в подпрограмме(G кода) через команду while прибавлять и убавлять обороты используя паузу G4 что бы обеспечить какую то плавность. Вот только модальный G код когда то у меня так и не удалось создать для своих циклов, как описывается в книге...

 

 

[sssdos 138]

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

Моя подпррограммка для синумерика выглядит так:

N70000 PROC _SPEREM(REAL VARI1,REAL VARI2,REAL VARI3,INT VAR4); DISPLOF
N70001 SBLOF
N70002  

N70003 IF VAR4
N70004 S=VARI1
N70005 M3
N70006 G4 F=0.3
N70007 STOPRE
N70008 if ($$aa_s[1]>2)and(VARI1<VARI2*0.95)
N70009 id=1 EVERY ($$aa_s[1]>VARI2-VARI2*0.05)AND($$AC_STAT==2) do s=VARI1 M3 acc[s1]=VARI3 
N70010 id=2 EVERY ($$aa_s[1]<VARI1+VARI1*0.05)AND($$AC_STAT==2) do s=VARI2 M3 acc[s1]=VARI3
N70011 endif
N70012 ELSE
N70013 S=VARI1
N70014 M4
N70015 G4 F=0.3
N70016 STOPRE
N70017 if ($$aa_s[1]>2)and(VARI1<VARI2*0.95)
N70018 id=1 EVERY ($$aa_s[1]>VARI2-VARI2*0.05)AND($$AC_STAT==2) do s=VARI1 M4 acc[s1]=VARI3 
N70019 id=2 EVERY ($$aa_s[1]<VARI1+VARI1*0.05)AND($$AC_STAT==2) do s=VARI2 M4 acc[s1]=VARI3
N70020 endif
ENDIF
N70021 id=3 WHEN ($$AC_STAT==0)OR($$AC_STAT==1) DO  acc[s1]=100

N70022 SBLON
N70023 RET
 

Изменено 15 августа 2018 пользователем sssdos