[Jonas]

Системная переменная LAYLOCKFADECTL затемняет слой при его блкировке но это только эффект визуализации.
Уважаемые програмисты, можно ли сделать инструмент для затемнения слоя чтобы затемнение присуствовало как при работе так и при печати?
Довольно часто нужно печатать документацию где полезно (а порой и неоходимо) что то затемнять. Приходиться назначать какие то цвета и печатать на черно-белом принтере или еще что то, в общем муторно и долго.

[VVA]

Такая идея была еще до появления LAYLOCKFADECTL и реализовывалась в этой теме: Управление видимостью слоев

[Jonas]

Сообщение от VVA Такая идея была еще до появления LAYLOCKFADECTL и реализовывалась в этой теме: Управление видимостью слоев

Да, позже вспомнил а сейчас (в понедельник) еще раз просмотрел тему. Вопросы остались. Например:
- работа выполнена в цвете а документация печатается в черно-белом варианте и здесь варианты,
печать на черно-белом принтере и печать на цветном, да еще печать в фаил формата PDF.
Если печатать на черно-белом принтере не применяя стили печати то светлые цвета (желтый,синий и пр.) будут бледными а если применить стиль "монохром" то все будет черным и т.д.
Применение стилей печати оправданно если контора работает по какому то ее стандарту. А как быть когда получаем чертежи в электронном виде от партнеров (или посылаем им) где свои стандарты, свои стили печати, свои плоттеры и принтеры и т.д.

В конечном счете если печать выполняется в цвете то затемнение не имеет смысла. Хочется чтобы при печати в стиле "монохром" выбранные слои или объекты печатались в сером цвете.

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

А таблицу стилей печати редактировать не пробовал?

[VVA]

Jonas, К совету Алексея могу добавить только лисп
Правь цвета как вздумается перед печатью
*ADD* Дальнейшее развитие тема получила здесь (требуется регистрация): Lisp colour change for all layers and blocks

ColorX - change color all object of drawing. All layer unlock and thaw ColorXREF - change color xref only on a current session. All layer unlock and thaw ColorXL - change color all object of drawing. Objects on the locked and frozen layers are ignored ColorXREFL change color xref only on a current session. Objects on the locked and frozen layers are ignored

Код:

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

(defun mip:layer-status-restore ()
    (foreach item *MIP_LAYER_LST*
      (if (not (vlax-erased-p (car item)))
        (vl-catch-all-apply
          '(lambda ()
             (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
             (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
             ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of if
      ) ;_ end of foreach
    (setq *MIP_LAYER_LST* nil)
    ) ;_ end of defun

  (defun mip:layer-status-save ()
    (setq *MIP_LAYER_LST* nil)
    (vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
      (setq *MIP_LAYER_LST* (cons (list item
                                  (cons "freeze" (vla-get-freeze item))
                                  (cons "lock" (vla-get-lock item))
                                  ) ;_ end of cons
                            *MIP_LAYER_LST*
                            ) ;_ end of cons
            ) ;_ end of setq
      (vla-put-lock item :vlax-false)
      (if (= (vla-get-freeze item) :vlax-true)
      (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false))))
      ) ;_ end of vlax-for
    ) ;_ end of defun
(defun ChangeAllObjectsColor (Doc Color / tempObjType ColCnt RowCnt)
(vlax-for Blk (vla-get-Blocks Doc)
 (if (= (vla-get-IsXref Blk) :vlax-false)
  (vlax-for Obj Blk
    (if (vlax-property-available-p Obj 'Color)
      (vla-put-Color Obj Color)
     )
  )
 )
)
)
(defun C:COLORX ( / doc col)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (mip:layer-status-save)
  (if (setq col (acad_colordlg 7 t))
  (ChangeAllObjectsColor doc  col);_ col — color nubber
    )
  (mip:layer-status-restore)
  (vla-endundomark doc)
  (princ)
  )

PS. Наконец нашел где публиковал раньше: http://www.caduser.ru/forum/index.ph...#message243351

[maksimys]

почет и уважение нашим програмистам.
Я для этого пользуюсь печатью через 08 кад - там слои заблокированные
идут при печати тусклые.
- мне удобно т.к. обычно это сьемка и не нужно чтобы она в глаза бросалась. А лисп сейчас попробую.

[Jonas]

[quote=maksimys;315909]почет и уважение нашим програмистам.
Я для этого пользуюсь печатью через 08 кад - там слои заблокированные
идут при печати тусклые.
QUOTE]

Вообще то я прежде чем писать проверил - заблокированный слой при печати (стиь "монохром") печатается ка все, жирно. Акад 2008.

[Jonas]

VVA
COLORX
Переводит всё в один цвет, и что?

[maksimys]

[quote=Jonas;315911]

Сообщение от maksimys почет и уважение нашим програмистам. Я для этого пользуюсь печатью через 08 кад - там слои заблокированные идут при печати тусклые. QUOTE] Вообще то я прежде чем писать проверил - заблокированный слой при печати (стиь "монохром") печатается ка все, жирно. Акад 2008.

ИЗвини сразу не заметил про монохром.
А стиль печати Grayscale - чем тебе не угодил?

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

Да вообще-то пофигу какую таблицу править. Либо менять цвет, либо установить Screening этак в 50-70%, и будет счастие и благолепие )
---
Добавлено: имеется в виду менять цвет для вывода на печать определеного цвета чертежа / стиля печати. Аналогичное проворачивать для Screening.

[Jonas]

"Grayscale" и "Screening", применяются для всего чертежа.
Изначально вопрос стоял иначе - ослабить яркость некоторых слоев или выбранных объектов и чтобы это сохранялось при печати.

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

Тупо, поскольку мало времени:
1. Перевести файл в стилезависимую печать.
2. В таблице печати создать "приглушенный" стиль, установив соответственно Screening / Garyscale.
3. Выбрать объекты (или слои) и назначить им "приглушенный" стиль..
4. Вывести на печать.
---
Вообще-то без образца, который надо обрабатывать, дать удовлетворительно решение достаточно сложно.

[Andi55]

Альтернативно тупо, ибо время есть, но лень:
1. Перевести файл в цветозависимую печать.
2. Выделить все "бледные" обьекты - поставить цвет "по слою"
3. Выделить все слои с "бледными" обьектами - поставить цвет этим слоям - 8 или 9 (типа серенькие такие)
4. Создать таблицу печати "Моно-0,1-0,25", где назначить
= 8 и 9 цветам - цвет "пера" - черный, а толщину пера 0,1мм
= остальным "нужным" цветам - цвет "пера" - черный, а толщину пера 0,25мм
5. Создать таблицу печати "Колор-0,1-0,25", где назначить
= 8 и 9 цветам - цвет "пера" - черный, а толщину пера 0,1мм
= остальным "нужным" цветам - цвет "пера" - по обьекту, а толщину пера 0,25мм

Что имеем?

На экране:
8 и 9 цвета - серенькие или совсем серенькие, остальные цвета - цветные, чертеж с насыщенной подложкой вполне читаем.

На бумаге и в ПДФе моно печать - 8 и 9 цвета - тонко черенькие (волосяные), остальные цвета - черные толстенькие, чертеж с насыщенной подложкой вполне читаем.

На бумаге и в ПДФе колор печать - 8 и 9 цвета - тонко черенькие (волосяные), остальные цвета - цветные толстенькие, чертеж с насыщенной подложкой вполне читаем.

[Jonas]

Сообщение от Andi55 Альтернативно тупо, ибо время есть, но лень: 1. Перевести файл в цветозависимую печать. 2. Выделить все "бледные" обьекты - поставить цвет "по слою" 3. Выделить все слои с "бледными" обьектами - поставить цвет этим слоям - 8 или 9 (типа серенькие такие) 4. Создать таблицу печати "Моно-0,1-0,25", где назначить = 8 и 9 цветам - цвет "пера" - черный, а толщину пера 0,1мм = остальным "нужным" цветам - цвет "пера" - черный, а толщину пера 0,25мм 5. Создать таблицу печати "Колор-0,1-0,25", где назначить = 8 и 9 цветам - цвет "пера" - черный, а толщину пера 0,1мм = остальным "нужным" цветам - цвет "пера" - по обьекту, а толщину пера 0,25мм Что имеем? На экране: 8 и 9 цвета - серенькие или совсем серенькие, остальные цвета - цветные, чертеж с насыщенной подложкой вполне читаем. На бумаге и в ПДФе моно печать - 8 и 9 цвета - тонко черенькие (волосяные), остальные цвета - черные толстенькие, чертеж с насыщенной подложкой вполне читаем. На бумаге и в ПДФе колор печать - 8 и 9 цвета - тонко черенькие (волосяные), остальные цвета - цветные толстенькие, чертеж с насыщенной подложкой вполне читаем.

Без обид, даже читать долго.
Получается работал, работал а как печатать переделывай чертеж (цвета) а после печати все назад. А где ж прогрес? Где большая кнопка? Лень победить можно только плеткой но это уже рабство.

[Andi55]

Хм. Делается 1 раз в жизни и затем месяцами работаешь, ничего не меняя и не заморачиваясь на ЭТУ проблему.
"Лучше день потратить, зато потом за 5 минут долететь"

По поводу большой красной кнопки. У сметчиков уже есть такая, http://www.spsp-2.narod.ru/
Может, кто и для чертежей такую замутит?

[Jonas]

Сообщение от Andi55 Хм. Делается 1 раз в жизни и затем месяцами работаешь, ничего не меняя и не заморачиваясь на ЭТУ проблему. "Лучше день потратить, зато потом за 5 минут долететь" По поводу большой красной кнопки. У сметчиков уже есть такая, http://www.spsp-2.narod.ru/ Может, кто и для чертежей такую замутит?

1. Перевести файл в цветозависимую печать.
2. Выделить все "бледные" обьекты - поставить цвет "по слою"
3. Выделить все слои с "бледными" обьектами - поставить цвет этим слоям - 8 или 9 (типа серенькие такие)

Как все это делать один раз в жизни?

[Jonas]

Можно применить код #5 если бы не затрагивались заблокированные или отключенные слои и объекты