[日积月累]：将图形转换图层

jcmtxgt

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

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

lemonx

意义何在呢？请楼主告知它的用处

jcmtxgt

意义就在于：当我执行这个转换图层的过程中，lisp会帮我把图形编序之后再转到另一个之前定义好的那个图层上面去。就好像我前面说的有一个计数器一样，就是在计算转换图形,编序到另外一个图层上，变的不是图形本身，而是它的转换顺序。

lemonx

对不起，实在是看不懂
什么是编序？
什么是转换顺序？

jcmtxgt

看来我的说法还是有问题，其实我要这个lisp可以实现的是三个步骤：（1）建立一个新的图层，命名，定义颜色，置为当前。（2）框选图形进行排序。（3）将排序后的图形放到第一步的那个图层上面去！

排序就相当于我们要画一个长方形（用直线画），你先画那条，后画那条，都会有个顺序的，在将图形放到另一个图层之前，我要的就是对图形实体进行一次排序。

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. ★通用函数下载地址：
    
12. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (mkla "TEST" 1)
    
18.   (setq ss (ssget))
    
19.   (command "chprop" ss "" "la" "test" "")
    
20.   (CMDLA1)
    
21. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (mkla "TEST" 1)<br />   (setq ss (ssget))<br />   (command "chprop" ss "" "la" "test" "")<br />   (CMDLA1)<br /> )[/FONT]

jcmtxgt

还是没有解决到问题，我再说详细一点吧，

有点像是重绘一次一样，不过和重绘命令有很大的区别。这个命令要判断的是图形实体。

比如一长方形，用lisp命令的时候，它会判断从第一条线开始后接着它"最接近"的是哪条线，然后记录下来（就相当于有个计数器一样），再去找下一条最接近的，再记录下来，直到框选的图形全部执行了这一步操作。再放到新图层上，如此循环，直到不再选择为止，不过之前的都会记录下来，包括圆，圆弧，等，都可以实现这一个操作。

yangpan2005

好象cad2006有这个功能

jcmtxgt

请班竹伸一下援手帮我编一个啦，急用的

coldrain_yu

学习