[LISP函数]根据新y值形成新的偏移点表

张和平

2. ;;;根据新y值形成新的偏移点表,新点均在基点右侧 by PEACE 2013/06/28
   
3. ;;;plst=原始点表 vy=y坐标 ang=角度（弧度）
   
4. (defun PEACE:PointList_OffsetPointYR(plst vy ang / n newplst i p newp x0 y0)
   
5.   (setq     n (length plst)
   
6.       newplst '()
   
7.             i 0
   
8.   )
   
9.   (repeat n
   
10.     (setq p (nth i plst)
    
11.          x0 (car p)
    
12.          y0 (cadr p)
    
13.     )
    
14.     (if (> x0 (+ x0 (* (- vy y0) (/ (cos ang) (sin ang)))))
    
15.       (setq ang (- pi ang))
    
16.     )
    
17.     (setq x (+ x0 (* (- vy y0) (/ (cos ang) (sin ang))))
    
18.        newp (list x vy)
    
19.     newplst (cons newp newplst)
    
20.           i (1+ i)
    
21.     )
    
22.   )
    
23.   (setq newplst (reverse newplst))
    
24.   newplst
    
25. )
    
26. ;;;根据新y值形成新的偏移点表,新点均在基点左侧 by PEACE 2013/06/28
    
27. ;;;plst=原始点表 vy=y坐标 ang=角度（弧度）
    
28. (defun PEACE:PointList_OffsetPointYL(plst vy ang / n newplst i p newp x0 y0)
    
29.   (setq     n (length plst)
    
30.       newplst '()
    
31.             i 0
    
32.   )
    
33.   (repeat n
    
34.     (setq p (nth i plst)
    
35.          x0 (car p)
    
36.          y0 (cadr p)
    
37.     )
    
38.     (if (< x0 (+ x0 (* (- vy y0) (/ (cos ang) (sin ang)))))
    
39.       (setq ang (- pi ang))
    
40.     )
    
41.     (setq x (+ x0 (* (- vy y0) (/ (cos ang) (sin ang))))
    
42.        newp (list x vy)
    
43.     newplst (cons newp newplst)
    
44.           i (1+ i)
    
45.     )
    
46.   )
    
47.   (setq newplst (reverse newplst))
    
48.   newplst
    
49. )

;;;根据新y值形成新的偏移点表,新点均在基点右侧 by PEACE 2013/06/28<br /> ;;;plst=原始点表 vy=y坐标 ang=角度（弧度）<br /> (defun PEACE:PointList_OffsetPointYR(plst vy ang / n newplst i p newp x0 y0)<br />   (setq     n (length plst)<br />       newplst '()<br />             i 0<br />   )<br />   (repeat n<br />     (setq p (nth i plst)<br />          x0 (car p)<br />          y0 (cadr p)<br />     )<br />     (if (> x0 (+ x0 (* (- vy y0) (/ (cos ang) (sin ang)))))<br />       (setq ang (- pi ang))<br />     )<br />     (setq x (+ x0 (* (- vy y0) (/ (cos ang) (sin ang))))<br />        newp (list x vy) <br />     newplst (cons newp newplst)<br />           i (1+ i)<br />     )<br />   )<br />   (setq newplst (reverse newplst))<br />   newplst<br /> )<br /> ;;;根据新y值形成新的偏移点表,新点均在基点左侧 by PEACE 2013/06/28<br /> ;;;plst=原始点表 vy=y坐标 ang=角度（弧度）<br /> (defun PEACE:PointList_OffsetPointYL(plst vy ang / n newplst i p newp x0 y0)<br />   (setq     n (length plst)<br />       newplst '()<br />             i 0<br />   )<br />   (repeat n<br />     (setq p (nth i plst)<br />          x0 (car p)<br />          y0 (cadr p)<br />     )<br />     (if (< x0 (+ x0 (* (- vy y0) (/ (cos ang) (sin ang)))))<br />       (setq ang (- pi ang))<br />     )<br />     (setq x (+ x0 (* (- vy y0) (/ (cos ang) (sin ang))))<br />        newp (list x vy) <br />     newplst (cons newp newplst)<br />           i (1+ i)<br />     )<br />   )<br />   (setq newplst (reverse newplst))<br />   newplst<br /> )