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

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

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

Добрый день!

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

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

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

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

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

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

Игорь,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Спасибо

Pavlo,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Автокад 2011

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

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

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

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

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

Выберите объект: ((-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

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

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

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

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

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

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

РАБОТАЕТ!!!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(defun S::STARTUP()

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

)

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

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

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

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

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

ссылка

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2 PTqp

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

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

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

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

1 нажать ctrl+p

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

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

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

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

6 нажать ОК

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

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

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

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

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

PrimoPDF

Bullzip PDF Printer

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

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

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

Здравствуйте. Подскажите, как посадить этот замечательный макрос на кнопку? Поставил его в автозагрузку. Теперь стало лень нажимать 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. Отдельное спасибо за возможность автовыбора рамок, очень облегчает процесс печати.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Здравствуйте,классная вещь, давно мечтал сделать такую, но некогда, сам редко печатаю с акада, а вот коллеги регулярно. работает супер, только у нас нет строго шаблона и поэтому рамки у всех в разных слоях. по этому заменил 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Всем салют !

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

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

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

ac90degrees,ac90degrees.

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

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

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

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

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

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

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

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

если надо, то появится

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

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

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

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

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

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

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

Добрый день,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Division by zero.

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

Спасибо!

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

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

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

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

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

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

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

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

Добрый день!

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

Добрый,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Куда копать?

> Подскажите, пожалуйста, где копать, что бы вторым принтером именно А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ой принтер для крупного формата)

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

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

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

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

Ищите строчку...и после нее вставьте

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Добрый день!

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

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

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

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

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

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

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

ОГРОМНОЕ СПАСИБО разработчикам данной программы!!! Она СУПЕР!!!

Есть возможность добавлять удлиненние формати типу 420х819, 420х1188 і т.д.

Добрый день. Испробовал все версии программы, не одна не работает, я думаю может это проблема у меня в прокладке между клавиатурой и стулом. Загружаю, устанавливаю галочки, нажимаю Select, находит количество рамок, нажимаю ОК, выходит ошибка Run-time error '11'. Может я что то не так делаю, или автокад 2015 не подходит? Помогите, пожалуйста. Печатать очень много в пдф, вручную

Привет. Большущий респект за макрос. 5 лет в пользовании. И только недавно прозрел, что можно делать автоповорот))

Пара небольших вопросов, если прочитаете:

1. Откуда считывается список масштабов на форме? Если в коде убираю лишние, то единица чертежа становится 768 и даже если вручную вбить, не вписывает в лист.

2. Как все таки застолбить значение единицы чертежа? Допустим если не выбирать масштаб из списка можно вбить 1 и все печатается отлично.

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

Сори, со 2м въехал - забыл, что можно присвоить текстбоксу сразу значение - TB_DENOMINATOR.Text = 1.

А вот с 1м вопросом интересно просто, почему выдает ошибку. Ради перфекционизма))

Привет. Большущий респект за макрос. 5 лет в пользовании. И только недавно прозрел, что можно делать автоповорот))

Небольшой вопрос, если прочитаете:

1. Как убрать лишние строки в списке масштабов на форме? Просто если в коде убираю лишние, то единица чертежа становится 768 и даже если вручную вбить, не вписывает в лист при печати.

Хоть и въехал потом как застолбить значение единицы чертежа, но интересно как убрать лишние масштабы.

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

Код плагина, а именно ВБА открыт (не запоролен), можно ли доработать плагин и предоставить в открытый доступ?

Здравствуйте! Подскажите, а есть ли возможность прикрутить этот U_Plot к nanoCAD?

В программах близких к Autocad очень близкие объекты VBA как у Autocad, только их помещают в свою область имен, типа Nano. Или как с Zwcad.. просто заменил через функцию в блокноте найти-замена на ZWcad. С нано может также прокатит

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