---

Hallo Leute,
ich möchte per VBA eine Baugruppe nach Revit (*.rfa) exportieren.

Manuell erfolgt das ja über Umgebungen/BIM-Inhalt/Gebäudekomponenten exportieren.

Ich habe es in VBA, analog zum Export als *.stp, probiert mit :

Call oDoc.SaveAs(sDateiExportFName & ".rfa", True)

Das führt aber zu einem Fehler.

Hat jemand eine Idee?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Der Export erfolgt über die ComponentDefinition.BIMComponent.ExportBuildingComponent Methode. I weiß aber nicht, ob du durch die AllLeafOccurrences der Baugruppe gehen und jede Komponente einzeln exportieren musst oder ab ein Export der Baugruppe alles mitnimmt.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe es nun so probiert:

BIMComponent.ExportBuildingComponent (sDateiExportFName & ".rfa")

Das ergibt einen Laufzeitfehler '424': Objekt erforderlich.

LG Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Was ist denn BimComponent? Ich sehe keine Zuweisung.

Code:

---

Private Sub RFA_Export()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDoc As AssemblyDocument
Set oDoc = oApp.ActiveDocument

Dim oBimComp As BIMComponent
Set oBimComp = oDoc.ComponentDefinition.BIMComponent

Dim sDateiExportFName As String
sDateiExportFName = Left(oDoc.FullDocumentName, InStrRev(oDoc.FullDocumentName, ".")) & "rfa"

Call oBimComp.ExportBuildingComponent(sDateiExportFName & ".rfa")

End Sub

---

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Hilfe, jetzt funktioniert es.
Mir war die ComponentDefinition.BIMComponent nicht klar. Bin ja noch Anfänger.

LG Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Dann am besten solche Hinweise in die Suche der API-Hilfe kopieren. Oft findet sich unter dem jeweiligen Hilfeartikel auch ein Beispiel zur Anwendung.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP