图块安家插件，把选择的图块对齐缩放排列安置到矩形框里面

Lispboy

1. (defun c:XDTB_BLKHOME
   
2.        (/ box box1 dst1 dst2 e e1 i num pts1 src1 src2 ss x)
   
3.   (defun _getdir (box)
   
4.     (setq pts1 (xd::geom:box->9pt box)
   
5.           src1 (nth 4 pts1)
   
6.     )
   
7.     (if        (< (distance (car box) (last box))
   
8.            (distance (car box)
   
9.                      (cadr box)
   
10.            )
    
11.         )
    
12.       (setq src2 (nth 7 pts1))
    
13.       (setq src2 (nth 5 pts1)
    
14.       )
    
15.     )
    
16.     (list src1 src2)
    
17.   )
    
18.   (if (and
    
19.         (setq e        (car (xdrx_entsel "\n选取样本矩形<退出>:" '((0 . "lwpolyline") (-4 . "&=") (70 . 1)) )))
    
20.         (setq num (getint "\n一排几个？<退出>:"))
    
21.         (xdrx_prompt "\n选取要安置的图块")
    
22.         (setq ss (ssget '((0 . "insert"))))
    
23.       )
    
24.     (progn
    
25.       (setq i 0)
    
26.       (setq e1 e)
    
27.       (mapcar
    
28.         '(lambda (x)
    
29.            (setq box (xdrx_entity_box e))
    
30.            (mapcar 'set '(dst1 dst2)(_getdir box))
    
31.            (setq box1 (xdrx_entity_box x))
    
32.            (mapcar 'set '(src1 src2) (_getdir box1))
    
33.            (xdrx_entity_align x src1 src2 dst1 dst2 t)
    
34.            (xdrx_entity_scale x 0.9 dst1)
    
35.            (if (/= 0 (rem        (setq i (1+ i)) num))
    
36.              (xdrx_entity_copy e (car box) (cadr box))
    
37.              (progn
    
38.                (xdrx_entity_copy e1 (last box) (car box))
    
39.                (setq e1 (entlast))
    
40.              )
    
41.            )
    
42.            (setq e (entlast))
    
43.          )
    
44.         (xdrx_pickset->ents ss)
    
45.       )
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )

(defun c:XDTB_BLKHOME<br />        (/ box box1 dst1 dst2 e e1 i num pts1 src1 src2 ss x)<br />   (defun _getdir (box)<br />     (setq pts1 (xd::geom:box->9pt box)<br />           src1 (nth 4 pts1)<br />     )<br />     (if        (< (distance (car box) (last box))<br />            (distance (car box)<br />                      (cadr box)<br />            )<br />         )<br />       (setq src2 (nth 7 pts1))<br />       (setq src2 (nth 5 pts1)<br />       )<br />     )<br />     (list src1 src2)<br />   )<br />   (if (and<br />         (setq e        (car (xdrx_entsel "\n选取样本矩形<退出>:" '((0 . "lwpolyline") (-4 . "&=") (70 . 1)) )))<br />         (setq num (getint "\n一排几个？<退出>:"))<br />         (xdrx_prompt "\n选取要安置的图块")<br />         (setq ss (ssget '((0 . "insert"))))<br />       )<br />     (progn<br />       (setq i 0)<br />       (setq e1 e)<br />       (mapcar<br />         '(lambda (x)<br />            (setq box (xdrx_entity_box e))<br />            (mapcar 'set '(dst1 dst2)(_getdir box))<br />            (setq box1 (xdrx_entity_box x))<br />            (mapcar 'set '(src1 src2) (_getdir box1))<br />            (xdrx_entity_align x src1 src2 dst1 dst2 t)<br />            (xdrx_entity_scale x 0.9 dst1)<br />            (if (/= 0 (rem        (setq i (1+ i)) num))<br />              (xdrx_entity_copy e (car box) (cadr box))<br />              (progn<br />                (xdrx_entity_copy e1 (last box) (car box))<br />                (setq e1 (entlast))<br />              )<br />            )<br />            (setq e (entlast))<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

longer1000

高手呀，

彩云

谢谢分享，辛苦了

moto1986

好强大的样子，下来试试

qxwangtao

这个厉害啊，高手

栋梁

厉害了我的歌
来自: 微社区

277860153

你好，我的拼图文件是外部参照，并且每种图幅根据各自比例进行了缩放，最后怎么成这样了呢？谢谢

277860153

277860153 发表于 2019-4-28 16:56
你好，我的拼图文件是外部参照，并且每种图幅根据各自比例进行了缩放，最后怎么成这样了呢？谢谢

哪位大神给看一下，谢谢

LXH刚开始

刚才下载试用了下，发现对正方形，圆孔支持比较好，但对长方形和多边形支持不友好.

feeling_chin

图块安家插件，把选择的图块对齐缩放排列安置到矩形框里面