Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
huynhpro

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

Các bài được khuyến nghị

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.373
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)

)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Phiphi-    175
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
duy782006    1.373
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)

)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Tue_NV    3.841
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?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×