求一个框选图元，让图元当前图层对号入座的lisp程序

fire9527

想要这样的程序：框选很多图元，程序读取所选图元的图层信息，把在图层1上的图元变到图层a上去，图层2上的图元变到图层b上去……依次类推，图层1、图层2、图层a、图层b这些都是已经建立好的图层

Gu_xl

超简单的示例代码！请自行修改使用！
正确的做法应该是添加对话框，可以自定定义图层名称，这工作你自己来弄了！

1. (defun c:tt (/ ss n a e)
   
2.   (if (setq ss (ssget (list
   
3.                     (cons 8 "图层1,图层2,图层3") ;_ 自行修改图层名称
   
4.                     )
   
5.                   )
   
6.         )
   
7.     (repeat (setq n (sslength ss))
   
8.       (setq e (entget(ssname ss (setq n (1- n)))))
   
9.       (cond ((= "图层1"  (cdr (setq a (assoc 8 e))))
   
10.              (entmod (subst (cons 8 "图层a") a e)) ;_ 自行修改图层名称
    
11.              )
    
12.             ((= "图层2"  (cdr a))
    
13.              (entmod (subst (cons 8 "图层b") a e)) ;_ 自行修改图层名称
    
14.              )
    
15.             ((= "图层3"  (cdr a))
    
16.              (entmod (subst (cons 8 "图层c") a e)) ;_ 自行修改图层名称
    
17.              )
    
18.             )
    
19.       )
    
20.     )
    
21.   (princ)
    
22.   )
    

(defun c:tt (/ ss n a e)<br />   (if (setq ss (ssget (list<br />                     (cons 8 "图层1,图层2,图层3") ;_ 自行修改图层名称<br />                     )<br />                   )<br />         )<br />     (repeat (setq n (sslength ss))<br />       (setq e (entget(ssname ss (setq n (1- n)))))<br />       (cond ((= "图层1"  (cdr (setq a (assoc 8 e))))<br />              (entmod (subst (cons 8 "图层a") a e)) ;_ 自行修改图层名称<br />              )<br />             ((= "图层2"  (cdr a)) <br />              (entmod (subst (cons 8 "图层b") a e)) ;_ 自行修改图层名称<br />              )<br />             ((= "图层3"  (cdr a))<br />              (entmod (subst (cons 8 "图层c") a e)) ;_ 自行修改图层名称<br />              )<br />             )<br />       )<br />     )<br />   (princ)<br />   )<br />

Andyhon

...框选这五个图元...

不会多!?
or 另有分说

fire9527

Andyhon 发表于 2013-1-4 16:57
...框选这五个图元...

不会多!?

五个图元只是举例，实际有很多图元，我希望程序能让框选到的图元图层对号入座，如果图元所在图层没在程序中列出来，连选都选不上！

ll_j

程序本身不是很复杂，但复杂的是进出口条件，也就是这里所说的图层，是不是就这几个图层？又是不是就叫这些名字？
仅功能本身而言，没有通用性，相反，可能还不如使用CAD本身的选择过滤器（filter）或快速选择（QSelect）来得快一些。

fire9527

ll_j 发表于 2013-1-4 17:27
程序本身不是很复杂，但复杂的是进出口条件，也就是这里所说的图层，是不是就这几个图层？又是不是就叫这些 ...

图层信息自己在程序里面添加

lidaxiu

这个得按图元的特性来归层，比如标注归到一层，填充归到一层，文字归到一层～～～等等，如果是这样可以实现的

yjr111

问题不明不白，想帮也难

fire9527

yjr111 发表于 2013-1-4 18:57
问题不明不白，想帮也难

1楼已经更新，有劳再阅！

fire9527

Gu_xl 发表于 2013-1-4 20:00
超简单的示例代码！请自行修改使用！
正确的做法应该是添加对话框，可以自定定义图层名称，这工作你自己来 ...

万分感激Gu_xl大师！功能正合我意，这可帮了我一大忙 ，感激不尽！！！祝关注此贴的朋友新年快乐！