Macro help - How to open a part from an assy?

[MrMiller]

Does anyone know the code to open a part from an assembly by selecting the part under the assembly tree. This is the code I have now and it doesn't work. I have this similar code to open the part by selecting a face, edge or vertex and it works for those selected items.



If (selType = swSelCOMPONENTS) Then
Set selComp = swSelMgr.GetSelectedObjectsComponent2(1)
Set owningComponent = selComp.GetComponent
strmodel = owningComponent.GetPathName
Set swModel = swApp.ActivateDoc2(strmodel, True, 0)
strModelName = owningComponent.Name
End If

 

[Yogibear]

I can only assume you are not using 2004.
If you are then all you have to do is RMB click on the part, in the tree or in the graphics area doesn't matter. You should see a list of options and open part will be one of them.

 

[MrMiller]

I'm very aware of the right click option....this macro will be doing much more than just opening the part. There is a series of autoclicks, field entries, and if/then statements after opening the part. Opening the part in this manner is a small part of the entire macro program.

 

[TheTick]

Try using OpenDoc6 instead of ActivateDoc2.

 

[MrMiller]

I'm crashing before the activateDoc2 statement. I'm crashing on this line and get this error

Set owningComponent = selComp.GetComponent

Error Statement
Object doesn't support this property or method.

 

[rocheey]

>>Set selComp = swSelMgr.GetSelectedObjectsComponent2(1)

Assuming you dimmed "selComp" as a component or component2,
just use "GetSelectedObjects"- are you trying to the the component of a component ?


>> Set owningComponent = selComp.GetComponent
>> strmodel = owningComponent.GetPathName
>>Set swModel = swApp.ActivateDoc2(strmodel, True, 0)

If any of the instances of the component are NOT suppressed
in the assembly, and it is not loaded lightweight, then the model is already loaded.

Just use Component.GetModelDoc to get the Model Object
>>strModelName = owningComponent.Name

 

[MrMiller]

Thanks rocheey -

Here is what I ended up doing and it works. I think I had this before but it wasn't working becuase my test part was lightweight. Once I put the setsuppression(2)line in it worked fine every time.

Set selComp = swSelMgr.GetSelectedObjectsComponent2(1)
selComp.SetSuppression (2)
strmodel = selComp.GetPathName
Set swModel = swApp.ActivateDoc2(strmodel, True, 0)