topic Re: Changing derived part with ilogic in Inventor Programming Forum

Changing derived part with ilogic

Anonymous — Fri, 31 Jan 2020 14:51:54 GMT

I'm trying to change which part my part is being derived from using this:

ThisApplication.ActiveDocument.File.ReferencedFileDescriptors.Item(1).ReplaceReference("FullFileNameAndExtension")

...but i keep getting the Error "the parameter is incorrect". I've checked my FullFileNameAndExtension is correct by using:

ThisApplication.Documents.Open("FullFileNameAndExtension", True)

... and this opens the new part fine.

I've also checked that the following is not nothing:

ThisApplication.ActiveDocument.File.ReferencedFileDescriptors.Item(1)

...and it is something!

What am i doing wrong?

Re: Changing derived part with ilogic

Curtis_W — Fri, 31 Jan 2020 16:06:35 GMT

Hi @Anonymous

Is the new referenced file a copy of the old referenced file?

I might be mistaken (its been a while) but I think you might get an error if you try to replace the "bolt with the battleship", but you can replace the "bolt with another bolt" or "battleship with another battleship"....

Maybe just something to rule out, or verify... but again I might be mis-remembering this, so hopefully I'm not creating confusion if I'm wrong 🙄

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Re: Changing derived part with ilogic

WCrihfield — Fri, 31 Jan 2020 16:11:46 GMT

Maybe you could try it this way. It's more code, but if it works...

Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oRefComps As ReferenceComponents = oDef.ReferenceComponents
For Each oRefComp As ReferenceComponent In oRefComps
	If oRefComp.Name = "Name Here" Then
		oRefComp.ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference("FullFileNameAndExtension")
	End If
Next

Re: Changing derived part with ilogic

WCrihfield — Fri, 31 Jan 2020 16:23:05 GMT

Or more accurately like this

Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oDPComps As DerivedPartComponents = oDef.ReferenceComponents.DerivedPartComponents
For Each oDPComp As DerivedPartComponent In oDPComps
	If oDPComp.Name = "Name Here" Then
		oDPComp.ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference("FullFileNameAndExtension")
	End If
Next