跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好

wutao8282

xj6019 发表于 2022-4-27 21:10
我测试没出现过这种情况呢

大神 ，能不能再帮我看一个代码！
  帮忙整理一下

wutao8282

xj6019 发表于 2022-4-27 21:10
我测试没出现过这种情况呢

(defun c:tt( / ss ent1 ent2 par c1 c2 r1 r2 i j)
           (setq ss (ssget "x" '((0. "CIRCLE"))) i -1)
           (while (setq ent1 (ssname ss (setq i (1+ i))))
                      (setq par (entget ent1) c1 (cdr (assoc 10 par)) r1 (cdr (assoc 40 par)))
                      (setq j i)
                      (while (setq ent2 (ssname ss (setq j (1+ j))))
                                 (setq par (entget ent2) c2 (cdr (assoc 10 par)) r2 (cdr (assoc 40 par)))
                        (if (and (or (equal r1 15 0.0001)(equal r2 15 0.0001))(< (distance c1 c2)(+ r1 r2 30)))
                            (progn (if (equal r1 15 0.0001)(vl-cmdf "change" ent1 "" "P" "c" 1 ""))
                                   (if (equal r2 15 0.0001)(vl-cmdf "change" ent2 "" "P" "c" 1 ""))
                            )
                        )
                      )                                                                                               
            )(princ)
)

ZJKUSO

xj6019 发表于 2022-4-27 11:58
你再试试  基本没变动，应该是没问题的呀
(defun c:NM (/ *acad* *acdocument* *blks* *doc* *docs* *ms*  ...

这个把插件的块也读取出来排序了
能不能只识别当下的块？有些是无名块