Đến nội dung


Hình ảnh
- - - - -

Lisp xoá đối tượng giống nhau


  • Please log in to reply
12 replies to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 03 December 2008 - 07:53 PM

Các bác Pro ơi ! Các bác viết cho em cái Lisp xoá đối tượng như sau : Nếu mà thấy có >=2 đối tượng giống nhau ( Tất cả cá Object của CAD) thì xoá đi và chỉ để lại 2 đối tượng thui !!! Các bác gắng sức viết giúp em nhé, Cảm ơn các bác !!!
  • 0
Hoàng Giang

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 03 December 2008 - 10:04 PM

Các bác Pro ơi ! Các bác viết cho em cái Lisp xoá đối tượng như sau : Nếu mà thấy có >=2 đối tượng giống nhau ( Tất cả cá Object của CAD) thì xoá đi và chỉ để lại 2 đối tượng thui !!! Các bác gắng sức viết giúp em nhé, Cảm ơn các bác !!!

Ơ hơ,
Cái nhà bác hhhhgggg này vui tính nhể, xóa cái gì và để cái gì chứ lị. Xóa tất cả các đối tượng khác hay chỉ xóa những đối tượng giống nhau. Để lại hai đối tượng giống nhau hay hai đối tượng khác nhau Có = hai đối tượng giống nhau thì xóa cái gì ạ. Lại còn giống nữa , cái gì giống , kích thước hay hình dáng hay giống từ cái đền củ ạ.Bác ra cái đề khó chơi thế. Bác làm ơn giải thích cụ thể thì may ra mới có cái hướng mà làm chứ ạ.
Mong bác chớ có kiệm lời quá như vậy.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 04 December 2008 - 01:26 PM

Ơ hơ,
Cái nhà bác hhhhgggg này vui tính nhể, xóa cái gì và để cái gì chứ lị. Xóa tất cả các đối tượng khác hay chỉ xóa những đối tượng giống nhau. Để lại hai đối tượng giống nhau hay hai đối tượng khác nhau Có = hai đối tượng giống nhau thì xóa cái gì ạ. Lại còn giống nữa , cái gì giống , kích thước hay hình dáng hay giống từ cái đền củ ạ.Bác ra cái đề khó chơi thế. Bác làm ơn giải thích cụ thể thì may ra mới có cái hướng mà làm chứ ạ.
Mong bác chớ có kiệm lời quá như vậy.

Cái lisp nào nó bao hàm tất, bây giờ nó cứ phát hiện ra Có >2 đối tượng( bao gồm toàn bộ đối tượng của CAD) thì nó xoá bớt đi chỉ để lại 2 đối tượng thôi chẳng hạn. Muốn xoá cái nào đi cũng được miễn là xoá bớt đi và chỉ để lại 2 đối tượng giống nhau .
Cụ thể hơn nhé, bây giờ trong bản vẽ có 3 cái mũi tên đi theo cùng 1 hướng ( kích thước mũi tên và mọi thông số đều giống nhau, chỉ khác nhau về toạ độ thôi) khi chạy Lisp sẽ tự động xoá đi 1 cái mũi tên để lại 2 cái. Cái lisp này ứng dụng trong xử lý trắc ngang của đường khi chạy nova,THằng NOVA nó điền thiết kế có nhiều đối tượng giống nhau thì mình phải xoá bớt đi cho đẹp bản vẽ. Vạy đấy, mong các bác giúp đỡ em vụ này với.
  • 0
Hoàng Giang

#4 Flex

Flex

    biết lệnh erase

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

Đã gửi 04 December 2008 - 04:55 PM

Cái lisp nào nó bao hàm tất, bây giờ nó cứ phát hiện ra Có >2 đối tượng( bao gồm toàn bộ đối tượng của CAD) thì nó xoá bớt đi chỉ để lại 2 đối tượng thôi chẳng hạn. Muốn xoá cái nào đi cũng được miễn là xoá bớt đi và chỉ để lại 2 đối tượng giống nhau .
Cụ thể hơn nhé, bây giờ trong bản vẽ có 3 cái mũi tên đi theo cùng 1 hướng ( kích thước mũi tên và mọi thông số đều giống nhau, chỉ khác nhau về toạ độ thôi) khi chạy Lisp sẽ tự động xoá đi 1 cái mũi tên để lại 2 cái. Cái lisp này ứng dụng trong xử lý trắc ngang của đường khi chạy nova,THằng NOVA nó điền thiết kế có nhiều đối tượng giống nhau thì mình phải xoá bớt đi cho đẹp bản vẽ. Vạy đấy, mong các bác giúp đỡ em vụ này với.


Làm cái này không khó nhưng nếu để đúng cho mọi trường hợp thì có vẻ lâu đấy. Trong AutoCAD có gần 30 loại đối tượng mà check hết chắc mất nửa tháng. Bạn nên chọn lấy một vài loại điển hình thôi.
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#5 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 04 December 2008 - 05:15 PM

Làm cái này không khó nhưng nếu để đúng cho mọi trường hợp thì có vẻ lâu đấy. Trong AutoCAD có gần 30 loại đối tượng mà check hết chắc mất nửa tháng. Bạn nên chọn lấy một vài loại điển hình thôi.

Vậy thì nhờ bạn làm cho đúng với đối tượng là Text và arrow(mũi tên) vậy ??? Cảm ơn bạn đã nhiệt tình giúp đỡ !!!
  • 0
Hoàng Giang

#6 traitimsat034

traitimsat034

    biết vẽ pline

  • Members
  • PipPip
  • 61 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 04 December 2008 - 09:04 PM

Vậy thì nhờ bạn làm cho đúng với đối tượng là Text và arrow(mũi tên) vậy ??? Cảm ơn bạn đã nhiệt tình giúp đỡ !!!

mình thì ko biết viết lisp nhưng theo mình cái này bạn có thể làm mà ko dùng lisp, tất nhiên vẫn ko đến mức quá thủ công.
-đầu tiên bạn dùng lệnh lọc đối tượng(vì các đối tượng giống nhau) bạn có thể dùng filter, ssx, qselect... nói chung có khá nhiều công cụ lọc.
-sau đấy bạn chỉ cần kết hợp với phím shift để giữ lại hai đối tượng mà bạn muốn giữ ( giữ cái nào là do bạn chọn còn với lisp chưa chắc cái giữ lại đã đúng ý bạn)
-cuối cùng chỉ là erase thế là xong.
hi vọng giúp đc bạn.
  • 0

#7 Flex

Flex

    biết lệnh erase

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

Đã gửi 04 December 2008 - 10:01 PM

Vậy thì nhờ bạn làm cho đúng với đối tượng là Text và arrow(mũi tên) vậy ??? Cảm ơn bạn đã nhiệt tình giúp đỡ !!!


Bạn vào cad-app.com download cai cadapp.zip về nhé (http://www.cad-app.c...load/cadapp.zip)
Trong đấy có hướng dẫn lệnh ED2

Hiện tại mới xóa được các lolyline giống nhau tương đối (Đã test với cái mũi tên).

Text thì chưa có thời gian vì nó có cả MTEXT và Text thường.
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#8 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 05 December 2008 - 09:07 AM

Các bác thử dùng cái Lisp này thử nha, lệnh là ERR
Lisp ERR

Lisp của bác Philipdl và bác Flex ko chạy được, báo lỗi sau khi chọn đối tượng !????????
  • 0
Hoàng Giang

#9 Flex

Flex

    biết lệnh erase

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

Đã gửi 05 December 2008 - 09:36 AM

Lisp của bác Philipdl và bác Flex ko chạy được, báo lỗi sau khi chọn đối tượng !????????


Bào lỗi gì? Cái cadapp này chạy trên cad04-06 nhé. ban hãy YM để trao đổi.
  • 0
Phần mềm và Tiện ích trên AutoCAD
->SHD- Phần mềm TK nhà xưởng thép tiền chế
->Nhận hợp tác thiết kế nhà thép tiền chế
website: www.cad-app.com
email: flexnet@cad-app.com
ym: flex_tools

#10 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 05 December 2008 - 10:50 AM

Bào lỗi gì? Cái cadapp này chạy trên cad04-06 nhé. ban hãy YM để trao đổi.

Thảo nào, cty em dùng CAD 2002 chạy nova nên nó lỗi và ko dùng được rùi . YM của em : KS_Giang
  • 0
Hoàng Giang

#11 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1359 (rất tốt)

Đã gửi 05 December 2008 - 03:16 PM

Cái lisp nào nó bao hàm tất, bây giờ nó cứ phát hiện ra Có >2 đối tượng( bao gồm toàn bộ đối tượng của CAD) thì nó xoá bớt đi chỉ để lại 2 đối tượng thôi chẳng hạn. Muốn xoá cái nào đi cũng được miễn là xoá bớt đi và chỉ để lại 2 đối tượng giống nhau .
Cụ thể hơn nhé, bây giờ trong bản vẽ có 3 cái mũi tên đi theo cùng 1 hướng ( kích thước mũi tên và mọi thông số đều giống nhau, chỉ khác nhau về toạ độ thôi) khi chạy Lisp sẽ tự động xoá đi 1 cái mũi tên để lại 2 cái. Cái lisp này ứng dụng trong xử lý trắc ngang của đường khi chạy nova,THằng NOVA nó điền thiết kế có nhiều đối tượng giống nhau thì mình phải xoá bớt đi cho đẹp bản vẽ. Vạy đấy, mong các bác giúp đỡ em vụ này với.

Mình thì chắc chắn rằng không viết nổi lisp này cho bạn rồi nhưng có 1 vài góp ý thế này:
-Yêu cầu Tìm đối tượng giống nhau hoàn toàn chỉ khác tọa độ cho tất cả đối tượng trong bản vẽ của bạn là điều quá khó khăn.
-Ít ra bạn cũng nên đưa ra điều kiện xóa đối tượng. Ví dụ có 3 cái thì xoá cái nào (nằm giữa, Biên lớn ,biên nhỏ) nếu không thì nếu có ai viết nổi cho bạn cái líp này thì hiệu quả đem lại cũng không cao.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#12 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 05 December 2008 - 03:33 PM

Mình thì chắc chắn rằng không viết nổi lisp này cho bạn rồi nhưng có 1 vài góp ý thế này:
-Yêu cầu Tìm đối tượng giống nhau hoàn toàn chỉ khác tọa độ cho tất cả đối tượng trong bản vẽ của bạn là điều quá khó khăn.
-Ít ra bạn cũng nên đưa ra điều kiện xóa đối tượng. Ví dụ có 3 cái thì xoá cái nào (nằm giữa, Biên lớn ,biên nhỏ) nếu không thì nếu có ai viết nổi cho bạn cái líp này thì hiệu quả đem lại cũng không cao.

đề bài:có các nhóm 4 đối tượng giống nhau sắp xếp theo các hàng ngang 1, các đối tượng giống nhau mà có tung độ chênh lệch nhau < 5 đơn vị thì mình xoá đi 2 đối tượng nằm ngoài của nhóm 4 đối tượng đóốmMng các bác Pro quan tâm giúp đỡ em với !!!!
  • 0
Hoàng Giang

#13 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 11 December 2008 - 07:11 PM

đề bài:có các nhóm 4 đối tượng giống nhau sắp xếp theo các hàng ngang 1, các đối tượng giống nhau mà có tung độ chênh lệch nhau < 5 đơn vị thì mình xoá đi 2 đối tượng nằm ngoài của nhóm 4 đối tượng đóốmMng các bác Pro quan tâm giúp đỡ em với !!!!

hu hu ! Bác Pro nào viết giúp em đi mà ???
  • 0
Hoàng Giang