Solid bodies to rfa

[Anonymous]

I have multi-body parts with around 10 solid body each. Each solid body has to be converted to rfa. Is it possible in ilogic?

 What I did is unchecked the visibility of all solid bodies first, then turn-on the body that need to be converted. After one solid is converted, I switch it off and switch on the next one. I did it over and over until it is done.

[JamieVJohnson2]

So via code you can certainly automate that, but lets pause for a second with a helper idea for the user:

On the Multi-Body part file, look at the Manage ribbon tab, then \ Layout group \ Make Components command.

This will take a multi-body part and generate an assembly with individual part files all linked to this master part file.

Now you have 10 part files and don't have to turn on/off each one to export to rfa (Revit Family file).  I currently don't have the Revit add-in installed, but it too should be available for use with the api as an application addin and/or translator.

[Anonymous · Accepted solution]

Im sure there is a better way to write this. But for now its all i got.

And its awfully slow, I dont know why. Please fell free to share any idea.

Sub Main()
Dim oDoc As PartDocument
oDoc = ThisDoc.Document
oCompDef = oDoc.ComponentDefinition
Dim oBodies As SurfaceBodies = oCompDef.SurfaceBodies

For Each oSolid As SurfaceBody In oBodies
	oSolid.Visible = False
Next

For Each oSolid As SurfaceBody In oBodies
	oSolid.Visible = True
	Dim oSolidName As String = oSolid.Name
'	Dim oBIMOrientType As BIMComponentOrientationTypeEnum
'	oBIMOrientType = kUserCoordinateSystemOrientationType

	Dim FullFileName As String = "C:\Users\Joseph\Desktop\Inventor Study\ToRFA\" & oSolidName & ".rfa"
	oCompDef.BIMComponent.ExportBuildingComponent(FullFileName)
	
	oSolid.Visible = False
Next

For Each oSolid As SurfaceBody In oBodies
	oSolid.Visible = True
Next


End Sub