×
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

Iterating a body copy/move with a macro

Iterating a body copy/move with a macro

Iterating a body copy/move with a macro

(OP)
Hi Everyone...I am trying to set up up a macro that will rotate a body around the X-Axis (as a copy) and then rotate the copied body around the Z-axis, in equal increments for a given amount of iterations.  Below is the code for the loop.     

For I = 1 To 10

    boolstatus = Part.Extension.SelectByID
       ("Extrude1", "SOLIDBODY", 0, 0, 0, False, 1, Nothing)
    Part.FeatureManager.InsertMoveCopyBody2 0, 0, 0, 0, 0,  
       0, 0, -0.03490658503989 * I, 0, 0, True, 1
    
    boolstatus = Part.Extension.SelectByID
       ("Body-Move/Copy<2*I-1>", "SOLIDBODY", 0, 0,
        0,False, 1, Nothing)
       
    Part.FeatureManager.InsertMoveCopyBody2 0, 0, 0, 0,
       0,0, 0, 0, 0, 0.03490658503989 * I, False, 1
    
Next I

In the highlighted line I am trying to select the body that was just rotated around the X-axis to be rotated around the Z-axis (the pattern will be 1,3,5,...), but VB does not calculate 2*I-1 inside the quotations.  Is there a way I can get the program to select Body-Move/Copy(2*I - 1)?   

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