使用脚本文件快速配置Dispatcher调用swim转换pdf和jt-赖良顺

UGITC Technical Center使用脚本文件快速配置Dispatcher调用swim转换pdf和JT作者：赖良顺 审校：许孝文适用版本：swim10.1.0，SolidWorks2015在完成SolidWorks集成配置Dispatcher转换时，除了软件的安装路径可能不同，其他需要修改的配置文件或参数基本都是一样的，因此可以使用脚本文件快速完成文件、参数的修改。在TC Command Prompt中运行脚本文件（图1）；图1拖放指定文件夹到窗口并按下回车键，自动修改配置文件内的信息，完成后按照提示在swim.xml上添加aux的信息（图2）；图2文件夹错误会提示并退出脚本（图3）；图3JT转换器路径留空会跳过JT转换相关的配置，但其他文件夹必须完整且有效（图4）；图4Batch文件内，rem注释不显示= ，调用TC服务器目录上的Perl程序运行文件自身，在Perl脚本语言中，rem被识别为数组（图5）；图5打印提示需要读取的文件夹信息，读取用户输入的信息并赋值给$swim_dir变量，如果变量为空或不是文件夹或指定的文件或文件夹不存在，则报错并退出脚本（图6）；剩下文件夹基本同样的处理方法；图6只读方法打开translator.xml文件，循环读取每一行使其拼接赋值到变量内，使用替换关键字“s”和正则表达式进行匹配内容并替换/添加内容，关闭文件，重新使用只写方法打开文件，将变量内容覆盖写入到文件内（图7）；绝大部分文件都是查找、替换/添加内容的方式完成配置；图7在DispatcherClient的Sperties文件内，需要添加TSSWService的导入信息（图8），但这文件可能会因为安装了其他服务使其导入的服务数量、顺序发生变化，因此此处使用关键字“m”和正则表达式匹配，第一个匹配返回值为$1，分割字符串并循环判断TSSWService是否存在，不存在则拼接字符串（图9）；图8图9Perl脚本部分结束，继续运行Batch直至程序结束（图10）；图10运行Dispatcher程序，SolidWorks转换pdf、JT的转换器能注册成功，并在Teamcenter能正常调用（图11）；图11使用Batch和Perl混合语言脚本文件，能快速修改Dispatcher调用SolidWorks集成的转换器配置，减少查阅帮助文件后手动修改的麻烦，实现单一脚本完成单一版本配置文件的快速修改，减少人为失误。附录：脚本代码：rem = echo offclsecho.if %TC_ROOT% = ( goto no_tcroot)%TC_ROOT%perlbinperl %0 %dp0goto :eofrem ;# File Name: swim10.1.0_to_Dispathcer.bat# *# 这个快速修改SWIM 10.1.0调用Dispatcher的注册信息。# 要求未手动修改过Dispatcher信息，否则需要自行检查内容是否正确。# 赖良顺 UGITC/UTITC# 2017/03/19# *#print 目标集成程序: Teamcenter Integration for SolidWorks Version 10.1.0nn;#=podprint SWIM Directory = ;chomp ($swim_dir = );$swim_dir = s/g;if (defined($swim_dir) if ($swim_dir eq or not -e $swim_dir . ) die($swim_dir . 不是有效的目录n); if (not -e $swim_dir . soa_client10 or not -e $swim_dir . swtoJT.bat) die($swim_dir . v10.1.0版本验证不通过n); print JT Translator Directory = ;chomp ($translator_dir = );$translator_dir = s/g;if (defined($translator_dir) if ($translator_dir eq ) print 不启用swtoJT转换服务nn; $swtoJT = 0; else $swtoJT = 1; if ($translator_dir ne and not -e $translator_dir . ) die($translator_dir . 不是有效的目录n); if ($translator_dir ne and (not -e $translator_dir . etctessSW.config or not -e $translator_dir . SwtoJT.exe) die($translator_dir . 转换器验证不通过n); print Dispatcher Client Directory = ;chomp ($DispatcherClient_Dir = );$DispatcherClient_Dir = s/g;if (defined($DispatcherClient_Dir) if ($DispatcherClient_Dir eq or not -e $DispatcherClient_Dir . ) die($DispatcherClient_Dir . 不是有效的目录n); if (not -e $DispatcherClient_Dir . binsetDispatcherClientEnv.bat or not -e $DispatcherClient_Dir . confSperties) die($DispatcherClient_Dir . Dispatcher Client验证不通过n); print Module Directory = ;chomp ($Module_Dir = );$Module_Dir = s/g;if (defined($Module_Dir) if ($Module_Dir eq or not -e $Module_Dir . ) die($Module_Dir . 不是有效的目录n); if (not -e $Module_Dir . binsetmoduleenv.bat or not -e $Module_Dir . conftranslator.xml) die($Module_Dir . Module验证不通过n); print n;#=cut# Debug Setting Start=pod$swim_dir=C:appsswim;$translator_dir=C:SiemensTranslatorsSolidWorks_V12;$DispatcherClient_Dir=C:SiemensDispatcherDispatcherClient;$Module_Dir=C:SiemensDispatcherModule;$swtoJT = 1;=cut# Debug Setting End# Module Config Translator XMLprint Setting $Module_Dirconftranslator.xmln;open(MODULE_CONFIG_PROC_FILE, $Module_Dirconftranslator.xml) | die(Cant open file $!);$Module_Config_Result = do local undef $/; ; ;if ($swtoJT) $Module_Config_Result = s/ s+s+s+s+s+s+s+(?:s+|)s+s+s+s+s+s+s+s+s+s+(?:!-|)(?:-|)s+/ n n n n n n n n n n n n n n n n n !-n /g;$Module_Config_Result = s/s+SolidWorksToDxfsS+nn/g;$Module_Config_Result = s/s+/nn n n n n n n n n n n n n n n n nn /g;close(MODULE_CONFIG_PROC_FILE);open(MODULE_CONFIG_WRITE_FILE, $Module_Dirconftranslator.xml) | die(Cant open file $!);print MODULE_CONFIG_WRITE_FILE $Module_Config_Result;close(MODULE_CONFIG_WRITE_FILE);# Module Config pertiesprint Setting $Module_Dpertiesn;open(MODULE_PRO_PROC_FILE, $Module_Dperties) | die(Cant open file $!);$Module_Pro_Result = do local undef $/; ; ;$Module_Pro_Result = s/MaximumTasks=3/MaximumTasks=1/g;$Module_Pro_Result = s/Service.DataSetOwner=DC/Service.DataSetOwner=CAD/g;close(MODULE_PRO_PROC_FILE);open(MODULE_PRO_WRITE_FILE, $Module_Dperties) | die(Cant open file $!);print MODULE_PRO_WRITE_FILE $Module_Pro_Result;close(MODULE_PRO_WRITE_FILE);# Dispatcher Client Server Propertiesprint Setting $DispatcherClient_DirconfSpertiesn;open(DISPATCHER_CLIENT_PROC_FILE, $DispatcherClient_DirconfSperties) | die(Cant open file $!);$Dispatcher_Client_Result = do local undef $/; ; ;$Dispatcher_Client_Result = s/Service.DataSetOwner=DC/Service.DataSetOwner=CAD/g;$Dispatcher_Client_Result = m/import (n+)/;Client_Conf_Server_Array = split(, $1);foreach $Server_Name (Client_Conf_Server_Array) if ($Server_Name eq TSSWService) $TSSWService_Not_Exist = 0; last; else $TSSWService_Not_Exist = 1; if ($TSSWService_Not_Exist) $Dispatcher_Client_Result = s/import n+/$& . ,TSSWService/ge;close(DISPATCHER_CLIENT_PROC_FILE);open(DISPATCHER_CLIENT_WRITE_FILE, $DispatcherClient_DirconfSperties) | die(Cant open file $!);print DISPATCHER_CLIENT_WRITE_FILE $Dispatcher_Client_Result;close(DISPATCHER_CLIENT_WRITE_FILE);# Dispatcher Client ENV BATprint Setting $DispatcherClient_DirbinsetDispatcherClientEnv.batn;open(CLIENT_ENV_PROC_FILE, $DispatcherClient_DirbinsetDispatcherClientEnv.bat) | die(Cant open file $!);$Client_ENV_Result = do local undef $/; ; ;$Client_ENV_Result = s/set classpath=s+for/set classpath=nset classpath=%classpath%;$swim_dirETSSW.jarnnfor/g;close(CLIENT_ENV_PROC_FILE);open(CLIENT_ENV_WRITE_FILE, $DispatcherClient_DirbinsetDispatcherClientEnv.bat) | die(Cant open file $!);print CLIENT_ENV_WRITE_FI