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

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

Программа печати из пространства модели

Ответ
Поиск в этой теме
Непрочитано 28.02.2011, 09:50 #1
Программа печати из пространства модели
Лелик83
 
конструктор+программист
 
у подружки ;)
Регистрация: 06.06.2009
Сообщений: 6

Как программно вывести на печать выделенный область пространства модели?
Написал программу, создает AcadPlotConfiguration со всеми требуемыми настройками, теперь не могу печатать этот конфиг!
Просмотров: 3768
 
Непрочитано 28.02.2011, 10:13
#2
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


А у подружки спросить?
Profan вне форума  
 
Автор темы   Непрочитано 28.02.2011, 10:45
#3
Лелик83

конструктор+программист
 
Регистрация: 06.06.2009
у подружки ;)
Сообщений: 6


Цитата:
Сообщение от Profan Посмотреть сообщение
А у подружки спросить?
спроси кого угодно, мне нужна реальная помощь
Лелик83 вне форума  
 
Непрочитано 28.02.2011, 10:49
#4
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Нам этот конфиг пофиг.
Про программу нечего написать, что ли?
Profan вне форума  
 
Автор темы   Непрочитано 28.02.2011, 10:57
#5
Лелик83

конструктор+программист
 
Регистрация: 06.06.2009
у подружки ;)
Сообщений: 6


Цитата:
Сообщение от Profan Посмотреть сообщение
Про программу нечего написать, что ли?

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.
Лелик83 вне форума  
 
Непрочитано 28.02.2011, 17:06
#6
AlexSheep


 
Регистрация: 08.09.2010
Москва
Сообщений: 28


по моему так для VBA:
ThisDrawing.Plot.PlotToDevice "Gonfig-Poffig"
AlexSheep вне форума  
 
Автор темы   Непрочитано 01.03.2011, 13:02
#7
Лелик83

конструктор+программист
 
Регистрация: 06.06.2009
у подружки ;)
Сообщений: 6


Пробовал ThisDrawing.Plot.PlotToDevice не помогло
Лелик83 вне форума  
 
Непрочитано 01.03.2011, 17:39
#8
Pontelimon


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


Я вот тоже задумался над подобным вопросом, уважаемые и всезнающие гуру программисты, ответьте мне на 1 вопрос.
Я бы очень хотел автоматизировать процесс конвертации чертежей в PDF, ввиду моей специфики у меня чертежи довольно часто выходят не стандартные размеры и настроить принтер заранее на нужный формат не реально, поэтому каждый раз при конвертации приходиться сначала измерять чертеж, потом лезть в настройки принтера, настраивать его высоту/ширину и только потом конвертировать в PDF, а когда это нужно сделать для 30-40 шт это мягко говоря утомляет =)
Собственно в идеале это просто выделить рамкой чертеж и получить его 1:1 копию в PDF.
Может быть у кто-нибудь делал уже что-то подобное ?
Pontelimon вне форума  
 
Непрочитано 01.03.2011, 18:00
#9
Vildar

AutoCAD
 
Регистрация: 26.07.2007
Москва
Сообщений: 1,064


Не хорошо конечно, но скажу, что СПДС GraphiCS например это может делать. Но только вместо выделения рамкой - объект Формат.
Vildar вне форума  
 
Непрочитано 02.03.2011, 12:22
#10
AlexSheep


 
Регистрация: 08.09.2010
Москва
Сообщений: 28


Цитата:
Сообщение от Лелик83 Посмотреть сообщение
Пробовал ThisDrawing.Plot.PlotToDevice не помогло
я, к стати, загнал твой код VBA и у меня тоже не печатает хотя в лиспе у меня есть похожая программка - там все нормально...
ковырялся долго... но так и не удалось запустить...
что, могу посоветовать:
- проверь, точно ли у тебя есть ConfigName = "pdfFactory Pro" (может к этому конфигу PlotToFile нужен?);
- попробовать задать все параметры для PlotConfiguration;
- перед запуском PlotToDevice обязательно нужен Regen (так в справке написано)
AlexSheep вне форума  
 
Непрочитано 03.03.2011, 11:46
#11
Pontelimon


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


Цитата:
Сообщение от Vildar Посмотреть сообщение
Не хорошо конечно, но скажу, что СПДС GraphiCS например это может делать. Но только вместо выделения рамкой - объект Формат.
К сожалению, а может и к счастью, у нас на работе используют только лицензионный софт, а только ради того чтобы нам было удобней печатать в pdf никто покупать этот пакет не будет =(

Я так понял что через _.-plot можно выбрать нужный плотер, выделить нужную область и выбрать формат из имеющихся в файле pc3 для данного плотера, в общем отправить на печать проблем нет, НО программно создать pc3 файл с нужными настройками листа не возможно ? Я все правильно понял ?
Pontelimon вне форума  
 
Непрочитано 09.03.2011, 11:00
1 | #12
gizmo_zx

Проектировщик ЭО,ЭМ, ЭОС
 
Регистрация: 18.07.2007
Нижний Новгород
Сообщений: 256
<phrase 1= Отправить сообщение для gizmo_zx с помощью Skype™


Pontelimon можешь попробовать вот это.
В двух словах про pdf. название листа берется из штампа-рамки (блока) загоняется в буфер обмена. В диалоге пдф принтера название файла вставляю из буфера обмена. принтер do_pdf
Вложения
Тип файла: zip Plot.zip (37.9 Кб, 62 просмотров)

Последний раз редактировалось gizmo_zx, 09.03.2011 в 11:35.
gizmo_zx вне форума  
 
Непрочитано 09.03.2011, 13:27
#13
Pontelimon


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


Цитата:
Сообщение от gizmo_zx Посмотреть сообщение
Pontelimon можешь попробовать вот это.
В двух словах про pdf. название листа берется из штампа-рамки (блока) загоняется в буфер обмена. В диалоге пдф принтера название файла вставляю из буфера обмена. принтер do_pdf
Большое спасибо, идею Вашей программки я понял, вроде бы это то, что мне нужно !
Но что-то у меня не вышло это все запустить, Вы бы не могли поподробней описать сам процесс ?
В частности сами рамки у меня в виде полилиний, а штамп сделан на основе таблицы, то мне нужно их сделать блоками и переместить в слой format ? и как назвать блоки ? имеет ли значение ? и т.д. и т.п. =) извините что столько вопросов, но уж очень мне хочется этот процесс конвертации максимально упростить. Спасибо.
Pontelimon вне форума  
 
Непрочитано 09.03.2011, 15:08
#14
gizmo_zx

Проектировщик ЭО,ЭМ, ЭОС
 
Регистрация: 18.07.2007
Нижний Новгород
Сообщений: 256
<phrase 1= Отправить сообщение для gizmo_zx с помощью Skype™


ну если не лезть в программу.
format = твой слой рамки
блоки ="ramka" и "ramkam" (можно поправить в VBA коде они явно заданы)
не работало в 2011 починил. Вообще программа старая, с этого сайта автора не помню, брал 3 года назад.
Добавил пример форматок
Вложения
Тип файла: zip Plot.zip (80.5 Кб, 61 просмотров)
gizmo_zx вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Программа печати из пространства модели

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вес линии и стиль печати 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