[LISP程序]：大家看看这个程序有什么问题？

wcf

这是一个把某种颜色的文本转换为指定为某一图层的程序，应是很实用的，但不知有何错误，在R14中不能操作。

(defun C:tes ()
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(cond
((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 "X" '((0 . "TEXT")(62 . 1))))
(setq i 0)
(vla-StartUndoMark adoc)
(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)
)

LUCAS

R14不支持VLISP,除非另外加載(外掛)VLISP