[编程交流] ssget“minsert”

(defun c:TesT (/ ss i sset mins)
;;;=== Tharwat 24. Sep. 2011 ===;;;
 (if (setq ss (ssget "_x" '((0 . "INSERT"))))
   (progn
     (repeat (setq i (sslength ss))
       (setq sset (ssname ss (setq i (1- i))))
       (setq mins (vl-remove-if-not
                    (function (lambda (x)
                                (eq (car x) 100)
                              )
                    )
                    (entget sset)
                  )
       )
       (if (not (member (cdr (cadr mins)) '("AcDbMInsertBlock")))
         (ssdel sset ss)
       )
     )
   )
   (princ)
 )
 (princ)
 (alert (strcat "Number of Minsert Blocks >> :"
                "  "
                " <"
                "  "
                (itoa (sslength ss))
                "  "
                "> "
                "  "
                "Nos."
        )
 )
 (princ)
)

(setq ss (ssget "_x" '((0 . "INSERT")(100 . "AcDbMInsertBlock"))))

(ssget "_X" '((0 . "INSERT") (-4 . ">") (70 . 0)))

(ssget "_X" '((0 . "INSERT")
             (-4 . "<OR")
               (-4 . ">")
                (44 . 0)
               (-4 . ">")
                (45 . 0)
               (-4 . ">")
                (70 . 0)
               (-4 . ">")
                (71 . 0)
             (-4 . "OR>")))