Настройка смены инструментов (и другого) через G-Post

[Bastion 10]

Коллеги, подскажите можно ли через встроенной в Creo редактор постпроцессоров (он называется G-Post, верно?) реализовать вместо стандартной процедуры смены инструментов ( через М6) смену инструментов по следующей схеме:

 

Т1М12 - инструмент 1 ставим из шпинделя в инструментальный магазин

Т2М18 - берем инструмент 2 из магазина и ставим его в шпиндель

М15 - разориентация шпинделя (необходимо для начала работы)

 

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

 

[Vladimir_Gorshkov 72]

Коллеги, подскажите можно ли через встроенной в Creo редактор постпроцессоров (он называется G-Post, верно?) реализовать вместо стандартной процедуры смены инструментов ( через М6) смену инструментов по следующей схеме:

 

Т1М12 - инструмент 1 ставим из шпинделя в инструментальный магазин

Т2М18 - берем инструмент 2 из магазина и ставим его в шпиндель

М15 - разориентация шпинделя (необходимо для начала работы)

 

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

Читай здесь весь пост.

 http://cccp3d.ru/topic/57314-nuzhen-post/#entry502254

[Bastion 10]

 

Коллеги, подскажите можно ли через встроенной в Creo редактор постпроцессоров (он называется G-Post, верно?) реализовать вместо стандартной процедуры смены инструментов ( через М6) смену инструментов по следующей схеме:

 

Т1М12 - инструмент 1 ставим из шпинделя в инструментальный магазин

Т2М18 - берем инструмент 2 из магазина и ставим его в шпиндель

М15 - разориентация шпинделя (необходимо для начала работы)

 

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

Читай здесь весь пост.

 http://cccp3d.ru/topic/57314-nuzhen-post/#entry502254

 

Спасибо. Теперь остается только выяснить, как брать номер инструмента, который нужно поставить в магазин (который перед М12) - это и есть основная сложность 

[Bastion 10]

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

[terrybla 3]

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

При первом вызове инструмента записывать номер вызываемого инструмента в переменную, при следующей смене использовать переменную для возврата инструмента в магазин, после чего присваиваем переменной новый номер инструмента... Я бы сделал как-то так...)

Изменено 30 октября 2014 пользователем terrybla

[Bastion 10]

 

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

При первом вызове инструмента записывать номер вызываемого инструмента в переменную, при следующей смене использовать переменную для возврата инструмента в магазин, после чего присваиваем переменной новый номер инструмента... Я бы сделал как-то так...)

 

ну да, это понятно, только давно я программировал, ох давно ))) буду ковыряться, 

спасибо за помощь.

[Bastion 10]

подскажите тогда функцию, которая моет вывести значение переменной в nc файл. Если что - выкладываю свой код:

 

$$ ****************************************************

$$ *        L O A D T L     S e c t i o n s           *

$$ **************************************************** 

 

CIMFIL/ON,LOADTL

 

  DMY=POSTF(20)   $$ save current CL record

 

 

ITOOL = 0 $$пытаюсь определить переменную, в которую буду записывать инструмент, который нужно убирать

 

INSERT/'G0G49G53Z0.','$'

 

INSERT/'G0G53X0.Y0.','$'

 

INSERT/'T','ITOOL','(НОМЕР УБИРАЕМОГО ИНСТРУМЕНТА)','M12','$'  $$ по идее должно работать, но не работает. 

 

ITOOL=POSTF(7,4) $$ присваиваю переменной номер текущего инструмента 

 

  DMY = POSTF(21)$$ RELOAD SAVED CL RECORD TO CURRENT

 

  DMY = POSTF(13)$$ EXECUTE THE CURRENT CL RECORD

   

   

CIMFIL/OFF

 

 

выводит:

 

N11G0G49G53Z0.

N12G0G53X0.Y0.

N13TITOOL(НОМЕР УБИРАЕМОГО ИНСТРУМЕНТА)M12

 

[terrybla 3]

INSERT/'T',ITOOL,'(НОМЕР УБИРАЕМОГО ИНСТРУМЕНТА)','M12','$'

 

А  ITOOL = 0,   надо  в начале постпроцессора задавать, там где все переменные обозначаются, а то он постоянно  0  будет...

[Bastion 10]

$$ ****************************************************

$$ *  G l o b a l   V a r i a b l e   S e c t i o n   *

$$ ****************************************************

 

   REDEF/ON                     $$ ALLOW VARAIBLES TO BE REDEFINED

   

  LTSW = 0 $$ DEFAULT LOADTL SWITCH 

  CNT = 0 $$ DEFAULT COUNTER

 

$$ THE FOLLOWING VARIABLES ARE DEFINED FOR USE WITH THE 

$$ POSTN/ AND REPEAT/ COMMANDS.  THE USE SINGLE LETTER 

$$ VARIABLES ANY WHERE ELSE IN FIL WILL REDEFINE THEM

   A=1  ; B=2  ; C=3  ; D=4  ; E=5  ; F=6  ; G=7  ; H=8 

   I=9  ; J=10 ; K=11 ; L=12 ; M=13 ; N=14 ; O=15 ; P=16 

   Q=17 ; R=18 ; S=19 ; T=20 ; U=21 ; V=22 ; W=23 ;X=24

   Y=25 ; Z=26

 

$$ For tool list

RESERV/TLLST,100       $$ Tool List Data Statements, Default 100

MXTLS=0                 $$ Max number of tools

ITOOL=0

 

Было задано, все равно не работает. 

[Bastion 10]

решил так:

 

$$ ****************************************************

$$ *        L O A D T L     S e c t i o n s           *

$$ **************************************************** 

 

CIMFIL/ON,LOADTL

 

  DMY=POSTF(20)   $$ save current CL record

 

LASTTL = POSTF ( 1, 3, 0496 ) $$ Get the last tool

 

INSERT/'G0G49G53Z0.','$'

 

INSERT/'G0G53X0.Y0.','$'

 

POSTN/OUT,20,lasttl,13,12 $$OUTPUT lasttlM12

 

  DMY = POSTF(21) $$ RELOAD SAVED CL RECORD TO CURRENT

 

    DMY = POSTF(13) $$ EXECUTE THE CURRENT CL RECORD

   

   

CIMFIL/OFF

 

работает.

Было бы неплохо, выкладывать работающие FIL процедуры в отдельной теме, как думаете? 

[terrybla 3]

В предыдущем варианте возможно нужно было так -

INSERT/(TEXT/'T',ITOOL,'(НОМЕР УБИРАЕМОГО ИНСТРУМЕНТА)','M12','$')

[Bastion 10]

 

В предыдущем варианте возможно нужно было так -

INSERT/(TEXT/'T',ITOOL,'(НОМЕР УБИРАЕМОГО ИНСТРУМЕНТА)','M12','$')

Спасибо, попробую и так.