На главнуюКонтактыКарта сайта
В коробке инженера
В коробке инженера
Обзоры программ, интересных блогов и программирование
Заметки о Rastrwin, Matlab
  • Twitter Colee

!Plot_U - макрос автоматической печати из модели Autocad

Вторник, 23 августа 2011 г.

Описание:

Макрос для печати позволяет быстро распечатать из модели Autocad листы формата A0,A1,A2,A3,A4. Для этого нужно просто запустить макрос, выбрать принтер и выделить все чертежи.

Примеры использования:

Autocad: Печать из модели

Autocad: автоматическая печать из модели крупных форматов A0, A1, A2

Autocad: автоматическая печать из модели с поддержкой 2 принтеров и автоматический выбор ориентации в PDF

Внешний вид макроса

Макрос !U_Plot версии 2.5.1.4

Ограничения:

  1. Приложение работает как макрос, поэтому начиная с Autocad 2010 и всех последующих нужно скачивать AutocadVBAenabler.exe, который позволяет загружать макросы и весит около 80 мб, скачать можно бесплатно на оффсайте Autocad (ссылка) или для разных версий Autocad 10-14 (ссылка)
  2. Приложение всего лишь формирует материал в нужном порядке для выдачи на принтер! Поэтому при печати в PDF нужна программа, создающая принтер PDF, например: doPDF, PDF24, adobe PDF (да и вообще если кого-то интересует виртуальные принтеры PDF - есть огромная статья (ссылка), там 2 части).

Возможности:

  1. Автоматическое определение рамок A3 и A4 в любых масштабах (в любых пропорциях - главное, чтобы соотношения сторон оставались равные!)
  2. Автоматическое определение рамок A0-A4 в масштабе 1:1
  3. Печать только тех чертежей, в которых есть определенный текст
  4. Формирование порядка выдачи листов на принтер (листы выводятся на принтер либо слева направо сверху вниз или слева сверху вниз направо)
  5. Не надо выделять рамку чертежей, нужно всего лишь зацепить рамку, следует использовать "жадное" выделение (зеленым) 
  6. Можно указать количество копий (листы выводятся по копиям)
  7. Можно указать погрешности рамок (если на пару мм меньше, больше), погрешности по осям X и Y, выбрать точку отчета у чертежа
  8. Можно указать масштаб вписывание чертежа, задать свой масштаб или использовать стандартные настройки
  9. Можно указать смещение по оси X и Y для правильного выравнивания по центру
  10. Поддержка печати с помощью 2 принтеров
  11. Автоматическая ориентация (книжная и альбомная) при печати в PDF

Для работы приложения нужно:

  1. Обвести все рамки чертежа полигон или прямоугольником (рамки надо сделать один раз, потом они будут блуждать из проекта в проект)
  2. Слой рамок должен быть в уникальном слое!

Что хочется добавить (ToDo):

  1. В программе есть потенциал работы с таблицей основной надписи, но пока эта таблица должна быть встроенной таблицей автокада, что используют немногие!
  2. Возможность разпараллеливания печати на 2 и более принтеров (для быстроты печати) в версии 2.5.1.4 появилась поддержка 2 принтеров
  3. Возможность различать вплоть до формата a0 при условии, что масштаб рамок 1:1 В версии выше 2.5 появилась возможность распечатки больших форматов
  4. Возможность подачи файлов А3 и A4 на принтер обычный, и файлы А2 и более на плоттер! (возможность отладить на плоттере дорогое удовольствие,поэтому пока в дальноидующих планах!) В версии 2.5.1.4 появилась возможность печати с помощью 2 принтеров
  5. Возможность правильной отработки вписывания рисунка в формат при печати (беда всех принтеров - отступы при печати, у некоторых печать с нулевыми отступами невозможна, поэтому все зависит от настроек принтера и установленных в нем форматов печати. Поэтому программно менять без ведома человека не вариант.. пока думаем) Пошаговая инструкция 52 установки нулевых полей pdfFactory
  6. Возможность печати нестандартных форматов
  7. Возможность печати нескольких чертежей на одном крупном формате (A0) в длину
  8. Возможность печатать в один файл через PDF принторы Dopdf и аналогичных

Устранение неполадок

  1. При использовании макроса иногда вылетает Autocad с ошибкой "Fatal Error: Unhandled Access Reading 0x0000 Exception at 652e60h" (фото)
  2. !!!Обязательно сохраняйте файл перед использованием макроса!!!

  3. Иногда рамки не находятся из-за возможного несоответствия типа полилинии для специализированных версий автокада. Нужно в ручную поменять в макросе название полилинии IAcadLWPolyline на название в своем автокаде (см. комментарий №10, №11). В версии выше 2.2 автоматическое определение полилинии.

История версий

Версия 2.5.1:

+добавлена поддержка 2ого принтера (печать с автоповоротом в PDF, печать четных и нечетных страниц, печать крупногабаритных форматов на плоттере и A3-A4 на обычном принтере)

+опции печати центрирования и вписывания с масштабом

Версия 2.5:

+добавлено автоматическое выделение без участия пользователя

+добавлена печать крупных форматов A0,A1,A2

+добавлена возможность распечатывания чертежей по нужному тексту

Версия 2.3:

+исправлена ошибка, при которой на печать подавались пустые листы

(подробнее тут http://forum.dwg.ru/showthread.php?t=64072)

Версия 2.2:

+поиск рамок на пользовательской форме

+исправлена ошибка поиска названия рамок в разных автокадах (теперь не надо менять ничего в коде макроса)

Версия 2.1:

+добавлено автоматическое распознавание формата A3/A4

+введение погрешностей рамок, осей

+возможность печати нескольких копий, группировка

+последовательная печать по ряду или по колонке

Версия 1.0:

макрос создан Lenik Gers (www.mvstudio.by)

+печать рамок

+автоматический поворот рамок

+вписывание в границы печати

Скачать

!Plot_U_v2.5.1.4.zip 326

!Plot_U_v2.5.1.4_zwcad.zip 12 (для ZWcad)

!Plot_U_v2.5.zip 26

!Plot_U_v2.3.zip 8

!Plot_U_v2.2.zip 90 (для всех автокадов)

!Plot_U.zip 8

!Plot_U_autocad2012.zip 25 (так же подходит для Autocad 10,11)

Поделиться с друзьями:
twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru digg.com blogger.com livejournal.ru google.com yandex.ru del.icio.us

Комментариев: 188

Александр
Комментарий отправлен 2011-10-25 в 18:28:29 · Ссылка

не скачивается программа. Пишет Achtung! XSS attack!

colee
Комментарий отправлен 2011-10-25 в 18:53:30 · Ссылка

исправил ссылку сыр

Игорь
Комментарий отправлен 2011-11-14 в 07:28:33 · Ссылка

Добрый день!

Судя по описанию, отличная программа, но у меня почему-то не может найти рамки. Проблема как с моими чертежами, так и с примером из архива(

Игорь
Комментарий отправлен 2011-11-14 в 07:32:46 · Ссылка

ПС все делаю по инструкции, но каждый раз поиск выдает результат "0"

Игорь
Комментарий отправлен 2011-11-14 в 09:32:11 · Ссылка

Апдейт. Проверил на другом компьютере, с 64 битным автокадом, все тоже самое. Автокад везде стоит 2012. Замена слоев ничего не дает.

colee
Комментарий отправлен 2011-11-14 в 11:20:06 · Ссылка

Здравствуйте, Игорь!

пришлите мне пожалуйста файл на почту

Игорь
Комментарий отправлен 2011-11-15 в 08:09:47 · Ссылка

Какой файл, мой чертеж? Я уже написал выше, что та же проблема присутствует и в Вашем примере. Выдает "0" всегда.

colee
Комментарий отправлен 2011-11-15 в 11:12:57 · Ссылка

Игорь,

здесь нет телепатов! Я не могу сказать по вашим комментариям, что вы делаете не так. Пример, который идет в архиве и описан, работает на Автокаде 2007, 2008 (на других не пробовал). Я печатал с помощью этой штуки на 2010.. Испытать все автокады просто нет возможности и времени.. Как можно помочь вам:

1. я могу попробовать ваш файл (установить 2012), сказать печатает или нет.

2. вы напишете более подробно ваши действия.

Попробуйте стандартные вещи:

дайте слою английское имя без пробелов

посмотрите все ли в окошке совпадает с данными (допустим, в англ. версии акада надо вместо Модель писать Model)

попробуйте выделить слои с помощью команды "быстрый выбор" (_QSELECT) и посмотрите, сколько их нашел акад

проверьте является ли рамка полигоном или это блок/линии/др.объекты

Игорь
Комментарий отправлен 2011-11-15 в 12:37:20 · Ссылка

Все делал по инструкции, слои проверял.

Сделал все рекомендации в тестовом документе "пример", переименовал слой на английский язык, но результат по-прежнему ноль...

Рамка значится как полилиния.

Может подскажите, строчку кода, которая отвечает за поиск полилиний?

colee
Комментарий отправлен 2011-11-16 в 09:07:03 · Ссылка

на 255 строчке идет перечисление всех выделенных объектов (For Each pE In pSS), на 272 - сравнение с типом "IAcadLWPolyline"

Lenik Gers
Комментарий отправлен 2011-12-14 в 09:24:47 · Ссылка

Привет последователям.

Разные версии Автокада(Автокад, Архитектурал Десктоп и т.д.) могут использовать разные имена объектов. Например: IAcadPolyline и IAcadPolyline2. Поэтому бывает, что рамки не распознаются в других версиях. Сам у себя ручками правил в макросе под конкретный Автокад.

Удачи в продолжениях))

colee
Комментарий отправлен 2011-12-14 в 09:32:53 · Ссылка

Автокад в этом смысле жжет, потому что для локализованных версий у него свои файлы и обозначения команд, так и специализированных все свое.. усмешка пока универсальный способ только один - все вручную подвинчивать под себя

Pavlo
Комментарий отправлен 2011-12-21 в 15:15:50 · Ссылка

Lenik Gers, colee Вы би могли (если не сложно) перечислить возможные названия команды IAcadPolyline для разных версий Аутокада, а именно для Аутокада2012.

Спасибо

colee
Комментарий отправлен 2011-12-21 в 15:54:35 · Ссылка

Pavlo,

вы можете сами посмотреть название примитива с помощью лисп команд (entget(car(entsel))) введите в командную строчку и нажмите Enter, после выделите нужный примитив, в командной строчке появится информацию о выделенном примитиве, в скобке с нулем будет название примитива (например, (0 . "LWPolyline"), вот на это и поменяйте в макросе на строчке 272

Владимир
Комментарий отправлен 2012-01-13 в 23:48:28 · Ссылка

Спасибо, все работает. У меня, честно говоря, мировоззрение поменялось, будто с велосипеда на машину пересел - я уж грешным делом думал, что вручную рамкой выделять до конца жизни придется для печати.

У Вас очень полезный ресурс, нужно только рекламку хоть повесить - а то вещи делаете хорошие, а отблагодарить никак и нельзя

colee
Комментарий отправлен 2012-01-14 в 01:48:26 · Ссылка

Владимир, спасибо! Будем стараться улыбка

Павел
Комментарий отправлен 2012-02-01 в 14:22:38 · Ссылка

У меня 2012 AutoCAD. Программа ваша очень понравилась, но про определении рамок всегда говорит, что "0 рамок выбрано". Не может найти рамки. Что делать? Название полилинии в 272 строке кода я поменял. Помогите, плз. Очень хочу установить ваш макрос. И кнопочку придумайте, или с клавы чтобы запускалось.

Павел
Комментарий отправлен 2012-02-01 в 14:33:06 · Ссылка

Та же проблема, что и у Игоря. автокад 2012 х64.

Slavik
Комментарий отправлен 2012-02-05 в 23:21:01 · Ссылка

Добрый вечер. Респек автору. Макрос отличный. Есть проблемка ох ох, автокад 2010 х32, в некоторых файлах листы распечатываються без проблем, а в некоторых листы распознаються и печатаються, но на распечатанных листах ничего нет, пустые. Подскажите пожалуйста в чем проблем?

colee
Комментарий отправлен 2012-02-05 в 23:49:54 · Ссылка

Такая ошибка встречается в других автокадах. Скорее всего это зависит от самого файла автокада, потому что каждый файл несет в себе часть настроек (?). Самый простой способ, это скопировать чертеж в новый файл. После этого при печати нет чистых листов. Хотя в при копировании в новый файл можно потерять оформление некоторых частей текста или таблиц.. Вообще, макрос всего лишь формирует данные для печати, то есть держит в себе координаты прямоугольника, который идет на печать и при печати пустых листов все отрабатывает правильно, а на выдаче почему-то пусто лист

Николай
Комментарий отправлен 2012-05-17 в 15:59:41 · Ссылка

Помогите пожалуйста с 2012 автокадом.

менял я в 272-й строке название полилинии на "LWPolyline".

и все равно ничего печатает. "0-рамок" выделено.

На 2008 автокаде печатается без изменений макроса.

Подскажите пожалуйста что сделать чтоб печатало в 2012 автокаде.

Ну уж очень хочется печатать быстро и удобно.

ПОЖАЛУЙСТА помогите

colee
Комментарий отправлен 2012-05-18 в 12:33:26 · Ссылка

добавил для скачивания рабочую версию для акада 2012, по аналогии должно подойди и для остальных

Pavel
Комментарий отправлен 2012-05-18 в 21:41:09 · Ссылка

с помощью лисп команд (entget(car(entsel))) определяет рамки как "LWPolyline"

В 272 строчке макроса - "IAcadLWPolyline"

Каждый раз при поиски выдает кол-во рамок 0

Автокад 2011

Помогите разобраться!!!

colee
Комментарий отправлен 2012-05-20 в 18:08:52 · Ссылка

для автокада 11, 12 надо поменять "IAcadLWPolyline" на "IAcadLWPolyline2"

Pavel
Комментарий отправлен 2012-05-21 в 08:26:30 · Ссылка

Здравствуйте, разработчики!

версия для autocad 12 выдает ошибку: compile error: can't find project or library

Pavel
Комментарий отправлен 2012-05-21 в 08:31:36 · Ссылка

В вашем примере выбираю рамку в слое форматка

Выберите объект: ((-1 . ) (0 . "LWPOLYLINE") (330 . ) (5 . "6F6") (100 . "AcDbEntity") (67 . 0) (410 . "Model")

(8 . "Форматка") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0)

(39 . 0.0) (10 8487.72 1911.61) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10

8907.72 1911.61) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 8907.72 1614.61)

(40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 8487.72 1614.61) (40 . 0.0) (41 .

0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))

Значит имя LWPOLYLINE

colee
Комментарий отправлен 2012-05-21 в 08:54:19 · Ссылка

Надо зайти в сервис - макросы - редактор Visual Basic - Tools - references - и отключить галочку на строке MISSING: Autocad Library.. и отметить Microsoft forms, если не отмечено

определить имя типа, которую надо поставить на 272 строчке, нужно через обозреватель модели в редакторе VBA или путем остановки макроса для определения типа. Надо будет подумать, как это все упростить

Pavel
Комментарий отправлен 2012-05-21 в 09:32:57 · Ссылка

Есть предложение при первом пуске макроса его обучить, т.е. присвоить значение переменной, которая будет соответствовать имени приметива

colee
Комментарий отправлен 2012-05-21 в 11:13:42 · Ссылка

нет, лучше сделать, чтоб он сам брал тип данных программно, без вмешательства в код.. На днях попробую это сделать

colee
Комментарий отправлен 2012-05-22 в 01:27:46 · Ссылка

Советую всем скачать новую версию: добавлена совместимость с разными автокадами (проверял на 2008, 2011, 2012), на форме рядом с полем ввода названия слоя рамок ввел кнопку поиск - выводит рядом количество найденных рамок

Pavel
Комментарий отправлен 2012-05-22 в 08:30:14 · Ссылка

УРА!!!!!!!!!!!!

РАБОТАЕТ!!!

Спсибо ОГРОМЕННОЕ!

Благодарности нет предела!

Я уже и кнопку сделал из панели!

Pavel
Комментарий отправлен 2012-05-22 в 08:44:37 · Ссылка

Вот только стиль печати все время оттенки серого

Pavel
Комментарий отправлен 2012-05-22 в 08:56:11 · Ссылка

и ориентация формата только книжная... Потом в pdf каждый раз крутить приходиться!

Pavel
Комментарий отправлен 2012-05-23 в 23:00:31 · Ссылка

cтиль печати работает, это настройки печать в pdf такие были.

А вот лист при печати в pdf всегда вертикально располагает, потом разворачивать каждый раз приходиться.

Можно ли в макросе сделать кнопку выбора расположения листа книжный или альбомный?

Pavel
Комментарий отправлен 2012-05-28 в 14:01:15 · Ссылка

Это настройка принтера PDF. Вызывается из автокада Файл - Печать - Свойства (справа от имини принтера) - устройсво и документ - дополнительные свойства - дополнительные свойства - ориентация (книжная, альбомная).

Я пробовал настроить принтер, а потом запускать макрос, но лист опять разворачивается вертикально.

Если не возможно это автоматизировать, то хотябы по умолчанию оставлять, как уже принтер настроен.

Pavel
Комментарий отправлен 2012-06-04 в 12:54:40 · Ссылка

Уважаемые разработчики!!!

откликнитесь пожайлуста!!!

Хебибулин
Комментарий отправлен 2012-06-13 в 18:39:19 · Ссылка

в некоторых файлах при печати макросом границы печати (полилинии) сдвигаются, и на принтер выходят пустые листы либо часть листа.

в чем может быть проблема?

могу выслать файл.

colee
Комментарий отправлен 2012-06-14 в 10:01:37 · Ссылка

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

Хебибулин
Комментарий отправлен 2012-06-14 в 10:35:50 · Ссылка

не могу найти адрес почты куда слать файл

Евгений grub4dos.ru
Комментарий отправлен 2012-06-20 в 17:00:55 · Ссылка

Теперь у меня следующий баг есть. При печати DWG to PDF.pc3 - не выдается запрос на сохранение файла. Тупо печатает все под ряд в один файл, в итоге открывается только последний файл, т.к. все перезаписывается в один и тот же файл. При нормальной печати - запрос выдается. На других принтерах все ок.

От души спасибо за исправленный баг с пустыми листами.

colee
Комментарий отправлен 2012-06-20 в 17:28:19 · Ссылка

Да, при выборе этого принтера Pdf все печатает в один файл, затирая предыдущие чертежи.. тоже самое при выборе принтера DoPdf.. попробуйте pdf factory. надо будет попробовать поиграться в настройках.. как раз сейчас буду этим заниматься :gulp:

Евгений grub4dos.ru
Комментарий отправлен 2012-06-21 в 08:12:05 · Ссылка

DoPdf 7 у меня печатает нормально. хотелось бы конечно пользоваться встроенным DWG to PDF. Форматы для него все перебил вчера по ГОСТ.

Евгений grub4dos.ru
Комментарий отправлен 2012-06-22 в 13:17:05 · Ссылка

DoPDF 7 - он по-моему не тупит. Сделал для него форматы, подключил pmp.

У меня вопрос, от чего некоторые чертежи вылетают с фатальной ошибкой, может что-то можно сделать? Узнать причину и с ней бороться?

Евгений grub4dos.ru
Комментарий отправлен 2012-06-22 в 13:22:40 · Ссылка

И еще в добавок, как сделать, чтобы остальные форматы, хотябы основные -A0,A1,A2, определялись как и A4, A3.

Женя
Комментарий отправлен 2012-08-02 в 13:03:54 · Ссылка

отличная прога! выше всяких похвал.. но есть вопрос возможна ли полностью автоматизированная печать то есть открыл чертеж запустил макрос (все переменные принтер и прочее идут по умолчанию)не нужно выделять а просто распечатать все с листа.. задать постоянные переменные у меня получилось но полностью автоматизировать не удается.. помогите! заранее спасибо!

Александр
Комментарий отправлен 2012-11-09 в 15:43:33 · Ссылка

Хотелось бы не загружать постоянно макрос после каждого закрытия автокада. Есть ли возможность как-нибудь сохранить его в программе?

colee
Комментарий отправлен 2012-11-09 в 15:57:57 · Ссылка

Да, можно зайти в Сервис - AutoLisp - Приложения - Автозагрузка - Добавить файл dvb

Если по каким-то причинам файл не загружается, можно поставить lisp скрипт в автозагрузку такого содержания

(defun S::STARTUP()

(command "_VBALOAD" "путь до dvb макроса")

)

Alex
Комментарий отправлен 2012-11-12 в 07:00:36 · Ссылка

Здравствуйте, в макросе если поставить галочку на пункте "вписать" то печать будет производиться с внешней рамкой, если оставить галочку только на "центрировать" то внешней рамки не будет, но на чертежах выполненных на шаблоне acad.dwt по умолчанию стоит британский масштаб (на метрический не меняет) то есть печать идет 1дюйм-1ед.чертежа (а надо что было 1мм-1ед.чертежа), в итоге без галочки на "вписать" мы имеем на выходе либо пустой лист либо какието фрагменты чертежа. Собственно вопрос как распечатать чертежи выполненные на британском шаблоне, без внешней рамки? При переносе чертежей из файла на британском шаблоне в файл на метрическом, меняются шрифты и т.п., так что этот вариант не очень удобен. Может быть както можно задать в макросе, чтобы печать велась только в метрическом масштабе?

PTqp
Комментарий отправлен 2012-11-15 в 11:59:57 · Ссылка

Здравствуйте! А нельзя ли научить макрос печатать все листы в один файл? То есть, у меня установлен принтер PDF, я отправляю с помощью макроса листы на печать через этот принтер. Листов у меня в модели 9, а на выходе я получаю один файл с одним листом, либо несколько файлов тоже с одним листом. Очень хотелось бы на выходе иметь один файл со всеми этими листами. Использую принтер PDF Creator

colee
Комментарий отправлен 2012-11-15 в 12:34:27 · Ссылка

Попробуйте принтер pdffactory.. там как раз на выходе получается один файл, очень удобно..

ptqp
Комментарий отправлен 2012-11-16 в 03:07:13 · Ссылка

К сожалению, pdfffactory платная программа и я не могу ее использовать. Есть ли у Вас на примере бесплатный аналог? Причина именно в принтере pdf? Нельзя ли это как-то поправить в макросе?

colee
Комментарий отправлен 2012-11-16 в 06:55:37 · Ссылка

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

ссылка

http://www.ixbt.com/soft/pdfprinters-1.shtml

там две части..

я по-моему пробовал DoPdf, вроде норм все было..

Pavel
Комментарий отправлен 2012-11-16 в 06:56:16 · Ссылка

Макрос давно не обновлялся, а ведь замечания по нему остались! Ждем...

colee
Комментарий отправлен 2012-11-16 в 07:01:50 · Ссылка

не согласен, очень не согласен

последние изменения в версии 2.5 на мой взгляд прорыв таки) и сделана недавно, две-три недели назад..

скорее всего сделаю через некоторое время типа пожеланий.. чтобы туда вносить их, а потом с удовольствием вычеркивать)

Pavel
Комментарий отправлен 2012-11-16 в 07:57:55 · Ссылка

А по поводу поворота листа - Комментарий отправлен 2012-05-24 в 00:00:31

PTqp
Комментарий отправлен 2012-11-16 в 08:41:26 · Ссылка

Такое ощущение что дело именно в способе публикации. Когда я печатаю через макрос - он как будто начинает новую сессию печати для каждого листа. Я хочу добиться процесса публикации, как это получается при разбиении модели на листы и публикации листов (в один присест публикуются все листы в один файл). Использование различных принтеров не принесло плодов. Есть еще какие-либо идеи? Может что-то в самом автокаде перенастроить нужно?

colee
Комментарий отправлен 2012-11-16 в 11:37:09 · Ссылка

посмотрю, что можно сделать с сессией печати.. Скорее всего можно будет сделать печать в один файл

Насчет поворота страницы надо силами автокада это сделать нельзя, надо лезть в настройки принтера..

Alexandr
Комментарий отправлен 2012-11-19 в 07:14:37 · Ссылка

Что касается принтера pdffactory, прога удобноя но как настроить отступы при печати, уж слишком они большие получаются (настройка параметров "поля" в настройках печати никаких изменений не приносит)

colee
Комментарий отправлен 2012-11-19 в 07:22:28 · Ссылка

можно создать альтернативный pc3 в автокаде

Нажимаете на свойствах принтера, выбираете изменение стандартных форматов листа - там ищете нужный формат, нажимаете редактировать и ставите 0 в границы.. и печать будет без отступов

Alex
Комментарий отправлен 2012-11-19 в 08:41:53 · Ссылка

Здравствуйте, colee, Вы не смотрели можно ли задать в макросе принудительную печать в метрическом масштабе?

colee
Комментарий отправлен 2012-11-19 в 08:45:49 · Ссылка

Я Вам на почту ответил

как мне показалось, единицы измерений тут не играют роли.. путем создания pc3 принтера с нулевыми отступами можно распечатать, так как без использования макроса печать с помощью вписывания ведет себя также, что при дюймах, что при мм

PTqp
Комментарий отправлен 2012-11-21 в 11:49:17 · Ссылка

colee, Вы нашли решение для печати нескольких листов в pdf так, чтобы в файле pdf они были выстроены один за одним?

colee
Комментарий отправлен 2012-11-21 в 16:20:10 · Ссылка

пока не получается.. ;(

на выходных еще попробую

PTqp
Комментарий отправлен 2012-11-27 в 03:01:42 · Ссылка

colee, здравствуйте! Есть ли успехе в Вашем нелегком деле?

colee
Комментарий отправлен 2012-11-27 в 09:01:19 · Ссылка

По поводу печати без галки вписывания действительно происходит сбрасывание опций печати (это даже происходит просто при смене форматов печати), в новой версии появится при отключенных галках центрирование и вписывание выбор стандартных мастшабов (1:1,2:1 и тд) и смещения X,Y

2 PTqp

Все что можно сделать руками автокада при распечатке (ctrl+P) можно сделать в макросе, печать в такие принтеры PDF, которые задают вопрос о имени файла, даже при ручной распечатке все время надо вводить адрес.. Может попробовать залеть в настройки ПДФ принтера, и поискать такую опцию типа автоматического имени и сохранения.. тогда он напечатает все листы, потом останется их собрать.. Вряд ли в макросе получится давать имена для файлов, потому что это уже за гранью автокада.. силами автокада обрисовать сначала все файлы, а потом дать на печать при печати рамки невозможно

PTqp
Комментарий отправлен 2012-11-27 в 09:12:43 · Ссылка

colee, попробуйте в одной модели разместить несколько чертежей, затем создать для каждого из чертежей свой лист, затем выберите через shift все созданные листы и щелкнув правой кнопкой мыши выберите "Публикация выбранных листов". В появившемся меню выберите публикация в pdf. Нажмите ок и вы получите pdf в которой все созданные вами листы следуют друг за другом. И тут нет разницы, какой из принтеров вы выбрали при настройке листов, они всё равно будут идти друг за другом. Именно это мне и нужно.

colee
Комментарий отправлен 2012-11-27 в 09:35:11 · Ссылка

PTqp, вы случаем мое письмо не получили минут 30 назад? У меня, наверно, сглючила.. Я как раз написал, что есть такая фишка про печать из листов, но чтоб из модели напечаталось.. Если все чертежи завести на отдельный лист, то при публикации все получается.. но вот из модели как это сделать без завода на каждый лист?

Проблема макроса в том, что это всего лишь автоматизация действий в Автокаде таких, как

1 нажать ctrl+p

2 выбрать тип печати рамка

3 выделить нужный чертеж

4 выбрать масштаб, центрирование

5 выбрать принтер

6 нажать ОК

PTqp
Комментарий отправлен 2012-11-27 в 11:01:26 · Ссылка

А нельзя ли сделать макрос автоматического создания листов? Я думаю это был бы идеальный вариант.

colee
Комментарий отправлен 2012-11-27 в 11:35:21 · Ссылка

Если б эти листы были идеальным инструментом для печати, и их бы еще одним щелчком создать возможно было, то и макроса бы не было)

На моей памяти только один человек пользовался созданием листа, и то у него были заготовлены шаблоны под формат.. В перспективе можно рассмотреть, но хотелось бы допилить максимально распечатку из модели с распараллеливанием печати крупных и малых форматов) тогда будет самое оно)

colee
Комментарий отправлен 2012-11-27 в 11:44:33 · Ссылка

попробуйте кстати погуглить бесплатные аналоги PDFFactory

Я нашел следующие по описаниям

PrimoPDF

Bullzip PDF Printer

как попробую, отпишусь

Roman
Комментарий отправлен 2012-11-29 в 09:46:47 · Ссылка

Здравствуйте, отличный макрос, но столкнулся с такой проблемой AutoCAD 2012 64bit, рамки сделаны в модуле СПДС, и макрос к огромному сожалению просто не видит и не понимает рамки сделанные в СПДС, можно как-то решить эту проблему? Заранее благодарен.

colee
Комментарий отправлен 2012-11-29 в 11:32:47 · Ссылка

сделайте поверх рамки СПДС простой четырехугольник в уникальном слое, все должно на ура отработать

Sergey
Комментарий отправлен 2012-12-03 в 08:45:32 · Ссылка

Здравствуйте. Подскажите, как посадить этот замечательный макрос на кнопку? Поставил его в автозагрузку. Теперь стало лень нажимать Alt+F8 и кнопку Выпонить. Хочется одним нажатием на кнопку запускать Ваш макрос. Сейчас на кнопке стоит такой код:^C^C_-vbarun !Plot_U_stable_ver2.1_for_2012.dvb!Main.Main

но он почему-то не работает. Автокад использую такой:

F.205.0.0 AutoCAD 2012 - Russian SP2

P.S. Отдельное спасибо за возможность автовыбора рамок, очень облегчает процесс печати.

colee
Комментарий отправлен 2012-12-03 в 09:10:05 · Ссылка

В общем, открываете по Alt+F8 окно запуска макросов, копируете полностью поле имя вверху (в нем указывается путь и нужный макрос)

Далее на кнопку вешаете после vbarun через пробел в кавычках "вставляете что скопировали", !!важно заменить все \ на обратный / !! и все должно работать..

чтобы не писать путь до макроса надо либо засунуть в одну из папок Акада, либо в настройках добавить папку с макросом в папки автокада

Sergey
Комментарий отправлен 2012-12-03 в 10:00:03 · Ссылка

Благодарю. Все заработало

Lyolik
Комментарий отправлен 2012-12-03 в 11:21:29 · Ссылка

Огроменное благодарствие автору за труд!!! Реально помог)) 15000 листов проекта я б год печатал выделяя каждый лист. Низкий поклон!! Планируеться ли доработка на отправку сразу на несколько принтеров? Конечно проблемы с этим нет ибо с нескольких файлов верстаю очередь печать в pdffactory и потом оттуда отправляю на печать но всёже былобы интересно)

colee
Комментарий отправлен 2012-12-03 в 11:44:14 · Ссылка

Да, печать на несколько принтеров в ближайшие недели будет сделана наряду с правильным вписыванием в чертеж и центрированием

Саша
Комментарий отправлен 2012-12-20 в 12:57:18 · Ссылка

Здравствуйте! Очень хорошая программа! Спасает уйму времени! Есть только одна неясность : у меня в бланке штампов вставлены эмблемы разных фирм (OLE объекты). Так вот при распечатке по непонятной мне причине эти картинки зеркально переворачиваются, все остальные объекты автокада остаются на своих местах.Помогите пожалуйста! Очень прошу. А вообще ваш сайт находка! Спасибо.

Саша
Комментарий отправлен 2012-12-20 в 14:57:11 · Ссылка

Пробовал запустить макрос для 2013 автокада, использовал версии 2.2, 2.5, 2012 - итог один, рамок 0(( будем ждать обновления. С отзеркаливанием ОЛЕ объектов не разобрался(

colee
Комментарий отправлен 2012-12-20 в 15:48:22 · Ссылка

надо мне выслать пример с таким объектом, чтоб посмотреть..

насчет автокада 13 не знаю, не юзал, но думаю, что должен работать

volchok
Комментарий отправлен 2013-01-23 в 14:57:50 · Ссылка

Здравствуйте. Автокад 2008. макрос 2.5 Рамки на чертеже горизонтальные, а при печати распологаются вертикально. Как это исправить. Настройки принтера не помогли.

pavlo nema
Комментарий отправлен 2013-01-31 в 12:43:56 · Ссылка

здраствуйте, Вы можете поправить програму (добавить функцию) так чтоби можно былоби задать свой масштаб печати листов (тоесть припустим вместо "ВПИСАТЬ" задать 1:1.2). Спасибо

Владимир
Комментарий отправлен 2013-04-11 в 12:08:07 · Ссылка

здравствуйте

являюсь давишним и благодарным пользователем этого макроса

но давненько не смотрел обновления - последней версией пользовался 2.2

при запуске 2.5.1.4 тех же самых чертежах, которые до этого печатались сразу, сейчас макрос печатает не из модели, а из layout. проблема лечится путем удаления всех layout'ов (благо все равно ими не пользуюсь. брал рыбу, а там в лэйоте рамку кто-то начертил, причем не стандартную...потом во все файлы всех моих проектов и перешло). был бы благоарен за помощь в устарнении этой накладке без удаления лэйотов (во всех файлов долговато буду удалять)

colee
Комментарий отправлен 2013-04-13 в 09:34:46 · Ссылка

Ответил на почту, скорее всего модель не первая вкладка это как вариант почему может начинает печатать не из модели.. Хотя не знаю, как можно модель сделать не первой вкладной) это невозможно)

пришлите чертеж, чтобы точно можно было устранить ошибку

Pavel
Комментарий отправлен 2013-05-06 в 13:48:01 · Ссылка

когда вылечите Fatal Error?!

colee
Комментарий отправлен 2013-05-09 в 11:43:34 · Ссылка

не думаю, что это проблема макроса.. и не побоюсь это слова, это проблема Autodesk подмигнуть

Владимир
Комментарий отправлен 2013-07-13 в 22:52:01 · Ссылка

Здравствуйте

Хотелось бы узнать, ведутся ли работы в пользу дееспособности макроса в Автокадах 2013-14?

Станислав biznova.ru
Комментарий отправлен 2013-07-17 в 20:00:49 · Ссылка

Здравствуйте, ни с того ни с сего (по крайней мере, не помню причины) возникла ошибка, нет ни одного доступного принтера в макросе, выпадающее меню пустое, как победить?

colee
Комментарий отправлен 2013-07-27 в 19:17:40 · Ссылка

на автокаде 13 или 14 попробую тестовый файл, который идет вместе с макросом..

> Хотелось бы узнать, ведутся ли работы в пользу дееспособности макроса в Автокадах 2013-14?

Сергей
Комментарий отправлен 2013-07-31 в 17:06:02 · Ссылка

Здравствуйте,классная вещь, давно мечтал сделать такую, но некогда, сам редко печатаю с акада, а вот коллеги регулярно. работает супер, только у нас нет строго шаблона и поэтому рамки у всех в разных слоях. по этому заменил TB_LAYERNAME на ComboBox и добавил процедуру

Private Sub NumericLayers(objList As ComboBox)

Dim objLayer As AcadLayer

Dim objAllLayers As AcadLayers

Set objAllLayers = ThisDrawing.Layers

For Each objLayer In objAllLayers

If objLayer.Name "" Then

objList.AddItem objLayer.Name

If objLayer.Name = "Форматка" Then

objList.Text = "Форматка"

End If

End If

Next objLayer

If objList.Text = "" Then

objList.Text = objList.List(0)

End If

End Sub

а в Sub UserForm_Activate() добавил строку

NumericLayers Plot_U.TB_LAYERNAME

теперь у пользователя есть возможность выбрать слой на котором его информатики.

colee
Комментарий отправлен 2013-07-31 в 21:09:43 · Ссылка

Сергей, действительно удобно будет искать слой в комбобоксе, обязательно добавлю в следующих версиях

Александр
Комментарий отправлен 2013-08-05 в 10:13:35 · Ссылка

Здравствуйте, потихоньку начинаю быть любителем вашего макроса, только возникает такая проблемка при печати, автокад 2012, рамки все находит, однако при печати в ПДФ чертежи находятся не в области печати и лист ориентирован как альбомный. Прошу помощи, дабы очень хочется стать счастливым пользователем данного макроса!

iNecro
Комментарий отправлен 2013-08-08 в 13:26:04 · Ссылка

Здравствуйте!

Хочу сказать спасибо за Ваш труд - отличная работа!

Скромно могу предложить улучшения:

- организовать работу с пользовательскими наборами параметров листов (так можно уйти от выставления настроек принтеров в интерфейсе программы и заодно решить проблемы нестандартных форматов)

-организовать оценку формата, ориентации обрабатываемой рамки совершая перебор наиболее подходящей из списка пользовательских наборов параметров листов

Небольшое замечание: в больших файлах 19 мб процесс поиска и обработки(то есть с момента нажатия на autoselect до предложения распечатать N-ое количество листов) проходит по 15-20 минут возможно ли оптимизировать код для ускорения ? (в excel ,например, в коде VBA я отключал обновление, пересчет ячеек – здесь может регенерация вредит времени обработки или что-то еще?)

Мне очень нравится макрос, представляю какой титанический труд был проделан для создания и отладки! Еще раз СПАСИБО!

Андрей
Комментарий отправлен 2013-09-24 в 16:32:00 · Ссылка

Спасибо, всё работает как надо!!!!!!!!!!

Антон
Комментарий отправлен 2013-09-27 в 21:22:59 · Ссылка

Макрос классный - однозначно!!! Но все же есть куда расти.

Сегодня потратил полдня на поиски решения проблемы печати кучи форматок из одного файла из пространства модели. Все бы ничего, но doPDF каждый раз требует ввод имени файла, а DWG to PDF печатает все в один файл перезаписывая. В ВБА в Акаде есть две возможности печатать и вы использовали первый - там нельзя задать имя файла. А вот при втором варианте есть возможность задать имя файла (http://vbamodel.narod.ru/AutoCAD/idh_plottofile.htm)

ОЧЕНЬ надо имя файла автоматом вводить, пусть это будет цифра - дальше уже сам смогу склеить. Это актуально для DWG to PDF.

И еще одно - неплохо бы добавить нормальное описание запуска и каждого параметра в коне ввода. А то пришлось перепробовать все варианты что бы понять что к чему и какой вариант мне нужен.

colee
Комментарий отправлен 2013-09-27 в 21:56:20 · Ссылка

Антон, спасибо за информацию, будем стараться! а то действительно проблема с DoPDF очень актуальна..

Анна
Комментарий отправлен 2013-10-16 в 16:20:45 · Ссылка

здравствуйте. Не нашла ответа на вопрос по поводу поворота листов - один черт печатает горизонтальный лист вертикально на горизонтальном листе.) Что делать?

colee
Комментарий отправлен 2013-10-16 в 22:00:25 · Ссылка

Если вы печатаете в пдф, то там надо заранее сделать готовые pc3 принтеры, подробнее тут

http://www.engineerbox.ru/page/autocad-avtomaticheskaja-pechat-iz-modeli-s-podderzhkoj-2-printerov-i-avtomaticheskij-vybor-orientacii-v-pdf

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

Дмитрий
Комментарий отправлен 2013-10-19 в 18:07:23 · Ссылка

Здравствуйте. Работаю в копировальном центре. Приходится выводить на печать много файлов DWG из модели. Автокада нет, используем Autodesk DWG TrueView 2014, отсюдаи вопрос, возможно ли прикрутить к нему этот макрос?

colee
Комментарий отправлен 2013-10-20 в 00:12:10 · Ссылка

По-моему, Autodesk DWG TrueView не поддерживает ни лисп, ни VBA.. поэтому вряд ли можно..

Для работы нужна возможность работать с моделью VBA Autocad, которая в TrueView отключена

JohnSt
Комментарий отправлен 2013-11-06 в 09:30:09 · Ссылка

День добрый! Спасибо за классное расширение, но есть пару вопросов.. У моего коллеги автокад 2011 и макрос работает без проблем; у меня автокад 2013 SP 1.1 G.114.0.0. и макрос работает только при выборе одной рамки, т.е. один лист он распечатывает, если выбрать несколько листов, то автокад выдает ошибку: Run-time error '6': Overflow; если в появившемся окне ошибки нажать Debug, то попадаешь на листинг программы, причем подсвечивается строка: x1=LimitsArray (T).p1(0). Попробывал другие версии макроса, то же самое, причем с файлом "пример" происходит та же ошибка. Если будет время помогите пож-та, очень классная штука, хотелось бы её использовать.

Алексей
Комментарий отправлен 2013-11-12 в 04:48:25 · Ссылка

Здравствуйте !

Загрузил последнюю версию макроса в ACAD 2006. Всё работает но вывод листов на печать происходит в случайном порядке не зависимо от настроек. Настройки менял по всякому. Размещал рамки тоже по всякому и в линию и ступенькой. Ничего не помогает. На выходе рандом. Может кто знает как это исправить ?

Алексей
Комментарий отправлен 2013-11-12 в 06:56:57 · Ссылка

Разобрался сам с рандомным выводом на печать ! Это были глюки PDFCreatora усмешка

Алексей
Комментарий отправлен 2013-11-13 в 08:59:30 · Ссылка

Всем салют !

Установлена последняя версия макроса в ACAD 2006. Такая странность наблюдается. Все листы формата A3 переворачиваются на 180 град. Потом приходится переворачивать вручную все листы А4 после печати. Как от этого эффекта избавиться ?

Алексей
Комментарий отправлен 2013-11-13 в 14:00:01 · Ссылка

Опять же разобрался сам с проблемой обратного поворота листов А3 усмешка.

В самом макросе в той строке где ac90degrees,ac270degrees поменял на

ac90degrees,ac90degrees.

Просто действительно было неудобно когда большая пачка листов и все A4 повернуты к А3 на 180 град. Приходилось перебирать все листы и поворачивать ручками а учитывая объемы печати на это тратилась куча времени.

Комментарий отправлен 2013-11-16 в 13:13:11 · Ссылка

Здравствуйте ребята!!!

Вы просто гении!! я пищу от восторга от вашего макроса.

К сожалению у меня есть к Вам вопросик. Можно ли настроить печать из layout (из пространства листа)?

Поясню свою позицию: на одной из моих прошлых работ мы проектировали так как вы-всё в модели и масшиабировали форматки. Но о мысли разместить несколько узлов на листе с планом можно было забыть; или о фрагменте или о разрезах разных масштабов. В общем печать из модели в прошлом. Для меня наиболее актуальна печать из layout-ов. Вы можете мне предложить печатать через подшивку или паблиш. Но это удобно для небольших проектов, когда листов мало. А когда более 40-50 листов, переход с листа на лист-это полное проклятие. Поэтому я поступаю следующим образом: комбинирую layout-ы по типам конструкций (планы-колонны-стены(каркасы)-узлы-детали….) для каждого типа конструкций свой layout в котором находится несколько фоматок от 3 до 10 штук. К превеликому сожалению через ваш роскошный макрос я так напечатать не могу, а очень хочется (и через подшивку не могу). В общем очень хочется, если у Вас будет желание и возможность это сделать, будьте так любезны

В любом случае спасибо за ваш труд!!!!!

ТимСамар
Комментарий отправлен 2013-11-20 в 09:35:07 · Ссылка

Здраствуйтей! ОГРОМНОЕ СПАСИБО за этот замечательный макрос! Появится ли в следующих версиях поддержка разных принтеров для форматов А4 и А3? Или может есть какое-то решение в текущей версии?

colee
Комментарий отправлен 2013-11-20 в 09:40:14 · Ссылка

Ну обычно принтеры A3/A4 спаренные и довольно таки шустро печатают, что как-то не возникало такой мысли по разделению..

если надо, то появится подмигнуть

ТимСамар
Комментарий отправлен 2013-11-20 в 10:33:22 · Ссылка

Модель которая установлена не может автоматически выбирать формат листа((. Вот и созданы на основе 1 принтера 2 (1 - настройки под АЗ, 2 - под А4). Буду очень благодарен!!!

DDA
Комментарий отправлен 2013-12-23 в 12:34:12 · Ссылка

Программа очень замечательная и удобная, спасибо Вам!!! если можно добавьте:

1) возможность сохранение всех настроек в меню выбора

2) сделать по умолчанию масштаб 1:1 или сохранение последнего установленного

3) печать А3 и А4 с раздельными настройками сделать по набору параметров листа автокад (там уже все прописано и настроено кто пользуется).

поддерживаю комент 109

1) При печати в PDF-factory часто необходимо использовать разные настройки для А4(вертикальная) и А3(альбомная)--- а если использовать одну общую настройку листы А3 получаются боком.

Mell
Комментарий отправлен 2014-03-04 в 20:43:35 · Ссылка

Добрый день,

Не могу разобраться в каком порядке макрос отправляет чертежи на печать.

Возможно настроить так:

У меня 30 строк в каждой строке по 10 чертежей. Необходимо каждую 1 строчку распечатать по порядку и начать 2 строчу с крайнего левого чертежа?

Спасибо заранее.

colee
Комментарий отправлен 2014-03-11 в 21:53:45 · Ссылка

Если опция печать в столбик активна, то берется самый верхний левый столбик и по первому чертежу вниз идет печать.. Когда чертежи закончились в столбце, то берется следующий Столбец справа..

Если опция печать столбцом не отмечена, то берется самая верхняя строка и самый левый чертеж, и пока в строке не кончатся чертежи, идет печать, по окончанию строки чертежей переходит к следующей строке

В макросе можно задать погрешности при расчете столбцов и строк (то есть будет ли считаться одним столбцом чертежи, у которых X координаты не равны)

Почитайте примеры-статьи, там это все описано

Валентин www.freetech.ru
Комментарий отправлен 2014-03-22 в 13:54:51 · Ссылка

Спасибо большое за Вашу программу!

Пользовался раньше версией 2.1

Приятно видеть, что развиваете отличную идею дальше!

Также пользуемся программкой "Подарок от доярок" http://prowodoc.ru/content/pechat-iz-autocad. Есть хороший контакт с её разработчиком и даже заказывали для себя спец. версию на платной основе.

Будем на связи!

Алексей
Комментарий отправлен 2014-03-26 в 14:37:16 · Ссылка

Есть возможность автоматически распечатать на А0->А1+А1? или, когда чертеж не формат, например длина больше?

colee
Комментарий отправлен 2014-04-02 в 11:54:25 · Ссылка

Неформатные рамки не поддерживаются, печать на большем формате двух поменьше можно выполнить с помощью готовых рамок (объединить два чертежа одной большой рамкой), она и напечатается

Ден
Комментарий отправлен 2014-05-02 в 17:15:17 · Ссылка

Макросом не пробовал. Пользуюсь командой "Опубликовать листы". В листах нарисована стандартная рамка с основной надписью. Задал стили печати (А, К) при публикации и все. Единственно надоедает копирование листа в конец списка и номер листа новый поставить не забыть (вот это бы в макрос запихать). PDFfactory - шикарная програмка, но почему-то ошибку очень часто выдает.

Роман
Комментарий отправлен 2014-08-13 в 07:41:04 · Ссылка

D чертежах автокада логотип компании (OLE) расположен нормально. При переводе сразу всех чертежей в PDF с помощью dfituj макроса, логотип переворачивается на 180 градусов и находится уже вверх ногами...раньше такого не было. Есть выход - в настройках макроса ставить галочку напротив "Перевернуть"..но потом каждый чертеж приходится переворачивать, зато логотип нормально сидит. Это занимает уйму времени.... Что делать в такой ситуации?

colee
Комментарий отправлен 2014-08-13 в 09:09:51 · Ссылка

Нужно по возможности выслать мне на почту пример чертежа с вашим логотипом, чтобы посмотреть что да как подмигнуть

Александр
Комментарий отправлен 2014-08-14 в 11:57:59 · Ссылка

Здравствуйте, при отправке на печать выскакивает ошибка Run-time error '6' Overflow. Сообщите свою почту и я пришлю скрины ошибки. Спасибо.

Alina
Комментарий отправлен 2014-09-04 в 10:10:59 · Ссылка

Здравствуйте, а есть ли такой макрос на английском языке? Спасибо

colee
Комментарий отправлен 2014-09-04 в 10:39:57 · Ссылка

интерфейс окна макроса? или для работы с английской версией автокада?

Алексей
Комментарий отправлен 2014-10-06 в 14:49:28 · Ссылка

День добрый! Спасибо за прогу, наверное классная весщь. Вот только при отправке на печать в всплывающем окне выдает - Run-time error ‘11.

Division by zero.

С чем это связано? Опробывал на ACad14 b ACad15.

Спасибо!

Людмила
Комментарий отправлен 2014-10-30 в 16:43:46 · Ссылка

Добрый день! Спасибо большое за Ваш труд! Давно мечтали о такой программе! Пользуемся с удовольствием! А теперь вопрос)) Листы формата А2 печатает на А4, а нам надо на А3. Как быть?

colee
Комментарий отправлен 2014-11-10 в 02:15:09 · Ссылка

связано с кривыми руками)

Решение: надо убрать все чертежи из координат (0,0)

colee
Комментарий отправлен 2014-11-10 в 02:16:50 · Ссылка

в программе можно насильно указать в каком формате печатать

Mk
Комментарий отправлен 2014-12-01 в 13:57:00 · Ссылка

Здравствуйте. Проблема та же, что и у JohnSt, пост 101. Ни один из чертежей не находится в области координат 0.0, 0.0

Людмила
Комментарий отправлен 2014-12-01 в 15:52:44 · Ссылка

Дело в том, что я не сильна в программировании)) Если не сложно, подскажите, пожалуйста, какой текст и в какой части макроса нужно написать, чтобы листы формата А2 печатались на А3, а не на А4.

colee
Комментарий отправлен 2014-12-03 в 10:47:56 · Ссылка

Mk, ответил на почту

Людмила, ответил на почту, но непонятно что вам нужно..

Игорь
Комментарий отправлен 2014-12-06 в 13:57:54 · Ссылка

Добрый день!

Пытался приспособить макрос для печати из Автокад 2013 рус, не пошло пишет нет библиотеки acax18rus.tlb. Можно это как то поправить?

colee
Комментарий отправлен 2014-12-06 в 14:04:24 · Ссылка

Добрый,

попробуйте найти в инете ее, скачать и положить в %ProgramFiles%/Common Files/Autodesk Shared

Может, у вас неправильно установился Автокад, так как это библиотека типов Autocad Type Library

Всеслав
Комментарий отправлен 2015-02-03 в 09:43:57 · Ссылка

Здравствуйте. Проблема та же, что и у JohnSt(пост 101), и у Mk( пост 128). Ни один из чертежей не находится в области координат 0.0, 0.0

Серегй
Комментарий отправлен 2015-02-13 в 14:55:17 · Ссылка

Неплохо бы было сделать поиск рамки в блоках ... т.к. многие используют динамические рамки .. А так все гудд !!

Евгений
Комментарий отправлен 2015-03-04 в 04:43:38 · Ссылка

Отличная программа, спасибо! в программе Sub SelectLimits(Optional opt As Byte)

выпадала ошибка "деление на ноль" поменял код [If (blvertical) Then] на

[If (blvertical And x2 0) Then] все работает, все отлично. Хотелось бы чтобы ваша программа распознавала динамические блоки в независимо от слоя (рамка и основной штамп сделан в одном блоке).

Тоже Евгений
Комментарий отправлен 2015-03-13 в 04:13:49 · Ссылка

Огромное спасибо за программу!

Уважаемый Colee, у меня возникает проблема, что при первой печати из файла первый лист печатает не область листа выделенного рамкой, а весь видовой экран. Приходится перепечатывать...в общем-то мелочь, но неприятная )) это только у меня такая проблема?

Игорь
Комментарий отправлен 2015-05-15 в 14:46:20 · Ссылка

А можно с ее помощью не из пространства модели, а с листов печатать?

colee
Комментарий отправлен 2015-05-16 в 16:15:33 · Ссылка

>А можно с ее помощью не из пространства модели, а с листов печатать?

Есть для листов встроенный инструмент для автоматической печати в автокаде (публикация)

whisper_23
Комментарий отправлен 2015-05-20 в 09:36:28 · Ссылка

colee, скажите, возможно ли использование вашей программы в zwcad ?

я сам в этом не очень разбираюсь..

colee
Комментарий отправлен 2015-05-22 в 20:57:44 · Ссылка

вроде работает в zwcad, выложил в загрузки

Pavel
Комментарий отправлен 2015-06-02 в 12:37:00 · Ссылка

Здравствуйте, а можно как небуть сделать поиск не полилинии а по блоку с определенным именем???. У прямоугольного блока (форматка) вроде можна определить две точки. Очень нужный макрос, можете доделать??? Спасибо.

firsmamon
Комментарий отправлен 2015-08-25 в 19:50:41 · Ссылка

Спасибо за макрос. А можете добавить поддержку других форматов: A4х3, А4х4, А3х3 и др?

colee
Комментарий отправлен 2015-08-28 в 08:19:55 · Ссылка

Надо как-нибудь этим заняться подмигнуть

Кирилл
Комментарий отправлен 2015-08-28 в 13:06:03 · Ссылка

Спасибо за макрос! Без него, как без рук!

Есть пара вопросов:

1) Возможна ли печать сразу на два физических принтера в разных форматах (А3, А4)?

2) Как поменять "галки" по умолчанию? Конкретно - убрать с "Подряд в столбик" и поставить "Печать всех форматов..." Заменить "Слой рамок" по умолчанию получилось успешно.

Замечена одна неполадка: иногда первый чертёж, что в PDF, что на принтер выдаёт все чертежи на один лист/файл.

Заранее - благодарю!

colee
Комментарий отправлен 2015-08-29 в 15:59:01 · Ссылка

1. сама поддержка 2 принтеров есть, но именно разделения на A3 и A4 нет, есть только на мелкий и крупный формат

2. открыть VBA редактор, открыть форму, все галки и тексты поменять, сохранить макрос в dvb файле, и его загружать

Влаимир
Комментарий отправлен 2015-10-26 в 13:11:07 · Ссылка

Все классно,но печатает почему-то первую рамку(захватывает все начерченное в модели)В чем может быть причина?

colee
Комментарий отправлен 2015-10-26 в 13:55:36 · Ссылка

Так это превью модели ) шучу, надо разбираться на примере файла

Владимир
Комментарий отправлен 2015-11-10 в 08:49:46 · Ссылка

Если открыть несколько чертежей в простанстве модели,подготовить их для печати через макрос...Реально их распечатать пакетно?

colee
Комментарий отправлен 2015-11-10 в 08:53:39 · Ссылка

реально, главное, чтобы все чертежи были по описанным правилам подготовлены

Кирилл
Комментарий отправлен 2015-11-19 в 06:08:37 · Ссылка

Спасибо! Параметры ("галочки") поменял в VBA редакторе, всё работает, как надо.

Но вопрос с принтером не даёт покоя.

Есть МФУ, на котором печатаю и А3 и А4. Соответственно, машина МФУ видит, как два устройства. Печатать надо именно в указанных форматах. Подскажите, пожалуйста, где копать, что бы вторым принтером именно А4 (А3) можно было печатать.

Кстати, такая же проблема с печатью, как у Влаимира - "превью" вместо первого чертежа, иногда вылезает и у меня. Что при печати в любом формате, так и при конвертации в PDF.

Кирилл
Комментарий отправлен 2015-11-19 в 06:18:55 · Ссылка

И да! Только что проверил - может подряд напечатать в А3 "превьюшку", и тут же в другом формате первый чертёж распечатать. Кроме изменений в настройки макроса (смена принтера и формата), другие правки не вносились.

Кирилл
Комментарий отправлен 2015-11-19 в 08:14:41 · Ссылка

Что-то все хотелки в один комментарий не поместились... =)

Было бы здорово, если бы макрос мог автоматически присваивать имена формируемым PDF файлам. Хотя бы, нумерация была бы сквозная - и то хлеб.

Пальцы отваливаются после перевода пакета в 100500 чертежей. Особенно, когда таких пакетов не один.

Куда копать?

colee
Комментарий отправлен 2015-11-19 в 20:26:14 · Ссылка

> Подскажите, пожалуйста, где копать, что бы вторым принтером именно А4 (А3) можно было печатать.

Ищите строчку

If bOneToOne And a & b <> "11" And a & b <> "21" Then usePrinter = 2

и после нее вставьте

If Not bOneToOne And a & b <> "11" Then usePrinter = 2

На форме ставить во второй принтер A3, в первый A4, отмечаете использовать второй принтер, ставите 2ой принтер для крупного формата и ОБЯЗАТЕЛЬНО отключаете галочку печать всех форматов (1:1)

и после такого первый печатает только A4, второй A3

Острожным надо быть, чтобы не забывать выключать галочку печать всех форматов (она всегда на автомате включается при выборе 2ой принтер для крупного формата)

colee
Комментарий отправлен 2015-11-19 в 20:30:17 · Ссылка

> Было бы здорово, если бы макрос мог автоматически присваивать имена формируемым PDF файлам

это наверно вряд ли можно (или трудно) сделать внутри макроса, нужна поддержка со стороны принтера pdf.. надо тему изучать, пока решения нет

colee
Комментарий отправлен 2015-11-19 в 20:32:00 · Ссылка

> И да! Только что проверил - может подряд напечатать в А3 "превьюшку", и тут же в другом формате первый чертёж распечатать

неочень понял..

Кирилл
Комментарий отправлен 2015-11-20 в 09:05:49 · Ссылка
Ищите строчку...и после нее вставьте

Увы, печатает только в формате А4. Пробовал и так и эдак. Можно кусок кода с уже внедрённой строкой увидеть?

не очень понял..

Я имел в виду, что в данном конкретном случае, при печати с помощью макроса пакета чертежей сначала в формате А3, а потом сразу в формате А4, без изменений параметров чертежа, только с изменениями настроек макроса, "превьюшка" вместо первого чертежа распечаталась только в формате А3. В формате А4 первый чертёж был распечатан без замечаний.

"Превьюшка" - обзор всего рабочего пространства файла с полным набором чертежей в нём.

Т.е. если в файле пятьдесят чертежей, то вместо первого чертежа на печать макрос выдаёт все пятидесят на одном листе. Такое иногда происходит.

Прошу прощения за путанное объяснение.

надо тему изучать, пока решения нет

Жаль. Это очень бы помогло.

Андрей
Комментарий отправлен 2016-04-03 в 12:41:43 · Ссылка

Здравствуйте. При переводе в PDF через PDF Creator размеры форматок становятся другими. А2(420х594)-получается 297х210; А1(594х841)-900х1245; А0(841х1189)-900х1245,

А4,А3-нормальные размеры. Подскажите, что можно сделать?

colee
Комментарий отправлен 2016-04-04 в 01:49:18 · Ссылка

> При переводе в PDF через PDF Creator размеры форматок становятся другими

если печатаете в больших форматах, то должна быть опция Печать всех форматов A0,A1,A2 включена + все рамки должны быть в масштабе 1:1

Александр
Комментарий отправлен 2016-04-15 в 06:56:26 · Ссылка

Здравствуйте. При загрузке макроса AutoCAD 2016 начинает грузить процессор пополной. Выгрузка макроса не помогает, приходится перезапускать автокад.

Александр
Комментарий отправлен 2016-05-19 в 03:54:54 · Ссылка

Автор, спасибо тебе огромное за программу! Уже порядка 2-х лет пользуюсь ей! Есть вопрос по расширении функционала, можно ли функционально сделать так, чтобы в качестве второго принтера было сохранение этого фрагмента в отдельном файле DWG? Типа второй принтер это принтер DWG ну или вызов команды ПБЛОК. Проблема заключается в следующем: работаем в модели, порядка 150 чертежей формата А3, а после разбиваем этот чертеж на отдельные 150 файлов DWG (1 файл - 1 чертеж) для архива заказчика. Данная операция занимает оооочень много времени, с учетом того, что таких файлов по 150 чертежей порядка 5-6 шт.

АлександрК
Комментарий отправлен 2016-11-08 в 02:33:20 · Ссылка

Добрый день. Программа замечательная, но так и не смог ни в одном принтере добиться чтобы печатала хоть в каком то порядке, хоть по столбцам, хоть по строкам. Выводит листы на печать как ей хочется. Листы все одинаковые, формат А3 1:1. Пробовал печатать в PDF24 и PDF creator, больше бесплатных программ чтобы выводили все в один файл не нашел. В принтерах в настройках потыкался, ничего не изменилось. В чем может быть проблема?

colee
Комментарий отправлен 2016-11-08 в 20:33:08 · Ссылка

АлександрК, попробуйте файл, который идет вместе в архиве. Если он печатается, то проблема скорее в чертеже. Как вариант, посмотрите в какой области координат у вас все чертежи, может, у вас все в отрицательных координатах, отсюда и глюк. Попробуйте подредактировать погрешности в центре диалога по оси X и Y: возможно что вы делаете впритык без зазора листы, поэтому не может определиться, где разделение..

Наталья
Комментарий отправлен 2016-11-30 в 08:52:40 · Ссылка

автокад выдает ошибку: Run-time error '6': Overflow; если в появившемся окне ошибки нажать Debug, то попадаешь на листинг программы, причем подсвечивается строка: x1=LimitsArray (T).p1(0).

colee
Комментарий отправлен 2016-11-30 в 23:13:00 · Ссылка

мб у вас чертежи находятся в координатах миллионов? попробуйте перенести ближе к центру координат

Наталья
Комментарий отправлен 2016-12-01 в 05:14:27 · Ссылка

не помогло. Через автоматическое выделение печатаются все листы, а при выборе через ручное выделение только один лист, если выбрать два или больше выдает опятьRun-time error '6': Overflow; и подсвечивается строка: x1=LimitsArray (T).p1(0).

colee
Комментарий отправлен 2016-12-02 в 19:29:00 · Ссылка

1. Попробуйте на файлах, что идут в архиве, при ручном выделении выпадает ошибка или нет

2. Перед появлением ошибки должно появится сообщение с информацией Кол-во рамок... печатать дальше.. Какое кол-во выдает это сообщение и сколько на самом деле вы выделяете?

Наталья
Комментарий отправлен 2016-12-05 в 01:21:03 · Ссылка

В файлах, что идут в архиве выдает туже ошибку. Сообщение выдает кол-во рамок 2 и выделила я 2, а если одну выделить , то печатает

colee
Комментарий отправлен 2016-12-06 в 22:35:49 · Ссылка

а автоматическая печать идет по всем рамкам без ошибок? в файле с примерами?

как бы движок автоматической и ручной печати один, поэтому если автоматическая печать дает все рамки, то и ручной правильно отрабатывает. Только в одном случае массив растягивается правильно, в другом почему-то нет.

Наталья
Комментарий отправлен 2016-12-08 в 01:12:19 · Ссылка

Автоматическая печатает все листы, а в ручной 1 лист

colee
Комментарий отправлен 2016-12-08 в 20:36:29 · Ссылка

скорее всего какие-то ограничения в автокаде вашем в настройках.. нужно конкретно на вашей машине потыкать подмигнуть

Александр
Комментарий отправлен 2017-02-16 в 04:26:52 · Ссылка

Программа супер! очень облегчает трудсыр

Есть парочка вопросов:

1.Будет реализована кнопка для вызова программы?

2.Будет ли реализована пакетная печать из пространства Листа?

Иван
Комментарий отправлен 2017-02-16 в 12:03:56 · Ссылка

На 2016 версии автокада не хочет запускаться, или не поддерживает это версия?

colee
Комментарий отправлен 2017-02-16 в 21:07:32 · Ссылка

>Будет реализована кнопка для вызова программы?

Это можно сделать повесив на кнопку или действие в настройках автокада, вроде все настраиваемо

> Будет ли реализована пакетная печать из пространства Листа?

Вроде если грамотно сделать лист, то печать всех листов в один пдф называется опубликование, встроенная функция, может, не все так гладко, но все же

> На 2016 версии автокада не хочет запускаться, или не поддерживает это версия?

Вроде должна запускаться, может, у вас без vba модуля?

Александр
Комментарий отправлен 2017-02-20 в 02:02:49 · Ссылка

> Вроде если грамотно сделать лист, то печать всех листов в один пдф называется опубликование, встроенная функция, может, не все так гладко, но все же

В пространстве листа оформлены видовые окна с модели. Настраивать порядка 50-100 отдельных листов очень муторно и не приносит должного результата.

colee
Комментарий отправлен 2017-02-20 в 02:09:11 · Ссылка

> Настраивать порядка 50-100 отдельных листов

ну так кто-то ж их добавил изначально)) нужно было и настраивать сразу))

Александр
Комментарий отправлен 2017-02-20 в 02:17:13 · Ссылка

>ну так кто-то ж их добавил изначально)) нужно было и настраивать сразу))

я эти видовые экраны и делаю). Если разносить их на разные листы - теряется полнота картины и поиск нужного листа с помощью ограниченной полоски не айс.

Glazkin
Комментарий отправлен 2017-03-06 в 10:34:24 · Ссылка

если рамка нижним левым углом находится в координатах 0,0, то выдает ошибку деления на ноль

colee
Комментарий отправлен 2017-03-08 в 16:40:24 · Ссылка

да, известная проблема) руки так и не дошли исправить)

Владимир
Комментарий отправлен 2017-03-10 в 03:40:47 · Ссылка

Присоединяюсь к Александру. С пространства листа макрос не печатает, а жаль, ведь у нас все работают так что в пространстве ОДНОГО листа размещены куча форматов с видовыми экранами

Владимир
Комментарий отправлен 2017-03-10 в 05:25:30 · Ссылка

Хотя уже разобрался как задать для одного листа разные параметры печати и потом пакетно выводить на печать). Не так удобно, как через макрос, но всё же)

colee
Комментарий отправлен 2017-03-13 в 09:46:47 · Ссылка

Я ж говорил, что там так можно))

KaDo
Комментарий отправлен 2017-04-19 в 13:06:04 · Ссылка

А проект все еще развивается? А то очень бы хотелось увидеть печать нестандартных форматов.

colee
Комментарий отправлен 2017-04-20 в 01:04:24 · Ссылка

нет, к сожалению неудачник

Ольга mudryakova.ru
Комментарий отправлен 2017-04-20 в 14:51:17 · Ссылка

А зачем использовать вообще виртуальные пдф принтеры с кривыми А3 горизонтальными, когда можно стандартным автокадомским со скоростью света использовать? Я так поняла главная проблема это то, что при отправки на печать через стандартный dwgtopdf он пытается под одним названием все сохранить. Есть возможность\идеи как менять имя в цикле каким-нибудь образом?

Ольга mudryakova.ru
Комментарий отправлен 2017-04-20 в 15:05:30 · Ссылка

А, все, проконсультировалась. Теперь понятно почему так не сделать неудачник

Владимир
Комментарий отправлен 2017-08-08 в 14:02:53 · Ссылка

Добрый день!

Подскажите, а как запустить из НАНОКАД 5.1? Беглый гугл по яндексу не подсказал =)

colee
Комментарий отправлен 2017-08-11 в 00:51:38 · Ссылка

Там, наверно, по аналогии с ZWcad капельку отличаются названия констант и объектов. Если есть время, то открываете макрос через редактор макросов, смотрите в хелпе какой-нибудь примитив в нанокаде, ищете что-то похожее в коде (всякие LWPOLYLINE и ему подобные) и по функции переименовать все меняете названия констант на нанокадовские

Владимир
Комментарий отправлен 2017-08-11 в 12:41:06 · Ссылка

Понял, спасибо за наводку - потихоньку поковыряю. На работе ничего кроме НАНОкада не светит, а без автоматизации процесса как-то все кисло получается.

Единственное, что потребуется еще конвертация, видимо - макрос в форме dvb нано-кад не понимает. Но vba модуль там есть

Павел
Комментарий отправлен 2017-08-28 в 06:51:33 · Ссылка

Давненько обновлений и доработок не было... А можно было бы еще доработать, например, что бы листы разворачивало автоматически (книжная-альбомная, когда в один файл pdf нужно распечатать. Очень ждем решений!

colee
Комментарий отправлен 2017-08-28 в 14:19:59 · Ссылка

Так сделано же автоматический разворот.

Ссылка на статью в начале страницы Autocad: автоматическая печать из модели с поддержкой 2 принтеров и автоматический выбор ориентации в PDF

Оставьте комментарий!

Используйте нормальные имена

Ваш E-mail не публикуется, используется для обратной связи и для выбора аватара с сайта gravatar.com

Публикуется вместе с комментарием

усмешка LOL сыр улыбка подмигнуть ухмылка глаза в сторону в тупике удивление большое удивление малинка пустое лицо сдвинутая бровь Оо гррр ох ох неудачник смущенный больной Тау хммм бешенный злой клевый поцелуй шок крутой недовольный

Запрещается оскорблять окружающих и использовать ненормативную лексику

Вы должны включить JavaScript, чтобы оставить сообщение