Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] Lisp xóa nhóm đối tượng ở tất cả các Layout


  • Please log in to reply
5 replies to this topic

#1 quangthanhdu

quangthanhdu

    biết vẽ rectang

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

Đã gửi 22 December 2012 - 10:08 AM

Em có cái Lisp copy 1 nhóm đối tượng từ 1 layout sang tất cả các layout.... Em mong các Anh sửa giúp em: Lisp này sẽ xóa một nhóm đối tượng đã có trên các layout.

(defun c:c1 (/ objects x layouts)
(setq objects (ssget))
(setq layouts (getvar "ctab"))
(command "_copybase" "0,0" objects "")
(command "erase" "p" "")
(foreach x (layoutlist)
(setvar "ctab" x)
(command "_pasteblock" "0,0")
(command "explode" "l" "")
)
(setvar "ctab" layouts)
(princ))

  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 22 December 2012 - 10:44 AM

Vô phương giúp đỡ :) Nhóm đấy là nhóm nào :o Lấy cơ sở nào để xác định nhóm ở Layout này so với nhóm khác ở Layout khác. Nếu có làm được thì cũng bắt bạn phải chọn theo 1 khung cố định tọa độ
  • 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


#3 quangthanhdu

quangthanhdu

    biết vẽ rectang

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

Đã gửi 22 December 2012 - 10:50 AM

Vô phương giúp đỡ :) Nhóm đấy là nhóm nào :o Lấy cơ sở nào để xác định nhóm ở Layout này so với nhóm khác ở Layout khác. Nếu có làm được thì cũng bắt bạn phải chọn theo 1 khung cố định tọa độ

Dạ, ban đầu mình sẽ chon một nhóm đối tượng ở 1 layout, lisp sẽ duyệt qua tất cả các Layout còn lại, ở tọa độ đó nếu có đối tượng thì sẽ xóa, không thì bỏ qua và duyệt qua Layout tiếp theo.
(Lisp trên copy 1 nhóm đối tượng được chon qua tất cả các layout còn lại, em nghĩ nếu mình làm công việc ngược lại, tức là không copy mà xóa một nhóm đối tượng được chon ở 1 layout thì Lisp sẽ như thế nào? ).
  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 22 December 2012 - 11:00 AM

Bạn hình dung ra "ở tọa độ đó" là cái j không ^^ Nếu là Line thì tọa độ đó là tọa độ gì, nếu là Spline, Text, Block, Xref... ^^
Cái lisp trên nó copyclip + paste chủ động, khác với việc dò ngược lại như yêu cầu của bạn
  • 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


#5 quangthanhdu

quangthanhdu

    biết vẽ rectang

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

Đã gửi 22 December 2012 - 11:13 AM

Bạn hình dung ra "ở tọa độ đó" là cái j không ^^ Nếu là Line thì tọa độ đó là tọa độ gì, nếu là Spline, Text, Block, Xref... ^^
Cái lisp trên nó copyclip + paste chủ động, khác với việc dò ngược lại như yêu cầu của bạn

Thế bây giờ mình phải làm sao? Có Anh nào có ý kiến đóng góp gì cho em không?... (Hay ở một layout chọn đối tượng, mình vẽ 1 hình chữ nhật bao quanh đối tượng, các đối tượng nằm nằm hình chữ nhật sẽ xóa. Các này có đơn giãn hơn hay không???). :blush:
  • 0

#6 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 22 December 2012 - 12:00 PM

Có, cách đấy thì đơn giản hơn. chắc tí các bác khác đọc đc sẽ giúp bạn, mình k có máy e code vớ vẩn ^^
  • 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