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  
victor85

[Yêu cầu] Xin Lisp chọn nhanh đối tượng cùng layer

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

victor85    10

Thực ra bản chất nó cũng giống như mình layiso đối tượng rồi mình chọn để đạt mục đích thôi ạ. Nhưng nhược điểm là layiso nhiều khi khá mất thời gian, nhất là với những máy cấu hình yếu hoặc như con laptop già nua của em ạ. Vậy kính mong các bác viết dùm e cái lisp chọn nhanh đối tượng cùng layer trong vùng chọn xác định với ạ.

Lisp như sau: 

select_layer.lsp 

lệnh: sl

Đầu vào: chọn đối tượng mẫu cần xác định layer .

Chọn vùng cần lấy các đối tượng cùng layer với đối tượng mẫu.

Đầu ra: mình chọn được các đối tượng có cùng layer với đối tượng gốc trong vùng xác định ạ.

Em cảm ơn các bác nhiều ạ. 

P/s: quan điểm của e nhiều khi chỉ cần những lisp đơn giản tương tự như lisp này nhưng thực sự nó rất tiết kiệm thời gian cho người sử dụng. Mình nghĩ mọi người sẽ sử dụng trường hợp này nhiều thôi. Hì, chúc các bác lisper và cadviet ngày càng phát triển bất chấp kinh tế suy thoái khó khă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
KangKung    229

Lisp đây bác ơi

(defun C:SL()
  (setq lay(cdr (assoc 8 (entget (car (entsel "\n Chon doi tuong mau:\n"))))))
  (setq taphop(ssget (list (cons 8 lay))))
  (sssetfirst nil taphop))

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
ketxu    2.652

Góp tí : KangKung hay viết cẩn thân từng bước code, ưu điểm là rõ ràng và dễ bắt lỗi, nhược điểm là tạo ra quá nhiều biến trung gian, trong khi đó KK lại k bao giờ khử biến (các lisp cho đến lúc này) ^^

 

 

@victor : nặng quá dùng qselect cũng được vậy ^^

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
KangKung    229

Hê hê ý ketxu là thế này chứ gì

(defun C:SL()
  (sssetfirst nil (ssget (list (assoc 8 (entget (car (entsel "\n Chon doi tuong mau:\n"))))))))
Mình viết thế cho bác nào gà mờ về Lisp đọc dễ hiểu tí. Còn việc khử biến thì do lười copy paste nên cứ kệ.  :D  :D  :D
  • Vote tăng 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
ketxu    2.652

Code trên của Kk vẫn thừa :) Trên 4r rất nhiều bác dính lỗi này, bạn thử nhìm lại xem sao

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
KangKung    229

:D  :D  :D Tại copy paste không để ý. Nói như bác Đoàn Văn Hà thì là cởi áo ra rồi mặc lại  :D  :D  :D. Đã sửa lại ở #4

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  

×