XD::GEOM:POINT-ROTATE

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::GEOM:POINT-ROTATE
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     以点 P1 为中心，将点 PNT 绕 Z 轴旋转 ANG 角度，返回旋转后的点坐标。
   
6. ;;;     支持输入点 PNT 为二维或三维坐标，自动调整 P1 的 Z 分量以匹配。
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     pnt - (list) 待旋转点坐标，二维或三维列表
   
10. ;;;     p1  - (list) 旋转中心点坐标，二维或三维列表
    
11. ;;;     ang - (float) 旋转角度，弧度制
    
12. ;;;
    
13. ;;; 【返回值 / Return Value】
    
14. ;;;     (list) 旋转后的点坐标，二维坐标列表
    
15. ;;;
    
16. ;;; 【依赖函数 / Dependencies】
    
17. ;;;     - length   : 获取列表长度
    
18. ;;;     - car, cadr, caddr : 获取坐标分量
    
19. ;;;     - list     : 构造列表
    
20. ;;;     - polar    : 极坐标计算函数，返回极坐标点
    
21. ;;;     - angle    : 计算两点间角度
    
22. ;;;     - distance : 计算两点间距离
    
23. ;;;
    
24. ;;; 【备注 / Notes】
    
25. ;;;     - 旋转基于二维平面，忽略 Z 轴旋转，仅调整输入点的 Z 分量以匹配中心点。
    
26. ;;;     - 角度单位为弧度。
    
27. ;;;
    
28. (defun XD::GEOM:POINT-ROTATE (pnt p1 ang)
    
29.   ;; 如果 PNT 是三维点，则调整 P1 的 Z 分量与 PNT 保持一致
    
30.   (if (= (length pnt) 3)
    
31.     (setq p1 (list (car p1) (cadr p1) (caddr pnt)))
    
32.   )
    
33.   ;; 计算旋转后的点，基于极坐标转换
    
34.   (polar p1
    
35.          (+ (angle p1 pnt) ang)
    
36.          (distance (list (car p1) (cadr p1)) (list (car pnt) (cadr pnt)))
    
37.   )
    
38. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::GEOM:POINT-ROTATE<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     以点 P1 为中心，将点 PNT 绕 Z 轴旋转 ANG 角度，返回旋转后的点坐标。<br /> ;;;     支持输入点 PNT 为二维或三维坐标，自动调整 P1 的 Z 分量以匹配。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     pnt - (list) 待旋转点坐标，二维或三维列表<br /> ;;;     p1  - (list) 旋转中心点坐标，二维或三维列表<br /> ;;;     ang - (float) 旋转角度，弧度制<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (list) 旋转后的点坐标，二维坐标列表<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - length   : 获取列表长度<br /> ;;;     - car, cadr, caddr : 获取坐标分量<br /> ;;;     - list     : 构造列表<br /> ;;;     - polar    : 极坐标计算函数，返回极坐标点<br /> ;;;     - angle    : 计算两点间角度<br /> ;;;     - distance : 计算两点间距离<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 旋转基于二维平面，忽略 Z 轴旋转，仅调整输入点的 Z 分量以匹配中心点。<br /> ;;;     - 角度单位为弧度。<br /> ;;;<br /> (defun XD::GEOM:POINT-ROTATE (pnt p1 ang)<br />   ;; 如果 PNT 是三维点，则调整 P1 的 Z 分量与 PNT 保持一致<br />   (if (= (length pnt) 3)<br />     (setq p1 (list (car p1) (cadr p1) (caddr pnt)))<br />   )<br />   ;; 计算旋转后的点，基于极坐标转换<br />   (polar p1<br />          (+ (angle p1 pnt) ang)<br />          (distance (list (car p1) (cadr p1)) (list (car pnt) (cadr pnt)))<br />   )<br /> )<br />