求取包围盒长边尺寸

YueFeng

主要是apply这样应用，以前没做过。给大家做个抛个砖。

2. ;函数名称:YF_GetBoundingLongSideSize
   
3. ;函数功能:取得包围盒点位列表的长边尺寸
   
4. ;调用格式:(YF_GetBoundingLongSideSize '(<左下角点> <右上角点>))
   
5. ;参数说明:
   
6. ;返 回 值:长边尺寸
   
7. ;示    例: (YF_GetBoundingLongSideSize '((9085.88 287606.0 0.0) (30085.9 317306.0 0.0)))
   
8. ;示例返回:
   
9. ;创建日期:2024年10月11日
   
10. 
    
11. (defun YF_GetBoundingLongSideSize (plst)
    
12.   (apply 'max
    
13.     (apply
    
14.       '(lambda (x y) (mapcar '(lambda (a b) (abs (- a b))) x y))
    
15.       plst
    
16.     )
    
17.   )
    
18. )

;函数名称:YF_GetBoundingLongSideSize<br /> ;函数功能:取得包围盒点位列表的长边尺寸<br /> ;调用格式:(YF_GetBoundingLongSideSize '(<左下角点> <右上角点>))<br /> ;参数说明:<br /> ;返 回 值:长边尺寸<br /> ;示    例: (YF_GetBoundingLongSideSize '((9085.88 287606.0 0.0) (30085.9 317306.0 0.0)))<br /> ;示例返回:<br /> ;创建日期:2024年10月11日<br /> <br /> (defun YF_GetBoundingLongSideSize (plst)<br />   (apply 'max <br />     (apply <br />       '(lambda (x y) (mapcar '(lambda (a b) (abs (- a b))) x y))<br />       plst <br />     )<br />   )<br /> )

hubeiwdlue

学习了，谢谢大佬分享知识。

tigcat

谢谢分享。

muai2010

不错，支持下

marcoyuwen

1. (apply 'max (mapcar 'abs (apply 'mapcar (cons '- plst))))

复制代码

不用lambda实现相同的功能。