Sắp xếp polyline theo tổng chiều dài giảm dần

[tuhai610 0]

Chào ace,

Em có 1 vấn đề nhờ ace giúp với. Trên file cad e có nhiều các hình polyline khép kín. Nhờ ace giúp sắp xếp lại tập hợp Entity names theo thứ tự tổng chiều dài giảm dần.

Dưới đây là đoạn trích code.E muốn list ssl sau khi sort có thứ tự giảm dần chiều dài. Cảm ơn ace nhiều.
 

(defun c:Sort (/ ssl txt p1 p2 pt x y z x1 x2 y1 y2 z1 z2 bk )
(vl-load-com)
(setq ssl (acet-ss-to-list (ssget '((-4 . "<OR") (0 . "LWPOLYLINE") (-4 . "OR>")))))


)

 

[Doan Van Ha 3211]

26 phút trước, tuhai610 đã nói:

Chào ace,

Em có 1 vấn đề nhờ ace giúp với. Trên file cad e có nhiều các hình polyline khép kín. Nhờ ace giúp sắp xếp lại tập hợp Entity names theo thứ tự tổng chiều dài giảm dần.

Dưới đây là đoạn trích code.E muốn list ssl sau khi sort có thứ tự giảm dần chiều dài. Cảm ơn ace nhiều.

• sort.lsp
  
• [✎]
   

(defun c:Sort (/ ssl txt p1 p2 pt x y z x1 x2 y1 y2 z1 z2 bk )
(vl-load-com)
(setq ssl (acet-ss-to-list (ssget '((-4 . "<OR") (0 . "LWPOLYLINE") (-4 . "OR>")))))


)

Thêm hàm này vào cuối:

(setq ssl (vl-sort ssl '(lambda(e1 e2) (>= (vlax-curve-getDistAtParam e1 (vlax-curve-getEndParam e1)) (vlax-curve-getDistAtParam e2 (vlax-curve-getEndParam e2))))))

[tuhai610 0]

15 phút trước, Doan Van Ha đã nói:

Thêm hàm này vào cuối:

(setq ssl (vl-sort ssl '(lambda(e1 e2) (>= (vlax-curve-getDistAtParam e1 (vlax-curve-getEndParam e1)) (vlax-curve-getDistAtParam e2 (vlax-curve-getEndParam e2))))))

Great! Cảm ơn Bác @Doan Van Ha .