Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu]nhờ viết lisp explode tất cả các block có trong bản vẽ


  • Please log in to reply
8 replies to this topic

#1 tbinhvn

tbinhvn

    biết pan

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

Đã gửi 16 October 2013 - 09:42 AM

Các bác share giúp em với!

Em tìm trong diễn đàn nhưng chưa thấy!


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 16 October 2013 - 09:51 AM

Lisp chi mệt vậy? Cad OK mà!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 dinhvantrang

dinhvantrang

    biết lệnh copy

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

Đã gửi 16 October 2013 - 10:25 AM

Thiệt bó tay chủ thớt luôn!


  • 0

Thanks and Best Regards

Skype : dinhvantrang73


#4 tbinhvn

tbinhvn

    biết pan

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

Đã gửi 16 October 2013 - 11:09 AM

Lisp chi mệt vậy? Cad OK mà!

Có quá nhiều block khác nhau, không thể chọn hết được. Mình thử dùng lệnh filter rồi. Thanks!


  • 0

#5 sgcq

sgcq

    Hội Hai Lúa

  • Members
  • PipPipPipPipPipPipPip
  • 1880 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 16 October 2013 - 11:33 AM

:D :D :D

Nếu bí thì dùng cách của 2 lúa nè:

Bước 1: Chọn tất cả các đối tượng không phài là block. (Bạn có quyền xài filter nếu thích)

Bước 2: Xóa tất cả các đối tượng đã chọn được ở bước 1.

Bước 3: Làm lại từ bước 1-2 cho đến khi bảo đảm tất cả các đối tượng không phải là block đã được xóa hết.

Bước 4: 2 lúa chắc chắn rằng nếu bạn vượt qua được 2 bước trên thì số đối tượng còn lại sẽ là các block. Bạn chọn lấy nó.

Bước 5: Explode và hưởng thành quả.

Bước 6: dùng lệnh pu để tẩy hàng thừa trong file cad.

Bước 7: dùng lệnh insert để kiểm tra bảo đảm không còn block nào trong bản vẽ.

Bước 8: Làm lại từ bước 1->7 nếu còn phát hiện thấy block chưa được xử lý hết.

:D :D :D


  • 1

12728974_230210507314169_718723558582070 HỘI HAI LÚA

           fanpage: https://www.facebook.com/HoiHaiLua/

 

 

 

 

 

 


#6 tbinhvn

tbinhvn

    biết pan

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

Đã gửi 16 October 2013 - 11:42 AM

:D :D :D

Nếu bí thì dùng cách của 2 lúa nè:

Bước 1: Chọn tất cả các đối tượng không phài là block. (Bạn có quyền xài filter nếu thích)

Bước 2: Xóa tất cả các đối tượng đã chọn được ở bước 1.

Bước 3: Làm lại từ bước 1-2 cho đến khi bảo đảm tất cả các đối tượng không phải là block đã được xóa hết.

Bước 4: 2 lúa chắc chắn rằng nếu bạn vượt qua được 2 bước trên thì số đối tượng còn lại sẽ là các block. Bạn chọn lấy nó.

Bước 5: Explode và hưởng thành quả.

Bước 6: dùng lệnh pu để tẩy hàng thừa trong file cad.

Bước 7: dùng lệnh insert để kiểm tra bảo đảm không còn block nào trong bản vẽ.

Bước 8: Làm lại từ bước 1->7 nếu còn phát hiện thấy block chưa được xử lý hết.

:D :D :D

Nếu làm như bác thì đến bước 5 làm sao khôi phục lại đối tượng đã xóa ở bước 2 ? Em muốn giữ lại tất cả các đối tượng chỉ explode các block thôi.

Thanks bác đã trả lời!


  • 0

#7 sgcq

sgcq

    Hội Hai Lúa

  • Members
  • PipPipPipPipPipPipPip
  • 1880 Bài viết
Điểm đánh giá: 692 (tốt)

Đã gửi 16 October 2013 - 12:07 PM

:D :D :D

Úi chà, bác lại thêm điều kiện vào đề bài rồi. Vậy làm như sau:

Khai triển thay thế bước 2:

Bước 2.1: dùng lệnh cut

Bước 2.2: dùng lệnh new

Bước 2.3: dùng lệnh paste. Lúc này các đối tượng ở bước 1 sẽ nằm ở file mới tạo bằng lệnh new.

Quay về file cũ để tiếp tục quy trình đến bước 7. Bổ sung bước trả đối tượng:

Bước 9.1: Qua file mới tạo, chọn tất cả đối tượng.

Bước 9.2: Lệnh copy

Bước 9.3: Quay về file cũ.

Bước 9.4: Lệnh paste.

:D :D :D

 

P/S Tất nhiên còn nhiều cách để xử lý vấn đề mà bạn muốn làm. VD: xref, write block, USD ... Cách 2 lúa khuyến khích bạn là up file lên đây, sẽ có người xử vấn đề đơn giản đó cho bạn.

:D :D :D


  • 0

12728974_230210507314169_718723558582070 HỘI HAI LÚA

           fanpage: https://www.facebook.com/HoiHaiLua/

 

 

 

 

 

 


#8 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 16 October 2013 - 12:51 PM

Qselect hoặc Select Similar => Explode


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#9 tbinhvn

tbinhvn

    biết pan

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

Đã gửi 16 October 2013 - 02:23 PM

Qselect hoặc Select Similar => Explode

Cảm ơn bác ketxu, em nghĩ như vậy là đủ.


  • 0