Đến nội dung


Hình ảnh
- - - - -

Lisp xóa toàn bộ đối tượng được ngăn bởi đường thẳng


  • Please log in to reply
47 replies to this topic

#1 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 15 September 2009 - 03:13 PM

Em có được đọc topic về lisp xóa toàn bộ đối tượng trong vùng khép kín ở đây: http://www.cadviet.c...showtopic=11747 Em muốn thay đổi lisp để có thể xóa toàn bộ các đối tượng nằm về 1 phía của 1 đường thẳng như trong ví dụ này http://www.cadviet.c...les/2/vi_du.dwg. Nhờ bác Thiep và bác Gia_bach và các bác am hiểu về lisp sửa giúp nhé :s_big:
  • 0

#2 haitest

haitest

    biết zoom

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

Đã gửi 15 September 2009 - 04:01 PM

Em có được đọc topic về lisp xóa toàn bộ đối tượng trong vùng khép kín ở đây: http://www.cadviet.c...showtopic=11747 Em muốn thay đổi lisp để có thể xóa toàn bộ các đối tượng nằm về 1 phía của 1 đường thẳng như trong ví dụ này http://www.cadviet.c...les/2/vi_du.dwg. Nhờ bác Thiep và bác Gia_bach và các bác am hiểu về lisp sửa giúp nhé :s_big:

Hay quá! Nhưng tôi nghĩ rằng là được điều đó thật khó!
  • 0

#3 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 15 September 2009 - 04:03 PM

Em có được đọc topic về lisp xóa toàn bộ đối tượng trong vùng khép kín ở đây: http://www.cadviet.c...showtopic=11747 Em muốn thay đổi lisp để có thể xóa toàn bộ các đối tượng nằm về 1 phía của 1 đường thẳng như trong ví dụ này http://www.cadviet.c...les/2/vi_du.dwg. Nhờ bác Thiep và bác Gia_bach và các bác am hiểu về lisp sửa giúp nhé :s_big:


Với các công cụ của cad bạn làm việc này cũng chẳng mất bao nhiêu công sức và thời gian mà. Bạn thử lệnh extrim của express tool chưa?lisp chi cho rắc rối hả bạn.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#4 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 15 September 2009 - 08:19 PM

Lệnh Extrim thì em biết rồi, có điều có nhiều lúc mình làm thế nó hơi thủ công, em nghĩ là dùng lisp nhiều lúc vẫn hay hơn. Không phải em ko biết lệnh trước khi biết autolisp như bác Trang nói đâu. Em cũng nghĩ điều này cũng ko phải là quá khó, nếu như các bác kia đã viết được cái lisp EWB
  • 0

#5 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 16 September 2009 - 12:31 AM

Mình không có ý nói bạn không biết các lệnh của AutoCAD. Mà là mình nên sử dụng hết tất cả các lệnh của AutoCAD rồi hãy nghĩ đến việc tạo 1 lệnh AutoLisp mới. Không nên lạm dụng AutoLisp. AutoLisp không phải là chiếc đũa thần của chúng ta.

Thế này nhé, bạn có biết các lệnh sau không nhé:

1- Chuyển 1 block thành Xref

2- Copy từ bản vẽ A và paste vào bản vẽ B với cùng tọa độ của bản vẽ A

3- Copy thông tin từ file Excel vào file *.dwg với định dạng của AutoCAD - đối tượng của CAD

4- Set lại đường dẫn cho các đối tượng trong file AutoCAD

5- Thay đổi hàng loạt giá trị của Attribute Block mà không cần mở bản vẽ

Nếu bạn trả lời được hết câu hỏi của mình thì rất hoan nghênh bạn gia nhập thế giới lập trình hỗ trợ cho AutoCAD :s_big:

Ko cần phải xem, em có thể nói luôn là có nhiều cái bác yêu cầu em hoàn toàn chưa biết, và em có thể khẳng định là nhiều người trong diễn đàn và nhiều người sử dụng autocad cũng sẽ ko biết mấy cái lệnh của bác yêu cầu. Tuy nhiên em nghĩ rằng, học autocad là 1 quá trình lâu dài và 1 trong những phương pháp học đó là học hỏi mọi người trên diễn đàn. Em cũng biết rất nhiều người trên diễn đàn ngày trước chỉ được coi là "học mót" thôi, tuy nhiên sau một quá trình cố gắng thì họ đã đạt được những kiến thức cực tốt. Và em cũng biết các bác đó sau khi đã thành công thì đã quay lại và giúp đỡ những newbie như em và những người khác một cách nhiệt tình mà không bao h phải đặt ra những điều lệ này nọ hay phải bắt bọn em phải trả lời hết câu hỏi này nọ mới hỗ trợ cho đâu.
Như bác nói thì em (và nhiều người khác) có thể ko bao h được hỗ trợ bởi 1 tài năng lớn như bác (cứ cho là thế đi), và thú thật, nếu được bác giúp đỡ kiểu này em cũng chẳng có hứng thú j mấy đâu.
  • 0

#6 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 16 September 2009 - 12:50 AM

Em nghĩ là nên làm nhiều hơn nói thì hay hơn!
  • 0

#7 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 16 September 2009 - 01:02 AM

Em chẳng phải là dân Hà Thành, cũng chẳng thông minh và sắc sảo, em nghĩ mình hợp với câu "cần cù bù thông minh" hơn :|
  • 0

#8 Snowman

Snowman

    biết lệnh mirror

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

Đã gửi 16 September 2009 - 01:23 AM

Mình không có ý nói bạn không biết các lệnh của AutoCAD. Mà là mình nên sử dụng hết tất cả các lệnh của AutoCAD rồi hãy nghĩ đến việc tạo 1 lệnh AutoLisp mới. Không nên lạm dụng AutoLisp. AutoLisp không phải là chiếc đũa thần của chúng ta.

Thế này nhé, bạn có biết các lệnh sau không nhé:

1- Chuyển 1 block thành Xref

2- Copy từ bản vẽ A và paste vào bản vẽ B với cùng tọa độ của bản vẽ A

3- Copy thông tin từ file Excel vào file *.dwg với định dạng của AutoCAD - đối tượng của CAD

4- Set lại đường dẫn cho các đối tượng trong file AutoCAD

5- Thay đổi hàng loạt giá trị của Attribute Block mà không cần mở bản vẽ

Nếu bạn trả lời được hết câu hỏi của mình thì rất hoan nghênh bạn gia nhập thế giới lập trình hỗ trợ cho AutoCAD :s_big:


Chung quy lại là bạn A muốn bạn B cũng fải qua một quá trình giống như "nhiều người trên diễn đàn ngày trước chỉ được coi là "học mót" thôi, tuy nhiên sau một quá trình cố gắng thì họ đã đạt được những kiến thức cực tốt", chứ ko muốn bạn B ...
Xin gợi ý cho B một cách làm rất "Việt Nam" thế này (vẫn dùng được lisp sẵn có mà ko fải fiền ai cả :cheers: ):
B1- Lấy đường line của bạn làm cơ sở, vẽ đại một đường rồng rắn bao tất cả các thứ cần xóa đi (vẽ thật to, thật rộng sao cho bao ...hết 1/2 mặt fẳng Model là tốt nhất - cái này để cho giống ý nghĩa "đuờng phân cách" :gun: )
B2- Lấy cái lisp mà bạn đã load được, dùng vô tư :s_big:
B3- nếu bạn vẫn bảo lưu ý kiến, xem lại ...buớc 1 :s_big:
  • 1

. - ' * ' - .. - ... "Sống trong đời sống cần có một tấm lòng..." . - ' * ' - .. -
-----------------------------------------------------------------------------------

Hình đã gửi Hình đã gửi


#9 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 16 September 2009 - 02:16 AM

Hay, bác đúng là người Việt Nam :s_big:)
  • 0

#10 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 16 September 2009 - 07:10 AM

Lệnh Extrim thì em biết rồi, có điều có nhiều lúc mình làm thế nó hơi thủ công, em nghĩ là dùng lisp nhiều lúc vẫn hay hơn. Không phải em ko biết lệnh trước khi biết autolisp như bác Trang nói đâu. Em cũng nghĩ điều này cũng ko phải là quá khó, nếu như các bác kia đã viết được cái lisp EWB

Mình không hiểu lệnh extrim thì thủ công chổ nào vì theo mình biết thì cách dừng nó như sau:
-Nhập lệnh.
-Chọn đối tượng (cụ thề trường hợp của bạn là line)
-Pick ra phía muốn xóa
=====>xong. Cad sẽ cắt trụi lủi cái gì nó cắt qua và bạn xóa phần còn lại chưa đầy 1 phút mà. Còn đúng như snowman nói đấy nếy thích dùng lisp thì dùng vậy là được. Chúc buổi sáng vui vẽ!
  • 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


#11 thiep

thiep

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 369 Bài viết
Điểm đánh giá: 260 (khá)

Đã gửi 16 September 2009 - 09:23 AM

Mình không hiểu lệnh extrim thì thủ công chổ nào vì theo mình biết thì cách dừng nó như sau:
-Nhập lệnh.
-Chọn đối tượng (cụ thề trường hợp của bạn là line)
-Pick ra phía muốn xóa
=====>xong. Cad sẽ cắt trụi lủi cái gì nó cắt qua và bạn xóa phần còn lại chưa đầy 1 phút mà. Còn đúng như snowman nói đấy nếy thích dùng lisp thì dùng vậy là được. Chúc buổi sáng vui vẽ!

Thiep nghĩ Hai_1401 muốn kết hợp 2 lệnh: extrim để xóa các đối tượng giao với line, và lệnh xóa các đối tượng còn lại trong miền trên hay dưới line.
Nếu ta phối hợp với 2 biến hệ thống "extmin" và "extmax" thì sẽ tìm được đường bao miền trên hay miền dưới này.
  • 0

#12 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 16 September 2009 - 11:42 AM

Mình không hiểu lệnh extrim thì thủ công chổ nào vì theo mình biết thì cách dừng nó như sau:
-Nhập lệnh.
-Chọn đối tượng (cụ thề trường hợp của bạn là line)
-Pick ra phía muốn xóa
=====>xong. Cad sẽ cắt trụi lủi cái gì nó cắt qua và bạn xóa phần còn lại chưa đầy 1 phút mà. Còn đúng như snowman nói đấy nếy thích dùng lisp thì dùng vậy là được. Chúc buổi sáng vui vẽ!

Thế nếu bản vẽ có số lượng cực lớn, thì lại phải chọn toàn bộ các đối tượng ở vùng đó để Earse đi hả bác? Nếu dung lượng bản vẽ mà lên đến 50M thì em nghĩ là ko thể dưới 1 phút được đâu!
  • 0

#13 nataca

nataca

    biết lệnh adcenter

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

Đã gửi 16 September 2009 - 11:46 AM

Thế nếu bản vẽ có số lượng cực lớn, thì lại phải chọn toàn bộ các đối tượng ở vùng đó để Earse đi hả bác? Nếu dung lượng bản vẽ mà lên đến 50M thì em nghĩ là ko thể dưới 1 phút được đâu!

nhưng với lisp EWB thì bạn phải chờ lâu hơn rất nhiều đấy.
  • 0

#14 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 16 September 2009 - 01:00 PM

Thế nếu bản vẽ có số lượng cực lớn, thì lại phải chọn toàn bộ các đối tượng ở vùng đó để Earse đi hả bác? Nếu dung lượng bản vẽ mà lên đến 50M thì em nghĩ là ko thể dưới 1 phút được đâu!

Đây là một trường hợp bạn tưởng tượng ra để nói. Một bản vẽ lên đến 50M, bạn chẳng thể vô tư vạch 1 đuờng line rồi cắt phéng 1 nhát cho bay luôn một phần bản vẽ.
Với mình mỗi một đối tượng trên bản vẽ, trước khi xoá đi mình luôn fải cân nhắc xem chắc chắn mình có muốn xoá nó ko. vì xoá thì nhanh lắm, nhưng vẽ thì mất công hon rất nhiều.

Mình đồng ý với ý kiến của Trang. Mặc dù lisp giúp hỗ trợ tự động hoá công việc khá tốt. Nhưng nếu lê thuộc vào lisp quá nhiều sẽ khiến khả năng thao tác với cad rất kém. Trước khi đến với Lisp, mình đã tương đối hài lòng với những gì mà cad cung cấp.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#15 Gatesi

Gatesi

    biết vẽ arc

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

Đã gửi 16 September 2009 - 02:17 PM

Mình không có ý nói bạn không biết các lệnh của AutoCAD. Mà là mình nên sử dụng hết tất cả các lệnh của AutoCAD rồi hãy nghĩ đến việc tạo 1 lệnh AutoLisp mới. Không nên lạm dụng AutoLisp. AutoLisp không phải là chiếc đũa thần của chúng ta.

Thế này nhé, bạn có biết các lệnh sau không nhé:

1- Chuyển 1 block thành Xref

2- Copy từ bản vẽ A và paste vào bản vẽ B với cùng tọa độ của bản vẽ A

3- Copy thông tin từ file Excel vào file *.dwg với định dạng của AutoCAD - đối tượng của CAD

4- Set lại đường dẫn cho các đối tượng trong file AutoCAD

5- Thay đổi hàng loạt giá trị của Attribute Block mà không cần mở bản vẽ

Nếu bạn trả lời được hết câu hỏi của mình thì rất hoan nghênh bạn gia nhập thế giới lập trình hỗ trợ cho AutoCAD :s_big:

b có thể trả lời đơn giản những câu hỏi đó không,1 chút gợi ý cho mọi ng chảng hạn !
  • 0

#16 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 16 September 2009 - 03:41 PM

1- Chuyển 1 block thành Xref --> Express/Block/Convert block to Xref

2- Copy từ bản vẽ A và paste vào bản vẽ B với cùng tọa độ của bản vẽ A --> Edit/Paste to Original Coordinate

3- Copy thông tin từ file Excel vào file *.dwg với định dạng của AutoCAD - đối tượng của CAD --> Edit/Paste Special/AutoCAD Entity

4- Set lại đường dẫn cho các đối tượng trong file AutoCAD --> Express/File Tools/Redefine Path

5- Thay đổi hàng loạt giá trị của Attribute Block mà không cần mở bản vẽ --> Express/File Tools/Update Drawing Property Data

AutoCAD hỗ trợ rất nhiều. Nếu bạn nắm vững hết AutoCAD thì bạn có thể làm được mọi thứ mà không cần đến AutoLisp. Bạn chỉ nên nghĩ đến AutoLisp khi bạn nhập dữ liệu ra hết mặt bằng, mặt đứng, mặt cắt công trình của bạn :s_big:


Nếu bạn trả lời được hết câu hỏi của mình thì rất hoan nghênh bạn gia nhập thế giới lập trình hỗ trợ cho AutoCAD

Chào bạn Trang.

Trong 5 câu thì
câu 1 ; câu 4; câu 5 : -> Vận dụng AutoLisp
Câu 2; câu 3 -> Sử dụng CAD

đúng là AutoCAD hỗ trợ rất nhiều. Bạn có chắc rằng bạn nắm vững hết AutoCAD thì bạn có thể làm được mọi thứ mà không cần đến AutoLisp không? Tue_NV nghĩ là bạn không thể. Bằng chứng là bạn đưa ra 5 câu hỏi mà trong đó có 3 câu là vận dụng Lisp rồi

Mình đồng ý với ý kiến của Trang. Mặc dù lisp giúp hỗ trợ tự động hoá công việc khá tốt. Nhưng nếu lê thuộc vào lisp quá nhiều sẽ khiến khả năng thao tác với cad rất kém. Trước khi đến với Lisp, mình đã tương đối hài lòng với những gì mà cad cung cấp.

Tue_NV đồng ý với bạn là nên tìm hiểu các lệnh của CAD. Nó có tác dụng hỗ trợ công việc vẽ của ta rất tốt. Hơn nữa khi nắm vững kiến thức của CAD, ta lại dùng kiến thức của CAD hỗ trợ lại khi ta viết Lisp

Còn hài lòng với những gì mà cad cung cấp ư? Bạn nên trả lời thật lòng của mình thì hay hơn

TB : Extrim là lệnh của Lisp chứ không nằm trong CAD
  • 0

#17 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 16 September 2009 - 04:21 PM

Thôi các bác ạ đừng đi lan man về việc này nửa. Mổi người có cách nghỉ riêng và làm việc theo thói quen. Riêng bản thân mình thì khoái dùng lisp nhứt hạng nên có nhửng lisp làm những việc rất vớ vẩn mình vẫn viết lisp. Còn việc dùng hoài rồi bị phụ thuộc thì mình làm 1 bộ di động lun đi đâu thì đem theo <_< .
  • 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


#18 vndesperados

vndesperados

    biết lệnh xref

  • Members
  • PipPipPipPipPipPipPip
  • 547 Bài viết
Điểm đánh giá: 253 (khá)

Đã gửi 16 September 2009 - 05:22 PM

Mình không có ý nói bạn không biết các lệnh của AutoCAD. Mà là mình nên sử dụng hết tất cả các lệnh của AutoCAD rồi hãy nghĩ đến việc tạo 1 lệnh AutoLisp mới. Không nên lạm dụng AutoLisp. AutoLisp không phải là chiếc đũa thần của chúng ta.

Thế này nhé, bạn có biết các lệnh sau không nhé:

1- Chuyển 1 block thành Xref

2- Copy từ bản vẽ A và paste vào bản vẽ B với cùng tọa độ của bản vẽ A

3- Copy thông tin từ file Excel vào file *.dwg với định dạng của AutoCAD - đối tượng của CAD

4- Set lại đường dẫn cho các đối tượng trong file AutoCAD

5- Thay đổi hàng loạt giá trị của Attribute Block mà không cần mở bản vẽ

Nếu bạn trả lời được hết câu hỏi của mình thì rất hoan nghênh bạn gia nhập thế giới lập trình hỗ trợ cho AutoCAD :s_big:


Câu 1: Không biết
Câu 2: Cái này thì biết
Câu 3: Chưa hiểu
Câu 4: Chưa hiểu luôn
Câu 5: Chưa làm bao giờ
Hehhehhe
Vậy mà cũng được anh em trong diễn đàn gọi là cao thủ rùi
Tự nhiên nhớ nhân vật Hư Trúc trong "Thiên Long Bát Bộ", dùn có mỗi võ công nhập môn của Thiếu lâm là Vi Đà Chưởng mà đánh Cưu Ma Trí lên bờ xuống ruông luôn
hehhehhe
  • 0

#19 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 16 September 2009 - 09:46 PM

Mình nhờ các bạn giúp thực hiện lệnh extrim cho file đơn giản sau nhưng kg đc thay đổi tính chất các đối tg
Hình đã gửi
file cad http://www.cadviet.c.../dungextrim.dwg
  • 0

#20 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 16 September 2009 - 10:41 PM

:s_big: nếu đổi linetype thì dùng extrim được. :cheers:

Vấn đề là kg thay đổi linetype, có extrim đc kg
  • 0