怎样把相连的图形拉开?

suiran

各位大佬，我想把相连的图形拉开一定的距离，距离没有要求，只要不交叉就行，但是下面的写法可以实现一个一个的选择，无法框选，因水平受限，纠结了好久始终不得要领，哪位能给修改一下？万分感谢。
(defun c:lstx()
(prompt "\n<<框选欲拉散的图元：>>")
(setq ss(ssget))
(setq n 0)
(repeat (sslength ss)
  (setq en(ssname ss n))
  (setq juli (* 200 (+ n 1)))
  (setq juli_point (list 0 juli))
  (command "move" en"" "0,0" juli_point)      
  (setq n (1+ n))
)
(prin1)
)

自贡黄明儒

如果你的图形是封闭曲线，就好办了
第一步，拾取
第二步，所有封闭曲线求外包围盒
第三步，排序
第四步，用move移动
收工

suiran

自贡黄明儒 发表于 2022-12-23 15:21
如果你的图形是封闭曲线，就好办了
第一步，拾取
第二步，所有封闭曲线求外包围盒

图形的确是封闭曲线，但是求外包围盒是为了什么呢？重新生成图形吗？既然重生成图形仍然需要排序那直接对现在的图形排序岂不是更简单？请指教

自贡黄明儒

suiran 发表于 2022-12-23 16:41
图形的确是封闭曲线，但是求外包围盒是为了什么呢？重新生成图形吗？既然重生成图形仍然需要排序那直接对 ...

嗯，可以不求包围盒。取多段线顶点即可

自贡黄明儒

suiran 发表于 2022-12-23 16:41
图形的确是封闭曲线，但是求外包围盒是为了什么呢？重新生成图形吗？既然重生成图形仍然需要排序那直接对 ...

包围盒右下角都最小，利于排序。多段线就不知哪个是起点了，除非你用中心点来排序。

start4444

http://bbs.mjtd.com/thread-181023-1-1.html  间距重排，这个应该可以

suiran

start4444 发表于 2022-12-23 17:57
http://bbs.mjtd.com/thread-181023-1-1.html  间距重排，这个应该可以

我去，这功能真强，感谢

panliang9

这个完全满足你的要求

http://bbs.mjtd.com/forum.php?mo ... hlight=%BE%F9%B2%BC