×
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

Jobs

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

eBook - 10 Reasons to Choose CATIA on the Cloud
To compete in today’s fast-paced and competitive market, smaller and newer firms need a powerful platform that will enable them to compete with bigger players, without the heavy investments needed in computer hardware, software and personnel. Download Now
White Paper - Smart Manufacturing for Electronics
This white paper describes a transformative approach to electronics manufacturing made possible by the addition of Mentor Graphics to the Siemens family. It describes a completely digitalized strategy that supports both printed circuit board (PCB) and mechanical design and manufacturing, uniting the entire product lifecycle – from idea and production to customers and back. 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