【已解决】如何使pline对另一条pline做镜像?

zero彡 · 发表于 2020-6-9 09:24:41

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

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

×

如图，要把青色的pline对红色的pline做一条对称pline，使两侧的pline对应节点与中间那条pline的距离相等。

newer · 发表于 2020-6-9 09:31:22

请把DWG测试图发上来

zero彡 · 发表于 2020-6-9 09:58:14

newer 发表于 2020-6-9 09:31
请把DWG测试图发上来

麻烦大佬了

newer · 发表于 2020-6-9 10:39:17

zero彡发表于 2020-6-9 09:58
麻烦大佬了

做什么工作，用这个？

(defun c:tt ()
(if (and (setq
e1 (car
(xdrx-entsel "\n选择多段线<退出>:" '((0 . "*polyline")))
)
)
(setq e2 (car (xdrx-entsel
"\n选择镜像轴（多段线)<退出>:"
'((0 . "*polyline"))
)
)
)
)
(progn (setq pts (xdrx-getpropertyvalue e1 "vertices")
bulges (xdrx-getpropertyvalue e1 "bulges")
bulges (mapcar '- bulges)
)
(setq pts1 (mapcar '(lambda (x)
(setq p1 (xdrx-getpropertyvalue
e2
"getclosestpointto"
x
t
)
v (mapcar '- p1 x)
p2 (mapcar '+ p1 v)
)
)
pts
)
)
(xdrx-polyline-make (list pts1 bulges))
(xdrx-entity-setpropertiesfrom (entlast) e1)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq 
             e1        (car 
                  (xdrx-entsel "\n选择多段线<退出>:" '((0 . "*polyline"))) 
                ) 
           ) 
           (setq e2 (car (xdrx-entsel 
                           "\n选择镜像轴（多段线)<退出>:" 
                           '((0 . "*polyline")) 
                         ) 
                    ) 
           ) 
      ) 
    (progn (setq pts        (xdrx-getpropertyvalue e1 "vertices") 
                 bulges        (xdrx-getpropertyvalue e1 "bulges") 
                 bulges        (mapcar '- bulges) 
           ) 
           (setq pts1 (mapcar '(lambda (x) 
                                 (setq p1 (xdrx-getpropertyvalue 
                                            e2 
                                            "getclosestpointto" 
                                            x 
                                            t 
                                          ) 
                                       v  (mapcar '- p1 x) 
                                       p2 (mapcar '+ p1 v) 
                                 ) 
                               ) 
                              pts 
                      ) 
           ) 
           (xdrx-polyline-make (list pts1 bulges)) 
           (xdrx-entity-setpropertiesfrom (entlast) e1) 
    ) 
  ) 
  (princ) 
)

zero彡 · 发表于 2020-6-9 11:06:27

newer 发表于 2020-6-9 10:39
做什么工作，用这个？

多谢大佬了，干水利的，这是个箱涵，用软件生成的开挖线左右反了，节点太多，手工调整太繁琐了。

newer · 发表于 2020-6-9 11:16:42

zero彡发表于 2020-6-9 11:06
多谢大佬了，干水利的，这是个箱涵，用软件生成的开挖线左右反了，节点太多，手工调整太繁琐了。

解决了，请编辑下主题，把下面粘贴到主题前面【已解决】

zero彡 · 发表于 2020-6-9 11:31:01

本帖最后由 zero彡于 2020-6-9 11:32 编辑

好的，我马上修改

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

【已解决】如何使pline对另一条pline做镜像?

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

点评

点评

点评

点评