SubscribeУважаемые читатели нашего блога, прежде чем перейти к обсуждению технических вопросов, мы (Андрей Виноградов и я, Антон Федосеев) хотели бы поздравить вас Новым Годом, учитывая что это первая публикация в 2012. Желаем, прежде всего, благополучия и крепкого здоровья вам и вашим близким, а также новых достижений в труде, новых идей, разработок, патентов и побед.
Итак, первая тема, которую мы предлагаем вашему вниманию в этом году - это сохранение чертежей. Зачастую, после создания чертежа, мы хотим сохранить его копию в другом формате, удобном для коллег или заказчиков. Как правило это PDF, DWG, DWF, TIFF и некоторые другие. Для экономии времени и ухода от рутины, я предлагаю вашему вниманию простейшее правило iLogic, которое выполняет эту операцию за нас.
ThisDoc.Documents.SaveAs(ThisDoc.ChangeExtension(".pdf"), True)
Красным выделено расширение файла, в котором будет сохранён дубликат чертежа. Вы можете изменить его на любое другое из списка поддерживаемых.
По умолчанию, файл будет сохранён в той же папке, где находится оригинал. Если вы хотели бы сохранять файлы в другом каталоге, можно немного модифицировать код. Например, следующий код сохранит файл в папке, выделенной красным цветом:
strFolder = "D:\files\" & ThisDoc.FileName(False) ' без расширения
ThisDoc.Document.SaveAs(strFolder & (".jpg") , True)
ThisDoc.Document.SaveAs(strFolder & (".pdf") , True)
В завершение, вы можете назначить триггер для автоматического выполнения данного правила. Удобнее всего использовать триггер BeforeSave, который будет выполнять код сразу после каждого нажатия кнопки сохранения. Видео.
