Lisp vẽ wipeout trên tất cả polyline khép kín đã chọn

[hdt4151 1]

Mình có bình đồ công trình và các text ghi chú, đã vẽ cái khung (polyline khép kín)  bao quanh text rồi. Mình muốn nhờ các bác vẽ thêm wipeout tại những cái khung đó. Chọn 1 làn nhiều khung  rồi tự động vẽ thêm wipeout, không cần xóa polyline gốc

[cuongtk2 356]

Của bạn đây

(defun c:test ( / ss)
  (setq ss (ACET-SS-TO-LIST (ssget '((0 . "LWPOLYLINE")))))
  (foreach ent ss (vl-cmdf "_.wipeout" "_p" ent "_n"))
  )

 

[hdt4151 1]

20 phút trước, cuongtk2 đã nói:

Của bạn đây

(defun c:test ( / ss)
  (setq ss (ACET-SS-TO-LIST (ssget '((0 . "LWPOLYLINE")))))
  (foreach ent ss (vl-cmdf "_.wipeout" "_p" ent "_n"))
  )

 

 

Code gọn và đẹp mắt quá, chạy ok luôn bác ơi. Cám ơn bác nhiều nhé!!

 

Note: khi chạy nó sẽ báo lỗi đối với các polyline có độ dày "The polyline must be made up of zero width line segments only", nhưng cái này khắc phục dễ, chỉnh Global width về 0 là dc. Sau đó chỉnh lại độ dày là ok.

[Duong Nhat Duy 325]

Lisp này mình sưu tầm được của Leemac, nó có thể dùng cho Pline hở hoặc kín, hoặc Pline có đường cong (nó tự sắt nhỏ ra để làm wipeout), và không bị lỗi độ dày.

WP1.lsp