[25segments]

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

Заранее спасибо за ответ!

[zenon]

Ctrl+A + Explode тебе в помощь

[VVA]

Лисп раскрашивает видимые слои в указанный цвет

Код:

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

(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

[25segments]

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

VVA - спасибо! будем дальше собирать код!