' 2. Create a new group Set groupSet = App.feGroupSet Set myGroup = groupSet.Add() myGroup.name = "My Beam" myGroup.Put (1) ' Save the group to database (ID=1 for new entity) newGroupID = myGroup.ID ' Store the new group's ID
Sub MoveLargeElementsToGroup() ' 1. Declare and get FEMAP objects Dim App As femap.model Set App = GetObject(, "femap.model") ' Connect to running FEMAP Dim groupSet As femap.GroupSet Dim elemSet As femap.ElementSet Dim myGroup As femap.Group Dim elem As femap.Element femap api tutorial
' 6. Update the view App.feViewRegenerate (1) MsgBox "Done! Moved elements > 100 to group: " & myGroup.name End Sub femap api tutorial