[LISP程序]：怎样求选择集

不是我

怎样用纯 LISP 求“COPY”，“ARRAY”等命令生成的新的实体所组成的选择集

libo2000

最初由 不是我 发布
[B]怎样用纯 LISP 求“COPY”，“ARRAY”等命令生成的新的实体所组成的选择集 [/B]

(setq ss (ssadd))
(setq last0 (entlast))
(setq last0_num (sslength last0))
(command ".copy")
(setq last (entlast))
(setq last_num (sslength last))

(setq sel_num (- last_num last0_num))
(setq i 0)
(repeat sel_num
  (setq ss (ssget "x"))
  (if ss
    (ssadd (ssname ss i) ss)
  )
  (setq i (+ i 1))
)
;;方法二,推荐
(defun tttt ( / )
        (setq ss (ssadd))
        (setq ss0 (ssget))
        (setq ee (entlast))
        (setq p1 (getpoint "p1"))
        (setq p2 (getpoint "p2"))
        (command ".copy" ss0 "" p1 p2 )
        (setq ss2 (ssget "x"))
        (setq i 0)
        (setq loop T)
        (while loop
                (setq ee2 (ssname ss2 i))
                (setq i (+ i 1))
                (if (not (eq ee ee2) )
                  (progn
                                (princ "k")
                                (ssadd ee2 ss)                    
                        ) ;endthen
                        (setq loop nil)
                );endif
        );endwhile
        ss
)

不是我

多谢，经过调试，代码需作如下修改

2. 
   
3. (defun tttt ( / )
   
4.   (setq ss (ssadd))
   
5.   (setq ss0 (ssget))
   
6.   (setq ee (entlast))
   
7.   (setq p1 (getpoint "p1:"))
   
8.   (setq p2 (getpoint "p2:"))
   
9.   (command ".copy" ss0 "" p1 p2 )
   
10.   (setq ss2 (ssget "x"))
    
11.   (setq i 0)
    
12.   (setq loop T)
    
13.   (while loop
    
14.     (setq ee2 (ssname ss2 i))
    
15.     (setq i (+ i 1))
    
16.     (if (not (eq ee ee2))
    
17.       (if (/= (cdr (assoc 0 (entget ee2))) "VIEWPORT")
    
18.         (setq ss (ssadd ee2 ss))
    
19.       )
    
20.       (setq loop nil)
    
21.     )
    
22.   )
    
23.   ss
    
24. )
    

<br /> (defun tttt ( / )<br />   (setq ss (ssadd))<br />   (setq ss0 (ssget))<br />   (setq ee (entlast))<br />   (setq p1 (getpoint "p1:"))<br />   (setq p2 (getpoint "p2:"))<br />   (command ".copy" ss0 "" p1 p2 )<br />   (setq ss2 (ssget "x"))<br />   (setq i 0)<br />   (setq loop T)<br />   (while loop<br />     (setq ee2 (ssname ss2 i))<br />     (setq i (+ i 1))<br />     (if (not (eq ee ee2))<br />       (if (/= (cdr (assoc 0 (entget ee2))) "VIEWPORT")<br />         (setq ss (ssadd ee2 ss))<br />       )<br />       (setq loop nil)<br />     )<br />   )<br />   ss<br /> )<br />

干脆做成子函数

2. 
   
3. (defun new_ss (elast / ss1 ss2 ee2 i loop)
   
4.   (setq ss2 (ssget "x"))
   
5.   (setq i 0 loop t ss1 (ssadd))
   
6.   (while loop
   
7.     (setq ee2 (ssname ss2 i) i (1+ i))
   
8.     (if (not (eq ee2 elast))
   
9.       (if (/= (cdr (assoc 0 (entget ee2))) "VIEWPORT")
   
10.         (setq ss1 (ssadd ee2 ss1))
    
11.       )
    
12.       (setq loop nil)
    
13.     )
    
14.   )
    
15.   ss1
    
16. )
    

<br /> (defun new_ss (elast / ss1 ss2 ee2 i loop)<br />   (setq ss2 (ssget "x"))<br />   (setq i 0 loop t ss1 (ssadd))<br />   (while loop<br />     (setq ee2 (ssname ss2 i) i (1+ i))<br />     (if (not (eq ee2 elast))<br />       (if (/= (cdr (assoc 0 (entget ee2))) "VIEWPORT")<br />         (setq ss1 (ssadd ee2 ss1))<br />       )<br />       (setq loop nil)<br />     )<br />   )<br />   ss1<br /> )<br />

使用时,在执行命令之前先定义

(setq ee (entlast))

再执行 COPY，ARRAY 等命令，
执行完后，

(setq ss (new_ss ee))

获得新生成实体的选择集ss

eachy

论坛以前有过讨论
语法

    (entnext [ename])

功能及参数

    如要调用此函数而随后未跟任何参数, 那么此函数会返回在数据库中第一个未被删除的图元名。如果, 其后跟随着[ename] 参数, 它将返回在数据库中 [ename] 之后, 第一个未删除的图元名。若在数据库中没有下一个图元, 那么将返回 nil。此函数会返回主要图元及子图元。

    由 ssget 所选择的图元就是主图元, 它不包含图块的属性或多段线的顶点。经过 entnext 的简单方法, 您也可以存取这些复杂图元的内部结构。一旦您获取了这些子图素的名称, 您就可像其他的图元一样来操作它。如果您经过entnext 函数来获取一个子图元的名称, 您就可以再经过entnext 函数来寻找一个含有 seqend 图元的表, 然后再由这个图元表中取出 -2 群组, 这就是主图元的名称。

范例

(setq e1 (entnext));        设定 E1 为图形中第一个图元的名称

    (setq e2 (entnext e1));    设定 E2 为在 E1 后那个图元的名称

2. (defun c:test (/ ss ss1 e)
   
3.   (setq        e   (entlast)
   
4.         ss1 (ssadd)
   
5.   )
   
6.   (setq ss (ssget))
   
7.   (command ".copy" ss "" pause pause)
   
8.   (while (setq e1 (entnext e))
   
9.     (ssadd e1 ss1)
   
10.   )
    
11.   ss1
    
12. )

(defun c:test (/ ss ss1 e)<br />   (setq        e   (entlast)<br />         ss1 (ssadd)<br />   )<br />   (setq ss (ssget))<br />   (command ".copy" ss "" pause pause)<br />   (while (setq e1 (entnext e))<br />     (ssadd e1 ss1)<br />   )<br />   ss1<br /> )

陌生人

(setq ss0 (ssget "x"))
....copy,array....
(command ".select" "all" "r" ss0 "")
(setq ss (ssget "p"))

pxt2001

我是新手，我不会编程，请各位大侠把程序补全：如何复制，删除，移动指定图层上的对象，过滤其它的对象（执行移动命令提示选择对象时，只能选择某一图层的物体，不能选择其它图层上的物体），例如天正建筑Tch中就有擦除墙线命令，可以仅仅删除wall层上的对象，擦除标注，可以仅仅删除dim层上对象。请各位大侠帮忙。谢谢！

yjtdkj

好帖！！我也要学习学习，希望斑竹多发这样有指导性的文章

zuicai

楼上各位在写代码的时候能否顺手加上注释呢？

Alick

最初由 zuicai 发布
[B]楼上各位在写代码的时候能否顺手加上注释呢？ [/B]

同意楼上说的，请各位大侠加上注释，方便我等初学者学习。