| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Подскажите каким образом можно все слои перекрасить в заданный цвет?

Подскажите каким образом можно все слои перекрасить в заданный цвет?

Ответ
Поиск в этой теме
Непрочитано 12.05.2010, 12:03 #1
Подскажите каким образом можно все слои перекрасить в заданный цвет?
25segments
 
Регистрация: 23.04.2010
Сообщений: 9

Вопрос такой -
есть планировка от архитектора. Для удобности работы хотелось бы иметь кнопочку, при нажатии которой все видимые слои красились бы в один цвет и перемещались(копировались) на заданный слой.
При возможности можно было бы их удалять после операции. Или более желательно присваивать параметр невидимости.

Заранее спасибо за ответ!
Просмотров: 3077
 
Непрочитано 12.05.2010, 12:12
#2
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,825
<phrase 1=


Ctrl+A + Explode тебе в помощь
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 12.05.2010, 12:23
#3
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Лисп раскрашивает видимые слои в указанный цвет
Код:
[Выделить все]
(defun C:COLORVLAY (/ doc col xreflist ret)
  ;;; Color Visible Layer
  ;;; Лисп раскрашивает видимые слои в указанный цвет
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (if (setq col (acad_colordlg 7 nil))
    (progn
      (vlax-for lay (vla-get-Layers doc)
        (if (eq (vla-get-LayerOn lay) :vlax-true)
            (vla-put-color lay col)
          )
        )
      )
      )
        (vla-endundomark doc)
  (princ)
) ;_ end of defun
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 12.05.2010, 12:35
#4
25segments


 
Регистрация: 23.04.2010
Сообщений: 9


Ctrl+A + Explode - удобно и давно знакомо. но хотелось бы одной кнопкой =)

VVA - спасибо! будем дальше собирать код!
25segments вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Подскажите каким образом можно все слои перекрасить в заданный цвет?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можно отключить/включить ВСЕ слои одним нажатием !?!? Botan AutoCAD 35 07.09.2012 11:48
каким образом можно выделять по параметрам? suchoy AutoCAD 10 24.10.2008 16:26
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46