[baker]

1). Я со своими куриными мозгами не могу поменять цвет рабочего поля чертежа с белого на чёрный.
2). В "свободной орбите" вращение объекта происходит не вокруг предполагаемого центра, (кот. в более ранних версиях находится в центре круга, обозначающего функцию орбиты), а вокруг какого-то другого центра, мне не понятного, и расположенного далеко от вращаемого объекта. Это приводит к тому, что при попытке вращения объект сразу исчезает с экрана и его можно найти где-то далеко, только резко уменьшив масштаб чертежа.

[Vova]

Сообщение от AlexV Це не я писал! А Nike,

Поправился

[Nike]

Сообщение от Vova как читаешь свои старые чертежи? А также чертежи тех кто не приучил себя к белому? Кстати, придется вскоре переучиваться опять: в 2011, судя по картинкам, опять черно

Так и читаю - жму Ctrl+B и меняю цвет фона, если надо.
Опять переучиваться не буду - всегда считал что на белом фоне как в Word и прочих программах работать более естественно, чем на черном. Просто это трудновато оказалось - слишком когда-то привык к черному.

[Vova]

Сообщение от Nike Так и читаю - жму Ctrl+B и меняю цвет фона, если надо

А что делать другим читателям твоих файлов, которые не имеют волшебной кнопки? Допустим, начальник захочет посмотреть и покопаться в файле? Или твой чертеж будет продолжать другой
Цвет должен быть таким, как у большинства, имхо

[gomer]

Вот такой есть еще вариант: http://dwg.ru/dnl/5976

[Nike]

gomer, здорово! Выложи уж lsp, чё стыдиться, и не жадничай

Сообщение от Vova А что делать другим читателям твоих файлов, которые не имеют волшебной кнопки? Допустим, начальник захочет посмотреть и покопаться в файле? Или твой чертеж будет продолжать другой Цвет должен быть таким, как у большинства, имхо

Пусть лезут в options - их проблемы, я не знаю какой цвет у большинства Цветовых правил черчения у нас нет - ни у кого же голова не болела, что мне придется Ctrl+B придумывать.

[Vova]

Сообщение от Nike Цветовых правил черчения у нас нет

И без правил никому не приходит в голову рисовать по черному темным цветом. Так и тебе не придет в голову рисовать по белому светлым, например, желтым. Поэтому тем, кому придется на своем черном экране смотреть твой файл, будут поминать тебя недобрым словом. А тебе на своем белом не увидеть чужих светлых линий

[Nike]

Сообщение от Vova Так и тебе не придет в голову рисовать по белому светлым, например, желтым. Поэтому тем, кому придется на своем черном экране смотреть твой файл, будут поминать тебя недобрым словом

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

Сообщение от Vova А тебе на своем белом не увидеть чужих светлых линий

На этот случай я имею такую штучку:

Код:

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

(defun C:set-layer-color (/ echo sen ent lay ss len da)
  (setq echo (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq sen (entsel "\n Выберите объект слоя, цвет которого хотите изменить:"))
  (if sen
    (progn (setq ent (entget (car sen)))
           (setq lay (cdr (assoc 8 ent)))
           (command "_layer" "_c" (acad_colordlg 7 Nil) lay "")
    ) ;_ end of progn
    (princ "\n Объект не выбран!")
  ) ; if sen
  (setvar "cmdecho" echo)
  (princ)
)

[PAPIK]

Сообщение от AlexV Кстати, придется вскоре переучиваться опять: в 2011, судя по картинкам, опять черно

в ACAD 2011 фон цвета 33,40,48 (типа темно-темно синий как мне кажется). Мне нравится

[Jonas]

На черном хорошо видны основные цвета - желтый, зеленый, голубой ну и конечно их оттенки и плюс серые. Хорошо видны значит эргономичны, не требуют напряжения глоз.
Попробуйте чертеж выполненый на черном экране посмотреть на белом и наоборот.
Правда следует признать то что, если чертеж с "черного" нужно распечатать то не обойтись без стиля печати.

Из личного опыта.
У меня больные глаза (искуственные хрусталики), когда работал на кульмане то была бооольшая проблема, через пару часов напряженной работы все расплывалось в одно облако с переходом на компьютер и акад с черным экраном я просто ожил. В акаде работаю 11 лет и только на черном экране.
Покал писал это сообщение, уже начали расплываться буквы.

[antan83]

жесть...

[Chapter]

Сообщение от Jonas Из личного опыта. У меня больные глаза (искуственные хрусталики), когда работал на кульмане то была бооольшая проблема, через пару часов напряженной работы все расплывалось в одно облако с переходом на компьютер и акад с черным экраном я просто ожил. В акаде работаю 11 лет и только на черном экране. Покал писал это сообщение, уже начали расплываться буквы.

[tugris]

Предпочитаю чертить на черном. А вообще мне кажется это беспредметный разговор. Так поболтать. Кому, что нравится. А печать все равно на белом.

[antan83]

в монохроме...

[Disney]

Сообщение от Nike Повесил себе на Ctrl+B переключалку фона белый-черный-белый и радуюсь: Код: [Выделить все] (defun background_color (/) (if (= (getenv "Background") "0") (progn (vlax-put-property (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "ModelCrosshairColor" 000 ) ;_ end of vlax-put-property (vlax-put-property (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "GraphicsWinModelBackgrndColor" 16777215 ) ;_ end of vlax-put-property ) ;_ end of progn (progn (vlax-put-property (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "ModelCrosshairColor" 16777215 ) ;_ end of vlax-put-property (vlax-put-property (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "GraphicsWinModelBackgrndColor" 000 ) ;_ end of vlax-put-property ) ;_ end of progn ) ;_ end of if (princ) )

Тоже повесил на кнопку, очень удобно
Работаю на чёрном фоне, видео снимаю на белом, всё бы хорошо, но вот "Вектор автоотслеживания" не инвертирует свой цвет, может кто-нибудь подсказать, как это сделать программно?

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

Пробуй...

Код:

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

(vl-load-com)

(defun background_color (/ disp)
  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
  (foreach prop '(("ModelCrosshairColor" (0 . 16777215))
                  ("GraphicsWinModelBackgrndColor" (16777215 . 0))
                  ("AutoTrackingVecColor" (0 . 16777215))
                  )
    (vlax-put-property disp
                       (car prop)
                       (if (= (getenv "Background") "0")
                         (caadr prop)
                         (cdadr prop)
                         ) ;_ end of if
                       ) ;_ end of vlax-put-property
    ) ;_ end of foreach
  (princ)
  ) ;_ end of defun

[Disney]

Сообщение от Кулик Алексей aka kpblc Пробуй... Код: [Выделить все] (vl-load-com) (defun background_color (/ disp) (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object)))) (foreach prop '(("ModelCrosshairColor" (0 . 16777215)) ("GraphicsWinModelBackgrndColor" (16777215 . 0)) ("AutoTrackingVecColor" (0 . 16777215)) ) (vlax-put-property disp (car prop) (if (= (getenv "Background") "0") (caadr prop) (cdadr prop) ) ;_ end of if ) ;_ end of vlax-put-property ) ;_ end of foreach (princ) ) ;_ end of defun

Что-то не работает , Хотя по логике должно...

[IMG]http://s005.***********/i211/1005/32/d8944c8ae6c1.gif[/IMG]

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

В таком случае можно попробовать лезьть в реестр и там менять значения. Ветка

Код:

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

(strcat "HKEY_CURRENT_USER\\"
        (vlax-product-key)
        "\\Profiles\\"
        (vla-get-activeprofile
          (vla-get-profiles
            (vla-get-preferences
              (vlax-get-acad-object)
              ) ;_ end of vla-get-preferences
            ) ;_ end of vla-get-profiles
          ) ;_ end of vla-get-activeprofile
        "\\Drawing Window"
        ) ;_ end of strcat

Ключи: "*ATrack vector*"
Короче, вот код, который вернет ключи и их значения:

Код:

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

(defun test (/ hive lst)
  (setq hive (strcat "HKEY_CURRENT_USER\\"
                     (vlax-product-key)
                     "\\Profiles\\"
                     (vla-get-activeprofile
                       (vla-get-profiles
                         (vla-get-preferences
                           (vlax-get-acad-object)
                           ) ;_ end of vla-get-preferences
                         ) ;_ end of vla-get-profiles
                       ) ;_ end of vla-get-activeprofile
                     "\\Drawing Window"
                     ) ;_ end of strcat
        lst  (mapcar
               (function
                 (lambda (x)
                   (list hive x (vl-registry-read hive x))
                   ) ;_ end of lambda
                 ) ;_ end of function
               (vl-remove-if-not
                 (function
                   (lambda (x)
                     (wcmatch (strcase x) "*ATRACK*")
                     ) ;_ end of lambda
                   ) ;_ end of function
                 (vl-registry-descendents hive "")
                 ) ;_ end of vl-remove-if-not
               ) ;_ end of mapcar
        ) ;_ end of setq
  ) ;_ end of defun

[Disney]

Сообщение от Кулик Алексей aka kpblc В таком случае можно попробовать лезьть в реестр и там менять значения.

Здорово... но во-первых как это делается(меняется значение), а то я первый раз вижу и слышу(читаю) про реестры и ключи, во-вторых а оно того стоит? в смысле оно не опасно, лазить куда попало(в реестр)...

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

Значение меняется стандартной функцией vl-registry-write (параметры вызова - в справке). А насчет опасно-не опасно... Ну выполни экспорт ветки реестра, потом обратно засунешь
P.S. Я сам с реестром достаточно плотно работаю, пока явных багов не видел. Правда, у меня есть правило: сначала работаю в AutoCAD, меняя значения нужных мне параметров, потом читаю значения из реестра и нахожу отличия, и только потом пишу лисп...