QQ登录

只需一步,快速开始

快捷登录

登录 或者 注册 请先

UG爱好者

楼主: gua133
打印 上一主题 下一主题

[分享] 我用过的后处理,法那科带刀库。好不好用自已看!

  [复制链接]

上等兵

Rank: 1

0

主题

24

帖子

155

积分
201#
发表于 2016-11-24 15:46:07 | 只看该作者
我也要试试好用不
回复 支持 反对

使用道具 举报

上等兵

Rank: 1

0

主题

24

帖子

155

积分
202#
发表于 2016-11-24 15:47:09 | 只看该作者
我也要试试好用不
回复 支持 反对

使用道具 举报

中尉

Rank: 5Rank: 5

40

主题

184

帖子

4628

积分
203#
发表于 2016-11-24 16:02:51 | 只看该作者
MOM_set_seq_on
set outputthd 1
global toollist  mom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number
set tdi [ format  "%.2f" $mom_tool_diameter]
set tr [ format  "%.2f" $mom_tool_corner1_radius]

if [info exists mom_tool_number] {
    set tt $mom_tool_number
} else {
    set tt 0
}
if [info exists mom_tool_adj_reg_defined] {
    set th $mom_tool_adjust_register
} else {
    set th 0
}
if [info exists mom_tool_adj_reg_defined] {
    set td $mom_tool_cutcom_register
} else {
    set td 0
}
set tt [format "%02.0f" $tt]
set th [format "%02.0f" $th]
set td [format "%02.0f" $td]

set tt [format "%02.0f" $tt]
set th [format "%02.0f" $th]
set td [format "%02.0f" $td]

if {$outputthd == 1 } {
    MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"
} else {
    MOM_output_literal "(T00:$mom_tool_name D=$tdi R=$tr H00 D$td)"
}
MOM_set_seq_off
global mom_spindle_rpm
global mom_feed_cut_value
global mom_stock_part side
global mom_stock_floor
global mom_stock use floor same as side
global mom_operation_type
global mom_motion_type

global mom_operation_name




set partstock 0
set floorstock 0



if [info exists mom_stock_floor] {
    set partstock [format "%.2f" $mom_stock_part side]
    set floorstock [format "%.2f" $mom_stock_floor]
}
if {$mom_operation_type == "point to point"} {
    set partstock 0
    set floorstock 0
}

MOM_output_literal "(RMP:[format $mom_operation_name] S[format "%.0f" $mom_spindle_rpm] F[format %.1f $mom_feed_cut_value])"
MOM_output_literal "(Part stock=[format "%.2f" $partstock]MM  floor stock=[format "%.2f" $floorstock]MM)"


global ptp_file_name
set tmp_file_name "${ptp_file_name}_"
if {[file exists $tmp_file_name]} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name w]
puts $ofile "%"
global mom_part_name
#puts $ofile "(Part: $mom_part_name)"
global mom_date
set datee [clock format [clock seconds] -format "%Y/%m/%d %H:%M /%w"]
puts $ofile "($datee)"


global mom_output_file_basename



#puts $ofile "(NC name: $mom_output_file_basename.nc)"



global mom_machine_time
puts $ofile "(Machine time: [format "%.2f" $mom_machine_time] MIN)"
#puts $ofile "(Writer: Mr.Zhang   Mobile:15853875606)"
global toollist

if { [info exists toollist] } {
    foreach tool $toollist {
        puts $ofile "($tool)"
    }
}

set buf ""
while { [gets $ifile buf] > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name

global mom_fixture_offset_value
if {$mom_fixture_offset_value>5} {
MOM_output_literal "G00G90G54.1P[expr $mom_fixture_offset_value-5]"
} else {
MOM_output_literal "G00G90G[expr $mom_fixture_offset_value+54]"
}


global toollist mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_number

set mom_tool_number [format "%02.0f" $mom_tool_number]

set tool_mes  [format "%-10s %-15s %-15s"  T$mom_tool_number=$mom_tool_name D=[ format  "%.2f" $mom_tool_diameter ] R=[ format  "%.2f" $mom_tool_corner1_radius ] ]

#if { ![info exists toollist] } {
#  set toollist $tool_mes
#} else {
lappend toollist $tool_mes
#}
set outputthd 1
global toollist  mom_tool_cutcom_register mom_cutcom_adjust_register mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_adjust_register mom_tool_adj_reg_defined mom_tool_number
set tdi [ format  "%.2f" $mom_tool_diameter]
set tr [ format  "%.2f" $mom_tool_corner1_radius]

if [info exists mom_tool_number] {
    set tt $mom_tool_number
} else {
    set tt 0
}
if [info exists mom_tool_adj_reg_defined] {
    set th $mom_tool_adjust_register
} else {
    set th 0
}
if [info exists mom_tool_adj_reg_defined] {
    set td $mom_tool_cutcom_register
} else {
    set td 0
}
set tt [format "%02.0f" $tt]
set th [format "%02.0f" $th]
set td [format "%02.0f" $td]

set tt [format "%02.0f" $tt]
set th [format "%02.0f" $th]
set td [format "%02.0f" $td]

if {$outputthd == 1 } {
    #MOM_output_literal "(T$tt:$mom_tool_name D=$tdi R=$tr H$th D$td)"
} else {
    #MOM_output_literal "(T00:$mom_tool_name D=$tdi R=$tr H00 D$00)"
}
global toollist  max_z min_z  mom_tool_number mom_tool_name
global toollist mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_number
set zmax [ string trimright [ format %.2f $max_z ]mm 0 ]
set zmin [ string trimright [ format %.2f $min_z ]mm 0 ]
set mom_tool_number [format "%02.0f" $mom_tool_number]

set tool_mes  [format "%-8s %-8s %-8s"  T$mom_tool_number:$mom_tool_name D=[ format  "%.2f" $mom_tool_diameter ] R=[ format  "%.2f" $mom_tool_corner1_radius ]\ \ \H$th\ \ \D$td\ \ \MaxZ=[ format %.2f $max_z ]mm\ \ \MinZ=[ format %.2f $min_z ]mm ]







#if { ![info exists toollist] } {
#  set toollist $tool_mes
#} else {
lappend toollist $tool_mes
#}

global ptp_file_name
set tmp_file_name "${ptp_file_name}_"
if {[file exists $tmp_file_name]} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile [open $tmp_file_name r]
set ofile [open $ptp_file_name w]

global  max_z min_z  mom_tool_number mom_tool_name
set zmax [ string trimright [ format %.2f $max_z ]mm 0 ]
set zmin [ string trimright [ format %.2f $min_z ]mm 0 ]
puts $ofile "([format "%-10s %-15s %-15s" T$mom_tool_number=$mom_tool_name MaxZ=[ format %.2f $max_z ]mm   MinZ=[ format %.2f $min_z ]mm ])"



set buf ""
while { [gets $ifile buf] > 0 } {
puts $ofile $buf
}
close $ifile
close $ofile
MOM_remove_file $tmp_file_name
MOM_open_output_file $ptp_file_name
回复 支持 反对

使用道具 举报

上尉

Rank: 6Rank: 6

30

主题

506

帖子

5559

积分
204#
发表于 2016-11-24 16:32:38 | 只看该作者
和vjkcvlkclvmlcmvl 该方法反反复复
回复 支持 反对

使用道具 举报

大校

Rank: 8Rank: 8

11

主题

599

帖子

1万

积分

灌水王

205#
发表于 2016-11-24 17:33:40 | 只看该作者
下俩看看学习下啊
回复 支持 反对

使用道具 举报

中尉

Rank: 5Rank: 5

3

主题

231

帖子

3351

积分
206#
发表于 2016-11-24 19:39:21 | 只看该作者
很好很强大
回复 支持 反对

使用道具 举报

五级士官

Rank: 4

0

主题

68

帖子

973

积分
208#
发表于 2016-11-24 19:56:08 | 只看该作者
看看大湿的高招
回复 支持 反对

使用道具 举报

爱好者终身VIP

Rank: 11Rank: 11Rank: 11Rank: 11

19

主题

397

帖子

8704

积分

VIP会员

209#
发表于 2016-11-24 19:56:52 | 只看该作者
法那科带刀库。好不好用自已看
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

 
 
QQ:1359218528
工作时间:
9:00-17:00
 
微信公众号
手机APP
机械社区
微信小程序

手机版|UG爱好者论坛 ( 京ICP备10217105号-2 )    论坛管理员QQ:1359218528

本站信息均由会员发表,不代表本网站立场,如侵犯了您的权利请联系管理员,邮箱:1359218528@qq.com  

Powered by UG爱好者 X3.2  © 2001-2014 Comsenz Inc. GMT+8, 2024-11-6 17:31

返回顶部