[Piton]

Такой вопрос нужно изменить отображение цвета линии отображаемое на экране, т.е. цвет 250 - отображался на экране красным, а при печати 250
P.S. надо это для того чтоб можно было работать на черном фоне (все работают в сером), в конторе где я работая печатают по цвету и это изменить я не могу

[AY]

Изменить цвет только на экране вряд ли удастся. Впрочем, можно попробовать подойти с другой стороны. Например пишем два лиспа: первый - при выполнении меняет все линии с цветом 250 на некоторый требуемый, а второй - производит обратное действие. Кроме того для второго цвета устанавливаем настройки печати как для 250, чтобы избежать необходимости менять цвета при печати.

[Piton]

настройки печати менять категорически нельзя(неписанное правило)
А лисп - это при открытии файла выставляется один цвет, а при сохранении возвращается?

[AY]

А лисп - это при открытии файла выставляется один цвет, а при сохранении возвращается?

Можно и так, но сделать две кнопки в меню для принудительной смены цветов - попроще будет. То есть для начала можно кнопками: попробовать как пойдет, потестировать, а потом думать о сохранении и открытии. На какой цвет-то менять надо?

[Piton]

Цвет 40
(но проблема я думаю возникнет, если кто то возьмет мой файл в мое отсутствие и отправит на печать?)

[AY]

но проблема я думаю возникнет, если кто то возьмет мой файл в мое отсутствие и отправит на печать?

Ну ты же перед закрытием файла будешь жать кнопку замены цветов .

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

[Piton]

Цвет по слою - менять цвет слоя
по второму вопросу я согласен с твоим предположением

[Apelsinov]

Piton
Я написал большой сюда ответ, по поводу лиспа, и как можно, и какие плохие бяки могут быть. Подумал. Все стер. И вот что в итоге:
легче Вам переучиться работать на сером фоне.

[Piton]

2 Apelsinov ага и записаться на прием к окулисту

[Apelsinov]

Piton
Оптом для всех сотрудников - выйдет со скидкой

[Pilot]

и записаться на прием к окулисту

2 Apelsinov & Piton
Коллеги, вы провоцируете бурное обсуждение, наподобие "Кто на каком фоне чертит" с autocad.ru. Так там, помнится, дело чуть до драки не дошло

[Sopro]

Сообщение от Piton 2 Apelsinov ага и записаться на прием к окулисту

Так следует понимать: цветные векторы на черном фоне - более благоприятны для глаз, чем на сером или белом? Не врач, не знаю, но где то читал и по себе ощущаю, что "черным по белому" для глаза более естественно, чем наоборот. Белый текст по цветному фону в прессе, например, я вообще не перевариваю и глаза реально напрягаются. Такой текст бегло не прочтешь.

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

Это особенность человеческого зрения. При фактически одинаковых размерах объектов белые на темном или черном фоне кажутся меньше своего реального размера, а черные на белом - больше.

[Vova]

В зависимости от цвета монитора плохо видны те или иные группы цветов. Большинство -не в конторе, а в мире-работают на черном. Цвет монитора это прерогатива пользователя, это его глаза, а не глаза администратора, выбравшего неподходящий цвет. Он должен изменить этот спорный цвет, подобрав более универсальный и для церого, и для черного. Питон, ты почаще приглашай коллег к своему монитору, они увидят что черный лучше и перейдут на него. А еще есть профсоюз, защищающий права.... Шутка.

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

На самом деле не особо проблема решить такое автозагружаемым лиспом. Общая идея такова (у меня оно реализовано с использованием DOSLib-функций: dos_getini и dos_setini) - создается ini-файл для каждого пользователя, в котором прописывается, например, имя слоя и его цвет. Если такого слоя в текущем файле нет, его данные не стираются, а новые добавляются с текущими значениями. Потом производится чтение этого файла и установка настроек слоев в соответствии с записанными установками. То же самое можно сделать и через реестр, если сильно хочется. Сюда же можно засунуть и тип линии слоя, откуда ее грузить если что, и вес линии слоя... Наворотить можно тьму всего.
Самое главное, что конкретный пользователь имеет конкретно его настройки, в соответствии с его предпочтениями. А все остальные как бы этого и не видят, работая каждый на своих настройках.
Надеюсь, никого не запутал.

[Piton]

Цитата
Питон, ты почаще приглашай коллег к своему монитору, они увидят что черный лучше и перейдут на него - а я попробывал показать что на черном фоне очень хорошо смотрится цвет 250 (обязательно попробуйте)

Черный экран монитора лучше тем, что наименьшая интенсивность свечения, чем при белом [/quote]

[Pilot]

Vova - золотые слова! [sm200]

[Piton]

2 kpblc дело в том что цвет линии может быть не послою.
Организация печати на работе такая. Есть определенные слои, у каждого слоя может быть любой цвет. Толщины при печати в зависимости от цвета. Есть два макроса 1) перегоняет цвет слоя для печати (один из цветов пресловутый 250) 2) перегоняет обратно слои для работы (2 макрос можно менять как угодно).
Проблема, что некоторые элементы(слой рамка и рамку 2-ю дальнюю рисуют 250), сразу цветами для печати (пресловутый 250).

[AY]

>>Piton
Вобщем если не передумал привожу код - пробуй, потестируй.
Надо полагать знаешь как быть с таким хозяйством?

вызов из командной строки:
piton-black-screen -перевод 250->40
piton-gray-screen -перевод 40->250

Код:

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

  ;---------piton-color-change.lsp-------------

(defun piton-color-change (color-in color-out / doc er lock ss)
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 ;(vla-endundomark doc)
    (vla-startundomark doc)
    (setq
        er (vl-catch-all-apply
'(lambda ()
    (vlax-for x (vla-get-layers doc)
        (if (= (vla-get-lock x) :vlax-true)
            (progn (vla-put-lock x :vlax-false)
                   (setq lock (cons x lock))
            )
        )
        (if (= (vla-get-color x) color-in)
            (vla-put-color x color-out)
        )
    )
    (if (setq ss (ssget "_X" (list (cons 62 color-in))))
        (foreach x (ssnamex ss)
            (vla-put-color (vlax-ename->vla-object (cadr x)) color-out)
        )
    )
    (if lock (foreach x lock (vla-put-lock x :vlax-true)))
) ;_ lambda
           ) ;_ vl-catch-all-apply
    ) ;_ setq
    (if (vl-catch-all-error-p er)
        (princ (vl-catch-all-error-message er))
    )
    (vla-endundomark doc)
    (princ)
)

(defun c:piton-black-screen ()
    (piton-color-change 250 40)
    (princ)
)
(defun c:piton-gray-screen ()
    (piton-color-change 40 250)
    (princ)
)
 ;--------------------------------------------

[Vova]

Что-то я не понимаю, зачем перегонять цвета для рисования в цвета для печати? Так делают для цветной печати, так как на белой бумаге не видны светлые тона. Но для черно-белой зачем? Существуют плотстили для этого. Теперь, камень преткновения только один цвет, вы что, им преимущественно рисуете? Ну, ладно, надо так надо. Здесь дан лисп, может, он поможет. Судя по посту от Apelsinov, видимо, это непростое дело. Здесь у меня мысль появилась. За аналог взять команду Cdorder. Она цвета фильтрует для draworder. Может, на ее базе получится?