Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] – Lisp Trim hàng loạt đoạn thẳng nằm giữa nhiều đoạn thẳng song song.


  • Please log in to reply
59 replies to this topic

#21 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 09:48 AM

Có bác nào giúp hộ em tí :((

Hề hề hề,
Một tí thì không được đâu. Đến hai ba tí có khi vẫn còn chả đủ thời gian mà mần chứ nói chi một tí. Ráng chờ nhé.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#22 kid_a2pbc

kid_a2pbc

    biết vẽ line

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

Đã gửi 10 December 2012 - 10:27 AM

Hề hề hề,
Một tí thì không được đâu. Đến hai ba tí có khi vẫn còn chả đủ thời gian mà mần chứ nói chi một tí. Ráng chờ nhé.

Vâng! cám ơn bác đã quan tâm. :), nếu nhanh được thì tốt quá, he he. Tại xếp đang giục tiến độ mà làm Trim thủ công mỏi cả tay, hoa cả mắt vẫn ko xong :D
  • 0

#23 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 11:59 AM

Vâng! cám ơn bác đã quan tâm. :), nếu nhanh được thì tốt quá, he he. Tại xếp đang giục tiến độ mà làm Trim thủ công mỏi cả tay, hoa cả mắt vẫn ko xong :D

Hề hề hề,
Sau nhiều tí ngẫm nghĩ thì mình làm ra được cái này, không biết đã đúng ý bạn chưa. Hãy dùng thử và cho ý kiến để nếu có thể được mình sẽ chỉnh sửa thêm.
http://www.cadviet.c...4_multitrim.lsp
Chúc bạn hết sốt ruột.
Hề hề hề,...
  • 3
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#24 Hoan1111

Hoan1111

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 01:34 PM

Yêu cầu k khó, n k hiểu sao bạn lại yêu cầu một lisp chữa cháy vậy :)

Sao lại chữa cháy hả bác :D, công việc của em hiện tại cần dùng lisp này để đẩy nhanh tiến độ công việc nên mới nhờ tới các bác. Nếu bác giúp được thì viết hộ em. Em cảm ơn rất nhiều! :)

Nhận định của anh Ketxu là chủ thớt đã yêu cầu một cái lisp chữa cháy rất có lý :rolleyes: :rolleyes: Bởi vì khi cần vẽ các kiểu đường ngang xuyên dọc và dọc xuyên ngang, chẳng ai dớ dẩn vẽ kiểu lẫn thẩn như thế :rolleyes:. AutoCAD có rất nhiều lựa chọn cho người dùng vẽ được nhanh ngay từ đầu mà không cần phải trim cò gì!
  • 1

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#25 victor85

victor85

    biết lệnh stretch

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

Đã gửi 10 December 2012 - 03:11 PM

Vẽ rồi thì chịu. Mệt đấy. Mình thì vẽ các nét giao nhau ấy bằng polyline khén kín, sau đó region hóa các poly line đó. rồi chỉ cần 1 lệnh Union là xong. Ai hiểu được thì làm theo cách của mình. Dám khẳng định là cực nhàn luôn :D
  • 0

#26 kid_a2pbc

kid_a2pbc

    biết vẽ line

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

Đã gửi 10 December 2012 - 03:39 PM

Hề hề hề,
Sau nhiều tí ngẫm nghĩ thì mình làm ra được cái này, không biết đã đúng ý bạn chưa. Hãy dùng thử và cho ý kiến để nếu có thể được mình sẽ chỉnh sửa thêm.
http://www.cadviet.c...4_multitrim.lsp
Chúc bạn hết sốt ruột.
Hề hề hề,...

Cám ơn bác rất nhiều, em đã dùng thử rồi, test trên 2 bản vẽ khác nhau thì có một bản vẽ bão lỗi như sau :
Hình đã gửi
Còn một bản thì nó chỉ cắt được một phần, tức là chỉ được một vài đường ngang thôi. Lúc nào có thời gian bác chỉnh sửa cho em với, em cám ơn bác! :)
  • 0

#27 EDIT

EDIT

    biết vẽ line

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

Đã gửi 10 December 2012 - 04:11 PM

Đây! Có đây. Muốn giúp ah? Đi mua kem rồi mang sang biếu anh ngồi bên phải đây. Có liền, có liền.
  • 0

#28 EDIT

EDIT

    biết vẽ line

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

Đã gửi 10 December 2012 - 04:25 PM

Do đặc thù công việc như vậy nên bạn kid_a2 mới bắt buộc phải trim như vậy. Vì đây là bản sửa từ bản vẽ kiến trúc ( k phải bản vẽ mới do mình vẽ) mà còn phụ thuộc nhiều yếu tố như cách chia thanh dọc thanh ngang như là cắt đến đâu, thanh nào continue, thanh nào phải cắt. Mong mọi ng viết lisp cho bạn theo ý của bạn ấy chứ đừng nên bắt bạn ấy làm theo ý các bạn. Tuy các ý kiến đó cũng hay nhưng k phù hợp với công việc của bạn ấy. Cảm ơn mọi người.
  • 0

#29 EDIT

EDIT

    biết vẽ line

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

Đã gửi 10 December 2012 - 04:44 PM

http://www.cadviet.c...113486_zxcv.dwg
Ví dụ như thế này ah. Mình phải chia các lại các thanh từ hình trái thành hình bên phải. Các thanh dọc để continue, các thanh ngang sẽ bị cắt. Tại những vị trị có cửa trượt thì các thanh ngang lại continue, các thanh dọc bị cắt. Vì khoảng cách nhỏ nên zoom, pan nhiều sẽ rất lâu và mỏi mắt. Khối lượng công vc lớn nên làm thủ công thì k ổn. Mong các anh e xem lại yêu cầu rồi viết lại lisp đc như ý chủ thớt.
  • 0

#30 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 04:47 PM

Cám ơn bác rất nhiều, em đã dùng thử rồi, test trên 2 bản vẽ khác nhau thì có một bản vẽ bão lỗi như sau :

Còn một bản thì nó chỉ cắt được một phần, tức là chỉ được một vài đường ngang thôi. Lúc nào có thời gian bác chỉnh sửa cho em với, em cám ơn bác! :)

Hề hề hề,
Việc nó chỉ cắt được một vài đường là có thể do khi bạn chọn đối tượng, màn hình chưa zoom all.
Việc ở bản vẽ sau bạn không dùng được có thể do bạn chưa load lisp này vào bản vẽ đó. Bạn nên nhớ lisp chỉ hoạt động trên bản vẽ nào bạn có load nó mà thôi, trừ trường hợp bạn load lisp vào trong Startup Suite.
Mình đã test thử thì thấy hoàn toàn không có lỗi như bạn nói. Có thể bạn sử dụng chưa đúng cách chăng.
Cách dùng cụ thể như sau:
1/- Mở bản vẽ cần sửa,
2/- Load lisp multitrim vào bản vẽ.
3/- Gõ lệnh multr
4/- Khi lisp hiện thông báo, nhấp Ok và chọn các đường cần cắt bỏ (khác với lệnh trim là chọn đường cắt trước rồi mới chọn đường cần cắt).Phải zomm màn hình về sao cho thấy hết các đường cần cắt.
5/- Khi đã chọn xong các đường cần cắt thì nhấn enter để lisp thực hiện nhiệm vụ.

Mình đã bổ sung lệnh zoom extents và zoom previous để bạn không cần zoom màn hình bằng tay nữa.

Hãy thử lại nhé.
http://www.cadviet.c...multitrim_1.lsp

Chúc bạn vui.
Hề hề hề,..
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#31 Hoan1111

Hoan1111

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 04:53 PM

Cám ơn bác rất nhiều, em đã dùng thử rồi, test trên 2 bản vẽ khác nhau thì có một bản vẽ bão lỗi như sau :
Hình đã gửi
Còn một bản thì nó chỉ cắt được một phần, tức là chỉ được một vài đường ngang thôi. Lúc nào có thời gian bác chỉnh sửa cho em với, em cám ơn bác! :)

1) Một bản bị lỗi là do chưa Ap đã gõ lệnh!
2) Một bản chỉ cắt được một phần là do phần còn lại vẽ bằng lệnh MLINE
3) Nếu vẽ bằng lệnh MLINE phải phá vỡ MLINE mới dùng lisp trim được, và nó cũng chỉ trim được một phần nào thôi, còn lại vẫn phải trim thủ công!
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#32 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 10 December 2012 - 04:54 PM

http://www.cadviet.c...113486_zxcv.dwg
Ví dụ như thế này ah. Mình phải chia các lại các thanh từ hình trái thành hình bên phải. Các thanh dọc để continue, các thanh ngang sẽ bị cắt. Tại những vị trị có cửa trượt thì các thanh ngang lại continue, các thanh dọc bị cắt. Vì khoảng cách nhỏ nên zoom, pan nhiều sẽ rất lâu và mỏi mắt. Khối lượng công vc lớn nên làm thủ công thì k ổn. Mong các anh e xem lại yêu cầu rồi viết lại lisp đc như ý chủ thớt.

Qua file bản vẽ - nếu nó giống chủ topic (vì mình thấy hình như 2 bạn ngồi một chỗ) - thì khẳng định luôn là chủ topic đã làm mất khá nhiều thời gian của NHỮNG AI ĐỊNH VIẾT GIÚP. Khác hoàn toàn với hình vẽ nhé :) Mặc dù kêu gọi post file từ những bài đầu nhưng đến bài 29 mới lộ ra thế này @@
  • 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


#33 EDIT

EDIT

    biết vẽ line

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

Đã gửi 10 December 2012 - 05:05 PM

Mong mọi người thông cảm vì chủ thớt trình bày chưa được rõ ý đồ lắm. Lisp này anh Ketxu viết thì đơn giản rồi. Hì! Các a vất vả quá.
  • 0

#34 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 10 December 2012 - 05:11 PM

Tôi cũng định giúp chủ topic vì thấy bạn ấy rên quá (và đang viết gần xong). Tình cờ đọc bản vẽ của bạn, thấy y/c khác hoắc khác hơ. Với y/c này thì.... Nhất là mấy cái "cửa kính" nằm trên cùng, nó ngẫu hứng quá đi thôi.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#35 kid_a2pbc

kid_a2pbc

    biết vẽ line

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

Đã gửi 10 December 2012 - 05:13 PM

Qua file bản vẽ - nếu nó giống chủ topic (vì mình thấy hình như 2 bạn ngồi một chỗ) - thì khẳng định luôn là chủ topic đã làm mất khá nhiều thời gian của NHỮNG AI ĐỊNH VIẾT GIÚP. Khác hoàn toàn với hình vẽ nhé :) Mặc dù kêu gọi post file từ những bài đầu nhưng đến bài 29 mới lộ ra thế này @@

Cái của em nó không giống như bạn Edit bảo đâu bác. Các bác cứ làm giống như em là được. @@
  • 0

#36 EDIT

EDIT

    biết vẽ line

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

Đã gửi 10 December 2012 - 07:47 PM

Cái file e up chỉ là ví dụ thôi. Công việc thì đại loại là như vậy. Anh Ketxu, anh Doan Van Ha, anh Pham Thanh Binh và mọi người xem rồi viết hộ bạn chủ thớt đúng theo như yêu cầu của bạn ấy nhé.
  • 0

#37 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 08:17 PM

Cái của em nó không giống như bạn Edit bảo đâu bác. Các bác cứ làm giống như em là được. @@

Hề hề hề,
Bạn đã test lại như mình nói chưa??? Nếu vẫn chưa được thì hãy gửi b3n vẽ của bạn lên chứ đoán mò thì khó quá...
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#38 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 10 December 2012 - 08:44 PM

Hề hề hề,
Bạn đã test lại như mình nói chưa??? Nếu vẫn chưa được thì hãy gửi b3n vẽ của bạn lên chứ đoán mò thì khó quá...

Bác Bình: tôi test của bác rồi. Nó cắt xong và tạo thành từng hình chữ nhật riêng lẻ chứ không như y/c chủ topic. Bác xem lại thứ tự các line bất kỳ xem sao.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#39 Hoan1111

Hoan1111

    biết lệnh adcenter

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

Đã gửi 10 December 2012 - 09:04 PM

Bác Bình: tôi test của bác rồi. Nó cắt xong và tạo thành từng hình chữ nhật riêng lẻ chứ không như y/c chủ topic. Bác xem lại thứ tự các line bất kỳ xem sao.

Nếu tất cả các đường vẽ bằng LINE em thấy nó vẫn cắt được bình thường
Chỉ có vẽ bằng MLINE không cắt được , sau khi phá vỡ bằng lệnh X thì cắt được bình thường . Chỉ khác thường là sau khi bấm chọn 0K xong hình vẽ nó tự động Zoom thay đổi vị trí trên màn hình.
  • 0

66 Câu Phật Học Cho Cuộc Sống : http://ngocchinh.com...-cho-cuoc-song/

Gió đưa cây cải về trời / Rau răm ở lại chịu lời đắng cay...

 

 


#40 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 10 December 2012 - 09:27 PM

Nếu tất cả các đường vẽ bằng LINE em thấy nó vẫn cắt được bình thường
Chỉ có vẽ bằng MLINE không cắt được , sau khi phá vỡ bằng lệnh X thì cắt được bình thường . Chỉ khác thường là sau khi bấm chọn 0K xong hình vẽ nó tự động Zoom thay đổi vị trí trên màn hình.

Cắt bình thường đối với người này mà không bình thường đối với kia là vẫn chưa bình thường.
Tất nhiên đang nói tới Line.
  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.