lisp爱好者 发表于 2018-8-20 13:49:23

ssget如何不选择裁剪过的图块

请教各位老师，用ssget如何不选择裁剪过的图块？或者只选择裁剪过得块。看了下组码，裁剪过的都有类似这段组码：(102 . "{ACAD_XDICTIONARY") (360 . <图元名: -160b928>) (102 . "}")
一下卡壳了，望不吝赐教谢谢


xyp1964 发表于 2024-8-23 13:38:47

(defun c:tt ()
"选择非裁剪图块"
(if (setq ss (ssget '((0 . "INSERT"))))
    (progn
      (setq i -1
            ss1 (ssadd)
      )
      (while (setq e (ssname ss (setq i (1+ i))))
      (if (not (assoc 102 (entget e)))
          (setq ss1 (ssadd e ss1))
      )
      )
      (sssetfirst nil ss1)
    )
)
(princ)
)
(defun c:tt ()
"选择裁剪图块"
(if (setq ss (ssget '((0 . "INSERT"))))
    (progn
      (setq i -1
            ss1(ssadd)
      )
      (while (setq e (ssname ss (setq i (1+ i))))
      (if (assoc 102 (entget e))
          (setq ss1 (ssadd e ss1))
      )
      )
      (sssetfirst nil ss1)
    )
)
(princ)
)

xyp1964 发表于 2019-3-21 22:35:37



;; tt(裁剪图块选择)
(defun c:tt ()
(if (and (setq ss (ssget "X" (list '(0 . "INSERT"))))
           (setq lst (vl-remove-if-not
                     '(lambda (x) (xyp-DXF 102 x))
                     (xyp-Ss2List ss)
                     )
           )
      )
    (sssetfirst nil (xyp-list2ss lst))
)
(princ)
)

黄翔 发表于 2024-8-23 10:51:00

(defun c:tt ( / _entN _nn _ss)
(setq _ss (ssget "X" (list '(0 . "INSERT"))))
(repeat (setq _nn (sslength _ss))
    (setq _entN (ssname _ss (setq _nn (1- _nn))))
    (if (assoc 102 (entget _entN))
      (setq _ss (ssdel _entN _ss))
    )
)
(sssetfirst nil _ss)
(princ)
)

lisp爱好者 发表于 2018-8-20 13:49:59

一下子不知道怎么过滤了

lisp爱好者 发表于 2018-8-20 21:48:05

alexmai 发表于 2019-3-21 17:10:08

这个我也想知道，顶一下

jh3030912 发表于 2024-7-4 23:17:47

不裁剪的块怎么选择？

lisp爱好者 发表于 2024-8-21 15:50:47

xyp1964 发表于 2019-3-21 22:35


感谢院长:handshake

xyp1964 发表于 2024-8-21 20:47:48

jh3030912 发表于 2024-7-4 23:17
不裁剪的块怎么选择？
(defun c:tt ()
(if (and (setq ss (ssget "X" (list '(0 . "INSERT"))))
             (setq lst (vl-remove-if'(lambda (x) (xyp-DXF 102 x))(xyp-Ss2List ss)))
      )
    (sssetfirst nil (xyp-list2ss lst))
)
(princ)
)

jh3030912 发表于 2024-8-23 06:50:25

xyp1964 发表于 2024-8-21 20:47


院长，这个需要搭配e派工具箱才可以使用吗？
页: [1] 2
查看完整版本: ssget如何不选择裁剪过的图块