|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
05.05.2004, 11:41 | #1 | |
Как распечатать несколько файлов за один раз.
Опер дир
Москва
Регистрация: 28.04.2004
Сообщений: 291
|
||
Просмотров: 18919
|
|
||||
Опер дир Регистрация: 28.04.2004
Москва
Сообщений: 291
|
Благодарю за совет. Честное слово, никогда не задумывался что это за утилита .
Попробовал. Удобно распчатывать приходящие чертежи. А если свои то приходится сначала сохранить все чертежи, затем её запустить, затем проверить настройки и только потом распечатать. А чтоб прямо из Акада? Чтоб он сам переключал эти загруженные файлы во время печати. |
|||
|
||||
AutoCAD/AutoLISP Регистрация: 27.08.2003
Seattle/USA
Сообщений: 1,133
|
>>Lenich
Можно настроить так что будет распечатывать по какому-то одному чертежу, так что все настроить в нем родимом и поехали..... Внимательно покрути настройки BATCHPLOT а в 2005 немного по другому но н а мой взгляд еще удобнее. |
|||
|
||||
Опер дир Регистрация: 28.04.2004
Москва
Сообщений: 291
|
Ура, получилось!
Вообщем после совета Эдуарда стал копаться и написал такую прогу: Dim a As AcadDocument For Each a In ThisDrawing.Application.Documents a.Activate ThisDrawing.SendCommand "-plot Y Model" & vbCr & "HP deskjet 1180c Printer" & vbCr ThisDrawing.SendCommand "Формат А4 (210 x 297 мм) " & vbCr & "M L Y e f" & vbCr ThisDrawing.SendCommand "c" & vbCr & "y" & vbCr & "monochrome.ctb" & vbCr & "y n n y y" & vbCr ThisDrawing.Application.ZoomExtents Next И теперь она печатает все загруженные файлы на форматку А4 (ланшафт, Extent). И затем делает ЗООМ в Extents. Грузим её при старте акада и запускаем при помощи vbarun (я ещё сделал кнопочку, чтоб не перепутать А3 и А4). Если кому интересно, пользуйтесь на здоровье! 8) |
|||
|
||||
Проектирование обустройства нефтяных месторождений Регистрация: 28.08.2003
Самара
Сообщений: 352
|
А можно немного поподробнее как воспользоваться этой программой? В какой файл ее записать? Как написать макрос на вызов? и где в программе указывается с каким Plot Style Table печатать.
|
|||
|
||||
Опер дир Регистрация: 28.04.2004
Москва
Сообщений: 291
|
Цитата:
1. Грузим VBA editor с помощью Alt+F11 2. Вставляем новый модуль: Insers->Module 3. В только что созданный модуль вставляем прогу Код:
5. В акаде делаем кнопочку с текстом: ^C^C-vbarun;AllPlotA4_L; Вот и все. Вместо "HP deskjet 1180c Printer" вводите свой принтер. Вместо "monochrome.ctb" вводите свою таблицу. Вместо "Формат А4 (210 x 297 мм) " вводите свой формат. Жаль только слишком много "Вместо" Чтобы проверить можно вручную запустить -plot и отработать все задаваемые вопросы. |
|||
|
||||
Проектирование обустройства нефтяных месторождений Регистрация: 28.08.2003
Самара
Сообщений: 352
|
2Lenich: Огромное спасибо! Все работает.
Один вопрос возник: Как в VBA эмулировать нажатие Enter? Я собираюсь печатать paperspase, а они частенько имеют разные названия: Код:
|
|||
|
||||
Проектирование обустройства нефтяных месторождений Регистрация: 28.08.2003
Самара
Сообщений: 352
|
2Lenich:
Ну раз пошел такой ликбез, объясни пожалуйста: я сохранил программу в файл *.dvb. Как теперь мне внести изменения в код? Насколько я понимаю dvb это уже скомпилированный файл, а где остается исходник? |
|||
|
||||
Опер дир Регистрация: 28.04.2004
Москва
Сообщений: 291
|
Цитата:
Цитата:
Цитата:
По моему так. |
|||
|
||||
Проектирование обустройства нефтяных месторождений Регистрация: 28.08.2003
Самара
Сообщений: 352
|
Попробовал я в МИФEditor подгрузить dvb, и то только перетаскиванием из проводника, получилась абракадабра. Все таки надо сохранять исходник как bas, и после каждого изменеия кода, заново компилировать. Ну в принципе и это не плохо. Спасибо за науку.!
|
|||
|
||||
Опер дир Регистрация: 28.04.2004
Москва
Сообщений: 291
|
Цитата:
plaz, кстати, что за зверь МИФEditor ? |
|||
|
||||
Проектирование обустройства нефтяных месторождений Регистрация: 28.08.2003
Самара
Сообщений: 352
|
Цитата:
Цитата:
|
|||
|
||||
Сообщений: n/a
|
Apelsinov запустил вашу прогу вот что она мне выдала
Код:
И еще как сделать чтобы можно было выбирать рамкой область печати. |
|||