[求助]对象选择过滤器

reecho

我刚接触lisp，现在想通过lisp做个过滤选择的功能。

首先是选择一个对象，然后选择该对象同层的，同几何形状的对象。

比如我选择了0层里的一条多线段，然后选择集就是位于0层里的所有多线段。不知道该如何写？

在网上看了一些帖子，比如这个(setq mb (ssget "x"  '((0 . "circle") (8 . "layer1"))))，但是是指定的，不能随我选择的对象而定。还有我这个刚上手的菜鸟，把这个加载到cad后，不知道怎么调用。请各位大侠多多指教！不胜感激！

补充：非常感谢楼下的回复，问题已经解决了，谢谢！谢谢！

(("通用" ((0 "实体类型") (6 "实体线型") (8 "所在图层") (48 "线型比例") (62 "实体颜色") (370 "实体线宽"))) ("ARC" ((-4 "圆弧") (39 "实体厚度") (10 "圆心坐标") (40 "圆弧半径") (50 "起点角度") (51 "端点角度")))

caoyin

(defun C:TEST (/ E)
  (if (setq E (entsel))
    (progn
      (setq E (entget (car E))
            E (list (assoc 0 E) (assoc 8 E))
            E (ssget "_X" E)
      )
      (sssetfirst nil E)
      (princ "\n共有 ")
      (princ (sslength E))
      (princ " 个对象被选择。")
    )
  )
  (princ)
)

xhq1954425

学习了

hyccai

呵呵

nishuihanjian

这个对插件程序例如机械工程师的符号不识别