Chọn đối tượng theo màu

[huynhpro 20]

Các bác ơi! Em vừa nhận một bản vẽ không dùng layer mà hoàn toàn phân biệt bằng màu... HIX. Làm thế nào để chọn đối tượng theo màu được để tạo layer cho nó

Thank

[PHILU 4]

Chọn bằng Qselect:

-Gõ lệnh Qselect:

-Ở mục Object type bạn chọn là layer rồi chọn by colour

chọn màu mà mình cần cho nó vô 1 layer ..that all

[duy782006 1.526]

Các bác ơi! Em vừa nhận một bản vẽ không dùng layer mà hoàn toàn phân biệt bằng màu... HIX. Làm thế nào để chọn đối tượng theo màu được để tạo layer cho nó

Thank

Câu trả lời của mình không đúng hoàn toàn với câu hỏi của bạn nhưng mình nghỉ nó có ích với trường hợp của bạn.

Dùng lisp sau tên mrl. gỏ lệnh xong ngồi chờ nó tự đọc màu tạo layer và chuyễn đối tượng cho bạn.

 

(Defun c:MRL ()

(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")

(setq XX (ssget "x"))

(setq L 0)

(setq M (sslength XX))

(while (< L M)

(setq DT (ssname XX L))

(setq DTM (entget DT))

(setq TEXT (cdr (assoc 10 DTM)))

(setq MAUDt (cdr (assoc 62 DTM)))

(luuos)

(setvar "osmode" 0)

 

(command "-layer" "new" MAUDT "color" MAUDT MAUDT "")

(command ".chprop" DT "" "la" MAUDT "COLOR" "BYLAYER" "")

(traos)

(setq L (1+ L))

)

 

(setq nhan (* l 100))

(setq chia (/ nhan m))

(princ (strcat "\nDa chinh: <" (itoa chia) " %>"))

 

(Princ)

)

[Phiphi- 176]

Câu trả lời của mình không đúng hoàn toàn với câu hỏi của bạn nhưng mình nghỉ nó có ích với trường hợp của bạn.

Dùng lisp sau tên mrl. gỏ lệnh xong ngồi chờ nó tự đọc màu tạo layer và chuyễn đối tượng cho bạn.

 

(Defun c:MRL ()

(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")

(setq XX (ssget "x"))

(setq L 0)

(setq M (sslength XX))

(while (< L M)

(setq DT (ssname XX L))

(setq DTM (entget DT))

(setq TEXT (cdr (assoc 10 DTM)))

(setq MAUDt (cdr (assoc 62 DTM)))

(luuos)

(setvar "osmode" 0)

 

(command "-layer" "new" MAUDT "color" MAUDT MAUDT "")

(command ".chprop" DT "" "la" MAUDT "COLOR" "BYLAYER" "")

(traos)

(setq L (1+ L))

)

 

(setq nhan (* l 100))

(setq chia (/ nhan m))

(princ (strcat "\nDa chinh: <" (itoa chia) " %>"))

 

(Princ)

)

Lisp có lổi

Command: mrl

PHAM QUOC DUY Binh Son - Quang ngai; error: no function definition: LUUOS

[Tue_NV 3.912]

Lisp có lổi

Command: mrl

PHAM QUOC DUY Binh Son - Quang ngai; error: no function definition: LUUOS

Bạn bỏ dòng (luuos) và dòng (traos) là Lisp chạy OKê ngay.

[duy782006 1.526]

Lisp có lổi

Command: mrl

PHAM QUOC DUY Binh Son - Quang ngai; error: no function definition: LUUOS

Xin lỗi mọi người! Vì hai cái hàm luuos và traos trong máy mình có sẳn nên không phát hiện ra lổi.

Sửa lại như sau:

(Defun c:MRL ()

(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")

(setq XX (ssget "x"))

(setq L 0)

(setq M (sslength XX))

(while (< L M)

(setq DT (ssname XX L))

(setq DTM (entget DT))

(setq TEXT (cdr (assoc 10 DTM)))

(setq MAUDt (cdr (assoc 62 DTM)))

 

(command "-layer" "new" MAUDT "color" MAUDT MAUDT "")

(command ".chprop" DT "" "la" MAUDT "COLOR" "BYLAYER" "")

(setq L (1+ L))

)

 

(setq nhan (* l 100))

(setq chia (/ nhan m))

(princ (strcat "\nDa chinh: <" (itoa chia) " %>"))

 

(Princ)

)

[fbh81 10]

mấy cái này thì đâu cần lisp, dùng lênh cơ bản của cad luôn đó là lệnh filter FI

FI>>trong select filter chọn colour cần chọn>>add to list>>apply>>khua cả bản vẽ là chọn được đối tượng theo màu ngay thôi

[archhnm 0]

mấy cái này thì đâu cần lisp, dùng lênh cơ bản của cad luôn đó là lệnh filter FI

FI>>trong select filter chọn colour cần chọn>>add to list>>apply>>khua cả bản vẽ là chọn được đối tượng theo màu ngay thôi

 

Bro nói đúng , M chỉ sử dụng fi rất hiệu qua

[Tue_NV 3.912]

mấy cái này thì đâu cần lisp, dùng lênh cơ bản của cad luôn đó là lệnh filter FI

FI>>trong select filter chọn colour cần chọn>>add to list>>apply>>khua cả bản vẽ là chọn được đối tượng theo màu ngay thôi

 

Bro nói đúng , M chỉ sử dụng fi rất hiệu qua

 

Nếu đối tượng có màu là ByLayer thì làm sao có thể sử dụng lệnh Fi hay Quick select hử bạn?