最后,我们可以在求解完成后,通过添加命令创建等值线图来完成规则创建。
strCmdForDisplayContour = "<Contour ID=""1""/>" ' New Material i = AddinObj.Run(strCmdForNewMaterial) ' New Idealization i = AddinObj.Run(strCmdForNewIdealization) ' Mesh Model i = AddinObj.Run(strCmdForMeshModel) ' Generate Mesh i = AddinObj.Run(strCmdForMesh) ' Create Load i = AddinObj.Run(strCmdForLoad) ' Create Constraint i = AddinObj.Run(strCmdForConstraint) ' Run Analysis i = AddinObj.Run(strCmdForSolve) iLogicVb.UpdateWhenDone = True End Sub
现在,我们可以保存并运行规则。
