选取属性完全一样图元问题。。。。。

tm20038175

如何选取与某一图元属性完全一样的图元，长度，方向，颜色，类型；
这就是所谓的Copy图元，全部选取到ss选择集中。。。…

tm20038175

回复 Gu_xl 的帖子

十分感谢，问题解决啦，开心。。。。

tm20038175

就是选中一批copy图元………

669423907

回复 tm20038175 的帖子

用 小菜123大师的选择易就可以啦。

tm20038175

这个只能通过工具吗？

Gu_xl

回复 tm20038175 的帖子

1. ;;;明经通道 编制 By Gu_xl 2011年7月7日
   
2. (defun c:tt (/ en  enl filter ss )
   
3.     (setq en (car (entsel "\n 选择图元: ")))
   
4.   (if en
   
5.     (progn
   
6.       (setq enl (entget en))
   
7.       (setq filter
   
8.       (vl-remove-if-not
   
9.         '(lambda (X)
   
10.     (or
    
11.       (= 0 (car x))
    
12.       (= 8 (car x))
    
13.       (= 62 (car x))
    
14.       (= 6 (car x))
    
15.       (= 370 (car x))
    
16.       (= 48 (car x))
    
17.       (= 100 (car x))
    
18.       (= 67 (car x))
    
19.       (= 60 (car x))
    
20.       )
    
21.     )
    
22.         enl
    
23.         )
    
24.      )
    
25. (setq ss (ssget "x" filter))
    
26.       (setq ss (GXL-SEL-SS->LIST ss)
    
27.      ss (mapcar '(lambda (X) (list x (gxl-dxf x 10))) ss)
    
28.      )
    
29.       (mapcar '(lambda (x) (vla-move (vlax-ename->vla-object (car x)) (vlax-3d-point (cadr x)) (vlax-3d-point '(0 0 0)))) ss)
    
30.       (setq filter
    
31.       (vl-remove-if
    
32.         '(lambda (X)
    
33.     (or
    
34.       (= -1 (car x))
    
35.       (= 5 (car x))
    
36.       (= 330 (car x))
    
37.       (= 360 (car x))
    
38.       (= 370 (car x))
    
39.       (= 347 (car x))
    
40.       (= 390 (car x))
    
41.       )
    
42.     )
    
43.         (entget en)
    
44.         )
    
45.      )
    
46.       (setq el (entget (caar ss)))
    
47.       (setq ss1 (ssget "x" filter))
    
48.       (mapcar '(lambda (x) (vla-move (vlax-ename->vla-object (car x)) (vlax-3d-point '(0 0 0)) (vlax-3d-point (cadr x)) )) ss)
    
49.       (princ)
    
50.      (SSSETFIRST nil ss1)
    
51.       )
    
52.     )
    
53.   (princ)
    
54.   )
    
55. (defun gxl-Sel-SS->List (ss / i s )
    
56. (if ss
    
57. (repeat (setq i (sslength ss))
    
58. (setq s (cons (ssname ss (setq i (1- i))) s))
    
59. )
    
60. )
    
61. )
    
62. (defun gxl-dxf (ent i)
    
63. (cond ((= (type ent) 'ename)
    
64. (cdr (assoc i (entget ent)))
    
65. )
    
66. ((= (type ent) 'list)
    
67. (cdr (assoc i ent))
    
68. )
    
69. ) ;_ if
    
70. )
    
71. 
    

;;;明经通道 编制 By Gu_xl 2011年7月7日<br /> (defun c:tt (/ en  enl filter ss )<br />     (setq en (car (entsel "\n 选择图元: ")))<br />   (if en<br />     (progn<br />       (setq enl (entget en))<br />       (setq filter<br />       (vl-remove-if-not<br />         '(lambda (X)<br />     (or<br />       (= 0 (car x))<br />       (= 8 (car x))<br />       (= 62 (car x))<br />       (= 6 (car x))<br />       (= 370 (car x))<br />       (= 48 (car x))<br />       (= 100 (car x))<br />       (= 67 (car x))<br />       (= 60 (car x))<br />       )<br />     )<br />         enl<br />         )<br />      )<br /> (setq ss (ssget "x" filter))<br />       (setq ss (GXL-SEL-SS->LIST ss)<br />      ss (mapcar '(lambda (X) (list x (gxl-dxf x 10))) ss)<br />      )<br />       (mapcar '(lambda (x) (vla-move (vlax-ename->vla-object (car x)) (vlax-3d-point (cadr x)) (vlax-3d-point '(0 0 0)))) ss)<br />       (setq filter<br />       (vl-remove-if<br />         '(lambda (X)<br />     (or<br />       (= -1 (car x))<br />       (= 5 (car x))<br />       (= 330 (car x))<br />       (= 360 (car x))<br />       (= 370 (car x))<br />       (= 347 (car x))<br />       (= 390 (car x))<br />       )<br />     )<br />         (entget en)<br />         )<br />      )<br />       (setq el (entget (caar ss)))<br />       (setq ss1 (ssget "x" filter))<br />       (mapcar '(lambda (x) (vla-move (vlax-ename->vla-object (car x)) (vlax-3d-point '(0 0 0)) (vlax-3d-point (cadr x)) )) ss)<br />       (princ)<br />      (SSSETFIRST nil ss1)<br />       )<br />     )<br />   (princ)<br />   )<br /> (defun gxl-Sel-SS->List (ss / i s )<br /> (if ss<br /> (repeat (setq i (sslength ss))<br /> (setq s (cons (ssname ss (setq i (1- i))) s))<br /> )<br /> )<br /> )<br /> (defun gxl-dxf (ent i)<br /> (cond ((= (type ent) 'ename)<br /> (cdr (assoc i (entget ent)))<br /> )<br /> ((= (type ent) 'list)<br /> (cdr (assoc i ent))<br /> )<br /> ) ;_ if<br /> )<br /> <br />

tm20038175

好心人真多～～～～～～

chengx2000

回复 Gu_xl 的帖子

版主真是要什么来什么，实在是佩服！！

xiaxiang

回复 Gu_xl 的帖子

改entsel为ssget。。。
如果能够批量选择，加个循环处理，就太棒了

tm20038175

回复 xiaxiang 的帖子

这样会产生很多个ss，个人感觉不妥，还是entsel好。。。。。。