手把手教你制作UG四五轴宏联动后处理(二十一)
#******************计算Zrtcp*******************set e1
set e2
set d1
set d2
set vz
set w1
if {!} {
set s1 "-#102"
} elseif {!} {
set s1 "#102"
} 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 "-#103"
} elseif {!} {
set s2 "+#103"
} 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 w4
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w4 ]
} else {
set w4
}
} else {
set w4
}
} else {
set w4
}
}
if {$vz > 0.0} {
set s4
} elseif {$vz < 0.0} {
set s4
} else {
set s4 "NONE"
}
if { && !} {
set s $s1
} elseif {! && } {
set s $s2
} elseif { && } {
set s
} else {
set s "NONE"
}
if { && } {
set sz " $s $s4]
} elseif {! && } {
set sz $s4
} elseif { && !} {
set sz " $s]
} else {
set sz "0."
}
return 1
}
return 0
点击确定。
(22).将"初始移动"事件下的G0 G90 G(54~59) 文本元素1 文本元素2 A S M3行复制到"第一次移动"事件下的G0 G90 (54~59) X Y A S M3行下面。
(23).在"初始移动"事件下的G0 G90 G(54~59) 文本元素1 文本元素2 A S M3行下面添加G43 Z H1 M8行，
添加输出条件PB__CMD_check_block_initial_move2，编辑TCL代码如下：
global dpp_path_type
if {!} {
return 1
}
return 0
点击确定。
(24).将"初始移动"事件下的G43 Z H1 M8行复制到"第一次移动"事件下的G0 G90 (54~59) 文本元素1 文本元素2 X Y A S M3行下面。
(25).在"初始移动"事件下的G43 Z H1 M8行下面添加G43 文本元素 H1 M8行，将文本元素内容改为Z$sz,
添加输出条件PB__CMD_check_block_initial_move3，编辑TCL代码如下：
global dpp_path_type
if {!} {
return 1
}
return 0
点击确定。
(26).将"初始移动"事件下的G43 文本元素 H1 M8行复制到"第一次移动"事件下的G43 Z H1 M8行下面。
6.在"程序和刀轨"选项卡中,选择左侧"运动"选项：
(1).将"圆周移动"事件下的G17 G2 G90 X Y Z I J K F S行中的G17和S元素删除，将G2元素设置为强制输出，
添加输出条件PB__CMD_check_block_circular_move，编辑TCL代码如下：
global dpp_path_type
if {!} {
return 1
}
return 0
点击确定。
(2).将"线性移动"事件下的G41 G17 G1 G90 X Y Z A F S D1 M3 M8行中的G17,S,M3,M8元素删除，
添加输出条件PB__CMD_check_block_linear_move，编辑TCL代码如下：
global dpp_path_type
if {!} {
return 1
}
return 0
点击确定。
(3).在"线性移动"事件下的G41 G1 G90 X Y Z A F D1行下面添加G41 G1 G90 文本元素 A F D1行，
将文本元素内容改为X$sx Y$sy Z$sz，添加输出条件PB_CMD__check_block_linear_move_1，
编辑TCL代码如下：
global dpp_path_type
global e1 e2 d1 d2 vx vy vz rad_a
global w1 w2 w4
global s s1 s2 s4
global sx sy sz
global mom_pos mom_out_angle_pos
if {!} {
set rad_a
#*********************计算Xrtcp***********************
set vx
set w4
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w4 ]
} else {
set w4
}
} else {
set w4
}
} else {
set w4
}
}
set sx $w4
未完待续。。。。
按你的步骤一步一步设置了，还是有问题，无法输出正确的代码？四轴无法输出代码，五轴直接报错，大神看看哪里有问题？ 按你的步骤一步一步设置。发现四轴后处理代码无法输出。五轴直接报错，无法输出代码。大神看一下哪里还有问题？求指教。 FGDFG99 发表于 2026-1-13 16:22
按你的步骤一步一步设置。发现四轴后处理代码无法输出。五轴直接报错，无法输出代码。大神看一下哪里还有问 ...
做这个你得有点基础知识，他这个代码里面又得漏泄活多写得错误，要自己改下 本帖最后由 tombai691019 于 2026-1-13 18:29 编辑
FGDFG99 发表于 2026-1-13 16:22
按你的步骤一步一步设置。发现四轴后处理代码无法输出。五轴直接报错，无法输出代码。大神看一下哪里还有问 ...
做这个后处理要有点做后处理的功底，做完要试后处理，试完有问题要修改。要看报错是什么？根据报错修改。刚开始我按步骤做也报错，后来发现有些是给的条件少了括号，有些是需要调整 。所以跟着做也不是直接可以做好的。
页:
[1]