exporting igs

[lapek]

hi everybody, i have a wired issue i guess

i have a macro that opens a product and save it as IGES

buet the thing is that when i try to open the IGES file it came as part.igs.tmp

hope you can help me, thank you so much

Set obj = CreateObject("Scripting.FileSystemObject")
Set Folder = obj.CreateFolder (RutaMacro & "\Braket" & i )
CreateFolderDemo = Folder.Path

Set obj = CreateObject("Scripting.FileSystemObject")
Set Folder = obj.CreateFolder (RutaMacro & "Braket" & i & "\Imagenes")
CreateFolderDemo = Folder.Path

Set documents1 = CATIA.Documents
Set productDocument1 = documents1.Add("Product")
Set product1 = productDocument1.Product
Set products1 = product1.Products

no_soportes = ts.ReadLine

For j = 1 to no_soportes
soporte = ts.ReadLine
matrix(j,i) = soporte
arrayOfVariantOfBSTR1(0) = piezas & soporte & ".CATPart"
products1.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
Next

'**************Guarda el Archivo para Simulacion************************
Set productDocument1 = CATIA.ActiveDocument
productDocument1.ExportData RutaMacro & "\Braket" & i & "\Simulacion" & i & ".igs", "igs"

 

[tbuelna]

Saving a CATProduct as a .igs or .stp format will always result in a file composed of isolated surfaces or manifold solids. When you then try to re-open them in CATIA, the .igs or .stp formats are converted back to a native CATPart format.

If you wish to save a CATProduct as CATParts, there is a function for that under the tools menu called "Create CATParts from a CATProduct".