求教lisp图层选择的问题

benq3

我的目标是，通过点选不同图层的对象，将所选所有图层所有对象全部复制到剪贴板，供粘贴到另一图使用。

(princ "加载程序成功，输入tc命令可应用此工具\n")
(defun c:tc (/ en tc %%copy ex p1)
  (while (/= ex "E")
    (progn
      (prompt "\n选择要复制的图层: ")
      (setq en (assoc 8 (entget (car (entsel)))))
      (setq %%copy (ssget "x" (list en)))
      (princ)
      (initget "e")
      (setq
ex (strcase
      (getstring "\n回车或空选继续 /退出程序请输入<E>:")
    ) ;_ 结束strcase
      ) ;_ 结束setq
    ) ;_ 结束progn
  ) ;_ 结束while
  (setq p1 (getpoint "\n选择基点:"))
  (command "copybase" p1 "")
) ;_ 结束defun
我上面的程序只能选择一个图层，高手帮看看怎么回事，谢谢

csharp

(princ "加载程序成功，输入tc命令可应用此工具\n")
(defun c:tc (/ en tc %%copy ex p1 lst str)
  (while (/= ex "E")
    (prompt "\n选择要复制的图层: ")
    (setq en (cdr (assoc 8 (entget (car (entsel))))))
    (if        (not (member en lst))
      (setq lst (cons en lst))
    )
    (initget "e")
    (setq ex (strcase (getstring "\n回车或空选继续 /退出程序请输入<E>:")) ;_ 结束strcase
    ) ;_ 结束setq
  )
  (if (not (null lst))
    (progn
      (setq str        (car lst)
            lst        (cdr lst)
      )
      (while lst
        (setq str (strcat str "," (car lst))
              lst (cdr lst)
        )
      )
      (setq %%copy (ssget "x" (list (cons 8 str))))
    ) ;_ 结束progn
  ) ;_ 结束while
  (setq p1 (getpoint "\n选择基点:"))
  (command "copybase" p1 "")
  (princ)
) ;_ 结束defun

benq3

csharp 发表于 2015-3-16 11:18
(princ "加载程序成功，输入tc命令可应用此工具\n")
(defun c:tc (/ en tc %%copy ex p1 lst str)
  (whi ...

谢谢楼上的，我新学lisp，的好好研究一下。
最后一句(command "copybase" p1 "")我的不知什么时候漏了个参数错误，改成(command "copybase" p1 %%copy "")基本满足我的要求。
要是能选择上某层后全部图层对象变虚就更好了。{:soso_e113:}

benq3

能给解释一下 (setq en (cdr (assoc 8 (entget (car (entsel))))))，加个cdr的原因？其实对cdr  car还不太懂，高人讲一讲吧，Caaaar     cadaar     cdaaar     cddaar等等，还有有些加‘或者.是格式要求吗？比如有些assoc 8后面加个.的。谢谢

iLisp

sssetfirst即可