前一次提到的部题可能表达不清没人问答，这次再贴一个图给大家看看

gz-yzy

我与选中一个立方体，如何选择同立方体交叉的所有物体呀？（例如要选择同物体A所相交的物体B、C）

meflying

使用方法：将以下语句存为*.lsp文件，然后用命令appload加载此文件，
加载完毕后，使用命令:sel，你就可以选择如图中A的实体了，结束后连接的实体将被选中，
但不同于直接用鼠标选择，而同命令select的选择，这样使用：
如：用erase删除命令：
使用sel后，调用erase命令，在选择对象中输入p，再回车就可删除需要实体（如图中就是删除了实体a、b、c。
注意，如果两个实体只是刚好连接，而没有交叉，则不选择，此程序只使用于三维实体。

(vl-load-com)
(defun c:sel( / ss  vname ss2 n i vns vname2 vt vol pt sname)
  (setq ss (entsel))
  (setq sname (car ss))
  (setq ss2 (ssadd))
  (ssadd sname ss2)
  (setq vname (vlax-ename->vla-object sname))
  (setq vol (vla-get-volume vname))
  (setq pt (cadr ss))
  (setq ss (ssget "x"))
  (setq n (sslength ss))
  (setq i 0)
  
  (setvar "cmdecho" 0)
  (while (< i n)
    (setq vname2 (vlax-ename->vla-object (ssname ss i)))
    (command "undo" "be")
    (setq vt (vl-catch-all-apply 'vla-boolean (list vname acSubtraction vname2)))
    (command "undo" "e")
    (if (not (vl-catch-all-error-p vt))
      (progn
        (setq sname (ssname (ssget pt) 0))
        (setq sname (vlax-ename->vla-object sname))
        (if (eq (vla-get-volume sname) vol)
          (command "u")
          (progn
            (command "u")
            (setq vns (append vns (list vname2)))
          )
        )
      )
    )
    (setq i (1+ i))
  )
  (setq n (length vns))
  (setq i 0)
  (while (< i n)
    (ssadd (vlax-vla-object->ename (nth i vns)) ss2)
    (setq i (1+ i))
  )
  (command "select" ss2 "")
  (princ)
)

gz-yzy

如何才能选择与之相交的图块物体呀？

meflying

上面不是给你写了程序，使用方法也说了。
还有什么问题，可以针对以上内容问啊

gz-yzy

我自定了很多图块，
好像用以上的方法只能选择三维实体，
我主要是想用来选择与之相交的图块。