社区 › Auto Lisp › 删除点

Lee Mac 发表于 2022-7-5 22:33:52

抱歉，应该是：
(defun c:delpoints ( / e i l p s x )
   (if
       (setq s
         (ssget "_X"
               (list
                  '(-4 . "<OR")
                      '(0 . "POINT")
                      '(-4 . "<AND") '(0 . "INSERT") '(2 . "TK414S3") '(-4 . "AND>")
                  '(-4 . "OR>")
                   (if (= 1 (getvar 'cvport))
                     (cons 410 (getvar 'ctab))
                      '(410 . "Model")
                   )
               )
         )
       )
       (progn
         (repeat (setq i (sslength s))
               (setq e (ssname s (setq i (1- i)))
                     x (entget e)
               )
               (if (= "INSERT" (cdr (assoc 0 x)))
                   (setq l (cons (trans (cdr (assoc 10 x)) e 0) l))
                   (setq p (cons (cons(cdr (assoc 10 x)) e) p))
               )
         )
         (foreach x p
               (if (vl-some '(lambda ( y ) (equal (car x) y 1e-4)) l)
                   (entdel (cdr x))
               )
         )
       )
   )
   (princ)
)
我忽略了我们在收集点和插页。
 
李

jevrem1 发表于 2022-7-5 22:38:59

太好了，李先生，我非常感谢你。

Lee Mac 发表于 2022-7-5 22:44:20

 
不客气！

查看完整版本: 删除点