XD::GEOM:M-TRANS

newer

1. ;; ------------------------------------------------------------------------
   
2. ;;; 函数名称 / Function Name: XD::GEOM:M-TRANS
   
3. ;;;
   
4. ;;; 【功能说明 / Description】
   
5. ;;;     对点列表 LST 中的每个点应用坐标变换 TRANS，返回变换后的点列表。
   
6. ;;;     变换由参数 A 和 B 指定，调用 AutoCAD 的 TRANS 函数实现。
   
7. ;;;
   
8. ;;; 【参数说明 / Parameters】
   
9. ;;;     lst - (list) 点坐标列表，每个元素为点坐标列表 (x y z)
   
10. ;;;     a   - (int) 变换的源坐标系代码
    
11. ;;;     b   - (int) 变换的目标坐标系代码
    
12. ;;;
    
13. ;;; 【返回值 / Return Value】
    
14. ;;;     (list) 变换后的点坐标列表，顺序与输入相同
    
15. ;;;
    
16. ;;; 【依赖函数 / Dependencies】
    
17. ;;;     - length : 获取列表长度
    
18. ;;;     - nth    : 获取列表中指定位置元素
    
19. ;;;     - cons   : 构造列表
    
20. ;;;     - reverse: 反转列表
    
21. ;;;     - trans  : AutoCAD 内置坐标变换函数
    
22. ;;;
    
23. ;;; 【备注 / Notes】
    
24. ;;;     - 该函数实现了对点集的批量坐标变换，常用于几何处理和坐标系转换。
    
25. ;;;     - 返回的列表顺序与输入保持一致。
    
26. ;;;
    
27. (defun XD::GEOM:M-TRANS (lst a b / lst2 c n)
    
28.   (setq n 0)
    
29.   (setq lst2 nil) ;; 初始化结果列表，避免未定义变量错误
    
30.   (repeat (length lst)
    
31.     (setq c (nth n lst))
    
32.     (setq c (trans c a b))
    
33.     (setq lst2 (cons c lst2))
    
34.     (setq n (+ n 1))
    
35.   )
    
36.   (reverse lst2)
    
37. )
    

;; ------------------------------------------------------------------------<br /> ;;; 函数名称 / Function Name: XD::GEOM:M-TRANS<br /> ;;;<br /> ;;; 【功能说明 / Description】<br /> ;;;     对点列表 LST 中的每个点应用坐标变换 TRANS，返回变换后的点列表。<br /> ;;;     变换由参数 A 和 B 指定，调用 AutoCAD 的 TRANS 函数实现。<br /> ;;;<br /> ;;; 【参数说明 / Parameters】<br /> ;;;     lst - (list) 点坐标列表，每个元素为点坐标列表 (x y z)<br /> ;;;     a   - (int) 变换的源坐标系代码<br /> ;;;     b   - (int) 变换的目标坐标系代码<br /> ;;;<br /> ;;; 【返回值 / Return Value】<br /> ;;;     (list) 变换后的点坐标列表，顺序与输入相同<br /> ;;;<br /> ;;; 【依赖函数 / Dependencies】<br /> ;;;     - length : 获取列表长度<br /> ;;;     - nth    : 获取列表中指定位置元素<br /> ;;;     - cons   : 构造列表<br /> ;;;     - reverse: 反转列表<br /> ;;;     - trans  : AutoCAD 内置坐标变换函数<br /> ;;;<br /> ;;; 【备注 / Notes】<br /> ;;;     - 该函数实现了对点集的批量坐标变换，常用于几何处理和坐标系转换。<br /> ;;;     - 返回的列表顺序与输入保持一致。<br /> ;;;<br /> (defun XD::GEOM:M-TRANS (lst a b / lst2 c n)<br />   (setq n 0)<br />   (setq lst2 nil) ;; 初始化结果列表，避免未定义变量错误<br />   (repeat (length lst)<br />     (setq c (nth n lst))<br />     (setq c (trans c a b))<br />     (setq lst2 (cons c lst2))<br />     (setq n (+ n 1))<br />   )<br />   (reverse lst2)<br /> )<br />

HLCAD

版主，是否可以简化为：
(mapcar (function (lambda(x) (trans x a b))) Lst)