Макропрограмма резьбофрезерования. Поделитесь, если есть!

[fantom.ul 731]

Уважаемые, если возможно, поделитесь подпрограммой резьбофрезерования, выполненной на языке макро-программирования а ля Fanuc. Чтобы была возможность задать правую или левую резьбу, заход с начала отверстия или со дна.

Возможно, у кого-то есть подобное на станке в опциональной поставке. 

[nomed 11]

Уважаемые, если возможно, поделитесь подпрограммой резьбофрезерования, выполненной на языке макро-программирования а ля Fanuc. Чтобы была возможность задать правую или левую резьбу, заход с начала отверстия или со дна.

Возможно, у кого-то есть подобное на станке в опциональной поставке. 

я использую самописную прогу для экономии пластин (3 перые от Sandvika и обычные треугольные токарные)

 

(REZBA M24 )

G0G17G40G49G80G90

T6M6 

G94G59X0.Y190 .S4000M3 

G43H6Z10.M8

#2=10.8  (первый захода: Радиус предварительного отверстия + 2-3 десятки можно больше если не жалко пластин)

#3=0.22

N200 

G1G91G42D6X-#2.F2000 

WHILE[#1LE33.]DO1  (33 это глубина резьбы)

G90G2I#2Z-#1 

#1=#1+3.      (заменить 3 на нужный шаг резьбы)

END1 

G0G40G91X#2

G90Z10.

#2=#2+#3 

#3=#3-0.022

#1=0.

IF[#3GE0.]GOTO200

G40

Z10.

M5 

M9 

G91G28Z0.

 

программа получилась очень простой и очень эффективной ) 

[fantom.ul 731]

Спасибо за макрос. Не сказал бы, что в таком виде его можно использовать как ПП на все случаи жизни, но  оттолкнуться от него можно.

Есть несколько непонятных моментов:

Нет первоначального присвоения значения #1 

В Цимко на отрисовке первый виток с бОльшим шагом, чем все остальные (судя по отрисовке). Это какой-то хитрый прием?

[nomed 11]

у меня на станке если переменная не была задана то она автоматически = 0, а так да лучше перед #2 задайте #1=0.  первый виток с большим шагом делаю и для безопасности чтобы не впилится в деталь в случае ошибки оператора и для того чтобы инструмент успел принять коррекцию на диаметр все так  скорости большие особенно когда резец близок по диаметру к предварительному отверстию ), а потом он уже идет как положено начиная со значени переменной #1 (то есть Z=-#1 будет точкой отсчета, а так как он равен у нас 0 то будет начинатся с Z=0 и дальше с заданым шагом продолжать движение )

[sumar 2]

Уважаемые, если возможно, поделитесь подпрограммой резьбофрезерования, выполненной на языке макро-программирования а ля Fanuc. Чтобы была возможность задать правую или левую резьбу, заход с начала отверстия или со дна.

Возможно, у кого-то есть подобное на станке в опциональной поставке. 

А почему обязательно макро? на сайтах производителей инструмента обычно есть возможность написать любую проггу, хоть сначала хоть с конца. Подставляй только свои значения, программа сама напишется. Вот например я пользуюсь сайтом, пишет и на токарку, и на фрезеровку резьбы. Пока ошибок не было.http://www.vargusuk.co.uk/vardex/template/default.aspx?pCatId=9

[fantom.ul 731]

А почему обязательно макро? 

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

P.S. Нашел вот такое: http://elmarc.tripod.com/schmarje/formulas.html#OD

Только что-то я завяз в коде   В Цимко на отрисовке вообще ничего нет.

То ли код не правильный, то ли Цимко с таким сложным кодом некорректно работает.

Может посмотрит кто знающий макропрограммирование?

Или прогнать в другом верификаторе. У меня, кроме Цимко, ничего нет.

[SERGEY MIKOLAEVICH 7]

http://atyourservice.haascnc.com/faaqs/thread-milling-macros/

[ilya_w 85]

Старинная народная макро фрезеровки резьбы на 2.5 коорд. Фануках.

С небольшими изменениями работает на всех.

%

O0001

T1M6

S1000M3

G1X0Y0F1000

G65P9014X100.Y100.Z-50.R30.S1.5 V10.D41 F100

G0

X0Y0

M2

%

%

O9014

(ФРЕЗ.РЕЗЬБЫ СНИЗУ ОДИН ВИТОК)

(G65P9014X100.Y100.Z-50.R30.S1.5 V10.D41 F100)

(ЕСЛИ ЗАДАТЬ ПАРАМЕТР-6054=33 БУДЕТ-G33)

IF[#7EQ#0]GOTO1

#504=#7         

#500=#5041      

#501=#5042       

#502=#5043       

#505=0

#506=#5043       

#507=0

N1IF[#24EQ#0]GOTO2  

#500=#24             

N2IF[#25EQ#0]GOTO3  

#501=#25              

N3G0X#500Y#501       

IF[#26EQ#0]GOTO4     

#502=#26             

N4G0Z#502             

#103=#502               

#104=0

IF[#18EQ#0]GOTO6      

#505=#18              

N6#1=ABS[#505]-#[13000+#504] 

IF[#1LE0]GOTO8    

IF[#19EQ#0]GOTO7   

#507=#19            

N7#2=#1-#507-2.     

IF[#2LT0]GOTO10     

#2=0                

N10#5=#500+#2        

#6=#500+#1          

X#5                 

#103=#103+#507         

G1X#6F#9             

G17G03X#6Y#501I-#1Z#103F#9

G0X#500Y#501      

N8IF[#22EQ#0]GOTO9  

#506=#22            

N9Z#506             

M99

%