[Unreal_2007]

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

Можно создать блок (прямоугольник типа кромки листа А4).
Все чертежи вставлять в такой блок.
При печати получать координаты углов блоков (x1,y1)(верхний)-(x2,y2)(нижний). и отправлять на печать, переходить к следующему блоку.
Пока предположим что печатать надо только А4.

Есть у кого-нибудь наработки, мысли....?

[gizmo_zx]

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

Там и есть код на VBA.

Описание:

Выполняю настройки принтера и прочие...
Запускаю прогу:
Команда: -vbarun
Имя макроса: StartPlot
Открывается форма печать.
Задаю слой рамок и количество копий.
(возможен вылет проги если принтер во время отправки перестает отвечать )
Жму "ОК"
(есть проблемы с сортировкой, так до конца и не добил)

Кнопка V_print для печати в PDF на DOPDF - принтере.
Есть блок "ramka" по нему генерируется имя для файла pdf и копируется в буфер обмена.
т.е. на запрос DOPDF - принтера, имя сохраняемого файла, жму Ctrl+V.

Атрибуты блока для генерации имени см. модуль Nodule_UserForml (Ln 367, Col 53)
"CHIFR" + "INDX"+"NUM"
! блок должен находиться внутри рамки.

[Do$]

Там и есть код на VBA.

Мда... Не учел, что dvb в обычном блокноте не посмотришь...
Но устанавливать VBA Enabler только для того, чтоб посмотреть что в файле - точно не стану

[Woka]

Перечитал все записи, но так ничего и не пошло! Может кто-то подскажет макрос рабочий на CAD 2011 для печати n-го количества открытых документом CAD! Просто нужно все время печатать порядка 30 отдельных схем, а вручную отправлять на печать не весьма удобно! Спасибо!

[hwd]

Сообщение от Woka Перечитал все записи, но так ничего и не пошло! Может кто-то подскажет макрос рабочий на CAD 2011 для печати n-го количества открытых документом CAD! Просто нужно все время печатать порядка 30 отдельных схем, а вручную отправлять на печать не весьма удобно! Спасибо!

SheetSet + Page Setup Override.

[Woka]

Сообщение от hwd SheetSet + Page Setup Override.

Спасибо, вроде нормально, только иногда один файл делает вертикально и горизонтально, но это уже проще, сортировку и удаление лишних файлов проще решить!

[Yura Agafonov]

Еще одно решение вашей задачи может быть такое:
1) Если все ваши листы оформлены в пространстве модели, то их следует расположить в виде массива с заданным расстоянием между столбцами и строками.
2) Принцип расположения - в одной строке все листы формата А1, в другой - А2, и т.д.
3) Далее на лиспе пишем функцию для печать указанного прямоугольника в файл или на устройство. Вот нашел мой пример авто печати, но в файл jpg, а не на принтер. Его легко переделать так как вам нужно.

Код:

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

 
(defun plot_to_file (x1 y1 x2 y2 format bxh put filename)
  (command "_.plot"
	   "_Yes"			;Выполнить детальное задание конфигурации? [Да/Нет] 
	   "model"			;Имя листа или [?] <Модель>:
	   format			;Имя устройства вывода или [?] <Нет>:
	   bxh				;Формат листа бумаги или [?] <Sun выс. разр. (1600.00 x 1280.00 пикселов)>:
	   "А"				;Ориентация чертежа [Книжная/Альбомная] <Альбомная>:
	   "Н"				;Перевернуть чертеж? [Да/Нет] <Нет>: 
	   "Р"				;Печатаемая область [Экран/Границы/Лимиты/Вид/Рамка] <Экран>:
	   (list x1 y1)			; Левый нижний угол рамки <0.000000,0.000000>:
           (list x2 y2)			; Правый верхний угол рамки <0.000000,0.000000>:
	   "В"				;Масштаб печати (пиксел чертежа=Единицы чертежа) или [Вписать] <Вписать>: 
	   "Ц"				;Смещение от начала (x,y) или [Центрировать] <11.55,-13.65>:
	    "_Yes"			;Учитывать стили печати? [Да/Нет] <Да>:
	   "Mult 01"			;Имя таблицы стилей печати или [?] (. если нет) <>:
	    "_Yes"			;Учитывать веса линий? [Да/Нет] <Да>: 
	   "О"	)			;Режим вывода тонированных ВЭ [Обычный/Каркас из предыдущих версий/Скрытие линий из предыдущих версий/Визуальные стили/с  вИзуализацией] <Как на экране>:
	   ;"Р"				;Выберите вариант [Каркас/Скрытие/Реалистичный/КОнцептуальный/Тонированный/тонированный с кроМками/Оттенки серого/Эскизный/Просвечивание/Другой] <Реалистичный>: 
	   (strcat put filename)	;Введите имя файла <Чертеж1-Model.jpg>:
	   "К"				;Сохранить изменения в параметрах листа, или задать качество вывода? [Да/Нет/Качество] <Н>:
	   "М"				;Задайте качество вывода [Черновое/Просмотр/Нормальное/пРезентационное/Максимум/пОльзовательское] <Нормальное>:
	   ""				;Сохранить изменения в параметрах листа? [Да/Нет] <Нет>:
	   ""				; Перейти к печати [Да/Нет] <Д>:
  )
)

(defun plot_to_file_options (x1 y1 x2 y2 filename)
  (plot_to_file
    x1				      y1
    x2				      y2
    "PublishToWeb PNG"
    "Sun выс. разр. (1600.00 x 1280.00 пикселов)"
    "E:\\work\\BD\\jpg\\"
    filename
   )
)

4) Ну а дальше - имея такую функцию и массив чертежей - дело техники.

[Andi55]

Если по-английски, то тут хорошее решение для печати массива одинаковых рамок.
http://www.cadforum.cz/cadforum_en/p...rawing-tip7585

[Woka]

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

Сообщение от hwd SheetSet + Page Setup Override.

, удобно, так как мне PDF тоже делать нужно! Ну и программка "РЕВЕРС" тоже очень помогла!