Sub CATMain()



Dim drawingDocument1 As DrawingDocument

Set drawingDocument1 = CATIA.ActiveDocument



drawingDocument1.SaveAs "C:\new\Pokus.CATDrawing"



End Sub

Sub CATMain()

   ' nacteni starych a novych nazvu z text souboru nebo excelu Do pole OldNames a NewNames

   ' to si nekde najdete ...



   Set oDocs = CATIA.Documents



   For i = 0 To UBound(OlNames)

      ' otevreni puvodniho vykresu

      If CATIA.FileSystem.FileExist("cesta ke starym souborum"\OldNames(i)) Then

         ' otevreni souboru 

         Set oDoc = oDocs.Open("cesta ke starym souborum"\OldNames(i))

         ' preulozeni souboru

         oDoc.SaveAs("cesta k novym souborum"\NewNames(i))

      End If

End Sub

Option Explicit

Private renameDict As Dictionary

Dim DestinationFolder As String



Public Sub CATMain()

  Dim excelApp As Excel.Application

  Dim wb As Workbook

  Dim MyDocuments As Documents

  Dim MyDocument As Document

  Dim i As Integer

  Dim newName As String

  Dim aFileName As String

  

'vybrání excel souboru

  aFileName = Trim(CATIA.FileSelectionBox("Select Excel-file...", "*.xls*", CatFileSelectionModeOpen))

  If aFileName = "" Then Exit Sub

'vybrání cílového adresaře

   If Not selectFolder(DestinationFolder) Then Exit Sub

    

 'zde bude skript pro nacitání dat z excelu Do promenne renameDict

  

  Set MyDocuments = CATIA.Documents

  'prochazeni dokumentu a ukladani Do nove slozky

 For i = 1 To MyDocuments.Count

    Set MyDocument = MyDocuments.Item(i)

    MyDocument.Activate

    If CATIA.FileSystem.FileExist(MyDocuments.Item(i).path & "\" & MyDocument.Name) Then

      newName = renameDict(MyDocuments.Item(i).Name)

      MyDocuments.Item(i).SaveAs (DestinationFolder & "\" & newName)

    End If

  Next i

End Sub

If CATIA.FileSystem.FileExists(MyDocuments.Item(i).path & "\" & MyDocument.Name) Then

Sub Catmain()

MsgBox NAJDICESTU

End Sub



Function NAJDICESTU()

   Dim apc

   Set apc = CreateObject("MSAPC.Apc")

   Dim oCesta, oAdresar As String

   

   oCesta = apc.vbE.ActiveVBProject.FileName

   oAdresar = Left(oCesta, InStrRev(oCesta, "\") - 1)

   NAJDICESTU = oAdresar

   

End Function