实现用lisp程序转换图层
<P>在别人机子上看到：执行一个lisp命令，可以自动建立一个new图层，并设定好颜色，自己可以将需要的图形框选，然后就会转换到new图层上（还有一个计数哭器）。</P><P>请教各位大吓，如何用lisp做到呢？用的是r14 .先谢了！</P> <P>(defun c:newlayer ()</P>
<P>(command "layer" "new" "自己要建的新图层" "c" "1" "" "")</P>
<P>)</P>
<P>(defun c:selchange ()</P>
<P>(setq newla (getstring "请输入要改的图层名称"))</P>
<P>(setq ent (ssget))</P>
<P>(command "change" ent "p" "la" newla "")</P>
<P>)</P>
<P>我没有调试应该好使</P>
<P> </P>
页:
[1]