论坛 › NX1847~2512系列 › 在UG后处理中直接计算RTCP,避免宏联动卡顿的方法(二)

Tualar 发表于 2026-1-26 07:36:57

在UG后处理中直接计算RTCP,避免宏联动卡顿的方法(二)

# 计算Zrtcp=(cos4-1)*Zofs+sin4*cos5*Xofs+sin4*sin5*Yofs+Z
set e1
set e2
set e3
set e4 $mom_pos(2)
set vz
set sz
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sz ]
      } else {
            set sz
          }
      } else {
          set sz
      }
    } else {
      set sz
      }
}
return 1
}
return 0
(三).立加四轴A转台：
1.定轴加工-----加工原点G54计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global e1 e2 ra
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z

if {!} {
   if { $mom_out_angle_pos(0) !=0 } {
      MOM_output_literal "(刀路: 定轴)"
      set ra
   } else {
       MOM_output_literal "(刀路: 三轴)"
       set ra 0.0
   }
} elseif {!} {
   MOM_output_literal "(刀路: 四轴联动)"
   set ra 0.0
}

set sx
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sx ]
      } else {
          set sx
      }
    } else {
      set sx
      }
} else {
      set sx
    }
}

set e1
set e2
set vy
set sy
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sy ]
      } else {
          set sy
      }
    } else {
      set sy
      }
} else {
      set sy
    }
}

set e1
set e2
set vz
set sz
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sz ]
      } else {
          set sz
      }
    } else {
      set sz
      }
} else {
      set sz
    }
}
2.联动加工-----刀尖跟随RTCP计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global mom_pos
global e1 e2 e3 ra
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z

if {!} {
set ra

# 计算Xrtcp=X
set vx
set sx
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sx ]
      } else {
            set sx
          }
      } else {
          set sx
      }
    } else {
      set sx
      }
}

# 计算Yrtcp=(cos4-1)*Yofs+sin4*Zofs+Y
set e1
set e2
set e3 $mom_pos(1)
set vy
set sy
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sy ]
      } else {
            set sy
          }
      } else {
          set sy
      }
    } else {
      set sy
      }
}

# 计算Zrtcp=-sin4*Yofs+(cos4-1)*Zofs+Z
set e1
set e2
set e3 $mom_pos(2)
set vz
set sz
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sz ]
      } else {
            set sz
          }
      } else {
          set sz
      }
    } else {
      set sz
      }
}
return 1
}
return 0
(四).卧加四轴B转台：
1.定轴加工-----加工原点G54计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global e1 e2 rb
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z

if {!} {
   if { $mom_out_angle_pos(0) !=0 } {
      MOM_output_literal "(刀路: 定轴)"
      set rb
   } else {
       MOM_output_literal "(刀路: 三轴)"
       set rb 0.0
   }
} elseif {!} {
   MOM_output_literal "(刀路: 四轴联动)"
   set rb 0.0
}

set e1
set e2
set vx
set sx
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sx ]
      } else {
          set sx
      }
    } else {
      set sx
      }
} else {
      set sx
    }
}

set sy
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sy ]
      } else {
          set sy
      }
    } else {
      set sy
      }
} else {
      set sy
    }
}

set e1
set e2
set vz
set sz
if { == "0"} {
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      set sz ]
      } else {
          set sz
      }
    } else {
      set sz
      }
} else {
      set sz
    }
}
2.联动加工-----刀尖跟随RTCP计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global mom_pos
global e1 e2 e3 rb
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z

if {!} {
set rb

# 计算Xrtcp=(cos4-1)*Xofs-sin4*Zofs+X
set e1
set e2
set e3 $mom_pos(0)
set vx
set sx
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sx ]
      } else {
            set sx
          }
      } else {
          set sx
      }
    } else {
      set sx
      }
}

# 计算Yrtcp=Y
set vy
set sy
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sy ]
      } else {
            set sy
          }
      } else {
          set sy
      }
    } else {
      set sy
      }
}

# 计算Zrtcp=(cos4-1)*Zofs+sin4*Xofs+Z
set e1
set e2
set e3 $mom_pos(2)
set vz
set sz
if { == "0"} {
    if { == "0"} {
      if { == "0"} {
      if { == "0"} {
          set sz ]
      } else {
            set sz
          }
      } else {
          set sz
      }
    } else {
      set sz
      }
}
return 1
}
return 0

冯大师专用 发表于 2026-1-26 13:01:24

这是一个不错的分享

67240999 发表于 2026-1-26 20:31:50

大神能分享个最后更新版本？BC轴

Leroy11 发表于 2026-2-6 08:06:24

大佬你的五轴宏联动上过机没有？如果把试件放了转台最边，有没有发现误差很大？距离圆心越远误差越大！定轴可以做到0.01！等放到距离回转中心近的时候这个问题又没有了！是这种宏联动的通病还是什么原因？？？？G52格式！

tmh01a 发表于 2026-2-6 09:40:09

大佬牛,给大佬点赞

Tualar 发表于 3 天前

本帖最后由 Tualar 于 2026-3-8 16:49 编辑

Leroy11 发表于 2026-2-6 08:06
大佬你的五轴宏联动上过机没有？如果把试件放了转台最边，有没有发现误差很大？距离圆心越远误差越大！定轴 ...
你的想法不是问题。我发帖，就是抛砖引玉，帮大家解决底层数学问题。你好好研究，。。。。注意：五轴旋转中心线和四轴旋转中心线是否在一个平面上，如果不在(机床装配误差)，这个误差是多少以及方向，其实就是五轴和四轴中心线不重合（两条不平行的直线在同一平面上才有唯一一个交点）引起的误差问题，如何调整RTCP算法补偿这个误差，这个问题交给你自己去想想。。。在我给出的RTCP算法基础上加入这个误差补偿三角函数算法即可。自己画CAD看看就知道了。南京六合标子

Tualar 发表于 3 天前

本帖最后由 Tualar 于 2026-3-8 17:00 编辑

Leroy11 发表于 2026-2-6 08:06
大佬你的五轴宏联动上过机没有？如果把试件放了转台最边，有没有发现误差很大？距离圆心越远误差越大！定轴 ...
一般人只顾找旋转中心，没有关心五轴旋转中心相对于四旋转轴中心的机床装配偏差，造成RTCP精度出问题了，离中心越远误差越大。注意标定这个误差，放入后处理中或者写入RTCP算法中

查看完整版本: 在UG后处理中直接计算RTCP,避免宏联动卡顿的方法(二)