手把手教你制作UG四五轴宏联动后处理(十二)

Tualar 发表于 2025-12-31 03:12:50

#************计算定轴加工原点G54**********************************
      MOM_output_literal "#130=$sb"
      MOM_output_literal "#131=$sc"
      MOM_output_literal "#23=#101*COS\[#131\]+#102*SIN\[#131\]"
      MOM_output_literal "#24=#23*COS\[#130\]-#103*SIN\[#130\]+#5241"
      MOM_output_literal "#25=-#101*SIN\[#131\]+#102*COS\[#131\]+#5242"
      MOM_output_literal "#26=#103*COS\[#130\]+#23*SIN\[#130\]+#5243"
      MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
   } else {
         MOM_output_literal "(刀路: 三轴)"
         #************计算三轴加工原点G54*********************************
         MOM_output_literal "#130=0."
         MOM_output_literal "#131=0."
         MOM_output_literal "#23=#101*COS\[#131\]+#102*SIN\[#131\]"
         MOM_output_literal "#24=#23*COS\[#130\]-#103*SIN\[#130\]+#5241"
         MOM_output_literal "#25=-#101*SIN\[#131\]+#102*COS\[#131\]+#5242"
         MOM_output_literal "#26=#103*COS\[#130\]+#23*SIN\[#130\]+#5243"
         MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
      }
} elseif {!} {
      MOM_output_literal "(刀路: 五轴联动)"
      #*******计算五轴联动加工原点G54，让加工原点与编程原点重合********
      MOM_output_literal "#130=0."
      MOM_output_literal "#131=0."
      MOM_output_literal "#23=#101*COS\[#131\]+#102*SIN\[#131\]"
      MOM_output_literal "#24=#23*COS\[#130\]-#103*SIN\[#130\]+#5241"
      MOM_output_literal "#25=-#101*SIN\[#131\]+#102*COS\[#131\]+#5242"
      MOM_output_literal "#26=#103*COS\[#130\]+#23*SIN\[#130\]+#5243"
      MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
   }
   点击确定。
(18).将PB_CMD_calc_g54行复制到"第一次移动"事件下的PB_CMD_detect_tool_path_type行下面。
(19).在"初始移动"事件下的PB_CMD_calc_g54行下面添加G0 G90 G(54~59) X Y B C S M3行,
   添加输出条件PB__CMD_check_block_initial_move，编辑TCL代码如下:
   global dpp_path_type
   if {!} {
      return 1
   }
   return 0
   点击确定。
(20).将"初始移动"事件下的G0 G90 G(54~59) X Y B C S M3行复制到"第一次移动"事件下的PB_CMD_calc_g54行下面。
(21).在"初始移动"事件下的G0 G90 G(54~59) X Y B C S M3行下面添加G0 G90 G(54~59) 文本元素1 文本元素2 B C S M3行,
   将文本元素1内容改成X$sx，将文本元素2内容改成Y$sy，
   添加输出条件PB__CMD_check_block_initial_move_1，编辑TCL代码如下:
global dpp_path_type
global e1 e2 e3 d1 d2 d3 vx vy vz rad_b rad_c
global wi w2 w3 s s1 s2 s3 s4 sx sy sz
global mom_out_angle_pos mom_pos
if {!} {
set rad_b
set rad_c
#**********************计算Xrtcp*********************
set e1
set e2
set e3
set d1
set d2
set d3
set vx
set w1
if {!} {
set s1 "-#101"
} elseif {!} {
   set s1 "#101"
} else {
   if { == "0"} {
      if { == "0"} {
         if { == "0"} {
         if { == "0"} {
            if { == "0"} {
               if { == "0"} {
                  set w1 ]
               } else {
                  set w1
                  }
            } else {
                  set w1
               }
            } else {
               set w1
            }
         } else {
            set w1
            }
      } else {
            set w1
         }
   }
   if {$d1 != 0.0} {
      set s1
   } else {
         set s1 "NONE"
      }
   }
set w2
if {!} {
set s2 "-#102"
} elseif {!} {
   set s2 "+#102"
} else {
   if { == "0"} {
      if { == "0"} {
         if { == "0"} {
            if { == "0"} {
            if { == "0"} {
               if { == "0"} {
                  set w2 ]
               } else {
                  set w2
                  }
            } else {
                  set w2
               }
            } else {
               set w2
            }
         } else {
            set w2
            }
      } else {
            set w2
         }
   }
   if {$d2 > 0.0} {
      set s2
   } elseif {$d2 < 0.0} {
         set s2
      } else {
         set s2 "NONE"
         }
   }
set w3
if {!} {
set s3 "-#103"
} elseif {!} {
   set s3 "+#103"
} else {
   if { == "0"} {
      if { == "0"} {
         if { == "0"} {
            if { == "0"} {
            if { == "0"} {
               if { == "0"} {
                  set w3 ]
               } else {
                  set w3
                  }
            } else {
                  set w3
               }
            } else {
               set w3
            }
         } else {
            set w3
            }
      } else {
            set w3
         }
   }
   if {$d3 > 0.0} {
      set s3
   } elseif {$d3 < 0.0} {
         set s3
      } else {
         set s3 "NONE"
         }
   }
set w4
if { == "0"} {
if { == "0"} {
   if { == "0"} {
   if { == "0"} {
      set w4 ]
   } else {
         set w4
      }
   } else {
      set w4
   }
} else {
   set w4
   }
}
if {$vx > 0.0} {
set s4
} elseif {$vx < 0.0} {
   set s4
} else {
   set s4 "NONE"
   }
if { && && } {
set s
} elseif { && ! && !} {
   set s $s1
} elseif {! && && !} {
   set s $s2
   } elseif {! && ! && } {
      set s $s3
   } elseif { && && !} {
         set s
      } elseif { && ! && } {
         set s
         } elseif {! && && } {
            set s
         } else {
               set s "NONE"
            }
if { && } {
set sx " $s $s4]
} elseif {! && } {
   set sx $s4
} elseif { && !} {
   set sx " $s]
   } else {
      set sx "0."
   }
未完待续。。。。

Tualar 发表于 2025-12-31 20:21:34

jiulin90 发表于 2025-12-31 14:17
你好：我按照你的步骤做了一个AC五轴宏联动后处理，处理程序报警不知道什么原因.麻烦指点一下。 ...

通过网盘分享的文件：Jia5xAC-南京六合标子.rar
链接: https://pan.baidu.com/s/15c9Q9dmIZ0uCPdqBnj-4EA?pwd=2026 提取码: 2026

w810611252* 发表于 2025-12-31 11:38:24

大佬6666

jiulin90 发表于 2025-12-31 14:17:49

你好：我按照你的步骤做了一个AC五轴宏联动后处理，处理程序报警不知道什么原因.麻烦指点一下。

VCFDRE 发表于 2025-12-31 14:24:12

大佬666！

Tualar 发表于 2025-12-31 20:10:16

jiulin90 发表于 2025-12-31 14:17
你好：我按照你的步骤做了一个AC五轴宏联动后处理，处理程序报警不知道什么原因.麻烦指点一下。 ...
你做的问题很大，错误太多
通过网盘分享的文件：Jia5xAC-南京六合标子.rar
链接: Jia5xAC-南京六合标子提取码: 2026

jiulin90 发表于 2026-1-1 08:28:25

Tualar 发表于 2025-12-31 20:21
通过网盘分享的文件：Jia5xAC-南京六合标子.rar
链接: https://pan.baidu.com/s/15c9Q9dmIZ0uCPdqBnj-4EA ...

谢谢你的回复，我不懂TCL语言，我好好研究学习一下。

hegaoj3 发表于 2026-1-2 16:11:11

大佬666！

页: [1]

UG爱好者's Archiver

手把手教你制作UG四五轴宏联动后处理(十二)