[kabz]

В чертеже на одном слое, но несколькими цветами нарисован проект. Нужен лисп или макрос, который будет объекты определенного цвета помещать в новый слой с названием этого цвета.
Например все красное помещается на слой "красный", все синее на синий и т.д.

Посоветуйте плз. где взять такой лисп?

[Profan]

"Быстрый выбор" может помочь.

[kabz]

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

[hwd]

Сообщение от kabz отказываются

Слово-то какое... Шикарно живут "тётки"

[Дима_]

Хорошо хоть рисовать согласны.

[VVA]

Код:

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

(defun C:RO (/ *error* Doc)
;;;Relayer Objects
  (vl-load-com)
  (defun *error* (msg)
    (princ msg)
    (vla-endundomark Doc)
    (princ)
  )
  (setq Doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark Doc)
  (Relayer-Objects Doc)
  (vla-endundomark Doc)
  (alert "Обработка завершена")
  (princ)
)

(defun make-layer (color / Nme)
  (if (null color)
    (setq color 256)
  )
  (if (not
	(tblobjname
	  "Layer"
	  (setq Nme (strcat "Color_" (vl-princ-to-string color)))
	)
      )
    (entmake (list (cons 0 "LAYER")
		   (cons 100 "AcDbSymbolTableRecord")
		   (cons 100 "AcDbLayerTableRecord")
		   (cons 2 Nme)
		   (cons 70 0)
		   (if (and (> Color 0) (< Color 256))
		     (cons 62 Color)
		     (cons 62 7)
		   )
	     )
    )
  )
  Nme
)
(defun Relayer-Objects (Doc / txt count ed)
  (vlax-for Blk	(vla-get-Blocks Doc)
    (if	(= (vla-get-IsXref Blk) :vlax-false)
      (progn
	(setq count 0
	      txt   (strcat "Changed " (vla-get-name Blk))
	)
	(grtext -1 txt)
	(vlax-for Obj Blk
	  (setq count (1+ count))
	  (if (zerop (rem count 10))
	    (grtext -1 (strcat txt " : " (itoa count)))
	  )
	  (if (vlax-write-enabled-p Obj)
	    (progn
	      (setq ed (entget (vlax-vla-object->ename Obj)))
	      (entmod (subst (cons 8 (make-layer (cdr (assoc 62 ed))))
			     (assoc 8 ed)
			     ed
		      )
	      )
	    )
	  )
	) ;_ end of vlax-for
      )
    ) ;_ end of if
  ) ;_ end of vlax-for
  (vl-cmdf "_regenall")
)

[kabz]

Спасибо! щас проверим код ))