求竖排变横排的程序或者思路

偏爱云~小吴

求将附件所示的图竖排变横排的法子，求大神出手。图框是块，切块名不一致。

USER2128

2. ;;87.1 [功能] 包围对象最小最大点列表
   
3. ;; 示例:   (MJ:GetBoundingBox (car (entsel)))
   
4. ;; 返回:   ((左下角点)(右上角点))
   
5. (defun MJ:GetBoundingBox (ent / ll ur)  
   
6.   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
   
7.   (mapcar 'vlax-safearray->list (list ll ur))
   
8.   )
   
9. ;;; 编制：USER2128 于 2015-05-30
   
10. (defun c:tt ()
    
11.   (setq Lst '())
    
12.   (while (setq en (entsel "\n按先后顺序点取输入框块/<完成>:"))
    
13.     (setq en (MJ:GetBoundingBox (car en)))
    
14.     (setq Lst (append Lst (list en)))
    
15.     )
    
16.   (or (initget 6)
    
17.       (setq dst (getdist "\n输入要排列各图间间距/<30>:"))
    
18.       (setq dst 30.0)
    
19.       )
    
20.   (or (setq pt (getpoint "\n横向排列图的左下点/<0，0，0>:"))
    
21.       (setq pt '(0 0 0))
    
22.       )
    
23.   (mapcar '(lambda(x)
    
24.        (setq ss (ssget "_c" (car x) (cadr x)))
    
25.        (vl-cmdf "_.copy" ss "" (car x) pt)
    
26.        (setq pt (mapcar '+ pt (list (+ (- (caadr x) (caar x)) dst) 0 0)))
    
27.        ) Lst)
    
28.   (princ)
    
29.   )
    

;;87.1 [功能] 包围对象最小最大点列表<br /> ;; 示例:   (MJ:GetBoundingBox (car (entsel)))<br /> ;; 返回:   ((左下角点)(右上角点))<br /> (defun MJ:GetBoundingBox (ent / ll ur)  <br />   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br />   (mapcar 'vlax-safearray->list (list ll ur))<br />   )<br /> ;;; 编制：USER2128 于 2015-05-30<br /> (defun c:tt ()<br />   (setq Lst '())<br />   (while (setq en (entsel "\n按先后顺序点取输入框块/<完成>:"))<br />     (setq en (MJ:GetBoundingBox (car en)))<br />     (setq Lst (append Lst (list en)))<br />     )<br />   (or (initget 6)<br />       (setq dst (getdist "\n输入要排列各图间间距/<30>:"))<br />       (setq dst 30.0)<br />       )<br />   (or (setq pt (getpoint "\n横向排列图的左下点/<0，0，0>:"))<br />       (setq pt '(0 0 0))<br />       )<br />   (mapcar '(lambda(x)<br />        (setq ss (ssget "_c" (car x) (cadr x)))<br />        (vl-cmdf "_.copy" ss "" (car x) pt)<br />        (setq pt (mapcar '+ pt (list (+ (- (caadr x) (caar x)) dst) 0 0)))<br />        ) Lst)<br />   (princ)<br />   )<br />