; Этот код написал Александр Valrond Ющенко
; Если Вам нужен лисп для решения более специализированных задач - обращайтесь!
; Для связи со мной - val@allforproject.ru
(defun c:colorchange ( / colornum layersFamily block_family acad_application active_document)
	(vl-load-com) 
	(setq acad_application (vlax-get-acad-object)) 
	(setq active_document (vla-get-ActiveDocument acad_application)) 
	(initget 6)
	(setq colornum (getint "Укажите номер цвета [1-255] <7>:"))
	(if (or (> colornum  255) (null colornum))
		(progn ;true
			(setq colornum 7)
		)
	) 
	(setq layersFamily (vla-get-Layers active_document)) 
		(vlax-for
			vla_layer 
			layersFamily 
			(vla-put-Color vla_layer colornum)
		)
	(setq block_family (vla-get-blocks active_document)) 
	(vlax-for 
		block 
		block_family
		(vlax-for	
			ent 
			(vla-item block_family (vla-get-Name block))
			(vla-put-Color ent 256)
		) 
	) 
)