|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
28.02.2011, 09:50 | #1 | |
Программа печати из пространства модели
конструктор+программист
у подружки ;)
Регистрация: 06.06.2009
Сообщений: 6
|
||
Просмотров: 3768
|
|
||||
конструктор+программист Регистрация: 06.06.2009
у подружки ;)
Сообщений: 6
|
pc := ThisDrawing.PlotConfigurations().Add("Gonfig-Poffig", CtlT.Bool(TRUE)); (* новая ностройка печати *) pc.PUTConfigName("pdfFactory Pro"); pc.PUTCanonicalMediaName("A4"); pc.PUTPlotRotation(ac.ac90degrees); pc.SetWindowToPlot(CtlT.RealArr(MinPoint), CtlT.RealArr(MaxPoint)); (* определить рамку для печати *) pc.PUTPlotType(ac.acWindow); (* устанвить тип для печати *) pc.PUTCenterPlot(TRUE); (* центрировать *) Теперь как этот конфиг отправить на печать?!!!! ****************************************************** Если не понятно, то вот исходник на VBA: Sub Example_PlotConfig() Dim MinPoint As Variant, MaxPoint As Variant ' Get first point in window MinPoint = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.") ReDim Preserve MinPoint(0 To 1) ' Change this to a 2D array by removing the Z position ' Get second point in window MaxPoint = ThisDrawing.Utility.GetPoint(, "Click the upper-right of the window to plot.") ReDim Preserve MaxPoint(0 To 1) ' Change this to a 2D array by removing the Z position ' новая ностройка печати Set pc = ThisDrawing.PlotConfigurations.Add("Gonfig-Poffig", True) pc.ConfigName = "pdfFactory Pro" pc.CanonicalMediaName = "A4" pc.PlotRotation = ac90degrees ' определить рамку для печати pc.SetWindowToPlot MinPoint, MaxPoint ' устанвить тип для печати pc.PlotType = acWindow ' центрировать pc.CenterPlot = True ' Теперь как этот конфиг отправить на печать?!!!! End Sub Последний раз редактировалось Лелик83, 28.02.2011 в 12:21. |
|||
|
||||
Регистрация: 16.11.2010
Сообщений: 89
|
Я вот тоже задумался над подобным вопросом, уважаемые и всезнающие гуру программисты, ответьте мне на 1 вопрос.
Я бы очень хотел автоматизировать процесс конвертации чертежей в PDF, ввиду моей специфики у меня чертежи довольно часто выходят не стандартные размеры и настроить принтер заранее на нужный формат не реально, поэтому каждый раз при конвертации приходиться сначала измерять чертеж, потом лезть в настройки принтера, настраивать его высоту/ширину и только потом конвертировать в PDF, а когда это нужно сделать для 30-40 шт это мягко говоря утомляет =) Собственно в идеале это просто выделить рамкой чертеж и получить его 1:1 копию в PDF. Может быть у кто-нибудь делал уже что-то подобное ? |
|||
|
||||
Регистрация: 08.09.2010
Москва
Сообщений: 28
|
я, к стати, загнал твой код VBA и у меня тоже не печатает хотя в лиспе у меня есть похожая программка - там все нормально...
ковырялся долго... но так и не удалось запустить... что, могу посоветовать: - проверь, точно ли у тебя есть ConfigName = "pdfFactory Pro" (может к этому конфигу PlotToFile нужен?); - попробовать задать все параметры для PlotConfiguration; - перед запуском PlotToDevice обязательно нужен Regen (так в справке написано) |
|||
|
||||
Регистрация: 16.11.2010
Сообщений: 89
|
Цитата:
Я так понял что через _.-plot можно выбрать нужный плотер, выделить нужную область и выбрать формат из имеющихся в файле pc3 для данного плотера, в общем отправить на печать проблем нет, НО программно создать pc3 файл с нужными настройками листа не возможно ? Я все правильно понял ? |
|||
|
||||
Pontelimon можешь попробовать вот это.
В двух словах про pdf. название листа берется из штампа-рамки (блока) загоняется в буфер обмена. В диалоге пдф принтера название файла вставляю из буфера обмена. принтер do_pdf Последний раз редактировалось gizmo_zx, 09.03.2011 в 11:35. |
||||
|
||||
Регистрация: 16.11.2010
Сообщений: 89
|
Цитата:
Но что-то у меня не вышло это все запустить, Вы бы не могли поподробней описать сам процесс ? В частности сами рамки у меня в виде полилиний, а штамп сделан на основе таблицы, то мне нужно их сделать блоками и переместить в слой format ? и как назвать блоки ? имеет ли значение ? и т.д. и т.п. =) извините что столько вопросов, но уж очень мне хочется этот процесс конвертации максимально упростить. Спасибо. |
|||
|
||||
ну если не лезть в программу.
format = твой слой рамки блоки ="ramka" и "ramkam" (можно поправить в VBA коде они явно заданы) не работало в 2011 починил. Вообще программа старая, с этого сайта автора не помню, брал 3 года назад. Добавил пример форматок |
||||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вес линии и стиль печати | Barbi | AutoCAD | 22 | 26.04.2012 17:56 |
Autodesk Revit | Sett | Revit | 37 | 10.09.2009 11:41 |
Проблема с толщинами линий при печати из пространства листа. | NESTER_AN | AutoCAD | 10 | 12.02.2009 11:31 |
Смещение текста при печати из пространства модели | postbudka | AutoCAD | 5 | 05.01.2009 23:28 |
Облегчение печати из пространства листа!?! | Иван | AutoCAD | 2 | 05.11.2004 10:49 |