Программно осуществить перевод выбранной рамки-блока в pdf-файл

[Дамир]

Эксперты, доброго дня!
Win 8 x64, AutoCAD 2015, VBA Enabler
Мая задача: в пространстве модели есть несколько рамок в виде блоков. Необходимо выгружать, печатать, экспортировать выбранную рамку в pdf-файл. Пока речь идет об одной рамке. Команда должна выполняться по кнопке из пользовательской панели .mnu - это уже готово.
Знаю о возможности экспорта в pdf или печати с помощью DWG to PDF.pc3. Главным является публикация именно рамки с учетом ее размеров.

Прошу подсказать как лучше реализовать данную задачу? К примеру достаточно ли будет вызова команды:
Достаточно ли будет передать в командную строку команду типа

Код - Visual Basic [Выбрать]

1. str_cmd = "(command ""_plot"" ""Y"" ""Model"" """ & pname & """ """ & FA & """ ""M"" """ & AorK & """ " _
2.                 & " ""N"" ""Р""  """ & strPt1 & """ """ & strPt2 & """ " _
3.                 & " ""В"" ""Ц"" ""Д"" """ & CTB & """ ""Д"" ""О"" ""Н"")" & " "

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


Заранее премного благодарен

[Александр Ривилис]

1) Печать осуществляется из VBA внутри AutoCAD или из внешнего приложения, которое использует ActiveX/COM модель AutoCAD?
2) Рамка в модели или в листе?
3) Почему не попытаться обойтись без команд? Есть же в объектной модели возможность прямой печати в файл.
Например: http://www.cadtutor.net/forum/showthread.php?54518-Using-VBA-to-export-a-Pdf-File-from-AutoCAD
Только нужно указать что печатать рамку и задать углы рамки.

[Дамир]

Александр, благодарю за скорый ответ.

1. Предполагаю, что в последствии буду обращаться к COM-объекту AutoCAD из внешнего приложения. Пока текущую задачу хочу реализовать внутри AutoCAD'a в DVB приложении;
2. Рамка в модели;
3. Благодарю за идею по сути это мне и было нужно. Буду экспериментировать. Прошу подсказать ссылку на материал или пункт в API, где подробно описаны необходимые методы, начиная с "ThisDrawing.PlotConfigurations", по сути конфигурацию процесса прямой печати в файл?

Еще раз благодарю за скорые и точные ответы

[Александр Ривилис]

Как печатать из VBA описано здесь: http://help.autodesk.com/cloudhelp/2015/ENU/AutoCAD-ActiveX/files/GUID-FD585AB3-A5E2-4E2B-8713-B87FD0F59C17.htm и дальше по ссылкам.

[Александр Ривилис]

Забыл уточнить. Координаты рамки следует преобразовать из МСК (WCS) в ДСК (DCS):

Код - Visual Basic [Выбрать]

1. ' Преобразование угловых точек окна из WCS в DCS:
2. p1 = ThisDrawing.Utility.TranslateCoordinates(p1, acWorld, acDisplayDCS, False)
3. p2 = ThisDrawing.Utility.TranslateCoordinates(p2, acWorld, acDisplayDCS, False)

[Дамир]

Александр, благодарю. Буду разбираться. По результатам доложу

[Дамир]

Вернулся к данной теме. Сейчас получилось кодом вывести одну pdf соответствующую одной выбранной рамке в модели. Новый вопрос: а как сформировать собранный pdf-файл из нескольких рамок модели? К примеру выделены несколько рамок. Заранее премного благодарен!

Код - Visual Basic [Выбрать]

1. Sub Fer()
2.     Dim block As AcadBlockReference
3.     Dim pt As Variant
4.     Dim PlotConfig As AcadPlotConfiguration
5.     Dim PtObj As AcadPlot
6.     Dim BackPlot As Variant
7.     Dim point1 As Variant, point2 As Variant
8.     Dim config As AcadPlotConfiguration
9.    
10.     point1 = ThisDrawing.Utility.GetPoint(, "Л-Н")
11.     ReDim Preserve point1(0 To 1)
12.     point2 = ThisDrawing.Utility.GetPoint(, "П-В")
13.     ReDim Preserve point2(0 To 1)
14.    
15.     Set PtObj = ThisDrawing.Plot
16.    
17.     Set Plotlayout = ThisDrawing.ModelSpace.Layout
18.     With Plotlayout
19.         .ConfigName = "DWG To PDF.pc3"
20.         .SetCustomScale 1, 1
21.         ThisDrawing.Regen acActiveViewport
22.         .CanonicalMediaName = "ISO_A0_(841.00_x_1189.00_MM)"
23.         .CenterPlot = True
24.         .StyleSheet = "Acad.ctb"
25.         .SetWindowToPlot point1, point2
26.         .PlotType = acWindow
27.         .PlotRotation = ac0degrees
28.     End With
29.     PtObj.PlotToFile Replace(ThisDrawing.FullName, "dwg", "pdf")
30. End Sub

[Александр Ривилис]

Новый вопрос: а как сформировать собранный pdf-файл из нескольких рамок модели?

В смысле каждая рамка - отдельная страница в pdf-файле или несколько рамок на одной странице?

[Дамир]

в модели 3 рамки, в итоге получаем один файл pdf состоящий из 3-ех страниц, соответствующих рамкам модели (1 страница = первая рамка, 2 страница - вторая рамка и т.д.)

[Александр Ривилис]

Я могу ошибаться, но мне кажется так сделать средствами AutoCAD API нельзя. Я бы посоветовал бы какую-нибудь стороннюю программу, которая бы объединяла бы кучу pdf-файлов в один. Насколько я знаю есть такие бесплатные.

[Дамир]

Александр, благодарю. Есть 2 платные библиотеки. Поищу бесплатные программы с API. Отпишу по результатам.

[Александр Ривилис]

Поищу бесплатные программы с API

Вроде PDFCreator это делает:

PDFCreator comes with a COM interface that allows you to control it from your application or script. You can wait for a print job, define where it will be saved, merge it with other print jobs and much more. As far as we know, we are the only PDF converter freeware that allows you to go this far.

[Дамир]

Да, с него и начал. Пока не наше нужного метода (задал вопрос на форуме), но еще поищу.

[Дамир]

Хочу уточнить: знаю, что вручную AutoCAD позволяет собирать единую pdf из листов. Что, если рамки находятся в листах. Получится ли программно вывести единую pdf. Возможно вызовом команды в командной строке или еще как-то?

[Алексей Кулик]

Возможно, _.-publish?