Nhờ các bac viết lisp hatch nhiều polyline cùng 1 lúc

[ptd1987 5]

Nhờ các bác viết dùm lisp hatch nhiều polyline kín cùng 1 lúc: dùng lệnh, quét chọn nhiều polyline kín, enter > xong !! ( cứ polyline kín là dc hatch, ko cần quan tâm có giao nhau với dối tượng khác hay ko) mẫu hatch lấy theo hiện hành. Em đã lùng sục trong forum và google mấy hôm rồi ko thấy. Thanks

 

[Tot77 508]

Chỉ chọn pline kín, pline hở sẽ báo lỗi.

http://www.cadviet.com/upfiles/3/127168_tmp1_31.lsp

[ketxu 2984]

@Tot77 : Mình nhớ là Hatch có chế độ chọn Object, sao lại cần đến lisp nhỉ :)

 

(defun c:hp()(command ".-Hatch" "s" (ssget (list (cons 0 "*POLYLINE"))) "" ""))
 

[phamthanhbinh 3146]

@Tot77 : Mình nhớ là Hatch có chế độ chọn Object, sao lại cần đến lisp nhỉ :)

 

(defun c:hp()(command ".-Hatch" "s" (ssget (list (cons 0 "*POLYLINE"))) "" ""))
 

Hề hề hề,

Sao bác Ket tiết kiệm hay là hoang thế, không nhét luôn thằng mã 70 vào bộ lọc cho nó ...... oách nhể???

[Doan Van Ha 3202]

Cả lisp của Tot77 lẫn Ketxu đều chưa thỏa mãn y/c của chủ topic: cứ pline kín là hatch, bất kể có giao với object khác hay không.

Bởi khi cho 2 pline kín giao nhau thì sẽ hatch thiếu.

[ketxu 2984]

@Bác Bình : vì kín có thể do Close trong lúc vẽ thì sử dụng dxf 70 để lọc, còn kín do bắt điểm thì không. Nên cứ để thế bác ạ.Ket quick thế để minh hoạ cho lệnh Hatch Object thôi, chứ để kiểm chứng Object kín hay k còn phụ thuộc vào OP định nghĩa thế nào là kín

 

@Bác HẠ : Bác test chưa ạ ^^ cháu chỉ sợ thừa bác ạ, thiếu thì khó :)

[Doan Van Ha 3202]

Đây!

[ketxu 2984]

Ồ, Bác test trên lisp nào, đời CAD bao nhiêu ạ ^^ Cháu xin file đó, vì trên máy cháu thử k có vậy. Về phân tích thì hình trên chỉ xảy ra nếu Hatch bằng Point, còn bằng Object Ket chưa gặp

 

P/s :  thử mãi mới gặp trường hợp giống bác Hạ khi cả 2 thằng k kín. K biết có nằm trong dự trù của OP k nhưng cái đoạn ket viết k có lọc kín đâu ^^ (như đã @ bác Bình) 

[ndtnv 481]

Ồ, Bác test trên lisp nào, đời CAD bao nhiêu ạ ^^ Cháu xin file đó, vì trên máy cháu thử k có vậy. Về phân tích thì hình trên chỉ xảy ra nếu Hatch bằng Point, còn bằng Object Ket chưa gặp

 

P/s :  thử mãi mới gặp trường hợp giống bác Hạ khi cả 2 thằng k kín. K biết có nằm trong dự trù của OP k nhưng cái đoạn ket viết k có lọc kín đâu ^^ (như đã @ bác Bình) 

Biến hệ thống HPSEPARATE

[ketxu 2984]

ồ ở máy ket luôn để separate. H ket ở ngoài rồi, nhờ bác Hạ test thử ^^ Nghe cũng có lý lắm. Tks bác Hạ và bác ntdnv

[Doan Van Ha 3202]

Mọi người test thêm cái này cho vui:

http://www.cadviet.com/upfiles/3/67029_ket_xu.dwg

[Hoan1111 695]

 

Em không dùng biến như bác Ndtvn. Em dùng bỏ chọn Cre.... để có kết quả như của bác Hà

Tạm kết luận: Dùng dùng lệnh H (cad) cũng tương đương dùng lệnh HP (lisp), kết quả như nhau không hơn không kém (Em dùng thử cả AutoCAD2007 và AutoCAD2013)

Vấn đề em muốn biết là làm thế nào để khi hát  thì Pline hở nó không ăn theo Pline kín???

[ndtnv 481]

 

Em không dùng biến như bác Ndtvn. Em dùng bỏ chọn Cre.... để có kết quả như của bác Hà

Tạm kết luận: Dùng dùng lệnh H (cad) cũng tương đương dùng lệnh HP (lisp), kết quả như nhau không hơn không kém (Em dùng thử cả AutoCAD2007 và AutoCAD2013)

Vấn đề em muốn biết là làm thế nào để khi hát  thì Pline hở nó không ăn theo Pline kín???

 

Ô chọn Cre..   <=> HPSEPARATE

Lệnh HP là lệnh Hatch với bộ lọc chỉ chọn các Pline, nếu có thêm các đối tượng khác như Line, Arc.. thì HP không còn tương đương H.

Với các Pline kín, Hatch của từng Pline sẽ phân biệt.

Nếu có Pline hở hoặc Line, các đối tượng hở sẽ bắt cặp với các đối tượng kín cho ra các Hatch không kiểm soát được.

Trong trường hợp này, nếu chọn các đối tượng theo thứ tự khác nhau, kết quả thu được cũng khác nhau

[ketxu 2984]

Xét lại thì tất cả các hình đều có lý của nó ^^ Ket vẫn dạy học sinh là k được Hatch Select Object các đối tượng mà tự thân nó k kín, giờ vẫn giữ quan điểm đó ^^ (trừ TH đặc biệt), k biết đến bao giờ thì thay đổi.

Vụ dính vào nhau thì hatch riêng chắc sẽ ổn thôi 

(defun c:hp()
(setq ss (ssget (list (cons 0 "*POLYLINE"))) i -1)
(while (setq e (ssname ss (setq i (1+ i)))) (command ".-Hatch" "s" e "" ""))
)

Còn vụ thế nào là kín thì tuỳ OP quy định, ket hem ý kiến

[Hoan1111 695]

Em vừa thử lisp của bác, tình hình là  có khác với cái lisp lúc trưa một chút  :) :) :)

Em tò mò muốn hỏi  là có thể sửa lisp hiện giờ thành lisp có hai sự lựa chọn:

1_ Chỉ Hát được Pline kín, không cho Pline hở ăn theo được không ???

2_ Chỉ Hát phần giao của 2 hoặc nhiều Pline giao nhau như ảnh dưới đây được không??? (Cái này trong thực tế, em cũng hay gặp, hát nhiều sẽ mất nhiều thời gian, một vài cái thì không vấn đề gì)