[讨论]：一个点 以点(0 0 0),旋转一个角度后的坐标

spshchen

一个点 以点(0 0 0),旋转一个角度后的坐标
我写出来函数  好像一直有点误差,希望各位能指点一下.
延伸出来的函数是:一个点 以一个基点旋转一个角度后的坐标.

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test (Pb  rt /)
   
5.   (setq pe (polar '(0 0 0)
   
6.                    (angtof (rtos(+(atof(angtos rt                         0 16))
   
7.                                   (atof(angtos (/ (cadr Pb)     (car Pb)) 0 16)))
   
8.                                 2 8)4)
   
9.                    (distance Pb '(0 0 0)))
   
10.         )
    
11.   )
    
12. 
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test (Pb  rt /)<br />   (setq pe (polar '(0 0 0)<br />                    (angtof (rtos(+(atof(angtos rt                         0 16))<br />                                   (atof(angtos (/ (cadr Pb)     (car Pb)) 0 16)))<br />                                 2 8)4)<br />                    (distance Pb '(0 0 0)))<br />         )<br />   )<br /> <br />   [/FONT]<br />

eachy

(setq op '(0. 0. 0.))
(setq p (polar op (+ (angle op  or_pt) an) (distance op  or_pt))