VLISP中实现LISP的选择集功能

supertw

各位DX:

    本人以前用的是LISP,现在在学VLISP,我知道在LISP中选中所有某一图元用(ssget "x"(list(cons 0 "图元"))),我想请教一下,在VLISP里如何实现这一功能,我直知道先要建立一个选择集,然后再往里面添加实体,但具体的命名我不会用,能不能写个具体的例子,如选中当前图形里面图层为"8",半径为8的所有圆实体.

                                   谢谢大家指教

xyp1964

2. (setq ss (ssget "X" '((0 . "CIRCLE")(40 . 8)(8 . "8"))))

(setq ss (ssget "X" '((0 . "CIRCLE")(40 . 8)(8 . "8"))))