[PoltavaPGS]

При печати листа в монохроме объекты из вьюпорта не при нимают этот стиль оставаясь цветными.
При печати этих объектов из пространства модели они принимают стиль монохром. Не могу понять в чем причина и как с этим боротся. Использую 2019 автокад.

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

Даже не открывая чертеж, вангую: эти объекты имеются RGB-цвет (либо сами, либо слои, на которых они лежат).

[name02]

Сообщение от Кулик Алексей aka kpblc Даже не открывая чертеж, вангую

Не сыграла ставочка-с...

У тебя в файле в видовых экранах стоит визуальный стиль "Реалистичный". Если установить "2D каркас" все станет как нужно печататься

[PoltavaPGS]

Благодарю помогло. Но нет ли способа сделать это для массово во всех открытых файлах ну или хотя бы в текущем чтоб не менять несколько тысяч ручками

[name02]

Попробуй такой лисп. Он устанавливает для всех ВЭ документа визуальный стиль "2D-каркас":

Код:

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

 (defun c:test (/ ss adoc i vport)
  ;;Устанавливает визуальный стиль "2D-каркас" ("2D-wireframe") для всех видовых экранов документа
  (vl-load-com)

  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))

  (cond
    ((setq ss (ssget "_X"
                     '((0 . "VIEWPORT")
                       (-4 . "<NOT")
                       (69 . 1)
                       (-4 . "NOT>")
                       )
                     ) ;_ end ssget
           ) ;_ end setq

     (vla-put-mspace adoc :vlax-true)

     (repeat
       (setq i (sslength ss))
        (setq vport (ssname ss (setq i (1- i))))
        (vla-put-activepviewport adoc (vlax-ename->vla-object vport))
        (command "_vscurrent" "_2")
        ) ;_ end repeat

     (vla-put-mspace adoc :vlax-false)

     )
    ) ;_ end cond

  (princ)
  ) ;_ end defun

TEST.lsp

[PoltavaPGS]

Благодарю