Send to znám a používám, ale problem je že kopíruje jen CATpart a CATproduct, ale ne drawings. Pokud to tedy nejde nějak nastavit...

Dobrý den,

přesun produktu a partu do složky "old" mě už funguje pomocí makra, ale nevím, jak zjistit na jaký part je linkované drawing.

Byla by nějaká rada? Děkuji

Dobrý den,
zjišťování liků už mě funguje. Už jen stačí porovnat seznam souborů a přebyteční promazat.

Děkuji za pomoc.

 Dim Odocs As Documents

 Dim Odraw As DrawingDocument

 Dim oFileName As String

 Dim Filelist As String

 Dim path As String

 Dim soubor As String

 Dim List As String



 path = "C:\Pokus\"

 Filelist = Dir(path & "*.CATDrawing")



 Do While Filelist <> ""

  soubr = path & Filelist

  Set Odocs = CATIA.Documents

  Set Odraw = Odocs.Read(path & Filelist)

  oFileName = Odraw.DrawingRoot.Sheets.Item(1).Views.Item(3).GenerativeBehavior.Document.Parent.Name

  List = List & oFileName & Chr(13)

  Filelist = Dir

 Loop

 MsgBox (List)

Zkuste On Error Resume Next

To záleží na typu proměnné. U objektu by mělo stačit Set oObject = Nothing, u stringu se dává "", u čísel 0. Záleží na tom, co se v programu očekává a jak jsou ošetřeny vstupy.

Prostě jen na začátku procedury nastavíte vše na Nothing / 0 / "" a to by mělo stačit.

U .NET je ještě navíc třeba odstranit COM referenci, ale to se vás v případě CATVBA netýká.

Také se ale může stát, že makro Catii "nakopne" a pak se opravdu musí provést restart. Pokud Catia po dokončení makra funguje normálně dál, stačí vynulovat reference. Jinak se musí najít chyba, která ale nemusí být přímo v makru.

Příklad: zákazník používal makro pro editaci razítka ve výkresu. Na osmi stanicích vše fungovalo bez problémů, na deváté, která měla stejné parametry, instalaci atd. se po ukončení makra Catia začala chovat tak, že se s ní nedalo pracovat. Nikdo nepřišel na to proč - pomohla až přeinstalace celého systému :-(