[求助]关于选择集
 

[求助]关于选择集
www.dimcax.com
[求助]关于选择集
如何快速而有效的取得插入点为pt（x,y）的重叠块的选择集，它们的z值可能不同
如果z值不同，下面的就删不了了啊！
(defun slx ()
(setq lxss (ssget "x" (list (cons 0 "insert") (cons 2 "lx"))))
;(setq delss (ssadd))
(if lxss
(progn
(setq len (sslength lxss)
n 0
)
(repeat len
(setq ssn (ssname lxss n))
(setq se (entget ssn))
(if se
(progn
(setq pt (cdr (assoc 10 se)))
(setq lxss1 (ssget "x" (list (cons 0 "insert") (cons 2 "lx")

(cons 10 pt)
)
)
)
(if (and lxss1 (> (sslength lxss1) 1))
(progn
(ssdel ssn lxss1)
(vl-cmdf "erase" lxss1 "");(vl-cmdf "select" delss lxss1 "")
)
)
)
)
(setq n (+ n 1))
)
;(vl-cmdf "erase" delss "")
)
)
)
d