【已解决】批量交换空间直线起点与终点

279491611 · 发表于 2017-9-6 13:30:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 279491611 于 2017-9-8 10:09 编辑

求助批量选中空间直线，交换起点与终点。就是交换这两个自点， X=-105283.83 Y=-120650.31 Z= 22317.37 到点， X=-100820.56 Y=-117327.22 Z= 22837.27
改成
自点， X=-100820.56 Y=-117327.22 Z= 22837.27 到点， X=-105283.83 Y=-120650.31 Z= 22317.37

newer · 发表于 2017-9-6 14:35:32

晓东工具箱 -- 曲线工具 -- 曲线反向

marting · 发表于 2017-9-6 14:49:06

(defun c:tt ()
(defun _reverse (li / enx sp ep)
(if (= (cdr (assoc 0 (setq enx (entget li)))) "LINE")
(progn (setq sp (cdr (assoc 10 enx))
ep (cdr (assoc 11 enx))
)
(setq enx (subst (cons 10 ep) (assoc 10 enx) enx))
(setq enx (subst (cons 11 sp) (assoc 11 enx) enx))
(entmod enx)
(entupd li)
)
)
)
(if (setq ss (ssget '((0 . "LINE"))))
(progn
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(_reverse e)
)
(princ (strcat "\n成功转换了" (itoa (sslength ss)) "条直线."))
)
)
(princ)
)

279491611 · 发表于 2017-9-6 15:03:24

marting 发表于 2017-9-6 14:49

谢谢帮助，完全满足要求！

sicky111 · 发表于 2017-9-8 01:24:14

只支持直线

279491611 · 发表于 2017-9-8 09:18:45

sicky111 发表于 2017-9-8 01:24

是的，只要交换空间直线起点与终点。

要是再添加一个附加（统一起点坐标小于终点坐标，按Z ,Y, X 比较判断）功能就更完美了。也就是说附加一个功能：如果Z1<Z2，那就起点为X1，Y1，Z1; 如果Z1=Z2，那就比较Y1<Y2,那就起点为X1，Y1，Z1 , 如果Z1=Z2，Y1=Y2 那就比较x1<x2,那就起点为X1，Y1，Z1,

279491611 · 发表于 2017-9-8 09:20:57

newer 发表于 2017-9-6 14:35

谢谢版主关注，那个只能一根一根的弄。

tfanghui · 发表于 2023-5-8 00:06:22

279491611 发表于 2017-9-8 09:18
是的，只要交换空间直线起点与终点。

要是再添加一个附加（统一起点坐标小于终点坐标，按Z ,Y, X 比较 ...

楼主，请问一下，这个问题现在解决了吗，

tfanghui · 发表于 2023-5-8 00:07:52

279491611 发表于 2017-9-8 09:18
是的，只要交换空间直线起点与终点。

要是再添加一个附加（统一起点坐标小于终点坐标，按Z ,Y, X 比较 ...

楼主，这个问题现在解决了吗？

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】批量交换空间直线起点与终点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分