Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
hhhhgggg

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

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

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 !!!

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
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.

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
Ơ 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.

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
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.

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
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 đỡ !!!

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
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.

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
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.com/download/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.

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
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.

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

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
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.

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
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 !!!!

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
đề 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à ???

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  

×