怎么在SSGET的过滤表中带入参数（变量）！！

李彦春1

//meflying

(defun test(O_Lay D_Lay)
  (command "_.change" (ssget "x" (list (cons 8 O_Lay))) "" "p" "la" D_Lay "")
  (command "_.purge" "la" O_Lay "n")
)

这是论坛上找到的源码，(ssget "x" (list (cons 8 O_Lay))) 这一行在CAD2008下测试好像不行啊。

李彦春1

各位帮个忙啊，我想通过选择图层上的一个物体，从而选择这个图层上的所有图元。请高手给个方法啊。

ZZXXQQ

(defun c:tt ()
 (if (setq s1 (entsel "\n选择一个物体 :"))
  (setq ss (ssget "X" (list (assoc 8 (entget(car s1))))))
 )
)

李彦春1

谢谢热心的ZZXXQQ！！(ssget "x" (list (cons 8 O_Lay))) 这一段看起来也是可行的啊，可为什么运行起来就不行呢。

ZZXXQQ

仔细看ssget函数说明。双引号中的字母要区分大小写。