How to read saved data from Catia

4 answers

• 
  Hugo Alanis about 1 year ago

  Hi friend, could you please attach us a picture about your issue, I think, we can help you!!

  thanks!!

  1. 
     Cristos Karliampas about 1 year ago

     the script is:
     .....................................................
     Dim PartDocument1
     Dim coords(2) As Double
     Dim fso As Object
     Set fso = CreateObject("Scripting.FileSystemObject")
     Dim Fileout(2) As Object
     Set Fileout(0) = fso.CreateTextFile("C:\Users\User\Desktop\diafora\cad\nurbs\Qx.dat", True, True)
     Set Fileout(1) = fso.CreateTextFile("C:\Users\User\Desktop\diafora\cad\nurbs\Qy.dat", True, True)
     Set Fileout(2) = fso.CreateTextFile("C:\Users\User\Desktop\diafora\cad\nurbs\Qz.dat", True, True)
     Sub CATMain()
     Dim J As Integer
     CATIA.ActiveDocument.Selection.Search "CATGmoSearch.Point,all"

     For i = 1 To CATIA.ActiveDocument.Selection.Count
     Set selection = CATIA.ActiveDocument.Selection
     Set element = selection.Item(i)
     Set point = element.value
     point.GetCoordinates(coords)
     For J=0 To 2 Step 1
     coords(J)=Replace(coords(J), ",", ".")
     Next
     Fileout(0).WriteLine coords(0)
     Fileout(1).WriteLine coords(1)
     Fileout(2).WriteLine coords(2)
     Next
     Fileout(0).Close
     Fileout(1).Close
     Fileout(2).Close
     End Sub
     ....................................................

     then i run a program (in fortran) and use this structured mesh (points from script instead of STL format) but fortran finds an error:

     "Fortran runtime error:Bad real number in item 1 of list input"

• 
  Hugo Alanis about 1 year ago

  https://grabcad.com/questions/how-to-export-points-in-catia-into-txt-file-or-to-excel-sheet

• 
  Hugo Alanis about 1 year ago

  http://www.coe.org/p/fo/et/thread=27860

• 
  Cristos Karliampas about 1 year ago

  Thank you so much Hugo for your inputs...

  The problem was actually the encoding of gvim, it has to be ANSI and not utf-8