[求助]编了一个过滤选择的函数，但好象有问题

luchangliang

(defun GUOLV()
  (princ "请输入过滤类型：对象类型[0]/对象名称[2]/图层名[8]/颜色[62]：")
  (setq leixing (getint))
  (if (= leixing 0)
    (progn
      (setq yy (getstring "/n 请输入对象类型："))
      (setq elist (ssget '((0 . yy)))) ;过滤图层
      )
    (if (= leixing 2)
      (progn
 (setq yy (getstring "/n 请输入对象名称:"))
 (setq elist (ssget '((2 . yy))))
 )
      (if (= leixing 8)
 (progn
   (setq yy (getstring "/n 请输入图层名称:"))
   (setq elist (ssget '((8 . yy))))
   )
 (if (= leixing 62)
   (progn
     (setq yy (getint "/n 请输入颜色代码:"))
     (setq elist (ssget '((62 . yy))))
     )
   (princ "/nERROR!")
   )))))

        编这个函数是打算通过输入来决定过滤的类型，但是不知道为什么在执行的时候无法达到想象的效果。仔细检查了程序，好象没有什么错误啊？请大家帮忙看一下。

ZZXXQQ

错误不少。

3. (defun GUOLV()
4.   (princ "请输入过滤类型：对象类型[0]/对象名称[2]/图层名[8]/颜色[62]：")
5.   (setq leixing (getint))
6.   (COND
7.    ((= leixing 0)
8.     (setq yy (getstring "/n 请输入对象类型："))
9.     (setq elist (ssget (LIST (CONS 0 yy)))) ;过滤图层
10.    )
11.    ((= leixing 2)
12.     (setq yy (getstring "/n 请输入对象名称:"))
13.     (setq elist (ssget (LIST (CONS 2 yy))))
14.    )
15.    ((= leixing 8)
16.     (setq yy (getstring "/n 请输入图层名称:"))
17.     (setq elist (ssget (LIST (CONS 8 yy))))
18.    )
19.    ((= leixing 62)
20.     (setq yy (getint "/n 请输入颜色代码:"))
21.     (setq elist (ssget (LIST (CONS 62 yy))))
22.    )
23.    (T (princ "/nERROR!"))
24.   )
25. )

(defun GUOLV()   (princ "请输入过滤类型：对象类型[0]/对象名称[2]/图层名[8]/颜色[62]：")   (setq leixing (getint))   (COND    ((= leixing 0)     (setq yy (getstring "/n 请输入对象类型："))     (setq elist (ssget (LIST (CONS 0 yy)))) ;过滤图层    )    ((= leixing 2)     (setq yy (getstring "/n 请输入对象名称:"))     (setq elist (ssget (LIST (CONS 2 yy))))    )    ((= leixing 8)     (setq yy (getstring "/n 请输入图层名称:"))     (setq elist (ssget (LIST (CONS 8 yy))))    )    ((= leixing 62)     (setq yy (getint "/n 请输入颜色代码:"))     (setq elist (ssget (LIST (CONS 62 yy))))    )    (T (princ "/nERROR!"))   ) )