Giúp đỡ lisp ẩn 1 layer cố định

[hvu1379 2]

Xin mọi người giúp đỡ lisp ẩn 1 layer cố định mà không cần chọn đối tượng. Ví dụ cần ẩn layer 'dimension' mà khi gõ lệnh layoff không cần kích vào đối tượng mang layer đó. Cám ơn mọi người ạ!

[DungNguyen685 40]

Mục đích để làm gì ? Có vẻ khá phụ thuộc lisp nhỉ.

(Defun C:Loff ()
  (setvar "cmdecho" 0)
      (setq LAY "dimension")
(if (= LAY (getvar "clayer"))
	(princ
	  (strcat "\nLayer " LAY " khong the FRZ (Layer hien hanh).")
	)
	(progn (command "_.LAYER" "FREEZE" LAY "")
	       (princ (strcat "\nLayer " LAY " da FRZ."))
	)
    )
    
  
  (princ)
)
(Defun C:Lon ()
  (setvar "cmdecho" 0)
  (Command "_.LAYER" "_THAW" "*" "")
  (princ)
)

P/s Chỉ sửa lại tí của lisp bạn nào đó chia sẻ.

[Doan Nguyen Van 489]

3 phút trước, DungNguyen685 đã nói:

(strcat "\nLayer " LAY " khong the FRZ (Layer hien hanh).")

Cái khẳng định ni có vẻ sai sai 

[Doan Van Ha 3.180]

Hơi sức đâu mà các member đi viết những lisp mà nếu thớt làm bằng tay mất 1 phút còn các bác viết mất 10 phút (?).
Cộng đồng còn những người khác cần lisp hơn!

[cuatudong8k 1]

Mình cũng gặp vấn đề tương tự tư thế này, thông tin mọi người chia sẻ thông tin rất bổ ích. Mình đã làm theo chỉ dẫn nhưng hiện vẫn chưa được, các bác có thể chỉ rõ hơn được không?

[cuongtk2 330]

[cuongtk2 330]

Đảm bảo rằng Toolbar "Layers" được show là tắt Layer dễ dàng thôi, ai lại đi viết lisp làm gì.

[hvu1379 2]

12 giờ trước, cuongtk2 đã nói:

Đảm bảo rằng Toolbar "Layers" được show là tắt Layer dễ dàng thôi, ai lại đi viết lisp làm gì.

mình muốn tắt hàng loạt các bản vẽ bạn ạ. nếu tắt ở toolbar thì phải bật từng bản vẽ để tắt. thế nên mình mới muốn hỏi viết lisp

[alisp 72]

Lúc đầu không nói tắt hàng loạt bản vẽ, giờ lại nói có, là sao? Cái vụ này phải trả phí thôi, không trả không được. Zalo 0359935771.

[Doan Van Ha 3.180]

1 giờ} trướ}c, alisp đã nói:

Lúc đầu không nói tắt hàng loạt bản vẽ, giờ lại nói có, là sao? Cái vụ này phải trả phí thôi, không trả không được. Zalo 0359935771.

Ủng hộ comment này!

[hvu1379 2]

3 giờ trước, alisp đã nói:

Lúc đầu không nói tắt hàng loạt bản vẽ, giờ lại nói có, là sao? Cái vụ này phải trả phí thôi, không trả không được. Zalo 0359935771.

đã zalo cho b. mình mày mò cá nhân để tìm hiểu thêm chứ cũng ko phải kinh doanh gì. nếu phí hợp lý thì đc chứ cao thì mình chịu :D

[alisp 72]

Cái khó của lisp không phải ở chỗ ẩn hiện layer mà là ở chỗ không cần mở file cũng tắt đc layer, có thể dùng cho thư mục có cả 100 file cũng đc.

[Doan Nguyen Van 489]

1 giờ} trướ}c, alisp đã nói:

Cái khó của lisp không phải ở chỗ ẩn hiện layer mà là ở chỗ không cần mở file cũng tắt đc layer, có thể dùng cho thư mục có cả 100 file cũng đc.

Cách của bác khá tiện và nhanh, nhưng phụ thuộc khá nhiều vào version cad

[gia_bach 1.548]

1 giờ trước, Doan Nguyen Van đã nói:

Cách của bác khá tiện và nhanh, nhưng phụ thuộc khá nhiều vào version cad

ObjectDBX (VisualLisp) làm tốt yêu cầu này.

[Doan Nguyen Van 489]

1 phút trước, gia_bach đã nói:

ObjectDBX (VisualLisp) làm tốt yêu cầu này.

Đúng rồi bác, nhưng hiện tại cadver18 và cadver 22 trên máy e chạy không được, không biết lỗi do đâu