[Pashkevich]

Добрый день, наверняка кто-то сталкивался с подобной задачей и уже знает пути решения. Мне нужно настроить параметры печати для примерно сотни листов, нарисованных в модели. Я пока предполагаю делать это при помощи скрипта (.scr). Создать при помощи скрипта требуемое количество листов - очень просто, а вот задать для каждого из них параметры печати (выбрать принтер, формат, ориентацию листа, стиль печати и т.п.) у меня пока не получилось - я не нашел команду автокада, параметры которой задавали бы требуемые свойства. Листов много и в основном они различаются только форматом, реже - ориентацией и еще реже стилем печати. В прошлый раз я настраивал все вручную - убил пол дня.
Помогите, подскажите какая команда запускает конфигурацию печати и какие у нее параметры.
Автокад 2016й, русский.

[maratovich]

Ознакомьтесь с данной темой, может и найдёте искомое - Пакетная печать множества рамок (форматов) из пространства модели.

[Pashkevich]

Ознакомьтесь с данной темой

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

[maratovich]

У вас в Модель одна рамка или насколько ?

[Pashkevich]

Сообщение от maratovich У вас в Модель одна рамка или насколько ?

Сто листов примерно, все с рамками, но могу эти рамки в пространство листа перенести, это не принципиально.

[maratovich]

Сообщение от Pashkevich Сто листов примерно, все с рамками

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

[Pashkevich]

С помещением листов в видовые экраны и их автоматизированной расстановкой в листах - я пока разбираюсь и надеюсь осилить самостоятельно, там вроде наметилось некоторое понимание. Затык именно в том, чтобы настроить параметры печати в листах. Готовые решения (по крайней мере те, которые уже успел попробовать) пока не устраивают, но если не получится пройти тем путём, который наметил - подберу наиболее удобное из них....

[maratovich]

Приложите пример вашего файла с несколькими рамками.

[Сергей812]

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

Сообщение от Pashkevich но могу эти рамки в пространство листа перенести, это не принципиально.

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

[doctorraz]

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

там сотня форматов в модели.. и подозреваю в произвольных местах... наборы параметров мало помогут.. человек хочет велосипед скриптом сделать, чтобы он ему форматы вьюшками по листам раскидал и параметры печати назначил
вот еще этих велосипедов
http://forum.dwg.ru/showthread.php?t=83750
http://forum.dwg.ru/showthread.php?t=104517
ну мало ли.. мож не увидел ТС

[Pashkevich]

Сообщение от maratovich Приложите пример вашего файла с несколькими рамками.

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

----- добавлено через ~15 мин. -----

Сообщение от doctorraz там сотня форматов в модели.. и подозреваю в произвольных местах... наборы параметров мало помогут.. человек хочет велосипед скриптом сделать, чтобы он ему форматы вьюшками по листам раскидал и параметры печати назначил вот еще этих велосипедов http://forum.dwg.ru/showthread.php?t=83750 http://forum.dwg.ru/showthread.php?t=104517 ну мало ли.. мож не увидел ТС

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

По ссылкам, которые вы дали - сейчас изучаю варианты. Внешние программы (типа Реверса) для пакетной печати - сразу в топку. Во-первых, админы не дадут добро на их установку, во вторых, нет программы - нет печати, а мне на выходе нужен нормальный автокадовский файл, подготовленный для пакетной печати, чтобы любой другой сотрудник компании, знакомый с автокадом - мог без проблем его распечатать.
Лисп - хорошо, но я его не понимаю и если меня что-то не будет устраивать, я не смогу самостоятельно его поправить. Скрипт же (например для создания 100 листов) я генерирую в экселе за 10 секунд, еще пару секунд он тратит на создание пронумерованного массива листов. Одна беда - параметры печати для всех листов сброшены в дефолт (возможно есть вариант по дефолту хотя бы принтер и стили печати выставить для новых листов? меня бы такой очень даже устроил...) и их приходится через диспетчер параметров копировать (может есть другой способ? Подскажите, кто знает).
Пользоваться чужими наработками - не зазорно и даже удобно, но я хочу сам разобраться и (по возможности) сделать то, что на 100% подходит мне, а не привыкать к тому, что удобно кому-то другому.

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

[baksconstructor]

Сообщение от Pashkevich что рамки сделаны в СПДС причем в персональной базе, кастомизированной под нашу компанию.

Или решение от doctorraz или Реверс.

Сообщение от Pashkevich Внешние программы (типа Реверса) для пакетной печати - сразу в топку. Во-первых, админы не дадут добро на их установку

Грош цена таким админам, они вам Автокад ставить тоже запрещают ? Автокад внешняя прога для винды и следит за всеми процессами и отсылает всё что вы рисуете себе на сервак.
Берёте офицально на контору, поставят как миленькие.

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

Просто так не получится.

Сообщение от Pashkevich Скрипт же (например для создания 100 листов) я генерирую в экселе за 10 секунд

Реверс обработал все 70 за 19 сек, осталось печатать.

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

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

[doctorraz]

Сообщение от baksconstructor скриптом это не получится.

мне показалось возможно, что ТС скриптом называет VBA, иначе, как он его из эксель запускает?

[Сергей812]

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

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

Сообщение от baksconstructor Чтобы это сделать нужно получать данные из Автокада и обрабатывать, а скриптом это не получится. Если хотите сами делать - изучайте языки программирования, желательно начать с С++.

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

----- добавлено через ~2 мин. -----

Сообщение от doctorraz мне показалось возможно, что ТС скриптом называет VBA, иначе, как он его из эксель запускает?

он не запускает, он формирует строки файла *.scr в нем..

[doctorraz]

еще раз обращаю внимание на. http://forum.dwg.ru/showthread.php?t=83750
автор открыл исходники... программа делает именно, то что нужно тсу.. создает листы с настроенными параметрами печати

Сообщение от Pashkevich чтобы любой другой сотрудник компании, знакомый с автокадом - мог без проблем его распечатать.

установки не требует

----- добавлено через ~1 мин. -----

Сообщение от Сергей812 он формирует строки файла *.scr в нем..

хм.. месье знает толк...

[Pashkevich]

Сообщение от baksconstructor Или решение от doctorraz или Реверс. Реверс обработал все 70 за 19 сек, осталось печатать.

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

Сообщение от baksconstructor Чтобы это сделать нужно получать данные из Автокада и обрабатывать, а скриптом это не получится. Если хотите сами делать - изучайте языки программирования, желательно начать с С++.

Да, я понимаю, что этот вариант - наиболее применим к ситуации, но надеюсь на лучшее...

[Сергей812]

Сообщение от doctorraz хм.. месье знает толк...

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

[Pashkevich]

Сообщение от doctorraz еще раз обращаю внимание на. http://forum.dwg.ru/showthread.php?t=83750 автор открыл исходники... программа делает именно, то что нужно тсу.. создает листы с настроенными параметрами печати установки не требует

Попробую разобраться.

Сообщение от doctorraz хм.. месье знает толк...

Что есть, то есть

[Сергей812]

Сообщение от Pashkevich Да, я понимаю, что этот вариант - наиболее применим к ситуации, но надеюсь на лучшее...

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

[doctorraz]

Сообщение от Pashkevich но надеюсь на лучшее...

Сообщение от Сергей812 подшивки

-----
чисто командными методами не достучаться до настроек печати.. если только не извращаться подгрузкой файлов переопределения... то это неточно...
коль есть эксель, там есть vba, если АК не LT, я б в эту сторону смотрел.. ставить ниче не надо, ...

[Сергей812]

Сообщение от doctorraz коль есть эксель, там есть vba, если АК не LT, я б в эту сторону смотрел.. ставить ниче не надо, ...

разве через COM можно достучаться до API подшивок акада? Разве что напрямую кодировать/декодировать - но это не документированное решение...

[Pashkevich]

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

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

[doctorraz]

Сообщение от Сергей812 разве через COM можно достучаться до API подшивок акада?

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

[baksconstructor]

Сообщение от Сергей812 разве через COM можно достучаться до API подшивок акада?

я конечно не особо в этом понимаю, но судя по этому скрину - наверное можно.

Кстати... скорее всего вот это и нужно автору - автоматом всем документам и листам назначить параметры печати

[Pashkevich]

Сообщение от doctorraz ----- коль есть эксель, там есть vba, если АК не LT, я б в эту сторону смотрел.. ставить ниче не надо, ...

Возможно, так и буду делать. Просто VBA не знаю пока (хотя и задумывался неоднократно об изучении), ACAD не LT, полноценный, так что с этим проблем не должно быть.

----- добавлено через ~2 мин. -----

Сообщение от baksconstructor Кстати... скорее всего вот это и нужно автору - автоматом всем документам и листам назначить параметры печати

Именно!

[doctorraz]

Сообщение от Pashkevich Именно!

воть.http://forum.dwg.ru/showthread.php?t=130332

[Сергей812]

Сообщение от baksconstructor я конечно не особо в этом понимаю, но судя по этому скрину - наверное можно.

это напрямую декодирует.. а из экселя мне не удалось достучаться никак в свое время, хотя из сборки .Net - как два пальца...

[Pashkevich]

Сообщение от doctorraz воть.http://forum.dwg.ru/showthread.php?t=130332

О, похоже это как раз то, что нужно. Буду разбираться, спасибо.
Да, без знания ВБА я это не смогу применить. Придётся учить...

[doctorraz]

Сообщение от Pashkevich Придётся учить

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

[Сергей812]

Сообщение от doctorraz зачем стучаться подшивки?

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

[Pashkevich]

Сообщение от doctorraz всерьез думаешь, что за столько лет первому пришла мысль сделать печать через *.scr? но ни одного решения нет... с чего бы это? ----------- что то учить придется по любому.

Я всерьез думал, что это кому-то удалось, а я просто не умею искать

[Сергей812]

Сообщение от Pashkevich Если удастся - глядишь и программистов подключат, которые все до ума доведут.

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

[doctorraz]

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

Сообщение от Сергей812 разве через COM можно достучаться до API подшивок акада?

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

----- добавлено через ~3 мин. -----
вот еще по теме http://www.cad.dp.ua/stats/multpageDWF.php ... практически готовое решение
пусть DWF не пугает, не суть важно куда печатать, сама идея

[Сергей812]

Сообщение от doctorraz каким образом стучаться в подшивку в LT снаружи? Есть способы?

читайте внимательнее:

Сообщение от Сергей812 Да и подправить вручную отдельные листы можно тоже хоть на урезанном LT

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

[doctorraz]

Сообщение от Сергей812 читайте внимательнее:

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

----- добавлено через 48 сек. -----

Сообщение от Сергей812 И в полный акад не достучишься, не все интерфейсы вытащили в объектную COM-модель.

на эти грабельки уже наступил... с прозрачностью (((

[Pashkevich]

Сообщение от doctorraz да понял я мысль.. написать программу которая будет создавать подшивки, чтобы пользователи могли печатать хоть из LT, не работая в подшивках.

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

[Сергей812]

Сообщение от Pashkevich У меня проблема как раз в том, чтобы создать кучу листов

ну так сделайте один раз шаблон с настроенными форматами по ГОСТ 2.301-68, потом только подменять при необходимости настройки параметров листов под текущие печатающие устройства (где то на форуме даже лисп был для этого, насколько помню) - т.е. развязываете компоновку листа и вывод на печать.

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

[baksconstructor]

Сообщение от Pashkevich У меня проблема как раз в том, чтобы создать кучу листов, а не с тем, чтобы их распечатать.

Совсем забыл, вот ещё вариант - АвтоВьюпорт - Автоматическое создание листов и видовых экранов.
Но с вашей политикой , готовое решение может не проканать

[Сергей812]

1. Создав в файле шаблоны листов, сможете вставлять нужный из них простейшей строчкой кода (в пути к файлу не забудьте заэкранировать слеш \\ вместо одного \):

Код:

[Выделить все]

 (VL-CMDF "_.LAYOUT" "_T" "%Полное имя файла шаблона.dwt%" "%Имя шаблона листа из этого файла%")

И получаете уже готовый лист, настроенный на самую нужную печать. Останется только переименовать вкладку листа.
2. В несколько кликов добавляете лист в подшивку - и он получает автоматом из подшивки шифр проекта, название и т.д. (если сделаете основную надпись в шаблонах с полями соответствующими).
3. Размещаете видовые экраны (на форуме были бесплатные программки для облегчения этого) - и получаете готовый лист.

и все этого без просьб купить и поставить чего то)

[Pashkevich]

Сообщение от Сергей812 1. Создав в файле шаблоны листов, сможете вставлять нужный из них простейшей строчкой кода (в пути к файлу не забудьте заэкранировать слеш \\ вместо одного \): Код: [Выделить все] (VL-CMDF "_.LAYOUT" "_T" "%Полное имя файла шаблона.dwt%" "%Имя шаблона листа из этого файла%") И получаете уже готовый лист, настроенный на самую нужную печать. Останется только переименовать вкладку листа.

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

2. В несколько кликов добавляете лист в подшивку - и он получает автоматом из подшивки шифр проекта, название и т.д. (если сделаете основную надпись в шаблонах с полями соответствующими).

Это у нас решено при помощи собственной СПДС базы и альтернативные решения хотя и не запрещены, но не приветствуются.

3. Размещаете видовые экраны (на форуме были бесплатные программки для облегчения этого) - и получаете готовый лист.

Ну с этим все боль-менее понятно, да.

[Сергей812]

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

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

Код:

[Выделить все]

' Создание листа из шаблона. Аргументы:
' aNameFile - имя файла шаблона (с двойными слэшами!)
' aNameSheet - имя листа шаблона
Public Sub CreateLayout2(ByVal aNameFile As String, _
  ByVal aNameSheet As String)
  ' Получаем объект акада
  Dim lAcadObj As AcadApplication
  Set lAcadObj = GetObject(, "AutoCAD.Application")
  ' Получаем активный документ
  Dim lDocObj As AcadDocument
  Set lDocObj = lAcadObj.ActiveDocument
  ' Посылаем ему команду
  Dim lCmdStr As String
  lCmdStr = "(VL-CMDF " & Chr(34) & "_.LAYOUT" & Chr(34) & " " & Chr(34) & _
    "_T" & Chr(34) & " " & Chr(34) & aNameFile & Chr(34) & " " & Chr(34) & _
      aNameSheet & Chr(34) & ") "
  lDocObj.PostCommand lCmdStr
  ' Освобождаем переменные
  Set lDocObj = Nothing
  Set lAcadObj = Nothing
End Sub

Правда не знаю, как это с СПДС сочетается - уже много лет им не пользуюсь...