Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Пакетная печать множества рамок (форматов) из пространства модели.

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

Результаты опроса: Что Вы используете для печати из данного списка ?
Предпочитаю обводить рамки руками 50 35.97%
Использую другие методы (своя программа) 18 12.95%
Программа РЕВЕРС. 31 22.30%
Создание Layout, от bargool 11 7.91%
Автоматическое создание листов, от swell 3 2.16%
Lisp - Распечатка нескольких листов, от sasha_lif 9 6.47%
!Plot_U - Макрос автоматической печати 13 9.35%
Vport_pp - Создания видовых портов из модели, от Boxa 6 4.32%
Batch Publish - публикации чертежей, от JTB World 1 0.72%
Опрос с выбором нескольких вариантов ответа. Голосовавшие: 139. Вы ещё не голосовали в этом опросе

Ответ
Поиск в этой теме
Непрочитано 03.10.2013, 14:15 6 |
Пакетная печать множества рамок (форматов) из пространства модели.
maratovich
 
г. Самара
Регистрация: 12.07.2009
Сообщений: 2,481

В данной теме будут собраны ссылки и описание на lisp, vba или иные программы которые позволяют упростить и автоматизировать печать множества рамок (форматов) из пространства модели, а так же перевод данных рамок в пространство листа.
Также предлагается обсуждать данный вопрос и варианты решения.
Убедительная просьба - не писать, что данная методика не верна и правильно выводить на печать из листов при помощи подшивки, не все могут понять и освоить подшивку и многим нравится (приходится) создавать рамки в модели. Не засоряйте тему.
Ссылки будут добавляться по мере обсуждения.

Список возможных вариантов:

1. Программа РЕВЕРС - автоматический поиск и пакетная печать множества рамок оформленных в пространстве модели и листов, автоматическое создание листов из рамок модели и многое другое.Сайт программы

Версия 3.6

Единственная программа которая сделает всё что Вам надо с минимальным количеством действий

Программа РЕВЕРС позволяет выполнить:
- автоматический поиск и пакетная печать множества рамок оформленных в пространстве модели и листов;
- автоматическое создание листов из рамок модели;
- автоматическое сохранение рамок в отдельные файлы;
- автоматическое создание ведомости чертежей;
- автоматическая нумерация страниц;
- поиск и пакетная печать обычных рамок и рамок динамических блоков;
- поиск рамок СПДС и рамок находящихся во внешних ссылках;
- поиск рамок созданных отрезками;
- автоматическое создание форматов листов и основной надписи (СПДС и ЕСКД);
- удобное заполнение основной надписи (СПДС и ЕСКД);
- автоматическая пакетная печать чертежей больших форматов на малых принтерах.

Видео уроки:
Общие принципы работы программы РЕВЕРС

Пакетная печать чертежей оформленных в пространстве модели AutoCAD

Печать PDF файлов с уникальным именем из пространства модели AutoCAD

Пакетная печать PDF с авторазворотом на принтер DWG to PDF

Копирование рамок в отдельные файлы

Создание ведомости чертежей в программе AutoCAD

Создание основной надписи и размерной рамки AutoCAD

Поиск рамок созданных отрезками в AutoCAD

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

Поиск рамок СПДС и во внешних ссылках


2. Создание Layout для чертежей, оформленных в модели от bargool
Автоматическое создание листов по рамкам, указанным пользователем в модели. Автоматический выбор форматов бумаги и настройка листов.
Принцип работы:
Программа формирует предварительный список настроек листа, с форматами бумаги
Список формируется двумя способами
Из DWG to PDF.pc3
Выбираются все пользовательские форматы
В конец списка добавляются форматы, начинающиеся на "ISO A.."
Область печати выставляется "Лист"
Единицы измерения - миллиметры
Масштаб 1:1
Стиль печати - acad.ctb. Позже буду брать из файла конфигурации
Имя настройки берётся из имени формата бумаги. Если встречаются символы из ряда "\<>/?"":;*|,=`" - убираются
Из файла шаблона
Копируются пользовательские именованные настройки печати, доступные из диалога "Page setup"
Повторяю. Пользовательские настройки. Не листы, а именно настройки
Ещё раз. В листы не заглядываем ВООБЩЕ
Соответственно, имя настройки печати не должно начинаться с символа звёздочки "*"
- Запрашивает у пользователя "референтный размер".
Используется для определения масштаба рамки. По-умолчанию это 185 мм. - длина основной надписи
- Запрашивает у пользователя противоположные углы рамок
Слева-направо, сверху-вниз, или наоборот - не важно
Привязка принудительно выставляется "конточка"
- На основе масштаба и списка форматов определяет наиболее подходящий
При этом используется строго ориентация из "списка". Ориентацию с книжной на альбомную и обратно программа произвольно не меняет. Строго по "списку настроек"
- По выбранным форматам бумаги создаёт листы
В чертёж добавляет подходящие именованные настройки из "списка", настроенные на нужный формат бумаги
Присваивает созданным листам соответствующие именованные настройки
- Создаёт видовой экран, "смотрящий" на рамку, указанную пользователем

Процесс работы:
Для вызова программы введите в ком. строку lfm
Либо задайте номер первого создаваемого листа, либо используйте опции ком. строки
Укажите "референтный" размер
Указывайте рамки, кликая по противоположным углам рамок.
Опции ком. строки см. соответствующий раздел
По окончании жмите escape или используйте опцию P

3. Автоматическое создание листов для чертежей, оформленных в модели от swell{d} (на данный момент работает только в NanoCAD)
Необходимые условия для работы скрипта:
Рамки листов должны быть начерчены в масштабе 1:100.
Готовые рамки можно скачать по ссылке (80.43 kB; загрузок: 71)
Рамки для чертежей должны быть в блоке. Скрипт заточен под 4 вида листов:
А1 альбомный (блок "КЖ-А1")
А2 альбомный (блок "КЖ-А2")
А3 альбомный (блок "КЖ-А3")
А4 книжный (блок "КЖ-А4")
Должен быть установлен PDFCreator (тестировалось с версией 1.6.2)

Алгоритм действий скрипта:
Удаляем все существующие в чертеже листы
Ищем в модели все блоки рамок, сохраняем их идентификатор и положение
Сортируем листы по горизонтали, сортируем во вертикали
Создаём настроенные листы для всех рамок в пространстве модели
Видео-иллюстрация работы скрипта
Запустить на печать все листы разом можно через Файл - Пакетная печать…

4. Lisp - Распечатка нескольких листов одновременно от sasha_lif
Фишка моей проги, что руками НИЧЕГО не надо по одному выделять. Скопом секущей рамкой выбираете область чертежа в моделе. Автоматически находятся синие рамки- полилинии, лежащие на отдельном слое format (на этом слое кроме них, не должно быть ничего другого), и по ним распечатывается все чертежи.При этом чертежи могут быть произвольного масштаба! См. чертеж с образцом.
Если у вас , я так думаю, под блоками нет этой особого прямоугольника, то можно зайти в блок, создать эту полилинию по наружному краю блока на слое format, сохранить блок, и затем командой BURST взорвать эти блоки. Это делать на копии чертежа. После этого печатай командой ASD.
Обсуждение темы здесь: http://forum.dwg.ru/showthread.php?t=86922&page=3
Видео работы:
http://www.youtube.com/watch?v=4HWgD...ature=youtu.be

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

Макрос для печати позволяет быстро распечатать из модели Autocad листы формата A0,A1,A2,A3,A4. Для этого нужно
- обвести все чертежи полилинией (каждую форматку отдельно);
- поместить эти полилинию на определенный слой (по умолчанию "Formatka");
- запустить макрос настройки (поиск форматок, выбор принтеров, стилей и порядка печати и т.п.);
- запустить макрос автоматической печати.
Последнюю версию макроса можно взять тут - http://engineerbox.ru/plot_u

6. Vport_pp - Программа для облегчения создания видовых портов из модели. от Boxa

Программа написана на VB.Net под AutoCAD.
Представляет из себя библиотеку (dll) загружаемую в autocad командой: _Netload
Создаем Впорты из модели.
Масштаб впорта берется из названия размерного стиля
  • М100 или М100 - масштаб 1/100
  • М050 или М50 - масштаб 1/50
  • М025 или М25 - масштаб 1/25
  • М020 или М20 - масштаб 1/20
  • и т.д.
TODO Вот это необходимо корректировать. Программа должна сама, на основе примитивов попавших в прямоугольник впорта, выставить необходимый масштаб впорта. Т.о. программа должна проанализировать размеры, блоки и др. элементы и понять какой необходимо выставить масштаб.
Команды
  • BX_VPORT_PP
  • bx_datainput
Условия работы
Наличие доступа в интернет.
Описание и схема работы
Запускаем команду.
Автокад автоматически переключается на пространство модели
Если программа не смогла определить масштаб, то спросит его у пользователя.
Далее указываем диагональ прямоугольника который нужно вывести в лист
После указания всех точек автокад автоматически переключается на последний использованный лист
Указываем точку вывода впорта, указанная точка будет соответствовать геометрическому центру порта
Впорт автоматически создается на нужном слое («КЖ_Видовые окна») с нужными настройками
Скачать
Скачать программу можно тут:vport_pp.7z
Примечание
Видео
ссылка на youtube

7. Batch Publish - приложение для AutoCAD® упрощает процесс публикации чертежей в формате DWF и / или PDF.

Это приложение для AutoCAD® упрощает процесс публикации (зарисовки) наборы чертежей в формате DWF и / или PDF.
Этот плагин может быть использован с AutoCAD, чтобы упростить процесс публикации наборов чертежей в формате DWF и / или PDF. Она работает как команда в AutoCAD - в отличие от отдельного исполняемого - и использует отдельный исполняемый файл для мониторинга состояния здоровья AutoCAD и перезапустить его по мере необходимости. Статус операции периодического издательского хранится на диске, что позволяет подобрать откуда она была прервана, а также для любого удалось документы на повторное без, начиная с нуля. Настройка доступна только публиковать рисунки, которые были изменены, так как они были в прошлом опубликованы, что делает его легче публиковать наборы документов на регулярной основе.

8. PlotSPDS - Печать для СПДС CS от doctorraz

Возможности утилиты:
автоматическое распознавание форматов СПДС GraphiCS;
автоматическая ориентация форматов (портрет, альбом);
автоматическое масштабирование форматов (даже если в чертеже разные масштабы);
печать в многостраничный PDF (принтер AutoCAD DWG to PDF);
одинаково работает в пространстве модели или листа;
печать форматов селектом AutoCAD или выбранным слоям;
печать с предварительно настроенным или пользовательским стилем печати;
печать с прозрачностью;
печать на разные принтеры в зависимости от настроек.
Для работы скрипта необходим СПДС GraphiCS.
Описание и настройки: http://doctorraz.blogspot.ru/2015/08/PlotSPDS.html
Видео работы:
Печать только форматов СПДС GraphiCS

9. Lisp - Создание листов и видовых экранов на них от Andrey_13
Программа создаёт листы с видовыми экранами, совпадающими c рамками листов.
Вызов командой "_Addlay".
Указать слой с рамками чертежей (рамки выполнить в виде прямоугольников либо в виде блоков).
Обсуждение темы здесь: http://forum.dwg.ru/showthread.php?t=124456

10. Программа Склейка (Skleyka) - Автоматическая печать больших чертежей на нескольких малых листах.Сайт программы

Версия 5.0

Склейка (Skleyka) - дополнение к AutoCAD, nanoCAD, BricsCAD, ZWCAD+ позволяет выполнить:
• Автоматическая печать чертежи формата А1 на нескольких листах А4 или А3.
• Автоматически разделить чертежи на малые части, для последующей печати на бумагу, в PDF и другие форматы.

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

Видео уроки:
Быстрая печать больших чертежей на малых принтерах

11. Программный комплекс Bprint - позволяет быстро сохранить все чертежи в PDF или DWG отдельными файлами или "книгами"

1. Ссылка на сайт программы.
http://ries.pro/
(на сайте распространение программы не настроено)

2. Краткое описание
Программный комплекс Bprint позволяет быстро сохранить все чертежи в PDF или DWG отдельными файлами или "книгами" при этом присваивая конечным файлам имена из шифра каждого чертежа на транслите. Алгоритм программы выстроен под требования ООО "РН-УфаНИПИнефть". (Работает на версии Автокад 2013)


3. Расширенное описание.
Программу возможно запускать в нескольких одновременно запущенных Автокад, что ускоряет процесс сохранения в разы (актуально для нескольких сотен чертежей).

К программе прилагается макрос по нумерации чертежей:
1) Нумерация шифров чертежей для стадии "П" (нумеруется сам шифр каждого чертежа);
2) Нумерация листов чертежей для стадии "П" и "Р" (нумеруется ЛИСТ ЛИСТОВ на основании шифра);
3) Проверка на ошибки в шифрах (программа укажет на лист, где допущена ошибка в шифре);
4) Подготовка к пакетной печати (формирования транслита шифров чертежей и областей печати).
подробнее тут:
Информация о структуре динамического блока и работе макроса
* - Для некоторых функций есть требования к оформлению.

К макросу нумерации чертежей прилагается динамический блок рамки чертежа:
1) Первый, последующий и без штампа лист;
2) Стиль заполнения рамки под требования ООО "РН-УфаНИПИнефть";
3) Все стандартные книжные и альбомные форматы. Нестандартные (кратные) форматы от А4х3 до А0х3;
4) Настройка логотипа организации (содержание в одном блоке множества логотипов);
5) Основное преимущество динамического блока массовое изменения заполняемых данных штатными средствами Автокад;
6) Поля "дата" находится в отдельном слое, что позволяет при необходимости скрывать датую.
подробнее тут:
Информация о структуре динамического блока и работе макроса

Функционал Bprint:
1) Один лист чертежа сохраняется в один PDF/DWG файл;
2) Несколько листов чертежа сохраняются в одну PDF/DWG -книгу (возможность создавать множество книг и производить выбор книг);
3) Отправка на печать всех или выбранных чертежей (для кратных/нестандартных форматов требуется настройка МФУ);
4) Выбор масштаба листов чертежей;
5) Имена файлов PDF/DWG присваиваются из атрибута конкретного листа (изменяется в настройках);
6) Внесение и изменение размеров форматов в конфигурационном файле;
7) Настроенный стиль печати.
подробнее тут:
Подробное описание работы программы
* - Для некоторых функций есть требования к оформлению.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....

Последний раз редактировалось maratovich, 20.12.2016 в 17:37.
Просмотров: 264341
 
Непрочитано 18.01.2018, 20:05
#301
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 2,293
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от maratovich Посмотреть сообщение
Скорее всего это оговорка,
тоже надеюсь, имхо миссионинпасибл)))
__________________
Мастерская СПДС
doctorraz вне форума  
 
Непрочитано 19.01.2018, 16:25
#302
Scared


 
Регистрация: 06.10.2017
Сообщений: 45


Цитата:
Сообщение от maratovich Посмотреть сообщение
Скорее всего это оговорка, и имеется в виду поворот ВЭ в листе чтобы уместить в рамку чертежа.
Да, именно поворот ВЭ я имел в виду ) вроде по контексту все понятно
Думаю многим должно быть полезно, кто работает с наружными инженерными сетями
Scared вне форума  
 
Автор темы   Непрочитано 19.01.2018, 17:30
#303
maratovich


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,481
Отправить сообщение для maratovich с помощью Skype™


Только придётся в модели делать прямоугольник, 4 стороны, т.к. многоугольник не получится.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Непрочитано 07.03.2018, 07:58
#304
JKF


 
Регистрация: 29.11.2017
Сообщений: 16


Всем привет.
Написал плагин для печати в PDF из пространства модели. Всё прекрасно работает и было рапечатано множество чертежей, но попались некоторые чертежи в которых самый главный метод непосредственно печати почему-то не корректно работает.
Тип печати:
plotSettingsValidator.SetPlotWindowArea(plotSettings, window);
plotSettingsValidator.SetPlotType(plotSettings, Autodesk.AutoCAD.DatabaseServices.PlotType.Window);

window - это Extents2d. Координаты чертежа найдены верно это проверено.
Проблема в том, что печатается абсолютно другая область, хотя указано, что нужно печатать область с точными координатами.
Вот где чертёж, а печатается та область, где круг.

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

Менял её на область чертежа и сохранял, но из плагина печатается всё равно та область где окружность изображена.

Подскажите, какие параметры мог забыть указать?

Вот функция:
Код:
[Выделить все]
	private void PrintToPDF(Transaction t, BlockTableRecord btr, string format, string index, PrintFormat drawFormat) //index - the number of draw if several drawings in model space
	{
            Extents2d window = drawFormat.Coordinates;

            var backGroundPlot = Application.GetSystemVariable("BACKGROUNDPLOT");
            Application.SetSystemVariable("BACKGROUNDPLOT", 0);

	    PlotInfo plotInfo = new PlotInfo();
	    Layout layout = (Layout)t.GetObject(btr.LayoutId, OpenMode.ForRead);
	    LayoutManager layoutManager = LayoutManager.Current;
	    layoutManager.CurrentLayout = layout.LayoutName;
	    plotInfo.Layout = btr.LayoutId;
			
            PlotSettings plotSettings = new PlotSettings(layout.ModelType);
	    plotSettings.CopyFrom(layout);
	    plotSettings.PlotSettingsName = plotter;
            plotSettings.PlotPlotStyles = true;
            plotSettings.PrintLineweights = true;
            plotSettings.PlotTransparency = true;
            plotSettings.DrawViewportsFirst = true;
            plotSettings.ShadePlot = PlotSettingsShadePlotType.AsDisplayed;
            plotSettings.ShadePlotResLevel = ShadePlotResLevel.Normal;
            // plotSettings.ScaleLineweights = true;
            // plotSettings.AddToPlotSettingsDictionary(dataBase);
			
	    PlotSettingsValidator plotSettingsValidator = PlotSettingsValidator.Current;
            
            plotSettingsValidator.SetUseStandardScale(plotSettings, true);
            plotSettingsValidator.SetStdScaleType(plotSettings, StdScaleType.ScaleToFit);//.StdScale1To1);//.ScaleToFit);
	    plotSettingsValidator.SetPlotCentered(plotSettings, true);

            plotSettingsValidator.SetPlotPaperUnits(plotSettings, PlotPaperUnit.Millimeters);
            plotSettingsValidator.SetZoomToPaperOnUpdate(plotSettings, true);

            plotSettingsValidator.RefreshLists(plotSettings);

            plotSettingsValidator.SetPlotWindowArea(plotSettings, window);
            plotSettingsValidator.SetPlotType(plotSettings, Autodesk.AutoCAD.DatabaseServices.PlotType.Window);

            if (drawFormat.Orientation == Orientations.horizontal)
                if (layout.ModelType)
                    plotSettingsValidator.SetPlotRotation(plotSettings, PlotRotation.Degrees090);
                else
                    plotSettingsValidator.SetPlotRotation(plotSettings, PlotRotation.Degrees180);
            else
                 if (layout.ModelType)
                    plotSettingsValidator.SetPlotRotation(plotSettings, PlotRotation.Degrees180);            
                else
                    plotSettingsValidator.SetPlotRotation(plotSettings, PlotRotation.Degrees090);

            plotSettingsValidator.SetCurrentStyleSheet(plotSettings, plotstyle);
			
			string mediaformat = plotFormat;
            mediaformat = MediaFormats[drawFormat.FormatName];
			
			try
			{
				plotSettingsValidator.SetPlotConfigurationName(plotSettings, plotter, mediaformat); //"ISO_full_bleed_A1_(594.00_x_841.00_MM)");
			}
			catch(System.Exception ex)
			{
				Application.ShowAlertDialog("Ошибка при печати в ПДФ. Ошибка конфигурации принтера или формата: " + plotter + ", " + mediaformat);
			}
			plotInfo.OverrideSettings = plotSettings;
			PlotInfoValidator piv = new PlotInfoValidator();
			piv.MediaMatchingPolicy = MatchingPolicy.MatchEnabled;
			SetLog("Window area printing:\n		" + window.ToString());
			piv.Validate(plotInfo);

			if (PlotFactory.ProcessPlotState == ProcessPlotState.NotPlotting)
			{
				PlotEngine plotEngine = PlotFactory.CreatePublishEngine();
				using (plotEngine)
				{
					PlotProgressDialog ppd = new PlotProgressDialog(false, 1, true);
					using (ppd)
					{
						ppd.set_PlotMsgString(PlotMessageIndex.DialogTitle, "Custom Plot Progress");
						ppd.set_PlotMsgString(PlotMessageIndex.CancelJobButtonMessage, "Cancel Job");
						ppd.set_PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage, "Cancel Sheet");
						ppd.set_PlotMsgString(PlotMessageIndex.SheetSetProgressCaption,"Sheet Set Progress");
						ppd.set_PlotMsgString(PlotMessageIndex.SheetProgressCaption, "Sheet Progress");
						ppd.LowerPlotProgressRange = 0;
						ppd.UpperPlotProgressRange = 100;
						ppd.PlotProgressPos = 0;

						ppd.OnBeginPlot();
						ppd.IsVisible = true;
						plotEngine.BeginPlot(ppd, null);

                        string pdfOutputFolder = outputFilePath + "\\" + Path.GetFileNameWithoutExtension(document.Name);
                        if (!Directory.Exists(pdfOutputFolder))
                            Directory.CreateDirectory(pdfOutputFolder);
                        
                        plotEngine.BeginDocument(
                            plotInfo, document.Name, null, 1, true, (pdfOutputFolder + "\\" + 
                            Path.GetFileNameWithoutExtension(document.Name) + "_" + 
                            layout.LayoutName + " " + 
                            format + index).Trim() + ".pdf");
                        
                        ppd.OnBeginSheet();
						ppd.LowerSheetProgressRange = 0;
						ppd.UpperSheetProgressRange = 100;
						ppd.SheetProgressPos = 0;
						PlotPageInfo ppi = new PlotPageInfo();
						plotEngine.BeginPage(ppi, plotInfo, true, null);
						plotEngine.BeginGenerateGraphics(null);
						plotEngine.EndGenerateGraphics(null);

						plotEngine.EndPage(null);
						ppd.SheetProgressPos = 100;
						ppd.OnEndSheet();

						plotEngine.EndDocument(null);

						ppd.PlotProgressPos = 100;
						ppd.OnEndPlot();
						plotEngine.EndPlot(null);
					}
				}
			}
            Application.SetSystemVariable("BACKGROUNDPLOT", backGroundPlot);
        }
Миниатюры
Нажмите на изображение для увеличения
Название: 1.PNG
Просмотров: 635
Размер:	6.8 Кб
ID:	199946  Нажмите на изображение для увеличения
Название: 2.PNG
Просмотров: 637
Размер:	7.3 Кб
ID:	199947  

Последний раз редактировалось JKF, 07.03.2018 в 08:53.
JKF вне форума  
 
Непрочитано 07.03.2018, 08:18
#305
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 2,293
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от JKF Посмотреть сообщение
Подскажите, какие параметры мог забыть указать?

VBA:

RetVal = object.TranslateCoordinates(Point, FromCoordSystem, ToCoordSystem, Displacement, [OCSNormal])object
Type: Utility

The object this method applies to.

Point
Access: Input-only

Type: Variant (three-element array of doubles)

The 3D WCS coordinates specifying the original coordinates to be translated. This parameter can be treated as a point or a displacement vector depending on the value of Displacement.

FromCoordSystem
Access: Input-only

Type: AcCoordinateSystem enum

The coordinate system from which the point originates.

acWorld
acUCS
acOCS
acDisplayDCS
acPaperSpaceDCS
ToCoordSystem
Access: Input-only

Type: AcCoordinateSystem enum

The coordinate system to which the point will be converted.

acWorld
acUCS
acOCS
acDisplayDCS
acPaperSpaceDCS
Displacement
Access: Input-only

Type: Long

A displacement vector flag.

True: Point is treated as a displacement vector.
False: Point is treated as a point.
OCSNormal
Access: Input-only; optional

Type: Variant (three-element array of doubles)

The normal for the OCS.


__________________
Мастерская СПДС
doctorraz вне форума  
 
Непрочитано 12.03.2018, 08:34
#306
JKF


 
Регистрация: 29.11.2017
Сообщений: 16


Цитата:
Сообщение от doctorraz Посмотреть сообщение

VBA:

RetVal = object.TranslateCoordinates(Point, FromCoordSystem, ToCoordSystem, Displacement, [OCSNormal])object
Type: Utility

The object this method applies to.

Point
Access: Input-only

Type: Variant (three-element array of doubles)

The 3D WCS coordinates specifying the original coordinates to be translated. This parameter can be treated as a point or a displacement vector depending on the value of Displacement.

FromCoordSystem
Access: Input-only

Type: AcCoordinateSystem enum

The coordinate system from which the point originates.

acWorld
acUCS
acOCS
acDisplayDCS
acPaperSpaceDCS
ToCoordSystem
Access: Input-only

Type: AcCoordinateSystem enum

The coordinate system to which the point will be converted.

acWorld
acUCS
acOCS
acDisplayDCS
acPaperSpaceDCS
Displacement
Access: Input-only

Type: Long

A displacement vector flag.

True: Point is treated as a displacement vector.
False: Point is treated as a point.
OCSNormal
Access: Input-only; optional

Type: Variant (three-element array of doubles)

The normal for the OCS.


Дело в системе координат? Но она вроде такая же как и на нормальных чертежах.

Последний раз редактировалось JKF, 12.03.2018 в 08:40.
JKF вне форума  
 
Непрочитано 12.03.2018, 08:57
#307
ProjectMaster


 
Регистрация: 21.08.2017
Сообщений: 1,054


Цитата:
Сообщение от JKF Посмотреть сообщение
Дело в системе координат? Но она вроде такая же как и на нормальных чертежах.
Настройки именно этого файла повреждены. Проблема решается созданием нового файла и переноса данных туда. Все заработает.
ProjectMaster вне форума  
 
Непрочитано 12.03.2018, 08:58
1 | 1 #308
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 2,293
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от JKF Посмотреть сообщение
Дело в системе координат?
да

Цитата:
Сообщение от JKF Посмотреть сообщение
Но она вроде такая же как и на нормальных чертежах.
вот именно, что вроде..
в свое время разбирался, стоит покрутить видовым кубом, или установить именованный вид отличный от начального, координаты при автоматической печати сразу слетают

----- добавлено через ~26 мин. -----
тут разбирались три года назад
__________________
Мастерская СПДС
doctorraz вне форума  
 
Непрочитано 14.03.2018, 10:05
#309
JKF


 
Регистрация: 29.11.2017
Сообщений: 16


Цитата:
Сообщение от doctorraz Посмотреть сообщение
да


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

----- добавлено через ~26 мин. -----
тут разбирались три года назад
Спасибо, но ничего не получается.
Вот, например, чертёж печатался нормально, но стоило его покрутить в 3d и вернуть всё в исходный вид, после это уже выходят пустые листы. Т.е. возврат в исходный вид тут же вручную в чертеже не помогает.

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от ProjectMaster Посмотреть сообщение
Настройки именно этого файла повреждены. Проблема решается созданием нового файла и переноса данных туда. Все заработает.
Неужели покрутив видовым кубом настройки повреждаются? Мне бы без таких сложных манипуляций, т.к. куча чертежей печатается и таким образом исправлять не вариант.

Последний раз редактировалось JKF, 14.03.2018 в 10:14.
JKF вне форума  
 
Непрочитано 14.03.2018, 10:20
#310
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 2,293
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от JKF Посмотреть сообщение
но ничего не получается.
Код:
[Выделить все]
pnt1 = ThisDraw.Utility.TranslateCoordinates(pnt1, 0, 2, False)
pnt2 = ThisDraw.Utility.TranslateCoordinates(pnt2, 0, 2, False)
__________________
Мастерская СПДС
doctorraz вне форума  
 
Непрочитано 14.03.2018, 10:22
| 1 #311
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 978


Цитата:
Сообщение от JKF Посмотреть сообщение
Спасибо, но ничего не получается.
Устанавливаем Реверс, открываем корявый чертеж, в настройках Реверс нажимаем кнопку "Исправить Target" и будет вам счастье.
И вообще, без доп. действий - тупо печатаем через Реверс, он сам всё исправит автоматом.
baksconstructor вне форума  
 
Непрочитано 14.03.2018, 12:38
#312
Integer

Инженер-проектировщик, по совместительству Йожыг-Оборотень
 
Регистрация: 28.01.2006
Сербия-Белград
Сообщений: 904
<phrase 1=


Я делаю по старинке, для каждого листа в модели создаю отдельные свойства печати и посылаю все на пакетную печать.
__________________
Надежда - первый шаг на пути к разочарованию.
Безделье - суть ересь!
non errat, qui nihil facit
Integer вне форума  
 
Непрочитано 14.03.2018, 13:54
#313
JKF


 
Регистрация: 29.11.2017
Сообщений: 16


Цитата:
Сообщение от doctorraz Посмотреть сообщение
Код:
[Выделить все]
pnt1 = ThisDraw.Utility.TranslateCoordinates(pnt1, 0, 2, False)
pnt2 = ThisDraw.Utility.TranslateCoordinates(pnt2, 0, 2, False)
Это я так понимаю макрос на VB? Какие аналогичные действия этой операции, если вручную делать? Что здесь происходит с помощью этих команд? Я для С# нашёл готовый метод TranslateCoordinates(), но он не приводит к нужному результату.
JKF вне форума  
 
Непрочитано 14.03.2018, 19:04
#314
doctorraz

электрик
 
Регистрация: 19.02.2010
Волгоград
Сообщений: 2,293
Отправить сообщение для doctorraz с помощью Skype™


Цитата:
Сообщение от JKF Посмотреть сообщение
Это я так понимаю макрос на VB?
как я понимаю макрос, это запись действий юзера.
это не макрос, это вижэл бэйсик, полноценный язык программирования.
как сделать такое через интерфейс АК я не знаю
__________________
Мастерская СПДС
doctorraz вне форума  
 
Непрочитано 22.03.2018, 13:28
#315
JKF


 
Регистрация: 29.11.2017
Сообщений: 16


Цитата:
Сообщение от doctorraz Посмотреть сообщение
да


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

----- добавлено через ~26 мин. -----
тут разбирались три года назад
Спасибо! Получилсь с помощью ViewPort.
JKF вне форума  
 
Непрочитано 05.04.2018, 15:25
#316
MrBrown

ПенсионЭр
 
Регистрация: 26.06.2009
Сообщений: 359


Ни один вариант макроса от sasha_lif, не работает.
Сейчас стоит AutoCAD 2014 Rus
Раньше, на AutoCAD 2011 Rus работал на ура.
Можно ли поправить для AutoCAD 2014 Rus?
Спасибо.


p.s. ком. строка:
Команда:
Команда: ASD

Выделите чертежи, предназначенные для печати
Выберите объекты: Противоположный угол: найдено: 4

Выберите объекты:
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "L". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "W". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "L". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "W". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "L". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "W". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "L". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "W". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
; ошибка: неверный тип аргумента: lentityp nil

Последний раз редактировалось MrBrown, 05.04.2018 в 15:58.
MrBrown вне форума  
 
Непрочитано 06.04.2018, 11:35
#317
sasha_lif

Дизайнер-конструктор
 
Регистрация: 29.05.2004
Kiev
Сообщений: 1,187
<phrase 1=


а ПОПРОБУЙ такую модификацию лиспа. на 2016 rus проверял, работает.
Единственное, что там жестко прописан принтер PDF Creator Plus
если у тебя не такой принтер , то исправь строку
(command "_-plot" "_y" "model" "PDF Creator Plus" "" "_millimeters" ugol "_N" "_window" point1 point2 "_Fit" "_Center" "_Y" "monochrome.ctb" "_Y" "_A" "_N" "_Y" "_Y" )
на
(command "_-plot" "_y" "model" "" "" "_millimeters" ugol "_N" "_window" point1 point2 "_Fit" "_Center" "_Y" "monochrome.ctb" "_Y" "_A" "_N" "_Y" "_Y" )

Если не поможет, скинь свой файлик нерабочий с чертежом, я посмотрю
Вложения
Тип файла: lsp asd___2011_rus_only_pline_ (1).lsp (2.6 Кб, 19 просмотров)
__________________
Kiev, Ukraine
sasha_lif вне форума  
 
Непрочитано 06.04.2018, 13:02
#318
MrBrown

ПенсионЭр
 
Регистрация: 26.06.2009
Сообщений: 359


sasha_lif, увы, выдает вот такое:
Неизвестная команда "FIT". Для вызова справки нажмите F1.
Неизвестная команда "CENTER". Для вызова справки нажмите F1.
Неизвестная команда "Y". Для вызова справки нажмите F1.
Неизвестная команда "CTB". Для вызова справки нажмите F1.
Неизвестная команда "Y". Для вызова справки нажмите F1.
Неизвестная команда "A". Для вызова справки нажмите F1.
Неизвестная команда "N". Для вызова справки нажмите F1.
Неизвестная команда "Y". Для вызова справки нажмите F1.
Неизвестная команда "Y". Для вызова справки нажмите F1.
Неизвестная команда "ASD". Для вызова справки нажмите F1.
Неизвестная команда "MILLIMETERS". Для вызова справки нажмите F1.
Неизвестная команда "L". Для вызова справки нажмите F1.
Неизвестная команда "N". Для вызова справки нажмите F1.
Неизвестная команда "WINDOW". Для вызова справки нажмите F1.
Неизвестная команда "FIT". Для вызова справки нажмите F1.
Неизвестная команда "CENTER". Для вызова справки нажмите F1.
Неизвестная команда "Y". Для вызова справки нажмите F1.
; ошибка: Функция отменена
________________
Приложил файл
Вложения
Тип файла: dwg
DWG 2010
Проект.dwg (229.2 Кб, 11 просмотров)
MrBrown вне форума  
 
Непрочитано 06.04.2018, 13:27
#319
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 978


Цитата:
Сообщение от MrBrown Посмотреть сообщение
sasha_lif, увы, выдает вот такое:
Может быть из-за масштаба рамок, он 76,3176562500001, да и разный для разных рамок.
И ещё - рамки не по ГОСТ , у вас 420х300
Я прошу прощения, но не проще ли это сразу печатать, а не создавать листы ?
Ps. создал листы когда разгадал прикол с размером рамок.
Вложения
Тип файла: dwg
DWG 2010
Проект листы.dwg (256.8 Кб, 13 просмотров)
baksconstructor вне форума  
 
Непрочитано 06.04.2018, 15:09
#320
MrBrown

ПенсионЭр
 
Регистрация: 26.06.2009
Сообщений: 359


baksconstructor, благодарю за подсказку по поводу масштабов и размеров рамок.
Займусь этим.
Цитата:
не проще ли это сразу печатать, а не создавать листы
Я и печатаю - из модели. Только в файле не четыре листа, а, как правило, поболее 20-ти.

----- добавлено через ~4 мин. -----
baksconstructor, сделал и рамки ГОСТовские (пустые, без наполнения примитивами), и масштаб соответствующий.
Всё равно не работает.
MrBrown вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Пакетная печать множества рамок (форматов) из пространства модели.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Можно ли печатать массив чертежей из пространства модели softer AutoCAD 3 28.02.2011 13:57
Опять про печать из модели нескольких листов gizmo_zx Программирование 2 28.09.2010 12:33
Печать из пространства листа dimcoff AutoCAD 6 06.02.2009 22:53
Программное позиционирование пространства модели во ViewPort Danger_pgs Программирование 8 10.06.2008 20:42
Автоматическая печать из пространства модели Дмитрий_В AutoCAD 9 19.04.2006 16:52