请问有没有图元自动排版(排列)程序

20060510412

应用场景如上图所示，现在需要对钢筋大样表进行整理，如果手工一个个移动，效率肯定是比较低下的，不知道有没有可以自动进行排版的程序呢。
我已经把每个大样单独做成了块，所以程序只需要考虑每一个实体块的排列即可，这样应该可以使用最小包围框函数。本质也就是对一系列的矩形进行自动排版了。
同时，排序应该可以优先考虑按选择顺序进行排列，当没有选择顺序的话， 就根据最优情况自动排列。

fan_zh

;命令: !a
;((33789.5 <图元名: -16a990>) (18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>)
;(33789.5 <图元名: -16a9a8>))
;命令: (xd::list:sort a '<)
;((18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>) (33789.5 <图元名: -16a990>)
;(33789.5 <图元名: -16a9a8>))
;命令: (xd::list:sort '(12 456 3445 23) '<)
;(12 23 456 3445)
|;
(defun XD:ist:Sort (lst oper / x1 x2)
  (vl-sort lst '(lambda (x1 x2)
                  (if (and
                        (atom x1)
                        (atom x2)
                      )
                    (apply oper (list x1 x2))
                    (apply oper (list (car x1) (car x2)))
                  )
                )
  )
)

20060510412

xyp1964 发表于 2018-11-16 21:31

也没有太明确的原则，主要就是拍的整齐好看就行了，您这个程序效果挺好的啊

天凉好个秋

20060510412 发表于 2021-3-3 19:07
没有解决。
悬而未决。

我也发了个自动排料的帖子，有的话艾特你

CADHH450

占坑等解答

水吉空

应该是有的

20060510412

水吉空 发表于 2018-11-16 11:14
应该是有的

可否明示一下呢

20060510412

fan_zh 发表于 2018-11-16 14:55
;命令: !a
;((33789.5 ) (18200.0 ) (26020.6 )
;(33789.5 ))

？这是什么哦

xyp1964

想排成啥样？
给个dwg文件测试

xyp1964

894560869

！！！！！！！！！！！！！！！！！！！！！！！！！？？？？？？？？？？？强啊