×
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

MacroFeature to create new bodies in a part

MacroFeature to create new bodies in a part

MacroFeature to create new bodies in a part

(OP)
The following macro copies a body in a part and it works fine. But when I add these lines of code into the rebuild function of a MacroFeature, the solidbody "Extrude6" is selected but it is not copied, so the last line does not work. I would apprecitate any help to make this work inside the MacroFeature.

Sub copy_body()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Set swModel = swApp.ActiveDoc
    
    swModel.Extension.SelectByID2 "Extrude6", "SOLIDBODY", 0, 0, 0, True, 1, Nothing, 0
    swModel.FeatureManager.InsertMoveCopyBody2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, True, 1
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!


Resources