如何选择一段过程中生成的多个图元？

革天明

如何选择一段过程中生成的多个图元？如：
主命令：
……
开始标记，下面由程序生成的图元都会被选择
……依据其它条件决定调用哪个子程序（子程序1 or  子程序2）
……这是程序过程
结束标记，要选择的图元在此结束，假设此时得到的选择集是SS-END
……(command "move" SS-END "" p1 p2)
……
子程序1：生成10个图元
子程序2：生成20个图元

如何得到这个选择集SS-END？

Gu_xl

LISP知识问答第2期--基础篇2-(难度指数:★)
http://bbs.mjtd.com/thread-84780-1-1.html
第五题就是你要的！

e2002

use :
entnext
entlast

e2002

use :
entnext
entlast

690994

你按下面的试下吧，其实搜索下论坛就能找到解决方法。

主命令：
……
(setq ss-end (entlast));开始标记，下面由程序生成的图元都会被选择
……依据其它条件决定调用哪个子程序（子程序1 or  子程序2）
……这是程序过程
(setq ss-end(last_ent ss-end));结束标记，要选择的图元在此结束，假设此时得到的选择集是SS-END
……(command "move" SS-END "" p1 p2)
……
子程序1：生成10个图元
子程序2：生成20个图元

; 获取在图元 en 之后产生的图元的选择集;   

(defun last_ent (en / ss)
   (if en
     (progn
       (setq ss (ssadd))
       (while (setq en (entnext en))
         (if (not (member (cdr (assoc 0 (entget en)))
                          '("ATTRIB" "VERTEX" "SEQEND")
                  )
             )
           (ssadd en ss)
         );if
       );while
       (if (zerop (sslength ss)) (setq ss nil))
       ss
     );progn
     (ssget "_x")
   );if
)

革天明

690994 发表于 2012-4-1 09:59
你按下面的试下吧，其实搜索下论坛就能找到解决方法。

主命令：

程序中还想实现一个某个“点”之前的图元，即有“开”也有“关”，如果选择从某个图元开始之后的所有图元使用这个程序是可行的，就是缺一个“关”。

690994

革天明 发表于 2012-4-1 10:28
程序中还想实现一个某个“点”之前的图元，即有“开”也有“关”，如果选择从某个图元开始之后的所有图元 ...

这个容易，在你想要关时用另一变量AA保存现时选集，
在你想再开时重复用上面代码，想关时再+入AA中去。

革天明

690994 发表于 2012-4-1 10:33
这个容易，在你想要关时用另一变量AA保存现时选集，
在你想再开时重复用上面代码，想关时再+入AA中去。

好注意！谢谢！