500w008 发表于 2023-11-16 14:32:04

500w008 发表于 2023-11-16 14:35:17

飞雪神光 发表于 2023-11-16 14:46:14

(defun c:aa (/ ent i num pt10 pt11 ss ssi ty)
        (setq ss (ssget "X" '((0 . "line")(8 . "beam"))))
        (setq i 0)
        (setq num (sslength ss))
        (repeat num
                (progn
                        (setq
                                ty (ssname ss i)
                                ent (entget ty)
                                pt10 (cdr (assoc 10 ent))
                                pt11 (cdr (assoc 11 ent))
                        )
                        (setq ssi (ssget "F" (list pt10 pt11) '((8 . "colu"))));
                        (if (and ssi (= (sslength ssi) 1))
                                (entdel ty)
                        )
                        (setq i (1+ i))
                )
        )
        (princ)
)

500w008 发表于 2023-11-16 17:16:08

页: [1]
查看完整版本: 根据交柱数量去除短线，问题出现在哪里