028集—CAD中多边形从上到下、从左到右图形自动排序——vba代码实现

山水CAD插件定制

于 2024-08-26 20:13:09 发布

阅读量686

点赞数 19

CC 4.0 BY-SA版权

分类专栏： CAD VBA 文章标签：前端 javascript 服务器

本文链接：https://blog.youkuaiyun.com/yongshiqq/article/details/141536326

cad图中多边形排序问题(从上到下、从左到右)，加载此vba插件一键排序：

（使用方法：vbaman加载此插件，vbarun运行即可）

见下图：

排序前图片：

排序后：

另附部分代码：

Sub NumberPolygons()
'yngqq@2024年8月25日22:21:01
    Dim doc As AcadDocument
    Dim selSet As AcadSelect