马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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)
- )
|