[求助]遇到一个ssget的问题，求助

huanbaonan

autolisp菜鸟，在看一本autolisp书，课后遇到一个习题，碰到一个问题求助

习题：试写一个程序，由用户选择一个对象，然后找出该对象位于同一个曾上的图形对象的个数

(defun tc()
   (graphscr)
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" oce)
  
   (setq
       s (entget (car (entsel "\n请选择一个图形:")))
       s8 (assoc 8 s)
       s0 (ssget "x"  '（s8）)
       n (sslength s0)
   )
  
   (setvar "cmdecho")
   (princ "和您选择的在同一个图层上的图形个数为:" n)
)

在调试的时候发现了一个问题。标红色的部分代码出现了问题，我用s8取出了选择图像的图层

但是在用ssget函数过滤的时候出现问题，因为过滤条件前要加qoute，如果我的过滤条件用一个

参数代替，那么加上qoute运算后ssget就会出现错误提示：错误的点参数。有什么好的方法可以解决这个问题？

zhoufupeng

（setq s0 (ssget "x"  (list s8)))

xgr

程序修改

(defun tc()
   (graphscr)
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" oce)
   (setq s (entget (car (entsel "\n请选择一个图形:")))
  s8 (assoc 8 s)
  s0 (ssget "x" (list s8))
   n (sslength s0)
   )
   (setvar "cmdecho" oce)
   (princ (strcat "和您选择的在同一个图层上的图形个数为" (itoa n)"个!"))
)

huanbaonan

谢谢2楼和3楼的大侠！