############ TCL FILE ######################################
#
USER AND DATE STAMP
############################################################
set cam_post_dir [MOM_ask_env_var UGII_CAM_POST_DIR]
if { ![info exists mom_sys_post_initialized] } {
source ${cam_post_dir}ugpost_base.tcl
proc MOM_before_each_add_var {} {}
proc MOM_before_each_event {} {}
#
set cam_debug_dir [MOM_ask_env_var UGII_CAM_DEBUG_DIR]
#
source ${cam_debug_dir}mom_review.tcl
MOM_set_debug_mode OFF
#### Listing File variables
set mom_sys_list_output "OFF"
set mom_sys_header_output "OFF"
set mom_sys_list_file_rows "40"
set mom_sys_list_file_columns "30"
set mom_sys_warning_output "OFF"
set mom_sys_group_output "OFF"
set mom_sys_list_file_suffix "lpt"
set mom_sys_output_file_suffix "NC"
set mom_sys_commentary_output "ON"
set mom_sys_commentary_list "x y z feed speed"
set mom_sys_control_out "("
set mom_sys_control_in ")"
set mom_sys_post_initialized 1
}
########## SYSTEM VARIABLE DECLARATIONS ############## 新代后处理源码下载：
[复制链接]
