RZYiiicass 发表于 2024-3-22 18:58:53

按面积排序

(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))
        )
      )
    )

飞雪神光 发表于 2024-3-22 20:22:08

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

czb203 发表于 2024-3-22 21:29:18

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

:lol神光大侠难得发脾气
页: [1]
查看完整版本: 按面积排序