PLM-forum.ru

Как сохранить чертеж понятно:

Код: Выделить всё

Dim drawingDocument2 As DrawingDocument
Set drawingDocument2 = CATIA.ActiveDocument

drawingDocument2.ExportData "C:\DRW ---.pdf", "pdf"

Подскажите как перебрать все открытые чертежи и сохранить все?

Приветствую.

Код: Выделить всё

Dim win: For Each win in CATIA.Windows
if TypeName(win.Parent) = "DrawingDocument" then
win.Parent.ExportData "c:\Temp\" + win.Parent.Name + ".pdf", "pdf"
end if
next


Здесь фишка в том, что мы перебираем все открытые окна и выбираем те, которые связаны с документами чертежей.

Если же под "открытыми" докуемнтами подразумеваются все чертежи в сессии, то следует использовать цикл по документам:

Код: Выделить всё

 for each doc in CATIA.Documents