Perl版的ug_import Mapping文件生成脚本

闲来无事写了一个PERL版本的MAPPING文件生成脚本，供大家参考，其中生成规则部分的正则表达式可能需要根据实际需求来改写。

文件名：map_gen.pl.cmd

@rem = '
        @echo off 
        perl -w %0 %*
        goto EndOfPerl
        @rem ';
# Suppress the "use only once" wanning
@rem = (@rem, "kaka");

####################################################
#       UGMAPPING GENERATOR PERL EDITION           #
#       AUTHOR: Aquino Friday 21th Oct, 2005       #
####################################################
# Version History
# 21-Oct-2005 DongGonghua Ver 1.01 Bug Fixed "top asm"
# $HISTORY$

# Install & Execution instruction:
#
#  1) Copy "map_gen.pl.cmd" to you %IMAN_ROOT%\bin
#  2) Enter IMAN_MENU environments
#  3) Move to your folder contains UG Part files, 
#     execute: map_gen.pl.cmd
#  4) Then you'll find two files generated in the current 
#     folder 
#
# Syntax: map_gen.pl.cmd
#
# Output Files:
#        Mapping File is  : mapping.txt
#        UG_IMPORT Script : import_script.bat
#

# Verbose Switch
#############################################################
$verbose_mode=0;                                            #
$ARGC=@ARGV;                                                #
if ($ARGC>0) {                                              #
    foreach (@ARGV) {                                       #
        if ($_=~/-v/){                                      #
        $verbose_mode=1;                                    #
        print "Generating Mapping & import script ... ";    #
        print "\n======== ENTER VERBOSE MODE =========\n";  #
        }                                                   #
    }                                                       #
}else {                                                     #
    print "\"-v\" switch avaliable for verbose mode\n\n";   #
    print "Generating Mapping & import script ... ";        #
}                                                           #
#############################################################

# sort file list
#############################################################
    @file_list=split "\n", `dir/b *.prt`;                   #
    # UGMASTER                                              #
    foreach (@file_list) {                                  #
        if ($_=~/^\d+.prt/) {                               #
            @sorted_file_list=(@sorted_file_list,$_);       #
        }                                                   #
    }                                                       #
    # UGMASTER                                              #
    foreach (@file_list) {                                  #
        if ($_=~/^\d+_[A-Za-z0-9]+.prt$/) {                 #
            @sorted_file_list=(@sorted_file_list,$_);       #
        }                                                   #
    }                                                       #
    # UGPART                                                #
    foreach (@file_list) {                                  #
        if ($_=~/^\d+_[A-Za-z0-9]+_s_.*.prt$/) {            #
            @sorted_file_list=(@sorted_file_list,$_);       #
        }                                                   #
    }                                                       #
    # UGALTREP                                              #
    foreach (@file_list) {                                  #
        if ($_=~/^\d+_[A-Za-z0-9]+_a_.*.prt$/) {            #
            @sorted_file_list=(@sorted_file_list,$_);       #
        }                                                   #
    }                                                       #
#############################################################


# Get current directory name
#############################################################
chomp($PWD=`cd`);                                           #
if ($PWD=~/^([A-Z]):\\$/) {$PWD="$1_root";}                 #
else {$PWD=~s#^.*\\(.*)$#$1#;}                              #
#############################################################

# Input & Output file descriptor
#############################################################
open IMP_SCR, ">import_script.bat" or die "Failed: $!";     #
open MAPPING, ">mapping.txt" or die "Failed: $!";           #
#############################################################


# Output MAPPING HEADING
print MAPPING "[Defaults]\n";
print MAPPING "\timport_folder=\"$PWD\"\n";
print MAPPING "\tdb_part_no=\$STRIPPED_LEAFNAME\n";
print MAPPING "\texisting_data=\$USE_EXISTING\n";

# Output IMPORT_SCRIPT HEADING
print IMP_SCR "\@echo off\n";
print IMP_SCR "\@if x%1x == xx goto error\n";
print IMP_SCR "\@if x%2x == xx goto error\n";
print IMP_SCR "\@if x%3x == xx goto error\n";

# Main Loop
foreach (@sorted_file_list) {
    chomp $_;

    # Find out top assembly part
    if ($_ =~ /^0.*.prt$/) {
        print IMP_SCR "CALL %UGII_BASE_DIR%\\UGMANAGER             \\ug_import -part=$_ -mapping=mapping.txt             -u=%1 -p=%2 -g=%3\n";
    }

    ## UGMASTER, No pre-defined rev_id
    if ($_=~/^(\d+).prt$/) { 
        print MAPPING "[$_]\n\tdb_part_no=$1\n\t             db_part_name=$1\n\tdb_part_rev=A\n";
        if($_=~/^0.*/) { print MAPPING "\tdb_part_type=             Assembly\n"; }
        else { print MAPPING "\tdb_part_type=Part\n"; }
    } 
    
    ## UGMASTER, with pre-defined rev_id
    elsif ($_=~/^(\d+)_([A-Za-z0-9]+).prt$/) {
        print MAPPING "[$_]\n\tdb_part_no=$1\n\t             db_part_name=$1\n\tdb_part_rev=$2\n";
        if($_=~/^0.*/) { print MAPPING "\tdb_part_type=             Assembly\n"; }
        else { print MAPPING "\tdb_part_type=Part\n"; }
    }
    
    ## UGPART
    elsif ($_=~/^(\d+)_([A-Za-z0-9]+)_s_(.*).prt$/) {
        print MAPPING "[$_]\n\tdb_part_no=$1\n\t             db_part_rev=$2\n\tdb_model_type=spec\n\t             db_model_name=$3\n";
        print IMP_SCR "CALL %UGII_BASE_DIR%\\UGMANAGER             \\ug_import -part=$_ -mapping=mapping.txt             -u=%1 -p=%2 -g=%3\n";
    }
    
    ## UGALTREP
    elsif ($_=~/^(\d+)_([A-Za-z0-9]+)_a_(.*).prt$/) {
        print MAPPING "[$_]\n\tdb_part_no=$1\n\t             db_part_rev=$2\n\tdb_model_type=alt\n\t             db_model_name=$3\n";
        print IMP_SCR "CALL %UGII_BASE_DIR%\\UGMANAGER             \\ug_import -part=$_ -mapping=mapping.txt             -u=%1 -p=%2 -g=%3\n";
    }

}

# Output IMPORT_SCRIPT TRAILING
print IMP_SCR "goto end\n";
print IMP_SCR ":error\n";
print IMP_SCR "echo Syntax err:%0 username passwd grp\n";
print IMP_SCR ":end\n";

# Close input & output files
#############################################################
close MAPPING;                                              #
close IMP_SCR;                                              #
#############################################################

# VERBOSE MODE
#############################################################
if ($verbose_mode) {                                        #
                                                            # 
open MAPPING, "<mapping.txt" or die "Failed: $!";           #
open IMP_SCR, "<import_script.bat" or die "Failed: $!";     #
                                                            #
print "\n================ MAPPING.TXT ==============\n";    #
foreach (<MAPPING>) {                                       #
    print ;                                                 #
}                                                           #
print "\n============ END OF MAPPING.TXT ===========\n";    #
print "\n============ IMPORT_SCRIPT.BAT ============\n";    #
foreach (<IMP_SCR>) {                                       #
    print ;                                                 #
}                                                           #
print "\n========= END OF IMPORT_SCRIPT.BAT ========\n";    #
                                                            #
close MAPPING;                                              #
close IMP_SCR;                                              #
}                                                           #
#############################################################

print "Done !\n";



__END__
:EndOfPerl

当Part Family 遇到 in-CLASS

Teamcenter Engineering 9.1 中的in-CLASS模块对零件族的管理做了强化，通过零件族的模板来生成零件族成员，并自动交由in-CLASS管理，这里做了一个实例演示。