XD::GEOM:VECTOR-ADD

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::GEOM:VECTOR-ADD
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     计算两个向量 A 和 B 的向量加法，支持二维或三维向量。
   
6. ;;;     根据输入向量的维度分别处理，返回相加后的向量。
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     a - (list) 向量 A，二维或三维坐标列表
   
10. ;;;     b - (list) 向量 B，二维或三维坐标列表
    
11. ;;;
    
12. ;;; 【返回值 / Return Value】
    
13. ;;;     (list) 向量和，格式与输入向量相同（二维或三维）
    
14. ;;;
    
15. ;;; 【依赖函数 / Dependencies】
    
16. ;;;     - length : 获取列表长度
    
17. ;;;     - car, cadr, caddr : 获取向量分量
    
18. ;;;     - list   : 构造列表
    
19. ;;;
    
20. ;;; 【备注 / Notes】
    
21. ;;;     - 输入向量 A 和 B 维度应一致，否则结果可能不正确。
    
22. ;;;
    
23. (defun XD::GEOM:VECTOR-ADD (a b / c)
    
24.   (if (and (equal (length a) 3) (equal (length b) 3))
    
25.     ;; 三维向量加法
    
26.     (setq c (list (+ (car b) (car a))
    
27.                   (+ (cadr b) (cadr a))
    
28.                   (+ (caddr b) (caddr a))))
    
29.     ;; 二维向量加法
    
30.     (setq c (list (+ (car b) (car a))
    
31.                   (+ (cadr b) (cadr a))))
    
32.   )
    
33.   c
    
34. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::GEOM:VECTOR-ADD<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     计算两个向量 A 和 B 的向量加法，支持二维或三维向量。<br /> ;;;     根据输入向量的维度分别处理，返回相加后的向量。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     a - (list) 向量 A，二维或三维坐标列表<br /> ;;;     b - (list) 向量 B，二维或三维坐标列表<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (list) 向量和，格式与输入向量相同（二维或三维）<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - length : 获取列表长度<br /> ;;;     - car, cadr, caddr : 获取向量分量<br /> ;;;     - list   : 构造列表<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 输入向量 A 和 B 维度应一致，否则结果可能不正确。<br /> ;;;<br /> (defun XD::GEOM:VECTOR-ADD (a b / c)<br />   (if (and (equal (length a) 3) (equal (length b) 3))<br />     ;; 三维向量加法<br />     (setq c (list (+ (car b) (car a))<br />                   (+ (cadr b) (cadr a))<br />                   (+ (caddr b) (caddr a))))<br />     ;; 二维向量加法<br />     (setq c (list (+ (car b) (car a))<br />                   (+ (cadr b) (cadr a))))<br />   )<br />   c<br /> )<br />

HLCAD

(mapcar '+ a b)