[San-Miguel]

Приветствую.
В файле много листов. Иногда требуется печатать в пдф с тонкими линиями (работа на мониторе), то есть в листе в параметрах печати снимается галочка "Учитывать веса линий". Но иногда требуется печатать в пдф с номинальными линиями (для печати на бумаге), то есть уже следует включать в параметрах печати снимается галочка "Учитывать веса линий".
Как мгновенно для всех листов одной командой или иным способом включать/отключать функцию "Учитывать веса линий" для возможности пакетной печати всех листов с нужным режимом веса линий?

[Автон]

Код:

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

 (defun c:SetPlotWithLineweights ()
  (setq userInput (getint "\nВведите 1 для включения Учитывать веса линий, или 0 для отключения: "))
  (setq acadObj (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acadObj))
  (setq Layouts (vla-get-Layouts doc))
  (if (or (= userInput 1) (= userInput 0))
    (progn
      (vlax-for Layout Layouts
        (vla-put-PlotWithLineweights Layout (if (= userInput 0) :vlax-false :vlax-true))
        (setq newValue (vla-get-PlotWithLineweights Layout))
        (princ (strcat "\nДля листа " (vla-get-Name Layout) " установлено: " (if (= newValue :vlax-true) "True" "False")))
      )
    )
    (princ "\nНекорректный ввод. Пожалуйста, введите 1 или 0.")
  )
  (princ)
)

[name02]

Если печатать не в растре, а как векторе, то в просмоторщиках PDF можно включать и отключать толщины линий - это точно есть в Adobe Acrobat и PDF X-Change Editor
В Adobe Acrobat нужно сделать так:
1 Добавить в панель инструментов кнопку включения/отключения толщин линий


2 На панели инструментов появится новая кнопка - ее нажимаешь/отжимаешь когда нужно:

[VitalyAF]

Сообщение от San-Miguel Как мгновенно для всех листов одной командой или иным способом включать/отключать функцию "Учитывать веса линий" для возможности пакетной печати всех листов с нужным режимом веса линий?

Да запросто, правый клик на подшивке > переопределить шаблон печати.
Шаблон этот надо заранее создать с нужными настройками для разных форматок


PS
Кроме толщин, ещё м.б. шаблон в цветной/ч.б. печати...

[San-Miguel]

Сообщение от name02 Если печатать не в растре, а как векторе, то в просмоторщиках PDF можно включать и отключать толщины линий - это точно есть в Adobe Acrobat и PDF X-Change Editor В Adobe Acrobat нужно сделать так: 1 Добавить в панель инструментов кнопку включения/отключения толщин линий Вложение 265964 2 На панели инструментов появится новая кнопка - ее нажимаешь/отжимаешь когда нужно: Вложение 265965

Акробат не тянет мои пдф чертежи (зависает). Пользуюсь Foxit Reader, но в нем нет такой фукнции

----- добавлено через 36 сек. -----

Сообщение от Автон Код: [Выделить все] (defun c:SetPlotWithLineweights () (setq userInput (getint "\nВведите 1 для включения Учитывать веса линий, или 0 для отключения: ")) (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq Layouts (vla-get-Layouts doc)) (if (or (= userInput 1) (= userInput 0)) (progn (vlax-for Layout Layouts (vla-put-PlotWithLineweights Layout (if (= userInput 0) :vlax-false :vlax-true)) (setq newValue (vla-get-PlotWithLineweights Layout)) (princ (strcat "\nДля листа " (vla-get-Name Layout) " установлено: " (if (= newValue :vlax-true) "True" "False"))) ) ) (princ "\nНекорректный ввод. Пожалуйста, введите 1 или 0.") ) (princ) )

Что мне делать с этим кодом? Как его применить?

[Автон]

Сообщение от San-Miguel Что мне делать с этим кодом? Как его применить?

Как использовать LISP, опубликованный на форуме

[San-Miguel]

Сообщение от Автон Как использовать LISP, опубликованный на форуме

Получилось. Работает. Очень удобно теперь
Большое спасибо!

[name02]

Немного упростил для работы:

Код:

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

 (defun c:SetPlotWithLineweights (/ userInput acadObj doc Layouts)

  (initget "Да Нет _Yes _No")
  (setq userInput (getkword "\nВключить опцию \"Учитывать веса линий\" при печати? [Да / Нет] <Да>: "))

  (setq userInput
         (cond
           ((null userInput) :vlax-true)
           ((= userInput "_Yes") :vlax-true)
           ((= userInput "_No") :vlax-false)
         ) ;_ end cond
  ) ;_ end setq

  (setq acadObj (vlax-get-acad-object)
        doc     (vla-get-ActiveDocument acadObj)
        Layouts (vla-get-Layouts doc)
  ) ;_ end setq

    (vlax-for Layout Layouts
       (vla-put-PlotWithLineweights
         Layout
         userInput
       ) ;_ end vla-put-PlotWithLineweights

       (princ (strcat "\nДля листа \""
                      (vla-get-Name Layout)
                      "\" установлено: "
                      (if (= (vla-get-PlotWithLineweights Layout) :vlax-true)
                        "True"
                        "False"
                      ) ;_ end if
              ) ;_ end strcat
       ) ;_ end princ
      )
  (princ)
) ;_ end defun