Сохранить все открытые чертежи

Программирование для CATIA.

Сохранить все открытые чертежи

Сообщение trn09 » 28 апр 2018 11:16

Как сохранить чертеж понятно:
Код: Выделить всё
Dim drawingDocument2 As DrawingDocument
Set drawingDocument2 = CATIA.ActiveDocument

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


Подскажите как перебрать все открытые чертежи и сохранить все?
trn09
Новичок
Новичок
 
Сообщения: 13
Зарегистрирован: 28 апр 2015 13:33

Re: Сохранить все открытые чертежи

Сообщение Wireless_Fidelity » 30 апр 2018 16:38

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

Код: Выделить всё
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
Аватара пользователя
Wireless_Fidelity
Активный участник
Активный участник
 
Сообщения: 394
Зарегистрирован: 10 апр 2010 00:11


Вернуться в CAA-RADE

Кто сейчас на конференции

Сейчас этот форум просматривают: YandexBot и гости: 3