- Код: Выделить всё
Dim drawingDocument2 As DrawingDocument
Set drawingDocument2 = CATIA.ActiveDocument
drawingDocument2.ExportData "C:\DRW ---.pdf", "pdf"
Подскажите как перебрать все открытые чертежи и сохранить все?
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2