Replace with copy + get idw

[Anonymous]

Hi,

I am looking for an easy way to do a "point on part in assy - replace it with a copy - AND copying the idw".

I have searched the internet thin with no result, but maybe the all knowing masses of Inventor forums has an idea or a link?

[MechMachineMan]

Point on a part? 

-Do you mean using something like the Pick method?

Copy?

- Copy of what?

IDW?

-Which idw? The one of the old part to be modified, or the one of the new part?

Details.

[Anonymous]

Tanks for your input. Let me try to explain it differently: With an open asm I would like to Select a part (or asm) with the mouse either from the model browser or directly in the window Then run the code The code should replace the selected part (or asm) with a copy that I can select the new name of eg. from an save as menu If there is already created a idw of the part (or asm) in the same dir as the original, the idw should be copied as well and referer to the new part. does it make more sense?

[MechMachineMan]

So when you select the part, you want to program to make a copy of it, put
that copy in a new folder directory, replace the part in the assembly, then
also move the idw to the new file directory?

[Anonymous]

Same directory, just new part/file number for both part and idw.

[MechMachineMan]

Sounds like one way you could do this is to just use the command manager to run the control definition for the Save And Replace feature on the part, but then also have a chunk of code in there that opens up your idw, replaces the model reference for the new part in there and saves it as a new idw.

[Anonymous]

This can definately be done and it's not too difficult really

You can use a simple SaveAs Command to save and replace a component. You can use this code to get the part you have selected with the mouse 

SyntaxEditor Code Snippet

Dim oOccurrence As ComponentOccurrence


Try
  oOccurrence = ThisDoc.Document.SelectSet.Item(1)
Catch
  MessageBox.Show("Please select a component before running this rule.", "TKSY")
  Return
End Try

You can open the drawing of the original part and then change the reference part with this code:

SyntaxEditor Code Snippet

doc = ThisApplication.Documents.ItemByName(*Drawing Path*)

'MsgBox(doc.DisplayName)

oFD = doc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor
oFD.ReplaceReference(*New Part Path* & ".ipt")
doc.Update()

I hope this points you in the right direction 

[Anonymous]

Thanks for the suggestions. I will try to run some tests and post result if I get something useable.

[Crstiano]

Try https://apps.autodesk.com/INVNTOR/en/Detail/Index?id=appstore.exchange.autodesk.com%3areplacecopy_wi...