[编程申请]：如何定义一个改变颜色的快捷命令

MY-Edwin

请教高手：
如何定义一个改变颜色的快捷命令
如：输入快捷命令： 1     ，然后框选实体，就可以将选重的实体改变成红色，
我尝试过用command命令来定义，但是只能点选（即只能选一条线），我没有用puase函数，我不会用此函数。

urljit

[PHP](defun c:mycolor (/ MYSEL N)
  (setq n 0)
  (prompt "\n请选择物体以改变颜色:")
  (setq mysel (ssget))
  (repeat (sslength mysel)
    (vla-put-Color (vlax-ename->vla-object (ssname mysel n)) 1)
    (setq n (1+ n))
  )
)[/PHP]