多段线绕镜像轴（多段线）翻转节点

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

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

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

x

来自朋友的申请：
http://bbs.xdcad.net/thread-726033-1-1.html

(defun c:xdtb_plmirror (/ e1 e2 pts bulges v p1 v x)
(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:xdtb_plmirror (/ e1 e2 pts bulges v p1 v x) 
  (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) 
)

tianyu229 · 发表于 2020-6-9 20:43:15

N大可真是热心肠··

kmliro_2017 · 发表于 2020-6-10 07:00:41

谢谢分享！！！！

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

[多段线] 多段线绕镜像轴（多段线）翻转节点

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