спираль в посте

[Ashmonin 6]

Добра всем уважаемые!

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

Решил наконец то реализовать вывод дуг в g18 и g19. Изменил шаблон в "круговое перемещение" - засунул туды переключалку g17/18/19(раньше стояло жестко 17) и адрес К. Все заработало, но вот бяда - из за изменения шаблона circular_move( как я понял он меняется вслед за "круговое перемещение", или это одно и тоже я хз ) перемещение по спирали стало выдавать еще и адрес К(первоначально я его убирал из circular_move) и станок стал посылать ф_анус, то бишь далЁко.

В "перемещении по спирали" стандартный 3осевой пост генерит такой код:

global mom_pos_arc_plane

   global mom_sys_cir_vector

   global mom_sys_helix_pitch_type

   global mom_helix_pitch

   global mom_prev_pos mom_pos_arc_center

   global PI





   switch $mom_pos_arc_plane {

	  XY { MOM_suppress once K; set cir_index 2 }

	  YZ { MOM_suppress once I; set cir_index 0 }

	  ZX { MOM_suppress once J; set cir_index 1 }

   }



   switch $mom_sys_helix_pitch_type {

	  none { }

	  rise_revolution { set pitch $mom_helix_pitch }

	  rise_radian { set pitch [expr $mom_helix_pitch / ($PI * 2.0)]}

	  other {

#

#  Place your custom helix pitch code here

#

	  }

	  default { set mom_sys_helix_pitch_type "none" }

   }



   MOM_force once X Y Z



   if { [string compare "none" $mom_sys_helix_pitch_type] } {



	  MOM_force once I J K



	  switch $mom_sys_cir_vector {

		 "Vector - Arc Center to Start" {

			set mom_prev_pos($cir_index) $pitch

			set mom_pos_arc_center($cir_index) 0.0

		 }

		 "Vector - Arc Start to Center" -

		 "Unsigned Vector - Arc Start to Center" {

			set mom_prev_pos($cir_index) 0.0

			set mom_pos_arc_center($cir_index) $pitch

		 }

		 "Vector - Absolute Arc Center" {

			set mom_pos_arc_center($cir_index) $pitch

		 }

	  }

   }



#

# You may need to edit this line if you output more than one block

# or if you have changed the name of your circular_move block template

#

   MOM_do_template circular_move

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

Проблему решил следующим образом:

создал команду

global mom_pos_arc_plane





   switch $mom_pos_arc_plane {

	  XY { MOM_suppress once K;MOM_force once X Y; MOM_do_template circular_move_xy }

	  YZ { MOM_suppress once I;MOM_force once Z Y; MOM_do_template circular_move_yz }

	  ZX { MOM_suppress once J;MOM_force once X Z; MOM_do_template circular_move_zx }

   }

засунул её в "перемещение по спирали"

раскопировал шаблон Circular_move на circular_move_xy(yz,zx)

и изменил эти шаблоны - повыкидовал из каждого ненужную мне составляющую. Из circular_move_xy адрес К , из circular_move_yz адрес I, из circular_move_zx адрес J

За такие манипуляции грамотные программисты постов закидают меня тухлыми яйцами...и будут правы.

А может кто то уделит часть своего драгоценного времени и подскажет как такое сделать красиво, изящно и правильно, на что я собственно и надеюсь.