[GECK]

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

[Profan]

Простенькая программа:

Код:

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

 
(defun C:ЦВ_СЛОЙ ( / ent lay clr )
(setq ent (car (entsel "\n Выберите объект: ")))
(if ent
   (progn
   (setq lay (cdr (assoc 8 (entget ent))))
   (initget 7)
   (setq clr (getstring "\n Номер нового цвета для слоя: "))
   (vl-cmdf "_-LAYER" "_C" clr lay "")
   )
   (princ "\n Объект не выбран.")
   )
(princ)
)

[Солидворкер]

Название информативнее! На переименование 24 часа

[GECK]

сейчас проверю ,спасибо.
очень оперативно.

[Profan]

Offtop:
Так и переименовывать не понадобится.

[GECK]

ни чего не получается,работаю на английском,пробовал переделать синтаксисн а английский ни чего не принимает"unknown command"

[Profan]

Тогда переименовывай тему и продолжим разговор.
Для сведения - все получается и в английской версии. Проверено в AutoCAD 2008 ENG:

Код:

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

 
Command: ЦВ_СЛОЙ
Выберите объект:
Номер нового цвета для слоя: 1
_-LAYER
Current layer: "0"
Enter an option 
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]: _C
New color [Truecolor/COlorbook] : 1
Enter name list of layer(s) for color 1 (red) <0>: Layer1 Enter an option 
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]:
Command:

Немного переделанная программа:

Код:

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

 
(defun C:C_LAY ( / ent lay clr )
(setq ent (car (entsel "\n Выберите объект: ")))
(if ent
   (progn
   (setq lay (cdr (assoc 8 (entget ent))))
   (princ "\n Номер нового цвета для слоя ") (princ lay) (princ " :")
   (initget 7)
   (setq clr (getstring))
   (vl-cmdf "_-LAYER" "_C" clr lay "")
   )
   (princ "\n Объект не выбран.")
   )
(princ)
)

[GECK]

как перекрасить слой кликнув на объект
тему повторяю,с новым названием,т.как не успел переименовать старую
не было иннета
вопрoс, собственно в САБЖЕ

Код:

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

(defun C:C_LAY ( / ent lay clr )
(setq ent (car (entsel "\n Выберите объект: ")))
(if ent
   (progn
   (setq lay (cdr (assoc 8 (entget ent))))
   (princ "\n Номер нового цвета для слоя ") (princ lay) (princ " :")
   (initget 7)
   (setq clr (getstring))
   (vl-cmdf "_-LAYER" "_C" clr lay "")
   )
   (princ "\n Объект не выбран.")
)
(princ)
)

[Profan]

1. Не ПРОФАН, а Profan дал лисп. Не надо путать ники.
2. Функция определена как C_LAY, а не C-LAY.
3. Программа настолько проста, что просто обязана работать на всех версиях AutoCAD'а независимо от языка.
4. Нормальный код программы, а не та путаница, как в сообщении 1.

Код:

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

 
(defun C:C_LAY ( / ent lay clr )
(setq ent (car (entsel "\n Выберите объект: ")))
(if ent
   (progn
   (setq lay (cdr (assoc 8 (entget ent))))
   (princ "\n Номер нового цвета для слоя ") (princ lay) (princ " :")
   (initget 7)
   (setq clr (getstring))
   (vl-cmdf "_-LAYER" "_C" clr lay "")
   )
   (princ "\n Объект не выбран.")
)
(princ)
)

5. Может, Windows английская?
6. Можно попробовать строку

Код:

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

 
(vl-cmdf "_-LAYER" "_C" clr lay "")

заменить на строку

Код:

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

(vl-cmdf "_-.LAYER" "_C" clr lay "")

[GECK]

прошу прощения за ник.да это я дома перепутал дэш
но на работе вместе с гуру делал все правильно,
да window английский.попробую поменять
еще раз извините
ноновый не работает.

Код:

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

(defun C:C_LAY ( / ent lay clr )
(setq ent (car (entsel "\n Выберите объект: ")))
(if ent
   (progn
   (setq lay (cdr (assoc 8 (entget ent))))
   (princ "\n Номер нового цвета для слоя ") (princ lay) (princ " :")
   (initget 7)
   (setq clr (getstring))
   (vl-cmdf "_-.LAYER" "_C" clr lay "")
   )
   (princ "\n Объект не выбран.")
)
(princ)
)

Код:

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

Command: _appload LAY.LSP successfully loaded.


Command: ; error: bad character read (octal): 0

Command:
Command: c_lay
Unknown command "C_LAY".  Press F1 for help.

[Profan]

GECK, ты сильно откорректировал свое первое сообщение и мой ответ как-то не вписывается. Тем не менее, я оставлю его, как есть.
По существу.
К сожалению, я не могу проверить работу программы в английском AutoCAD'е под управлением английской OS. Нашел я в Интернете упоминание об этой ошибке
error: bad character read (octal): 0
http://discussion.autodesk.com/forum...hreadID=536973
но, честно говоря, не совсем понял, о чем там речь идет.

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

Сообщение от GECK как перекрасить слой кликнув на объект тему повторяю,с новым названием,т.как не успел переименовать старую не было иннета<...>

Достаточно было постучаться в личку любому модератору. Темы объединены.

[GECK]

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

[Profan]

У меня были сомнения относительно поддержки русского языка, но я не стал уточнять по некоторым соображениям... Ладно, работет - ну, и хорошо.

[Krieger]

Как вариант:

Код:

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

;(Kr_ReplaceColorLayer)
(defun Kr_ReplaceColorLayer (/)
  (setvar "ERRNO" 0)
  (while
    (or (initget 6) (setq color (getreal "\nВведите номер цвета для слоя <Выход> : ")))
      (while (or (setq ent (car (entsel "\nВыберите объект <Указать цвет> : "))) (= (getvar "ERRNO") 7))		  
	(setvar "ERRNO" 0)
	(if ent
	  (Kr-ReplaceColorLayer color ent)
	  );while
	);while
    );if
  );defun

;(Kr_ReplaceColorLayer 1 ent)
(defun Kr-ReplaceColorLayer (color ent /)
  (vl-load-com)
	  (vlax-for i (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
	    (if (eq (vla-get-name i) (vla-get-layer (vlax-ename->vla-object ent)))
	      (vla-put-Color i color)
	    );if
	  );vlax-for
);defun

Запускать как (Kr_ReplaceColorLayer)