Advanced Material ExchangeAPI

Advanced Material Exchange 提供了应用程序编程接口 (API)，用于自动执行部分工作流。API 通过名为 API.vbs 的脚本访问。此脚本的详细信息在下方提供。

运行 API.vbs 脚本的步骤：
  1. 打开命令提示
  2. 导航到包含 API.vbs 脚本的目录
  3. 输入 API.vbs 以执行脚本

注： 第一次使用 Advanced Material Exchange 的新版本运行 API.vbs 脚本时，您需要先执行以下操作，再完成上述步骤 1-3：
  1. 以管理员身份打开命令提示
  2. 导航到 Advanced Material Exchange 的安装目录（通常为 C:\Program Files\Helius PFA 2016\ame\bin）
  3. 在命令提示中输入 ame.exe /unregister 以注销 OLE 接口
  4. 在命令提示中输入 ame.exe /register 以注册 OLE 接口

可用的关键字

Option Explicit

Option Explicit 关键字要求所有变量通过 Dim 或 ReDim 关键字进行明确声明。使用 Option Explicit 关键字时，在声明前使用的任何变量都将导致错误。建议使用此关键字，因为它可以减少编程错误。 

SetLocale("en-us")

当存在 SetLocale("en-us") 关键字时，它将强制非英语系统以 en-us 格式解释数值。如果未包括此关键字，那么数值将以系统的本机语言进行解释。 

Dim Synergy
Set Synergy = CreateObject("ame.Synergy')

以上两行创建 OLE 自动化对象，此对象将启动最近运行的 Synergy（Advanced Material Exchange 用户界面）版本。同一时刻只能运行一个 Synergy 版本。 

Synergy.SetUnits "SYSTEM"
其中 SYSTEM 参数可以设置为：
  • ENGLISH - 使用美国单位制
  • METRIC - 使用公制单位制 

Synergy.OpenProject "PATH"

其中 PATH 参数指定已保存项目的完整目录路径（例如，“C:\AME\project.mps”）。此关键字将打开指定的项目。 

Synergy.MapStructuralResults

此关键字用于将 Moldflow 分析中的结果映射到结构模型。使用此关键字之前，模型必须对齐（确保工作目录中存在 alignment.res 文件）。 

Synergy.SelectMaterialModel #
其中 # 参数用于选择材料模型。 # 可以设置为：
  • 0 - 线性弹性材料模型
  • 1 - 弹塑性材料模型 

Synergy.ExportStructuralFiles "PATH",#, ELEMENT DELETION, RESIDUAL STRAINS

其中 PATH 参数指定要输出的输入文件的完整目录路径和文件名（例如，“C:\AME\project.inp”）， # 参数标识要选择的材料环境， ELEMENT DELETION 参数确定是否启用单元删除（使用 Abaqus 时），而 RESIDUAL STRAINS 参数确定是否将残余应变输出到 .sif 文件。

# 可以采用以下值：
  • 0 - 不选择材料环境。将此选项与线性弹性材料模型结合使用。
  • 1 - 选择第一个材料环境。
  • 2 - 选择第二个材料环境。

ELEMENT DELETION 可以采用以下值：
  • True - 启用单元删除
  • False - 禁用单元删除

RESIDUAL STRAINS 可以采用以下值：
  • True - 启用残余应变到 .sif 文件的输出
  • False - 禁用残余应变的输出

示例 API 脚本

下面的脚本将打开一个现有的 Advanced Material Exchange 项目、将结果映射到结构模型、通过第一个材料环境选择弹塑性材料模型，然后输出结果。 

'@
'@ Open project, map results, choose material model, choose environment, export
'@ 
'@
'@@ 
Option Explicit
SetLocale("en-us")
Dim Synergy
Set Synergy = CreateObject("ame.Synergy")
Synergy.SetUnits "METRIC"

Synergy.OpenProject "C:\Testing\example.mps"
Synergy.MapStructuralResults
Synergy.SelectMaterialModel 1
Synergy.ExportStructuralFiles "C:\Testing\example.inp",1, False, False

'
' Put remainder of code here.
' 
MsgBox "Script Complete"
Wscript.Quit
父主题： 用户手册