[LISP程序]：取出选择集中某个条件的元素

ghl_729

(defun c:dle( / k ss ename pt)
    (setq k 1)
    (if k (progn
           (setq ss (ssget (list (cons 0 "INSERT") )))

      
           (if ss (progn
               (setq ename (ssname ss 0))
               (while ename
                  '(setq pt (cdr (assoc 10 (entget ename))))
                  (command "erase" ename "" "")
                  (setq ss (ssdel ename ss))
                  (setq ename (ssname ss 0))
               )
           ))     
   ))        
   (princ)
)
如上 我现在是删除了所有的块，如果我不想删除(cons 2  "654")的块应该怎么写呢？或者我不想删掉某一个层应该怎么办呢  那位大侠能帮帮忙？

Underway

请参看这一部份的帮助

carrot1983

最初由 ghl_729 发布
[B](defun c:dle( / k ss ename pt)
    (setq k 1)
    (if k (progn
           (setq ss (ssget (list (cons 0 "INSERT") )))

      
           (if ss (progn
               (setq ename (ssname ss 0))
               (while ename... [/B]

首先，说方法：一般有两种
1. 直接详ssget函数的帮助。。直接过滤掉不想要块名。
2. 用遍历选择集中的图元，判断块名，如果不需要则不操作。

方法1显然能实现的话，最好，最快。

(setq ss (ssget        (list (cons 0 "INSERT")
                      (cons -4 "<NOT")
                      (cons 2 "654")
                      (cons -4 "NOT>")
                )
         )
)

最好，好好学习一下ssget过滤的相关函数用法。如 -4

PS:
二楼的帮助文件好像很不错。

ghl_729

谢谢 二楼 和三楼的 我一定会好好学习一下的 (cons -4 "<not") (cons 2 "654") (cons -4 "not>")

sunjwwcj

真的是好厉害啊，学习了