how to replace Model Reference in .idw file.

[Anonymous]

Hello,

how to replace a ipt or iam in an inventor drawing via vb?

Thanks, best regards

Massimo

[pball]

Here is the basic code to replace a drawing view. This will replace the first drawing view with part.ipt. Post back if you have any more questions.

Dim oDocument As Document 
Set oDocument = ThisApplication.ActiveDocument

oDocument.File.ReferencedFileDescriptors.Item(1).ReplaceReference("c:\part.ipt")

[MechMachineMan · Accepted solution]

* Not necessarily first drawing view.

If BOM was placed before drawing views, it will replace the BOM reference.

Model references are generally easier to replace using the UI functionality, but can be done through API using pball's method as well.

Sub Test()
    Call ReplaceFileReference(ThisDoc.Document, "C:\PartA.ipt", "C:\PartB.ipt")
End Sub

Sub ReplaceFileReference(oDoc as Document, oRefToRemove As String, oRefToInclude As String)
    For Each oFD In oDoc.File.ReferencedFileDescriptors
        If oFD.FullFileName = oRefToRemove
             oFD.ReplaceReference(oRefToInclude)
        End if
    Next
End Sub