Cần xin Lisp ẩn và hiện tất cả các layer!!!

[chatter 1]

Em đang rất cần Lisp ẩn và hiện tất cả các Layer của bản vẻ. Rất mong các anh share dùm cho

[be_chanh 894]

không hiểu ẩn các layer để làm gì nhỉ ? vì ẩn hết rồi thì vẽ cái gì nữa. còn nếu ẩn 1 phần thì dùng express là đủ mà bạn

[nataca 554]

Em đang rất cần Lisp ẩn và hiện tất cả các Layer của bản vẻ. Rất mong các anh share dùm cho

Ô thế vẫn chưa biết lệnh layon , layoff, layiso của cad à. Chán thế. Mà ẩn tất cả các layer của bản vẽ đi để làm j nhỉ. :bigsmile:

[chatter 1]

ah.ý mình là layer hiện hành vẩn hiện.khi dung lisp nay thi các layer đã gán sẽ ẩn hoặc hiện để ta bít được chổ nào chưa gán layer?????

[duy782006 1.544]

ah.ý mình là layer hiện hành vẩn hiện.khi dung lisp nay thi các layer đã gán sẽ ẩn hoặc hiện để ta bít được chổ nào chưa gán layer?????

Nói chung ban diển tả quá khó hiểu.

Bạn nghiên cứu LMAN xem sao:

cái này lưu các trạng thái hiển thị layer tại thời điểm gọi lệnh, lưu lại dưới 1 tên và gọi lại sau đó.

[dotranduy 0]

Trong cad 07 có cái Layer iso , layon, layoff. Khi cài bạn cái cả Express Tool. Sau khi cài xong , gán phím tắt cho các lệnh này bằng cách : Vào Express => Tool => Command Alias Editor sau đó hiện ra 1 box thì chọn ADD. Sau đó hiện ra 1 box tiếp. Dòng trên bạn gõ lệnh tắt ( ví dụ 1 là Layiso, 2 là Layon, 3 layoff ). Dòng dưới bạn điện lệnh autocad vào là Layiso, layon, layoff.

Sau muốn giữ lại 1 layer thì dùng Layiso ( phím tắt đặt là 1 ), chọn layer cần giữ rùi Enter, sau muốn bật lên thì dùng Layon - Enter..

[trinh8306 0]

Em đang rất cần Lisp ẩn và hiện tất cả các Layer của bản vẻ. Rất mong các anh share dùm cho

 

Từ cad 2004 trở lên có thêm cái phần Express Tools, trong này có mấy lệnh bạn cần

- Layiso: Dùng để tắt tất cả các layer trừ những layer được chọn

- Layoff: Tắt 1, 1 vài layer khi được chọn

- Layon: Hiện tất cả các layer

 

Không có lệnh tắt cho mấy thằng này, tuy nhiên ta nên đặt lệnh tắt. Chỗ mình làm bọn mình thống nhất đặt tắt IO - Layiso, OF - Layoff, ON - Layon, bạn tham khảo xem, khá là tiện đấy!

I'm GTCC42 - ĐHGT

[votthanhtuan 0]

như mình dùng ad 2002 muốn tạo layon hoặc layoff thì phải làm sao

[quocmanh04tt 634]

Bạn thử xem sao:

(defun c:layon ()

(vlax-for each (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-layeron each :vlax-true))
(princ))
(defun c:layoff (/ ss i)
(if (setq ss (ssget))
(repeat (setq i (sslength ss))
(vla-put-layeron (vlax-ename->vla-object
(tblobjname "LAYER" (vla-get-layer (vlax-ename->vla-object (ssname ss (setq i (1- i)))))))
:vlax-false)))
(princ))