Description This function exports a faceted surface from the FRED model to an *.obj file.
Syntax success = FacetedSurfExportToObjFile( fsNode, fileName, bOverwrite )
Parameters success (Boolean) Returned boolean indicating whether the faceted surface was successfully written to a file.
fsNode As Long Node number of the faceted surface being exported.
fileName As String Full path name to the *.obj file where the faceted surface is being written.
bOverwrite As Boolean Boolean argument indicating whether any existing files at the same location as fileName should be overwritten.
Example The following example first retrieves the node number of a faceted surface and then writes the surface to an *.obj file on disk. After the export, the script prints a message indicating whether the export was successful.
Sub Main Dim fName As String Dim fsNode As Long Dim success As Boolean fsNode = FindFullName( "Geometry.Elem 1.Faceted Surface Test" ) fName = "C:\temp\facetedGeometryExport.obj" success = FacetedSurfExportToObjFile( fsNode, fName, True ) Print "Model was exported?: " & success
End Sub
See Also FacetedSurfGetUseVertexNormals FacetedSurfGetHasVertexNormals FacetedSurfSetUseVertexNormals
|