×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

add multiple elements to multiple groups automatically

add multiple elements to multiple groups automatically

add multiple elements to multiple groups automatically

(OP)
Is there a way to automatically add/remove multiple elements from multiple groups automatically, instead of having to go into each group, using the group > elements command and doing it that way?

your help is much appreciated.

Thanks,

RE: add multiple elements to multiple groups automatically

Hi,
Not that I know of. I wrote this API a while back to do just that, but never found the functionnality that useful so I didnt push further...
AP

Sub Main
Dim App As femap.model
Set App = feFemap()

Dim l1 As Long

Dim grSet As femap.Set, gr As femap.Group
Set grSet = App.feSet
Set gr = App.feGroup

Dim set1 As femap.Set, set2 As femap.Set
Set set1 = App.feSet
Set set2 = App.feSet


If grSet.SelectMultiID(FT_GROUP,1,"Select Groups") = FE_CANCEL Then End
'could detect if multi mode is used and directly select groups on screen...

'could add possibility to chose between elems and nodes... => write an HMI
l1 = App.feAppMessageBox(3,"Press 'Yes' to add elements, 'No' to remove, 'Cancel' to quit")
If l1 = FE_CANCEL Then End

If set1.Select(FT_ELEM,False,"Select elements to remove") = FE_CANCEL Then End

While gr.NextInSet(grSet.ID)
set2.Clear
set2.AddGroup(FT_ELEM,gr.ID)
If l1 = FE_OK Then set2.AddSet(set1.ID) _
Else set2.RemoveSet(set1.ID)

gr.RangeDeleteAll(FGD_ELEM_ID)
gr.SetAdd(FT_ELEM,set2.ID)
gr.Put(gr.ID)
Wend
App.feViewRegenerate(0)
End Sub

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login


Resources

White Paper - Strategies to Secure Connected Cars with Firewalls
White-hat hackers have demonstrated gaining remote access to dashboard functions and transmissions of connected vehicles. That makes a firewall a vital component of a multilayered approach to vehicle security as well as overall vehicle safety and reliability. Learn strategies to secure with firewalls. Download Now
White Paper - Model Based Engineering for Wire Harness Manufacturing
As complexity rises, current harness manufacturing methods are struggling to keep pace due to manual data exchanges and the inability to capture tribal knowledge. A model-based wire harness manufacturing engineering flow automates data exchange and captures tribal knowledge through design rules to help harness manufacturers improve harness quality and boost efficiency. Download Now
White Paper - What is Generative Design and Why Do You Need It?
Engineers are being asked to produce more sophisticated designs under a perfect storm of complexity, cost, and change management pressures. Generative design empowers automotive design teams to navigate this storm by employing automation, data re-use and synchronization, and framing design in the context of a full vehicle platform. Download Now
eBook - Simulation-Driven Design with SOLIDWORKS
Simulation-driven design can reduce the time and cost of product development. In this engineering.com eBook, we’ll explore how SOLIDWORKS users can access simulation-driven design through the SOLIDWORKS Simulation suite of analysis tools. Download Now

Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close