Sub RunAnalysisAndGetResults() Dim femap As femap.model Set femap = GetObject(, "femap.model") ' Ensure an analysis set exists Dim anSet As femap.AnalysisSet Set anSet = femap.feAnalysisMgr anSet.SetID = 1 anSet.Title = "Linear Static"
*Note: If you are writing this inside Femap's built-in editor (Tools > Programming > Macro), you can skip the GetObject line because
: