VBA Code to return Body Name from part within an assembly

[Paul1084]

HI,

I am struggling with some code to initially return a Body name from a Part placed in an assembly... the code must run from the assembly file... if I run the code in the Part, it works fine and returns the selected body name. when I run it in the Assmbly it does not return the name, however it does not come up with an error either... I think I need to reference the selected part, and not the active application when selecting the body... hence the code I have added to select the part first... but I dont know how to do this... I can get it to print the parent name... i.e. Debug.Print Body.parent.name... but this doesn't help me unfortunately

Sub INSERT_D1()

'Make a ref to active doc
Dim doc As Document
Set doc = ThisApplication.ActiveDocument

Dim Structure As ComponentOccurrence
Dim Structuredoc As Document

Set Structure = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Select the structure")
Set Structuredoc = Structure.Definition.Document

    Dim body As SurfaceBody
    Set body = ThisApplication.CommandManager.Pick(kPartBodyFilter, "Select wall to insert door on.")

Debug.Print body.Name

End Sub

[MechMachineMan]

I'm almost certain the issue you are running into here is because of proxies;

Either the Pick command isn't selecting the proxy. OR the rest of the code IS grabbing the proxy, and you are not accessing the actual body. 

You will need to look into proxies more to be able to get what you are looking for.

(The information about the body is only stored in the part as a body, but is accessed indirectly through the assembly via proxies)

[LishuangLu]

Hi Paul, 

I tested your code in my side, it works fine. See the video from me. 

http://autode.sk/2qVy4BZ

Let me know if anything was missing by me, or the problem is related with typical assembly dataset. 

Thanks, 

-Lisa

[Paul1084]

Thanks for this Lisa... your video demonstrates exactly how I wanted & expected it to work... it is bizarre that it has worked for your assembly, but not mine.

I have however found a work around, that will achieve the same end goal for my code, just using the feature name instead of the body:

Sub INSERT_D1()

'Make a ref to active doc
Dim doc As AssemblyDocument
Set doc = ThisApplication.ActiveDocument

Dim oDef As AssemblyComponentDefinition
Set oDef = doc.ComponentDefinition

Dim body As PartFeature
Set body = ThisApplication.CommandManager.Pick(kPartFeatureFilter, "Select wall to insert door on.")

Debug.Print Body.Name

End Sub

[LishuangLu]

Hi Paul,

Good to know you have found the workaround to meet your requirement.

If you still prefer accessing body, then you may share the assembly with me for investigation.

Thanks,

-Lisa