按面积排序

RZYiiicass

  (if
    (Setq Fpx (Ssget(List(Cons 0 "LWPOLYLINE"))))
    (Progn
      (Setq Arxe '() i 0)
      (While
        (Ssname Fpx i)
        (Setq Arxe (Append Arxe(List(List(vlax-get (vlax-ename->vla-object (Ssname Fpx i)) 'Area)(Ssname Fpx i)))))
        (Setq i (1+ i))
        )
      )
    )

飞雪神光

搁这刷屏呢 发一堆垃圾代码

czb203

飞雪神光 发表于 2024-3-22 20:22
搁这刷屏呢 发一堆垃圾代码

神光大侠难得发脾气