实现用lisp程序转换图层

jcmtxgt

在别人机子上看到：执行一个lisp命令，可以自动建立一个new图层，并设定好颜色，自己可以将需要的图形框选，然后就会转换到new图层上（还有一个计数哭器）。

请教各位大吓，如何用lisp做到呢？用的是r14  .先谢了！

wb0815

(defun c:newlayer ()

(command "layer" "new" "自己要建的新图层"  "c" "1" "" "")

)

(defun c:selchange ()

(setq newla (getstring "请输入要改的图层名称"))

(setq ent (ssget))

(command "change"  ent "p"  "la" newla  "")

)

我没有调试应该好使