论坛 › UG后处理 › 我用过的后处理，法那科带刀库。好不好用自已看！

UG初学者的老师 发表于 2016-11-24 15:46:07

我也要试试好用不

UG初学者的老师 发表于 2016-11-24 15:47:09

我也要试试好用不

一盒烟一杯酒* 发表于 2016-11-24 16:02:51

MOM_set_seq_on
set outputthd 1
global toollistmom_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 {
    set tt $mom_tool_number
} else {
    set tt 0
}
if {
    set th $mom_tool_adjust_register
} else {
    set th 0
}
if {
    set td $mom_tool_cutcom_register
} else {
    set td 0
}
set tt
set th
set td

set tt
set th
set 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 {
    set partstock
    set floorstock
}
if {$mom_operation_type == "point to point"} {
    set partstock 0
    set floorstock 0
}

MOM_output_literal "(RMP: S F)"
MOM_output_literal "(Part stock=MMfloor stock=MM)"


global ptp_file_name
set tmp_file_name "${ptp_file_name}_"
if {} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile
set ofile
puts $ofile "%"
global mom_part_name
#puts $ofile "(Part: $mom_part_name)"
global mom_date
set datee -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: MIN)"
#puts $ofile "(Writer: Mr.Zhang   Mobile:15853875606)"
global toollist

if { } {
    foreach tool $toollist {
      puts $ofile "($tool)"
    }
}

set buf ""
while { > 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"
} else {
MOM_output_literal "G00G90G"
}


global toollist mom_tool_name mom_tool_diameter mom_tool_corner1_radius mom_tool_number

set mom_tool_number

set tool_mes R=[ format"%.2f" $mom_tool_corner1_radius ] ]

#if { ! } {
#set toollist $tool_mes
#} else {
lappend toollist $tool_mes
#}
set outputthd 1
global toollistmom_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 {
    set tt $mom_tool_number
} else {
    set tt 0
}
if {
    set th $mom_tool_adjust_register
} else {
    set th 0
}
if {
    set td $mom_tool_cutcom_register
} else {
    set td 0
}
set tt
set th
set td

set tt
set th
set 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 toollistmax_z min_zmom_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

set tool_mes R=[ format"%.2f" $mom_tool_corner1_radius ]\ \ \H$th\ \ \D$td\ \ \MaxZ=[ format %.2f $max_z ]mm\ \ \MinZ=[ format %.2f $min_z ]mm ]







#if { ! } {
#set toollist $tool_mes
#} else {
lappend toollist $tool_mes
#}

global ptp_file_name
set tmp_file_name "${ptp_file_name}_"
if {} {
MOM_remove_file $tmp_file_name
}
MOM_close_output_file $ptp_file_name
file rename $ptp_file_name $tmp_file_name
set ifile
set ofile

globalmax_z min_zmom_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 "(mm   MinZ=[ format %.2f $min_z ]mm ])"



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

墨辰* 发表于 2016-11-24 16:32:38

和vjkcvlkclvmlcmvl 该方法反反复复

751257127 发表于 2016-11-24 17:33:40

下俩看看学习下啊

小兔仔 发表于 2016-11-24 19:39:21

很好很强大

wanggq 发表于 2016-11-24 19:45:50

看看如何

我爱我家521 发表于 2016-11-24 19:56:08

看看大湿的高招

Promise@ 发表于 2016-11-24 19:56:52

法那科带刀库。好不好用自已看

tjq2013 发表于 2016-11-24 20:05:20

谢谢分享

查看完整版本: 我用过的后处理，法那科带刀库。好不好用自已看！