(XD::Pickset:getMaxHeight)获得实体表或选择集/组中所有实体最大的高度值

newer

1. ;|
   
2. 获得实体表或选择集或者组中所有实体最大的高度值
   
3. 参数：
   
4.    elst -- 实体表、选择集或组名
   
5. 返回值：
   
6.    实数
   
7. |;
   
8. (defun XD::Pickset:getMaxHeight (elst / box h x)
   
9.   (setq tf (type elst))
   
10.   (cond
    
11.     ((= tf 'PICKSET)
    
12.       (setq elst (xdrx_pickset->ents elst))
    
13.     )
    
14.     ((= tf 'STR)
    
15.       (if (setq gname (xdrx_object_get "group" elst))
    
16.         (setq elst (xdrx_GetPropertyValue gname "AllEntities"))
    
17.       )
    
18.     )
    
19.   )
    
20.   (setq tf (type elst))
    
21.   (if (= tf 'LIST)
    
22.     (apply
    
23.       'max
    
24.       (mapcar
    
25.         '(lambda (x)
    
26.            (setq box (XD::Entity:Box x)
    
27.                  h (distance (car box) (last box))
    
28.            )
    
29.          )
    
30.         elst
    
31.       )
    
32.     )
    
33.   )
    
34. )

;|<br /> 获得实体表或选择集或者组中所有实体最大的高度值<br /> 参数：<br />    elst -- 实体表、选择集或组名<br /> 返回值：<br />    实数<br /> |;<br /> (defun XD::Pickset:getMaxHeight (elst / box h x)<br />   (setq tf (type elst))<br />   (cond<br />     ((= tf 'PICKSET)<br />       (setq elst (xdrx_pickset->ents elst))<br />     )<br />     ((= tf 'STR)<br />       (if (setq gname (xdrx_object_get "group" elst))<br />         (setq elst (xdrx_GetPropertyValue gname "AllEntities"))<br />       )<br />     )<br />   )<br />   (setq tf (type elst))<br />   (if (= tf 'LIST)<br />     (apply<br />       'max<br />       (mapcar<br />         '(lambda (x)<br />            (setq box (XD::Entity:Box x)<br />                  h (distance (car box) (last box))<br />            )<br />          )<br />         elst<br />       )<br />     )<br />   )<br /> )