не правильно считает шаг, нет глубины резьбы, вместо этого просто торцует край. И вот таких корявых примеров в сети многоtorvn77 писал(а):Ты про шаг спрашивал.
Рабочих, человеческих кодов, какой просит ТС я не встречал. Да написать можно, но никто этого пока не сделал, видать потому что просто 
:
А эта Окума с картинки умеет работать с четвёртой и пятой осью? А как она не путается между параметрами резьбы и координатами осей A и B?aftaev писал(а):Будь Lcnc полноценным как промстойки, то не нужно было для конической резьбы писать Ocode и применять sin, cos тангенсы...
А в чём проблема-то? Если нужен, то пусть напишет или наймёт того, кто напишет.aftaev писал(а):ТС нужен рабочий код, а не разговоры про синусы и косинусы о-кодами!
Или тут обязательное условие - "нахаляву"? А варианты типа "написал для себя и не захотел делиться" не рассматриваешь?aftaev писал(а):Рабочих, человеческих кодов, какой просит ТС я не встречал. Да написать можно, но никто этого пока не сделал, видать потому что просто
Они указываются в чертеже. d=40 D=50 длина резьбы 55, шаг = 4,23ммnkp писал(а):как вычислить(правильно) диаметры D и d , ну и длину для рассчета ???
Да верно.nkp писал(а):зуб резьбы перпендикулярен оси Z(если упрощать) и это не усложняет рассчет и обработку
Я выложил тем что пользуюсь Re: Написать программу обработки (Резьба коническая) #37 Только приходится за 2 раза резать и ручками код править. То есть первый раз прошел с параметрами 40-51, переписывается код и 38,8 - 48,8 и еще раз запускается.UAVpilot писал(а):А варианты типа "написал для себя и не захотел делиться" не рассматриваешь?
Мне и так пока пойдет. На след. токарный Сименс поставим, и надеюсь вообще пофик будет на эту "проблему"UAVpilot писал(а):Тебе тоже надо нахаляву?
к какой резьбе это относится?aftaev писал(а):Они указываются в чертеже. d=40 D=50 длина резьбы 55, шаг = 4,23мм
Та что спрашивал ТС.nkp писал(а):к какой резьбе это относится?
В чертежах ГОСТовскихnkp писал(а):как это тебе указывают в ТЗ?
Дюймова резьба. 6 ниток на дюйм 25,4/6=4,23ммnkp писал(а):просто шаг что такой не могу найти в справочниках
Кидай, мож пойдет, мож кому сгодиться.Predator писал(а):aftaev, С Fanuc, код не пойдёт тебе?
это тебе не важно как пользователю))aftaev писал(а):здесь не важно градусы, шаг и тд..
вот кстати чел для NPT написал:aftaev писал(а):На фитингах сейчас NPT резьба
Код: Выделить всё
o<npt_pipe> sub
(standard NPT subroutine)
(https://forum.linuxcnc.org/lathe-subroutines-library/32895-pipe-threading)
(nptpipe.ngc)
(June 4, 2016 - M Kennedy)
(r1 July 12, 2017 - added linear cut depth regression, removed factored regression - M Kennedy)
(Change these values. Get from Machinery's Handbook, or use Nominal size to look up in table below)
(Program assumes that Z=0 located at end of pipe to be threaded)
#<_OutsideDiameter> = #1 (Nominal or Actual Diameter, D)
(Don't usually have to change these values)
#<_TPI> = #2 (= 0 TPI, input 0 for auto)
#<_First_Cut_Depth> = #3 (= 0.015 First Cut Depth)
#<_Minimum_Cut_Depth> = #4 (= 0.003)
#<_X_Clearance> = #5 (= 0.075 X clearance)
#<_Z_LeadIn> = #6 (= 0.250 Z Leadin)
#<_TipRadius> = #7 (= 0.004 Tip Radius)
#<_Spring_Passes> = #8 (= 1 Spring Passes)
#<_CompoundSlideAngle> = #9(= 29.5 Angle, 0 to 30)
(check to see if tool set)
o100 if [#5400 EQ 0]
(msg, Tool not set)
M2
o100 endif
(auto TPI detection if nominal pipe size entered)
o300 if [#<_OutsideDiameter> EQ 0.125]
#<_OutsideDiameter> = 0.405
#<_TPI> = 27
o300 endif
o305 if [#<_OutsideDiameter> EQ 0.250]
#<_OutsideDiameter> = 0.540
#<_TPI> = 18
o305 endif
o310 if [#<_OutsideDiameter> EQ 0.375]
#<_OutsideDiameter> = 0.675
#<_TPI> = 18
o310 endif
o315 if [#<_OutsideDiameter> EQ 0.500]
#<_OutsideDiameter> = 0.840
#<_TPI> = 14
o315 endif
o320 if [#<_OutsideDiameter> EQ 0.750]
#<_OutsideDiameter> = 1.050
#<_TPI> = 14
o320 endif
o325 if [#<_OutsideDiameter> EQ 1.000]
#<_OutsideDiameter> = 1.315
#<_TPI> = 11.5
o325 endif
o330 if [#<_OutsideDiameter> EQ 1.250]
#<_OutsideDiameter> = 1.660
#<_TPI> = 11.5
o330 endif
o335 if [#<_OutsideDiameter> EQ 1.500]
#<_OutsideDiameter> = 1.900
#<_TPI> = 11.5
o335 endif
o340 if [#<_OutsideDiameter> EQ 2.000]
#<_OutsideDiameter> = 1.375
#<_TPI> = 11.5
o340 endif
o345 if [#<_TPI> EQ 0]
(msg, need to input TPI)
M2
o345 endif
(Calculations)
#<Pitch> = [1.000488 / #<_TPI>] (correct for tapered drive line)
#<E0> = [#<_OutsideDiameter> - [0.05 * #<_OutsideDiameter> + 1.1] * #<Pitch>] (Pitch Dia at beginning of external thread)
#<L2> = [[0.80 * #<_OutsideDiameter> + 6.8] * #<Pitch>] (Effective thread length)
#<V> = [#<Pitch> * 3.47] (Vanish thread length)
#<ThreadDepth> = [#<Pitch> * 1.732 - 2 * #<_TipRadius>] (diameter thread depth)
(increase Z Leadin slightly so that _Z_Leadin + L2 is a whole number of threads)
#<_Z_LeadIn> = ABS[[[FUP[[#<L2> + #<_Z_LeadIn>] / #<Pitch>]] * #<Pitch>] - #<L2>]
#<temp> =[FUP[[#<L2> + #<_Z_LeadIn>] / #<Pitch>]]
(calculate coordinates for G33 cuts - X0,Z0 small end, X1,Z1 at effective thread length, X2,Z2 at end of threading)
(X0, Z0 are absolute, X1, Z1, X2, Z2 are relative)
#<Z0> = #<_Z_LeadIn>
#<X0> = [#<E0> - [0.0625 * #<Z0>] - #<ThreadDepth> / 2] (-1/2 of diameter threaddepth to convert from pitch dia)
#<Z1> = [#<L2> + #<_Z_LeadIn>]
#<X1> = [0.0625 * #<Z1>]
#<Z2> = #<V>
#<X2> = [#<_OutsideDiameter> - #<X0> - #<X1>]
G7 G18 G20 G54 G90 G94
G95 (feed per revolution mode)
M3 (dummy command required for G33)
F1 S500 (dummy command required for G33)
(initialize loop parameters)
#<CutDepth> = #<_First_Cut_Depth> (current cut depth)
#<XX> = [#<_OutsideDiameter> - #<CutDepth>] (XX is current cut depth at location of X0, Y0)
#<ZZ> = #<Z0> (ZZ is current lead in)
#<ZStepover> = 0 (offset between passes)
(main cutting loop)
o200 do
(rapid to safe start)
G0 X[#<_OutsideDiameter> + ABS[#<_X_Clearance>]]
G0 Z[#<Z0>]
(make tapered cuts)
G1 X[#<XX>] Z[#<ZZ>] (start point)
G33 X[#<XX> + #<X1>] Z[#<ZZ> - #<Z1>] K#<Pitch> (cut effective thread)
o210 if [[#<XX> + #<X1>] LT #<_OutsideDiameter>]
(only run if cut to be made)
G33 X[#<XX> + #<X1> + #<X2>] Z[#<ZZ> - #<Z1> - #<Z2>] K#<Pitch> (cut vanish thread)
o210 endif
o220 if [#<XX> GT #<_OutsideDiameter> - #<ThreadDepth>]
(take deeper depth cuts initially until cut depth is more than thread depth)
#<CutDepth> = [#<_Minimum_Cut_Depth> + [#<_First_Cut_Depth> - #<_Minimum_Cut_Depth>] * [#<ThreadDepth> + #<XX> - #<_OutsideDiameter>] / #<ThreadDepth>]
o220 else
#<CutDepth> = #<_Minimum_Cut_Depth>
o220 endif
#<ZStepover> = [SIN[#<_CompoundSlideAngle>] * #<CutDepth>]
(next cut, check for spring passes)
o240 if [#<XX> GT #<X0>]
#<XX> = [#<XX> - #<CutDepth>]
#<ZZ> = [#<ZZ> - #<ZStepover>]
o240 else
(spring passes)
#<XX> = #<X0>
#<_Spring_Passes> = [#<_Spring_Passes> - 1]
o240 endif
o200 while [#<_Spring_Passes> GT -1]
(move back to starting position)
G0 X[#<_OutsideDiameter> + ABS[#<_X_Clearance>]]
G0 Z[#<_Z_LeadIn>]
M5
M2
o<npt_pipe> endsubУ Nick почти правильный код, только шаг резьбы почему то не тот ( и на сколько я помню он будет меняться от длины резьбы), и при добавлении глубины резьбы не туды добавляет.nkp писал(а):это тебе не важно как пользователю))
чтоб какой то мастер взяться писать - нужно досконально в предмете разобраться
Видишь как все просто и какой маленький кодnkp писал(а):вот кстати чел для NPT написал:
код может и маленький,но лишь бы правильно работал...aftaev писал(а):Видишь как все просто и какой маленький код
шага не видно без станкаaftaev писал(а):и при добавлении глубины резьбы не туды добавляет.
Завтра, если что, скину.aftaev писал(а): Кидай, мож пойдет, мож кому сгодиться.
А может на реальном станке ось Х наоборот развёрнута?..nkp писал(а):ну понятно ,что у меня просто симулятор,но как то не верится ,что на симуляторе едет в одну сторону ,а на реальном станке - в другую