[doctorraz]

Пытаюсь сделать пакетную печать средствами VBA из модели и возник вопрос:
Как из VBA получить доступ к "Прозрачности при печати" параметра листа?
т.е. при копировании параметров листа если установлена прозрачность, то в новом наборе она естественно стоит, а вот как программно установить-отменить прозрачность параметрам листа или настроек принтера?
можно конечно перед началом публикации:

Код:

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

ThisDrawing.SetVariable "PLOTTRANSPARENCYOVERRIDE", 2

по окончании опять вернуть в 1, но если форматов много и часть из них с прозрачностью, а печатать надо с и без прозрачности.
Может есть доступ к этому свойству из VBA поэлегантнее?

[maratovich]

1. Собственно зачем это ?
2. В соседней теме есть макрос для печати, посмотрите его, возможно там что то есть.
3. И как Вы определите какую рамку прозрачную, а какую нет ?
4. Я собственно не очень понял что Вы хотите, но возможно Вам нужно "object.PlotHidden"

[doctorraz]

Offtop: ну почему на один вопрос как программно управлять галочкой прозрачности в параметрах листа и настройках печати надо ответить на другие четыре вопроса?
Хотя если это поможет найти ответ, то почему бы и нет )))

Сообщение от maratovich 1. Собственно зачем это ?

затем, что мне нужна адекватная печать из модели на разные плоттеры, в зависимости от моих настроек, плюс мне необходим вывод форматов чертежа в многостраничный PDF, DWF стандартными средствами AutoCAD

Сообщение от maratovich 2. В соседней теме есть макрос для печати, посмотрите его, возможно там что то есть.

там есть много чего интересного, но задачу вывода на печать на разные плоттеры с разными настройками решает (частично ) только программа от bargool

Сообщение от maratovich 3. И как Вы определите какую рамку прозрачную, а какую нет ?

можно выбором, можно по слою и т.д.

Сообщение от maratovich 4. Я собственно не очень понял что Вы хотите, но возможно Вам нужно "object.PlotHidden"

мягко говоря это не совсем то, мне нужно при печати получить для некоторых параметров листа прозрачность->TRANSPARENCY, а PlotHidden->"скрыть для печати" (вольный перевод)
=========================
Перефразирую вопрос возможно ли программно (VBA) управлять "галочкой"-свойством прозрачного вывода на печать (при PLOTTRANSPARENCYOVERRIDE=1) в параметрах листа и настройках печати?
Если возможно то как?
Есть куча способов это обойти, но некрасиво как-то (колхозно получается)

[maratovich]

Сообщение от doctorraz но задачу вывода на печать на разные плоттеры с разными настройками решает

1. Решает полностью РЕВЕРС.
2. Надо было сразу принтскрин приложить. (ну не понятливые мы).
3. Ответ на Ваш вопрос находится здесь :
http://forums.autodesk.com/t5/progra...i/td-p/3473472

[doctorraz]

Сообщение от maratovich 1. Решает полностью РЕВЕРС.

стоит аж 150 рублей, но не в этом проблема, никто мне его на работе ставить не позволит (((

Сообщение от maratovich 2. Надо было сразу принтскрин приложить. (ну не понятливые мы).

виноват, в следующий раз будут картинки

Сообщение от maratovich 3. Ответ на Ваш вопрос находится здесь :

http://forums.autodesk.com/t5/progra...i/td-p/3473472[/quote]
спасибо! все понятно ответ НЕВОЗМОЖНО программно менять прозрачность, но варианты в обход:
можно решить через PLOTTRANSPARENCYOVERRIDE
или через копирование параметров листа (с включенной прозрачностью) хотя то же колхоз ((
и даже лисп не поможет, умирающему вебеа (((
====================
Достаточно бегло просмотрел Реверс:,
1. сходу не увидел возможности создавать DWG to PDF многостраничный (может плохо смотрел)
2. про DWF и DWFx он то же ничего не знает.
3. Форматы СПДС распознает, но автоматически масштаб печати в зависимости от масштаба формата не меняет (возможно не нашел галочку где поставить) PS fit to page не то же самое.
4. Про прозрачность реверс то же не в курсе ((
Offtop: Комбайн мощный, но хочу попроще и более узкоспециализированное. Буду пилить гирю дальше

[Boxa]

как на счет vba не знаю, но из .NET API есть доступ к свойству acPlSet.PlotTransparency
Если все равно гирю пилить, так может еще не поздно перейти на эту платформу?
тут подробнее: ссылка

[skkkk]

Сообщение от doctorraz все понятно ответ НЕВОЗМОЖНО программно менять прозрачность, но варианты в обход: можно решить через PLOTTRANSPARENCYOVERRIDE или через копирование параметров листа (с включенной прозрачностью) хотя то же колхоз (( и даже лисп не поможет, умирающему вебеа (((

Почему, невозможно? В последнем посте той темы предложено описание решения при помощи лиспа. Не проверял.

[doctorraz]

Сообщение от doctorraz стоит аж 150 рублей, но не в этом проблема, никто мне его на работе ставить не позволит ((( или через копирование параметров листа (с включенной прозрачностью) хотя то же колхоз (( [/offtop]

через копирование параметров листа с последующим SetWindowToPlot такая фигня получается (((
но во общем задачу решил. PLOTTRANSPARENCYOVERRIDE=2 и производительность ведь не главное, в 1 ставить конечно получше, но параметру листа прозрачность из VBA не поставить ((, поэтому в 2, потом возвращаем как было.
Всем спасибо

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

Сообщение от doctorraz но параметру листа прозрачность из VBA не поставить ((, поэтому в 2, потом возвращаем как было.

Там вроде сказано, что можно прозрачность поставить листу через расширенные данные: http://forums.autodesk.com/t5/visual...x/td-p/3615656

[doctorraz]

ох уж эта русификация автокада ))
Набор параметров листа (Page Setup)- PlotConfiguration
в VBA у него нет свойства прозрачность, возможно в Lisp есть аналог и там есть это свойство

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

Сообщение от doctorraz в VBA у него нет свойства прозрачность, возможно в Lisp есть аналог и там есть это свойство

Какое свойство? Расширенные данные!

[doctorraz]

Сообщение от Александр Ривилис Какое свойство? Расширенные данные!

в чертеже сделал два PlotConfiguration один с прозрачностью другой нет

Код:

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

Sub Example()
 
    Dim xtypeOut, xdataOut
    ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo

   Set PCs = ThisDrawing.PlotConfigurations 'два PlotConfiguration один с прозрачностью другой нет

    Set p0 = PCs.Item(0) 'этот прозрачный
    Set p1 = PCs.Item(1) 'этот нет


p0.GetXData "", xtypeOut, xdataOut 
p1.SetXData xtypeOut, xdataOut
ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo

p1.GetXData "", xtypeOut, xdataOut 'вижу, что xdataOut(0)="PLOTTRANSPARENCY" свойства пришли, но в настройках параметров листа ничего не изменилось и на печать естественно идет без прозрачности

End Sub

не получается, что-то я не то похоже делаю