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  
archuyhoang

Đưa Hết Layer Của Block Về 1 Layer.

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

archuyhoang    1

e có vấn đề thế này mong rằng khi các bác rảnh rỗi trợ giúp . hỗ trợ em lisp

trên diễn đàn có lip. dùng lệnh B2B.  tất cả block trong bản vẽ về cùng 1 layer

nhưng nó chỉ nằm ở các block đơn giản.  còn các block trong block. thì ko thể thực hiện được các block con bên trong.

 ( các bác chú ý. là layer của block , chứ ko phải layer trong block nhé)

tương tự như thế là các lệnh 

h2h . đưa các hatch về cùng 1 layer thì  trong blok. thậm chí vùng hatch trong block của block cũng ko thực hiện được

t2t . đưa các text trong bản vẽ cũng vậy

d2d . dim cũng vậy ạ. 

 lúc các bác rảnh rỗi giúp em khắc phục cái lisp này nhé.

( em sẽ up cái lisp đó lên để các bác kiểm tra)



 

  • Vote giảm 1

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
archuyhoang    1

sao ko tải lên được líp nhỉ

 

(defun CHANGE-LAYER (_TYPE LAYER / OBJS)
 (setq OBJS (ssget "X" (list (cons 0 _TYPE))))
 (if (not (tblsearch "layer" LAYER))
  (command ".layer" "m" LAYER "")
 );_ end if
 (command ".chprop" OBJS "" "la" LAYER "")
 (princ)
);_ end defun
(defun C:D2D (/ OBJS) (CHANGE-LAYER "DIMENSION" "A.10-DIM"))
(defun C:H2H (/ OBJS) (CHANGE-LAYER "HATCH" "A.12-HACH"))
(defun C:B2B (/ OBJS) (CHANGE-LAYER "INSERT" "A.11-BLOCK"))
(defun C:T2T (/ OBJS) (CHANGE-LAYER "*TEXT" "A.09-GHI CHU"))

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  

×