Đến nội dung


Hình ảnh
- - - - -

Thay đổi layer tự động


  • Please log in to reply
5 replies to this topic

#1 nguyennamxm

nguyennamxm

    biết pan

  • Members
  • Pip
  • 7 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 02 August 2010 - 11:53 AM

bạn nào giúp mình viết lisp chọn layer theo màu ,ứng với mỗi màu sẽ chuyễn sang layer khác tương ứng do mình qui định.
  • 0

#2 ntduy1988

ntduy1988

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 07 August 2010 - 10:24 PM

Mình đã viết một lisp theo yêu cầu của bạn, lệnh là tachdt
Lisp này sẽ tách tất cả đối tượng của bản vẽ theo màu và đặt tên layer theo tên của màu tương ứng, ví dụ màu đỏ là 1.

Link: http://www.mediafire...yvbnitskidc8u4c
  • 0

#3 lark

lark

    biết pan

  • Members
  • Pip
  • 8 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 23 August 2010 - 10:45 PM

Mình đã viết một lisp theo yêu cầu của bạn, lệnh là tachdt
Lisp này sẽ tách tất cả đối tượng của bản vẽ theo màu và đặt tên layer theo tên của màu tương ứng, ví dụ màu đỏ là 1.

Link: http://www.mediafire...yvbnitskidc8u4c


List này ko dùng đc, vừa thử trên cad 2010, sau lệnh "tachdt" thì ko thấy gì cả lại hiện ra dấu nhắc Command:
  • 0

#4 ntduy1988

ntduy1988

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 24 August 2010 - 08:22 AM

List này ko dùng đc, vừa thử trên cad 2010, sau lệnh "tachdt" thì ko thấy gì cả lại hiện ra dấu nhắc Command:


Chào bạn, Lisp này sẽ tách tất cả đối tượng của bản vẽ do đó sau khi gõ lệnh bạn sẽ không thấy có yêu cầu gì, nhưng các đối tượng đã được xếp vào layer có màu tương ứng. Nếu không muốn lisp tách tất cả đối tượng, mà chỉ tách các đối tượng được chọn thì bạn hãy mở file lisp ra và sửa lại dòng:
(setq dt00 (ssget "X")) thành (setq dt00 (ssget)) để chọn đối tượng. Lisp này chạy vẫn ổn mà, minh cũng dùng cad 2010.
  • 0

#5 NDBNGO

NDBNGO

    biết lệnh rotate

  • Members
  • PipPipPip
  • 132 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 24 August 2010 - 09:12 AM

Vì lisp này chạy tự dộng ra kết quả luôn nên ban lark không quen dùng.Kết quả đúng .Trên diễn dàn còn có đoạn lisp của duy782006 viết tương tự nhưng gọn hơn .
Cả 2 chương trình đều dùng tốt cả .Gõ lệnh là thực hiện xong.Bạn thử bấm lại các đối tượng màu xem.
  • 0

#6 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 24 August 2010 - 09:52 AM

Vì lisp này chạy tự dộng ra kết quả luôn nên ban lark không quen dùng.Kết quả đúng .Trên diễn dàn còn có đoạn lisp của duy782006 viết tương tự nhưng gọn hơn .
Cả 2 chương trình đều dùng tốt cả .Gõ lệnh là thực hiện xong.Bạn thử bấm lại các đối tượng màu xem.

Kết quả không còn đúng nữa khi đối tượng có màu là Bylayer
Trên diễn đàn đã có Líp lọc đối tượng theo màu (kể cả màu là ByLayer) rồi. Lisp này hình như của anh giaBach viết. Các bác tùy nghi xử lý khi đã lọc đối tượng theo màu rồi
  • 0