最後,我們可以在求解完成後,加入指令建立輪廓出圖,完成此規則。
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
現在我們已經準備好儲存規則並執行它。