Hallo,
ich habe folgendes Problem:
Es existiert ein Einzelteil (ipt) bzw. eine Baugruppe (iam).
Diese wurden unter einem neuen Namen abgespeichert.
Die jeweilige dazugehörige Zeichnung (idw) wurde ebenfalls unter neuem Namen abgespeichert.
Nun möchte ich in der neuen idw den Verweis auf das neue Teil/Baugruppe ändern.
Im Inventor kann man das unter "Verwalten" - "Modellreferenz ersetzen" tun.
Wie funktioniert das in VBA?
Ich habe dazu bereits im Netz gesucht.
Hier meine bisherigen Bemühungen:
' oZeichDoc wird unter sPfadNameNewIdw gespeichert
Call oZeichDoc.SaveAs(sPfadNameNewIdw, True)
doc = oZeichDoc.Document
Dim oFD As FileDescriptor
' die folgende Zeile ergibt immer eine Fehlermeldung
oFD = doc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor
oFD.ReplaceReference (sPfadNameNew)
oZeichDoc.Update() 'diese Zeile ergibt ebenfalls einen Fehler
'Die Zeichnung speichern
Call oZeichDoc.Save
'Die Zeichnung speichern und schließen
Call oZeichDoc.Close(False)
Hat jemand eine Idee? Vielleicht ist der Ansatz ja auch komplett falsch.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP