wutao8282 发表于 2022-4-29 22:59:14

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

大神 ，能不能再帮我看一个代码！
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTE5ODI3fDU1MzZmODhkfDE2NTEyNDQyNzd8NzMyODU4N3wxODUzNTE%3D&noupdate=yes帮忙整理一下

wutao8282 发表于 2022-4-30 07:49:10

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 发表于 2022-7-3 21:58:21

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

这个把插件的块也读取出来排序了
能不能只识别当下的块？有些是无名块
页: 1 2 3 [4]
查看完整版本: 跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好