[编程申请]：快速指定图元图层。

zwx123

能否编制这样的程序（lisp）:简单的快捷键，将选定的图元转到指定图层，图元颜色等属性随层，例：
选定一直线或一匹直线，快捷键“d”，回车，则图元转到“d”层。
当然，快捷键最好是数字键，数字对应相应图层，“1”墙线，“2”中心线，“3”管道等等。

lsjjm

REFER TO :
(defun c:test ()
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ent (entsel "\nSelect object on layer to copy from: "))
  (setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
  (cond
    ((setq ss (ssget))
      (setq i 0)
      (vla-StartUndoMark doc)
      (repeat (sslength ss)
        (vla-put-layer (vlax-ename->vla-object (ssname ss i)) lay)
        (setq i (1+ i))
      )
      (vla-EndUndoMark adoc))
  )
  (vlax-release-object adoc)
  (princ)
)

zwx123

非常感谢lsjjm，我不懂lisp，看不懂程序。但加载后运行时没有任何反应。

qwe

有编好的lisp吗?