Change a source file in drawing view

[Anonymous]

Is it possible to change a source file in drawing view?

Thanks!

[JarFu]

Hi,

Neither UI nor API. I will consult with PD about this request (as we can replace a component in the assembly, why cannot replace a source file for drawing view?). Could you please give more info? Such as why you need this function, is it important for you?

Thanks,
- Inventor API QA

[Anonymous]

Hi,

Thank you for the answer.

I am writing a code which copy, rename and modify already created assembly and all connected parts. I would like to copy drawings as well and link view sources to newly created files

Something similar as "Copy Design" in the Vault but the files aren't "Vaulted".

Thanks

[Anonymous]

You might want to take a look at iChangeRef
http://www.mcadforums.com/forums/viewtopic.php?f=34&t=4777&hilit=iChangeRef

Mike

wrote in message news:[email protected]...
Hi,

Thank you for the answer.

I am writing a code which copy, rename and modify already created assembly
and all connected parts. I would like to copy drawings as well and link view
sources to newly created files

Something similar as "Copy Design" in the Vault but the files aren't
"Vaulted".

Thanks

[JarFu]

Mike, Thanks your info! This addin is really good to change source/reference file(s) in the drawing.

[Anonymous]

Mike: Thank you for the link.

But I am still looking for an example how to write it in VBA - I would like to implement more things in the code.

Thanks

[Anonymous]

Hi,

I think you need to use the Apprentice part of the API

Do a search for "ChangeReferenceSample" in the API Rererence and there you will find an example to change a drawings references model file..

/Rikard

[Anonymous]

Hi Rikard,

thank you. It is probably what I am looking for. But I have a problem to run this for a drawing. In assambly it works.

{code}
Private Sub ChangeReferenceSample()
Dim oApprentice As New ApprenticeServerComponent

' Open a document.
Dim oDoc As ApprenticeServerDocument
Set oDoc = oApprentice.Open("C:\Temp\608-01-1108.idw")

' Iterate through the references looking for a
' reference to a specific file.
Dim oRefFileDesc As ReferencedFileDescriptor
For Each oRefFileDesc In oDoc.ReferencedFileDescriptors 'IT CRASHS ON THIS LINE - ERROR 91: VARIABLE NOT SET
If oRefFileDesc.FullFileName = "C:\Temp\608-01-1108.ipt" Then
' Replace the reference.
Call oRefFileDesc.PutLogicalFileNameUsingFull("C:\Temp\608-01-1108A.ipt")
Exit For
End If
Next

' Set a reference to the FileSaveAs object.
Dim oFileSaveAs As FileSaveAs
Set oFileSaveAs = oApprentice.FileSaveAs

' Save the assembly.
Call oFileSaveAs.AddFileToSave(oDoc, oDoc.FullFileName)
Call oFileSaveAs.ExecuteSave
End Sub

{code}


Does someone know how to solve it?

Thanks

[Anonymous]

Hi,

There is not anything wrong with your code..
Maybe there is something with your drawing file...Have you tried this code on some other files?

/Rikard

[Anonymous]

Thank you again,

I have tried to make totally new drawing and parts and the result is the same.

I attached zip file with drawing, parts and VBA code.
I am using Inventor 2010.


Thank you

[Anonymous]

Hi,

I've done some more testing..
I can't get it to work in 2010 either.. The code works in 2011.. It has to be a bug..

I never used Apprentice in VBA before. I just use it in VB.NET 2008..

/Rikard

[Anonymous]

Hi Rikard,

thank you! You helped me a lot.
I have to make an upgrade.