[ NHỜ VIẾT LIPS ] Đổi màu đối tượng mà không đổi layer

[ducdung01 0]

mọi người trong diễn đàn viết hộ em lips đổi màu đối tượng có thể quét chọn nhiều đối tượng cùng lúc mà đồi tượng được chọn không thay đổi layer  với ạ. Em cảm ơn

[Nguyen Hoanh 4.663]

Hiện nay bạn đang đổi màu đối tượng như thế nào?

[ducdung01 0]

 em tìm trên diễn đàn lips này để đổi, nhưng thấy cái bất tiện là phải tạo thêm ra layer mới và nó là đổi màu cho layer

dm.lsp

[comeonnow 2]

trong link này có 4 lisp bạn thử xem cái nào phù hợp với yêu cầu

 

http://www.cadtutor.net/forum/showthread.php?533-Lisp-colour-change-for-all-layers-and-blocks&p=221559&viewfull=1#post221559

[ducdung01 0]

mình có làm theo nhưng k được b ạ. toàn báo lỗi 

[betapdi123 1]

mình thường sài cái nay.Chắc ý đồ bạn là đây:

--------DOI MAU CUA DOI TUONG DUOC CHON--------

(defun C:c1()
(command "change"(ssget) "" "P" "C" "1" ""))
-------------------------------------------------

(defun C:c2()
(command "change"(ssget) "" "P" "C" "2" ""))
-------------------------------------------------

(defun C:c3()
(command "change"(ssget) "" "P" "C" "3" ""))
-------------------------------------------------

(defun C:c4()
(command "change"(ssget) "" "P" "C" "4" ""))
-------------------------------------------------

(defun C:c5()
(command "change"(ssget) "" "P" "C" "5" ""))
-------------------------------------------------

(defun C:c6()
(command "change"(ssget) "" "P" "C" "6" ""))
-------------------------------------------------

(defun C:c7()
(command "change"(ssget) "" "P" "C" "7" ""))
-------------------------------------------------

(defun C:c8()
(command "change"(ssget) "" "P" "C" "8" ""))
-------------------------------------------------

(defun C:c9()
(command "change"(ssget) "" "P" "C" "9" ""))
-------------------------------------------------
(defun C:c10()
(command "change"(ssget) "" "P" "C" "10" ""))
-------------------------------------------------
(defun C:c11()
(command "change"(ssget) "" "P" "C" "11" ""))
-------------------------------------------------

(defun C:c45()
(command "change"(ssget) "" "P" "C" "45" ""))
-------------------------------------------------

(defun C:c251()
(command "change"(ssget) "" "P" "C" "251" ""))
-------------------------------------------------

(defun C:cb()
(command "change"(ssget) "" "P" "C" "bylayer" ""))
-------------------------------------------------

bạn muốn thêm màu thì tự thêm.

c1-c..,cb Doi Mau va chuyen ve Layer cua doi tuong duoc chon.lsp

[ducdung01 0]

cảm ơn b nhé. lips chạy tốt b ạ