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

Lispboy · 发表于 2016-9-22 00:02:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2016-9-22 08:18 编辑

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

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

longer1000 · 发表于 2016-9-22 00:23:34

高手呀，

彩云 · 发表于 2016-9-22 13:49:04

谢谢分享，辛苦了

moto1986 · 发表于 2018-7-29 23:35:53

好强大的样子，下来试试

qxwangtao · 发表于 2018-7-30 08:44:56

这个厉害啊，高手

栋梁 · 发表于 2018-7-30 09:30:22

厉害了我的歌

来自: 微社区

277860153 · 发表于 2019-4-28 16:56:05

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

277860153 · 发表于 2019-4-30 08:38:04

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

哪位大神给看一下，谢谢

LXH刚开始 · 发表于 2020-5-16 17:13:39

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

feeling_chin · 发表于 2021-2-2 17:50:45

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

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。