Help on a simple Macro for inserting a part body...

[bsurfN99]

Hello everyone,

I am trying to create a VB macro for inserting a partbody, with an openbody already within it. Ideally I could select where within my part I add this, as well as have the inserted body defined as my work object. Any VB guru's out there that could help me out?

Thanks for your help...

 

[puck]

Here it is direct from the API.

o Func Add( ) As Body

Creates a new body and adds it to the Bodies collection. This body becomes the current one
Returns:
The created body
Example:
The following example creates a body names NewBody in the body collection of the rootPart part in the partDoc part document. NewBody becomes the current body in partDoc.
Set rootPart = partDoc.Part
Set NewBody = rootPart.Bodies.Add()

HTH,
puck