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

[hhhhgggg 29]

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

[phamthanhbinh 3.146]

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.

[hhhhgggg 29]

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

[Flex 22]

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.

[hhhhgggg 29]

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

[traitimsat034 15]

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.

[Flex 22]

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.

[hhhhgggg 29]

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

[Flex 22]

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.

[hhhhgggg 29]

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

[duy782006 1.549]

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.

[hhhhgggg 29]

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

[hhhhgggg 29]

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