点集镜像

st788796

1. (defun Pnts:MirrorByline (pts p1 p2 / an v)
   
2.   (setq  an (+ (angle p1 p2) (* pi 0.5))
   
3.            v  (mapcar '- p1 p2)
   
4.   )
   
5.   (mapcar '(lambda (x)
   
6.                    (setq d (car (trans (mapcar '- x p1) 0 v)))
   
7.                    (polar x an (+ d d))
   
8.                )
   
9.               pts
   
10.   )
    
11. )
    

(defun Pnts:MirrorByline (pts p1 p2 / an v)<br />   (setq  an (+ (angle p1 p2) (* pi 0.5))<br />            v  (mapcar '- p1 p2)<br />   )<br />   (mapcar '(lambda (x)<br />                    (setq d (car (trans (mapcar '- x p1) 0 v)))<br />                    (polar x an (+ d d))<br />                )<br />               pts<br />   )<br /> )<br />

功  能：	返回将点集按指定两个端点连成直线镜像后的点集
调用格式：	(xdrx_points_mirror <基线端点1> <基线端点2> <点1>....<点n>)
返 回 值：	按基线镜像后的点表
说    明：

/db_自贡黄明儒_

这个有点意思，你是写什么程序用到这个的？

st788796

/db_自贡黄明儒_ 发表于 2013-12-20 13:56
这个有点意思，你是写什么程序用到这个的？

写着玩的

1. (defun c:tt (/ p1 p2 p)
   
2.   (if (and (setq p1 (getpoint "\nLine Point1: "))
   
3.            (setq p2 (getpoint "\nLine Point2: "))
   
4.       )
   
5.     (progn
   
6.       (while (setq p (getpoint "\nPoint: "))
   
7.         (command "point" p)
   
8.         (command "point" (car (Pnts:MirrorByline (list p) p1 p2)))
   
9.       )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    

(defun c:tt (/ p1 p2 p)<br />   (if (and (setq p1 (getpoint "\nLine Point1: "))<br />            (setq p2 (getpoint "\nLine Point2: "))<br />       )<br />     (progn<br />       (while (setq p (getpoint "\nPoint: "))<br />         (command "point" p)<br />         (command "point" (car (Pnts:MirrorByline (list p) p1 p2)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

cable2004

源码是好东西

xvjiex

感谢楼主分享点集镜像